noritsuguの日記

2009-04-12``Algorithms'' (37) Exercise 2.8

(a) list comprehension を使って、負の個数を数える

neg xs = length [ x | x <- xs, even x ]

で、

*Main> neg [1, -9, -5, 4, -6, 0]
3

list comprehension だけでできるのかな???


(b)

rep n = concat [ replicate x x | x <- [1..n] ]

で、

*Main> rep 1
[1]
*Main> rep 2
[1,2,2]
*Main> rep 3
[1,2,2,3,3,3]
*Main> rep 4
[1,2,2,3,3,3,4,4,4,4]

list comprehension だけでできるのかな???

トラックバック - http://haskell.g.hatena.ne.jp/noritsugu/20090412