2008-11-12から1日間の記事一覧

回文Quine

anarchy golf - Palindromic Quine 355byte->293byte。 (q=^(){ ('r).(=)(^(s, p){ aif(s.readc(), { r(s, it).(+)(p) }, :else { p }) }); ["(q=", q, ")()#)()", r(q.to_s().istring(), "=q(")].map(print) })()#)()} )tnirp(pam.])"(q=" ,)(gnirtsi.)(s_o…

Cyanのリスト操作

リテラルのリストの操作は色々短く書けてよさげ。 Lispとの対応 [a | b] -> (a . b) [a, b] -> (a b) [*a, b] -> `(,@a b) *(Expander)が便利。 cyan> a=[1,2,3] => [1, 2, 3] cyan> [0|a] => [0, 1, 2, 3] cyan> [*a,4] => [1, 2, 3, 4] cyan> b=a.map^(n):…