16 lines
374 B
Plaintext
16 lines
374 B
Plaintext
define('f(n)') :(f_end)
|
|
f f = eq(n,0) 1 :s(return)
|
|
f = n - m(f(n - 1)) :(return)
|
|
f_end
|
|
|
|
define('m(n)') :(m_end)
|
|
m m = eq(n,0) 0 :s(return)
|
|
m = n - f(m(n - 1)) :(return)
|
|
m_end
|
|
|
|
* # Test and display
|
|
L1 s1 = s1 m(i) ' ' ; s2 = s2 f(i) ' '
|
|
i = le(i,25) i + 1 :s(L1)
|
|
output = 'M: ' s1; output = 'F: ' s2
|
|
end
|