От: | Grundik2 | ||
Дата: | 13.09.13 03:30 | ||
Оценка: |
metroTree :: Station -> Station -> Tree (Station, Double)
metroTree init goal = astarTree distMetroMap (stationDist goal) init
connect :: Station -> Station -> Maybe [Station]
connect a b = search (== b) $ metroTree a b