今日の一行
今日の一行(お題)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)