Revision as of 16:04, 10 April 2009 (view source) rosettacode>IanOsgood (Logo) ← Older edit		Revision as of 17:09, 10 April 2009 (view source) Underscore (talk \| contribs) (→‎{{header\|Haskell}}: Simplified.) Newer edit →
Line 284: =={{header\|Haskell}}== <lang haskell>~~m n \| n ==~~f 0 = 0 1 f n \| n > 0 = n - m (f (m$ (n-1))) f n \| n == 0 = 1▼ ~~\| n > 0 = n - (m (f (n-1)))~~ m 0 = 0 ▲fm n \| n ==> 0 = n - f =(m $ n-1) main = do print [f$ xmap ~~\| x <-~~f [0..19]] print [m$ xmap ~~\| x <-~~m [0..19]]</lang> =={{header\|Java}}==

Mutual recursion: Difference between revisions

Mutual recursion (view source)