From a9abc1da41b56edbed00081800382e854d6698d0 Mon Sep 17 00:00:00 2001
From: Joe Zhao <ztuowen@gmail.com>
Date: Tue, 31 Mar 2015 23:41:55 +0800
Subject: rename to H**, +31 +32 +33 +34 +35 +36

---
 H18.hs | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 H18.hs

(limited to 'H18.hs')

diff --git a/H18.hs b/H18.hs
new file mode 100644
index 0000000..b9e8192
--- /dev/null
+++ b/H18.hs
@@ -0,0 +1,7 @@
+slice :: [a] -> Int -> Int -> [a]
+slice (x:xs) a b
+    | a > 1 = slice xs (a-1) (b-1)
+    | a <= 1 && b >= 1 = x:(slice xs (a-1) (b-1))
+    | otherwise = []
+
+slice' xs i j = [x | (x,k)<- (zip xs [1..j]) , k >= i]
-- 
cgit v1.2.3-70-g09d2