anarchy golf - numof 1 bits in 0 to 255 - iroriの日記

id:yshl さんにならって鑑賞会。関数型の esolang ばっかりです。 Lazy K 私 http://golf.shinh.org/reveal.rb?numof+1+bits+in+0+to+255/irori/1240716651&lazy "8" から始めて、文字列を倍々にしつつ前半部分から1を引いていきます。 church数から1を引く関数がちょっとサイズ大きめ。 (lazy-def '(1- n) '(lambda (f z) (((n (lambda (g h) (h (g f)))) (lambda (x) z)) I))) (lazy-def '(dbl lst) '(((lambda (x) (x x)) (lambda (rec l) (if<= 256 (car l) lst (cons (1- (car l)) (rec rec (cdr l))))))