Rosetta Code

Maze generation: Difference between revisions

Page Discussion

Maze generation (view source)

Revision as of 13:38, 30 June 2017

28 bytes removed ,  6 years ago
→‎{{header|Clojure}}
Line 1,553:
 
(defn maze->str [maze]
(->> (for [y (range (count maze))]
(str/join
(for [x (range (count (cell->strnth maze [y x])))]▼
\newline
(cell->str linemaze [y x])))▼
(map-indexed
(fn [y(map line]str/join)
(str/join \newline)))
(map-indexed
(fn [x cell]
▲ (cell->str maze [y x]))
▲ line)))
maze)))
 
(println (maze->str (create-random-maze 10 10)))</lang>
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/167627"