summaryrefslogtreecommitdiff
path: root/h16.hs
diff options
context:
space:
mode:
authorJoe Zhao <ztuowen@gmail.com>2015-03-17 14:33:20 +0800
committerJoe Zhao <ztuowen@gmail.com>2015-03-17 14:33:20 +0800
commit18a639eb460d7581a5dd594a50eb236ae7675685 (patch)
tree85f4289e9835fbaa673256a941970313f56848b4 /h16.hs
parenta9ee47b61558efe09aee23f5671aabd0c3747e8a (diff)
downloadh99-18a639eb460d7581a5dd594a50eb236ae7675685.tar.gz
h99-18a639eb460d7581a5dd594a50eb236ae7675685.tar.bz2
h99-18a639eb460d7581a5dd594a50eb236ae7675685.zip
+16 +17 +18 +19
Diffstat (limited to 'h16.hs')
-rw-r--r--h16.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/h16.hs b/h16.hs
new file mode 100644
index 0000000..68978a7
--- /dev/null
+++ b/h16.hs
@@ -0,0 +1,2 @@
+dropEvery :: [a] -> Int -> [a]
+dropEvery xs c = [x| (x,y) <- (zip xs [1..]), y `mod` c /= 0 ]