http://projecteuler.net/index.php?section=problems&id=126立方体を数える簡単なお仕事、とはいかなく。高速化は結構大変だった。 でいろいろやった結果が下。 import Data.Array.IO import Data.List upper = 50000 layer (h,w,d) n = 4*(h+w+d+n-2)*(n-1…

ghc --make -prof -auto-all -O2 foo.hs ./foo.exe +RTS -p でプロファイル foo.profができる。./foo.exe +RTS -h hp2ps foo.hc でヒープ領域 foo.psができる。

http://projecteuler.net/index.php?section=problems&id=127いまいちぱっとしないコードである。 import Number import Data.List import Data.Array.IArray upper = 110000 rad = listArray (1,upper).map (product.nub.factors) $ [1..upper]::Array Inte…