Anonymous user
Railway circuit: Difference between revisions
m
Fixed typo - Ths to Zkl for signalling
m (→{{header|zkl}}: tweak) |
m (Fixed typo - Ths to Zkl for signalling) |
||
Line 113:
(vector-set! C n '-)) ]))
;;
;; i ( 0 .. 11) * 30° are the possible directions
(define (gen (maxn 20) (straight 0))
(define R (make-vector 12)) ;; count number of right turns in direction i
(define D (make-vector 12)) ;; count number of straight tracks in direction i
(define C (make-vector (+ maxn straight) '-))
(set!-values (*count* *calls* *circuits*) (values 0 0 (make-vector 0)))
(vector-set! R 0 1) ;; play starter (always right)
|