Maze generation: Difference between revisions
→{{header|TXR}}: Use put-line, put-string and quasistrings instead of format calls.
(Updated D entry (again)) |
(→{{header|TXR}}: Use put-line, put-string and quasistrings instead of format calls.) |
||
Line 4,711:
(each ((i (range* 0 w)))
(if (memqual i..(- j 1) [pa i..j])
(
(
(
(defun print-sides (pa w j)
Line 4,721:
(set str `@str `)
(set str `@str| `)))
(
(defun print-maze (pa w h)
| |||