Anonymous user
Elementary cellular automaton/Infinite length: Difference between revisions
Elementary cellular automaton/Infinite length (view source)
Revision as of 17:04, 9 March 2015
, 9 years ago→{{header|Racket}}: Brackets; indentation; fix link.
(Updated D entry) |
m (→{{header|Racket}}: Brackets; indentation; fix link.) |
||
Line 168:
=={{header|Racket}}==
Uses solution to [[Elementary cellular
<lang racket>#lang racket
Line 190:
(define v-out
(for/fxvector
#:length (fx+ vl-1+ 1) #:fill 0 ;
(
f))
(values v-out vl-1+ offset-)]))
(module+ main
(define ng/90/infinite (CA-next-generation 90 #:wrap-rule wrap-rule-infinite))
(for/fold (
(
(show-automaton v #:step step #:push-right o)
(newline)
|