今日の一行

今日の一行(お題)2進符号列 への解答

(use srfi-1)

(define (gray n)
  (map (lambda (x) (logxor x (ash x -1)))
       (iota (expt 2 n))))

(define (main args)
  (map (cut format (current-output-port) "~4,'0',B\n" <>)
       (gray 4))
  (load "./bitdiff.scm")
  (print (bitdiffs (gray 4))))

;; 0000
;; 0001
;; 0011
;; 0010
;; 0110
;; 0111
;; 0101
;; 0100
;; 1100
;; 1101
;; 1111
;; 1110
;; 1010
;; 1011
;; 1001
;; 1000
;; (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1)