55 lines
1.6 KiB
Clojure
55 lines
1.6 KiB
Clojure
(ns cc.journeyman.the-great-game.world.routes
|
|
"Conceptual (plan level) routes, represented as tuples of location ids."
|
|
(:require [cc.journeyman.the-great-game.utils :refer [cyclic?]]))
|
|
|
|
(defn find-routes
|
|
"Find routes from among these `routes` from `from`; if `to` is supplied,
|
|
to `to`, by breadth-first search."
|
|
([routes from]
|
|
(map
|
|
(fn [to] (cons from to))
|
|
(remove
|
|
empty?
|
|
(map
|
|
(fn [route]
|
|
(remove
|
|
#(= from %)
|
|
(if (some #(= % from) route) route)))
|
|
routes))))
|
|
([routes from to]
|
|
(let [steps (find-routes routes from)
|
|
found (filter
|
|
(fn [step] (if (some #(= to %) step) step))
|
|
steps)]
|
|
(if
|
|
(empty? found)
|
|
(find-routes routes from to steps)
|
|
found)))
|
|
([routes from to steps]
|
|
(if
|
|
(not (empty? steps))
|
|
(let [paths (remove
|
|
cyclic?
|
|
(mapcat
|
|
(fn [path]
|
|
(map
|
|
(fn [x] (concat path (rest x)))
|
|
(find-routes routes (last path))))
|
|
steps))
|
|
found (filter
|
|
#(= (last %) to) paths)]
|
|
(if
|
|
(empty? found)
|
|
(find-routes routes from to paths)
|
|
found)))))
|
|
|
|
(defn find-route
|
|
"Find a single route from `from` to `to` in this `world-or-routes`, which
|
|
may be either a world as defined in [[the-great-game.world.world]] or else
|
|
a sequence of tuples of keywords."
|
|
[world-or-routes from to]
|
|
(first
|
|
(find-routes
|
|
(or (:routes world-or-routes) world-or-routes)
|
|
from
|
|
to)))
|