anarchy golf - Gray code (let ((n (read)) (x 3) (l '(0 1))) (dotimes (i (1- n)) (setq l (append l (mapcar #'(lambda (a) (logxor x a)) l)) x (* x 2))) (dolist (c l) (format t "~V,'0B~%" n c))) といった方法も思いついたんだけど短く書けない。 …

第32回たまたま帰ってきたCL勉強会@Chaton8時だョ!全員集合 ネタ募集 - 'T - cadr group唯一取ったプログラミングというか計算機っぽい講義の課題でエセチューリングマシンをjsで書いた事は覚えてるんだけど、講義の内容は遥か記憶の彼方…とりあえずググって…