RosettaCodeData/Task/Mutual-recursion/AutoHotkey/mutual-recursion-1.ahk

12 lines
179 B
AutoHotkey
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
Loop 20
i := A_Index-1, t .= "`n" i "`t " M(i) "`t " F(i)
MsgBox x`tmale`tfemale`n%t%
F(n) {
Return n ? n - M(F(n-1)) : 1
}
M(n) {
Return n ? n - F(M(n-1)) : 0
}