summaryrefslogtreecommitdiff
path: root/h16.hs
blob: 68978a76e3f947d66a211a99f9c2afd6225ab513 (plain)
1
2
dropEvery :: [a] -> Int -> [a]
dropEvery xs c = [x| (x,y) <- (zip xs [1..]), y `mod` c /= 0 ]