ICPC

なる、大学生のプログラミングコンテストが存在するらしい
高校生の時に挑戦した、パソコン甲子園のようなものですね
使用言語も、C/C++,Javaと、
あのときとなにも変わらない

例によって
Haskellで解いてみよう！
先ずは易しい。第一問から
入力されたnに対し、n

main=getContents>>=(\x->print $ map (prime.read)$take 3$ words x)

prime :: Int-> Int
prime x = length $ filter (\x->all ((/=0).(x `mod`)) [2..x-1]) [x+1..x*2]

以前書いた素数列挙とより実行速度は劣りますが、一行に収めることが出来た！
もっとスマートに書いてる人が沢山いるので、とりあえず自己流のものを一つ