dtak1114 · December 17, 2015 13:48 · May 21, 2013 · May 21, 2013 · May 21, 2013 · May 21, 2013
diff --git a/rotate.hs b/rotate.hs
@@ -1,5 +1,5 @@
-rotate x 0 = x
 rotate x n
+  | n == 0 = x 
   | n >= (length x) = rotate x (mod n (length x))
   | otherwise = rotate (tail x) (n-1) ++ [head x]
 

diff --git a/rotate.hs b/rotate.hs
@@ -1,6 +1,6 @@
 rotate x 0 = x
 rotate x n
-  | n > (length x) = rotate x (mod n (length x))
+  | n >= (length x) = rotate x (mod n (length x))
   | otherwise = rotate (tail x) (n-1) ++ [head x]
 
 list = [5..8]
diff --git a/rotate.hs b/rotate.hs
@@ -1,6 +1,6 @@
 rotate x 0 = x
 rotate x n
   | n > (length x) = rotate x (mod n (length x))
-	| otherwise = rotate (tail x) (n-1) ++ [head x]
+  | otherwise = rotate (tail x) (n-1) ++ [head x]
 
 list = [5..8]
diff --git a/rotate.hs b/rotate.hs
@@ -0,0 +1,6 @@
+rotate x 0 = x
+rotate x n
+  | n > (length x) = rotate x (mod n (length x))
+	| otherwise = rotate (tail x) (n-1) ++ [head x]
+
+list = [5..8]
No results found