2010-03-06から1日間の記事一覧

求ム! 以下の m4 プログラムを 3 倍高速化できる人材

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…

下の PostScript を 6 倍ほど高速化できないものか。

の下 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…