You are here: Home → Blog → Comments → 効率無視

Personal tools

« August 2009 »
Su Mo Tu We Th Fr Sa
            1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31          
 

効率無視

Posted by [1..100]>>=pen at 2006-06-19 16:59

filter (\x -> (product [1..x-1]+1) `mod` x == 0) [2..100]

Parent entry キミならどう書く 2.0 - ROUND 1 -