RosettaCodeData/Task/Mutual-recursion/PowerShell/mutual-recursion.psh

10 lines
167 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
function F($n) {
if ($n -eq 0) { return 1 }
return $n - (M (F ($n - 1)))
}
function M($n) {
if ($n -eq 0) { return 0 }
return $n - (F (M ($n - 1)))
}