rename to H**, +31 +32 +33 +34 +35 +36

1 files changed, 7 insertions, 0 deletions

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]