ref: 497eb997f7c9d494b7ecd26c52dcac3361ef93e1
dir: /examples/rule30.lsp/
; -*- scheme -*- (define (rule30-step b) (let ((L (ash b -1)) (R (ash b 1))) (let ((~b (lognot b)) (~L (lognot L)) (~R (lognot R))) (logior (logand L ~b ~R) (logand ~L b R) (logand ~L b ~R) (logand ~L ~b R))))) (define (bin-draw s) (string.map (lambda (c) (case c (#\1 #\#) (#\0 #\ ) (else c))) s)) (for-each (lambda (n) (begin (princ (bin-draw (string.lpad (number->string n 2) 63 #\0))) (newline))) (nestlist rule30-step (uint64 0x0000000080000000) 32))