Mutual recursion: Difference between revisions

Content added Content deleted

Inline

@@ Line 284: / Line 284: @@
 =={{header|Haskell}}==
-<lang haskell>m n | n == 0     = 0
+<lang haskell>f 0 = 1
-    | n > 0      = n - (f (m (n-1)))
+f n | n > 0 = n - m (f $ n-1)
-f n | n == 0     = 1
-    | n > 0      = n - (m (f (n-1)))
+m 0 = 0
+m n | n > 0 = n - f (m $ n-1)
 main = do
-       print [f x | x <- [0..19]]
+       print $ map f [0..19]
-       print [m x | x <- [0..19]]</lang>
+       print $ map m [0..19]</lang>
 =={{header|Java}}==