見かけたコードがおもしろかったので貼っておく． http://d.hatena.ne.jp/takatoh/20070509/fizzbuzz

http://projecteuler.net/index.php?section=problems&id=12 --Haskell, 20090104 import Sequence (trianglar) enprimes :: Int -> Int -> [Int] enprimes 1 _ = [] enprimes s n = let t = takeWhile ((==0).(s`mod`)) (iterate (*n) 1) in length t - 1 :…

http://projecteuler.net/index.php?section=problems&id=13 --Haskell (Input data from STDIN), 20090101 main = getContents >>= print . take 10 . show . sum . map read . lines

http://projecteuler.net/index.php?section=problems&id=14 --Haskell (needs -fbang-patterns -package containers), 20090101 import Data.Map (findMax, fromList) collatz :: Integer -> Integer collatz !n | n==1 = 1 | even n = 1 + collatz (n`div`…