779バイトの Lazy K コードなんて誰が読めるんだ
anarchy golf - Up and Down が回答公開なんですが、779 バイトの Lazy K ソースが公開されていても訳がわからんだろうということで、元となったソースを公開します。
(load "./lazier.scm") (load "./print-as-golf.scm") (load "./prelude.scm") (load "./prelude-numbers.scm") (lazy-def 'nl '(s s(s s(s s)(s s(k i)))o)) ; 改行コード 10 (lazy-def '(nextline self str) '(if< nl (car str) (self (cdr str)) (cdr str))) (lazy-def '(updown self nxtln str in) '(if> 256 (car in) (self nxtln (Y ud str in) (nxtln in)) str)) (lazy-def '(ud self str c) '(cons (((car c) rot4 get3 (k 256) 1+ i 1-)(car str)) (self (cdr str) (cdr c)))) (lazy-def '(1- n) '(nth n (cons 1 (list-from 0)))) (lazy-def '(rot4 f a b c d) '(f b c d a)) (lazy-def '(get3 a b c d) '(c)) (print-as-golf (laze '((lambda(nxtln in)(Y updown nxtln in (nxtln in))) (Y nextline))))