Hatena::ブログ(Diary)

計算機と戯れる日々 このページをアンテナに追加 RSSフィード

2011-09-17

problem35

ローテート関数が見つからなかったので自作

Prelude Data.Numbers.Primes> let g (x,y) = y++x ;f::Int->[Int];f x = map (read.g.(`splitAt` (show x))) [1..((length.show) x)-1] in length [x|x<-[1..1000000],isPrime x,all isPrime $ f x]
55
it :: Int
(3.13 secs, 4809034056 bytes)
トラックバック - http://d.hatena.ne.jp/n9d/20110917/p3