Maze generation: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Updated D entry (again)
Kazinator (talk | contribs)
546 edits
→‎{{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])
(format tput-string "+ ")
(format tput-string "+----")))
(format tput-line "+\n"))
 
(defun print-sides (pa w j)
Line 4,721:
(set str `@str `)
(set str `@str| `)))
(formatput-line t "~a`@str|\n~a@str|\n" str str`)))
 
(defun print-maze (pa w h)
Retrieved from "https://rosettacode.org/wiki/Maze_generation"