RosettaCodeData/Task/Mutual-recursion/Zkl/mutual-recursion.zkl

5 lines
248 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
fcn f(n){ if(n==0)return(1); n-m(f(n-1,m),f) }
fcn m(n){ if(n==0)return(0); n-f(m(n-1,f),m) }
[0..19].apply(f).println(); // or foreach n in ([0..19]){ print(f(n)," ") }
[0..19].apply(m).println(); // or foreach n in ([0..19]){ print(m(n)," ") }