Maze generation: Difference between revisions

Content added Content deleted

Inline

@@ Line 4,711: / Line 4,711: @@
      (each ((i (range* 0 w)))
        (if (memqual i..(- j 1) [pa i..j])
-         (format t "+    ")
+         (put-string "+    ")
-         (format t "+----")))
+         (put-string "+----")))
-     (format t "+\n"))
+     (put-line "+"))
    (defun print-sides (pa w j)
@@ Line 4,721: / Line 4,721: @@
            (set str `@str     `)
            (set str `@str|    `)))
-       (format t "~a|\n~a|\n" str str)))
+       (put-line `@str|\n@str|`)))
    (defun print-maze (pa w h)