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

今日の一行(お題)flips への解答組み合わせの数え上げは util.combinations にあると教えて頂きました。自然数のリストを並べ替えて、それをもとに引数を並び替える、というのがダサい。生成された関数では、すでに並び替えが終わっている、と言う風に出来な…