#603 added test cases

tests/basic/multiAssign/RecursionCycle.hs

@@ -0,0 +1,13 @@
+module RecursionCycle where
+
+main :: IO ()
+main = do
+        putStrLn $ show $ recursive <$> arr
+        where
+            arr = [0..10]
+
+
+recursive' 0 a b  = a
+recursive' n a b = recursive'  (n-1)  b a
+
+recursive n = recursive' n  0 1

tests/basic/multiAssign/RecursionCycle.spec

@@ -0,0 +1 @@
+[0,1,0,1,0,1,0,1,0,1,0]

tests/basic/multiAssign/RecursiveFib1.hs

@@ -0,0 +1,12 @@
+module Main where
+
+main :: IO ()
+main = do
+        putStrLn $ show $ fibonacci <$> arr
+        where
+            arr = [0..10]
+
+fibrecursive 0 sum presum  = sum
+fibrecursive n sum presum = fibrecursive  (n-1) (sum+presum) sum
+
+fibonacci n = fibrecursive n 1 0

tests/basic/multiAssign/RecursiveFib1.spec

@@ -0,0 +1 @@
+[1,1,2,3,5,8,13,21,34,55,89]

tests/basic/multiAssign/RecursiveFib2.hs

@@ -0,0 +1,12 @@
+module Main where
+
+main :: IO ()
+main = do
+        putStrLn $ show $ fibonacci <$> arr
+        where
+            arr = [0..10]
+
+fibrecursive 0 presum sum  = sum
+fibrecursive n presum sum = fibrecursive  (n-1) sum (sum+presum)
+
+fibonacci n = fibrecursive n 0 1

tests/basic/multiAssign/RecursiveFib2.spec

@@ -0,0 +1 @@
+[1,1,2,3,5,8,13,21,34,55,89]