http://projecteuler.net/index.php?section=problems&id=89 はじめは、入力として、 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII みたいなものもあるのかと思っていた。 import Data.List import Data.Maybe roman [] xs = xs roman ((r,s):rs) xs | i…

ghc-6.10.1を入れたので、 {-# OPTIONS_GHC -fglasgow-exts #-} main = 素数 `を` 10 `個` 見せる where 素数 = 篩 [2..] 篩 (素数:残り) = 素数 : 篩 [数|数<-残り,数 `割り切れない` 素数] 割り切れない 被除数 除数 = mod 被除数 除数 /= 0 を xs n = ret…

インストール（コンパイル）はできた。しかし、hmatrixをつかったコードがコンパイルできない。例えば import Numeric.LinearAlgebra.Tests main = runTests 20 をコンパイルすると、以下のエラー C:\unix\ghc\ghc-6.8.2\hmatrix-0.5.0.1\ghc-6.8.2/libHShma…

http://projecteuler.net/index.php?section=problems&id=91 三角形だと思ったら、直角三角形だった。 import Data.Array import Data.List p091 m = length [(a,b)|a<-area,b<-takeWhile(

http://projecteuler.net/index.php?section=problems&id=90 組み合わせを数えるときも、6と9を区別しないのかと思っていたり、同じ数字が二度以上出てくると思っていたり。 まったく、これだから英語の問題は squ = [[(0,1)],[(0,4)],[(0,9),(0,6)],[(1,6),…