|
(disp Maze 0 '((This) " ")) )</lang>
Output:
<pre>: (display (maze 1611 128))
+ +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
12 | 8 | | | | |
+ + + + + +---+ + +---+---+ + +---+ +---+ +
117 | | | | | | | | | | |
+ +---+ +---+---+ +---+---+ + +---+--- + +---+ +---+
106 | | | | | | | | | |
+ + ---+ +---+ + + + + ---+---+---+ +---+ +---+ +
9 5 | | | | | | | | | | |
+ +---+---+ + +---+ +---+---+ ---+ + + ---+---+ + +
8 4 | | | | | | | | | |
+ + ---+ + ---+ +---+---+ +---+ +---+---+ +---+ + +
7 | | 3 | | | | | | | |
+---+ +---+---+---+--- + +---+ +---+ + +---+ +---+ +
6 | 2 | | | | | | | | | |
+ +---+ +---+ +---+ + +---+ + +---+---+---+ + +
5 1 | | | | | | | |
+---+ ---+---+ ---+---+ +---+ +---+---+ + +---+ +---+ ---+
4 | a | b c | d e |f g h | i | j | | | | |k</pre>
+ +---+ +---+ +---+ +---+ + + +---+---+ + +---+
3 | | | | | | | | | |
+ +---+---+ + + +---+---+---+ +---+ + + +---+ +
2 | | | | | | | | | |
+ + + +---+ + + +---+ +---+ +---+ + +---+---+
1 | | | | |
+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
a b c d e f g h i j k l m n o p</pre>
=={{header|Tcl}}==
|