diff options
Diffstat (limited to 'h22.hs')
-rw-r--r-- | h22.hs | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -1,8 +0,0 @@ -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 |