Anonymous user
Maze generation: Difference between revisions
added Ol
m (→prettified maze version: added/changed comments and whitespace, used alternated quote style, used better indentations, used a template for the output section.) |
(added Ol) |
||
Line 4,409:
+---+---+---+---+---+---+---+---+---+---+
</pre>
=={{header|Ol}}==
<lang scheme>
; maze generation
(import (otus random!))
(define WIDTH 30)
(define HEIGHT 8)
(define maze
(map (lambda (?)
(repeat #b01111 WIDTH)) ; 0 - unvisited, 1111 - all walls exists
(iota HEIGHT)))
(define (at x y)
(list-ref (list-ref maze y) x))
(define (unvisited? x y)
(if (and (< -1 x WIDTH) (< -1 y HEIGHT))
(zero? (band (at x y) #b10000))))
(define neighbors '((-1 . 0) (0 . -1) (+1 . 0) (0 . +1)))
(define walls '( #b10111 #b11011 #b11101 #b11110))
(define antiwalls '( #b11101 #b11110 #b10111 #b11011))
(let loop ((x (rand! WIDTH)) (y (rand! HEIGHT)))
(list-set! (list-ref maze y) x (bor (at x y) #b10000))
(let try ()
(if (or
(unvisited? (- x 1) y) ; left
(unvisited? x (- y 1)) ; top
(unvisited? (+ x 1) y) ; right
(unvisited? x (+ y 1))) ; bottom
(let*((p (rand! 4))
(neighbor (list-ref neighbors p)))
(let ((nx (+ x (car neighbor)))
(ny (+ y (cdr neighbor))))
(if (unvisited? nx ny)
(let ((ncell (at nx ny)))
(list-set! (list-ref maze y) x (band (at x y) (list-ref walls p)))
(list-set! (list-ref maze ny) nx (band ncell (list-ref antiwalls p)))
(loop nx ny)))
(try))))))
</lang>
<lang scheme>
; maze printing:
(display "+")
(for-each (lambda (?) (display "-+")) (iota WIDTH))
(print)
(for-each (lambda (l)
(display "|")
(for-each (lambda (x)
(display " ")
(display (if (zero? (band x #b10)) " " "|")))
l)
(print)
(display "+")
(for-each (lambda (x)
(display (if (zero? (band x #b01)) " " "-"))
(display "+"))
l)
(print))
maze)
(print)
</lang>
{{out|Sample 30 x 8 output}}
<pre>+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
| | | | | | | | | |
+ + + + +-+ +-+ + +-+ +-+ +-+-+ +-+ +-+ +-+ + +-+ +-+ + +-+ +
| | | | | | | | | | | | | | | | | | |
+-+ + +-+ +-+ + + + + + +-+-+-+ + +-+ +-+ + +-+ +-+ +-+ + + +
| | | | | | | | | | | | | | | | | | | |
+ +-+-+-+-+ + +-+-+ +-+ + +-+-+-+ + +-+ + +-+ +-+ +-+ + + + +
| | | | | | | | | | | | | | |
+-+ + +-+ +-+-+-+-+ + +-+ +-+-+ + +-+-+ + + +-+-+ + +-+-+ + +
| | | | | | | | | | | | | | | | | | | | |
+ +-+ + + + + + + +-+ + +-+-+ + +-+ + +-+ + + + + +-+ +-+-+-+
| | | | | | | | | | | | | | | | | |
+-+ + + +-+-+ +-+-+ +-+ +-+ +-+-+ +-+-+-+-+-+-+ + + + + +-+ +
| | | | | | | | | | | | | | |
+ +-+-+-+-+ + + + + +-+-+ +-+ +-+-+-+-+ +-+-+ + + + +-+-+ + +
| | | | | | | |
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+</pre>
=={{header|Perl}}==
| |||