+20 +21 +22 +23 +24 +25

1 files changed, 8 insertions, 0 deletions

diff --git a/h22.hs b/h22.hs
new file mode 100644
index 0000000..3557f07
--- /dev/null
+++ b/h22.hs
@@ -0,0 +1,8 @@
+range :: Int -> Int -> [Int]
+range a b | a<=b = a:(range (a+1) b)
+          | otherwise = []
+
+range' x y = take (y-x+1) $ iterate (+1) x
+
+range'' a b | a==b = [a]
+            | otherwise = a:range'' ((if a<b then succ else pred)  a) b