2010-03-06から1日間の記事一覧
anarchy golf - minimal PostScript interpreter の 3 個目のサンプルが define(f,`ifelse($#,2,`dnl',$2,`=',$1 `f(decr($1',`f(incr($1')),shift(shift($@)))')f(-1,translit(include(/dev/fd/0),` ',`,'),) だと 2.7 秒ほどかかるので。 define(f,`ifelse…
の下 1000 桁を計算する(anarchy golf - Modular Exponentiationです)プログラムなのですが、16 秒ほどかかってしまいます。 [2 249{0}repeat]100{[1 4]{/a 2 index def{/b exch def[0 0 1 249{/i exch def 0 i -1 0{/j exch def exch a i j sub get b j g…