aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy dot Net 2024-04-20 12:30:13 -07:00
parent aec8ed51b6
commit 29a5eea0d4
128 changed files with 1298 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Mutual-recursion/ABC/mutual-recursion.abc Normal file
View file

@ -0,0 +1,15 @@
HOW TO RETURN f n:
IF n=0: RETURN 1
RETURN n - m f (n-1)
HOW TO RETURN m n:
IF n=0: RETURN 0
RETURN n - f m (n-1)
WRITE "F:"
FOR n IN {0..15}: WRITE f n
WRITE /
WRITE "M:"
FOR n IN {0..15}: WRITE m n
WRITE /