プログラミング・パラダイム（2020 年度）テスト解答例

foo :: [(Integer,Integer)] -> Integer
foo []         = 0
foo ((x,y):xs) = if x `mod` 2 == 0 then y + foo xs else foo xs

bar :: Integer -> [(Integer,Integer)]
bar n = [(i,j) | i <- [1..n], j <- [i..n], (i * i - j) `mod` 3 == 0]