Maze generation: Difference between revisions

Line 1,542:
(transduce
(comp
(keep-indexedmap (fnpartial [idx el] (when (wall? maze el) idx)))
(mapkeep-indexed #(bit-shift-leftfn [idx el] (when 1el %idx)))
(map (partial bit-shift-left 1)))
(completing bit-or)
0