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

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Mutual-recursion/AWK/mutual-recursion.awk
View file

@ -1,21 +1,19 @@
cat mutual_recursion.awk:
#!/usr/local/bin/gawk -f
# User defined functions
function F(n)
{
if ( n == 0 ) return 1;
return n - M(F(n-1))
}
{ return n == 0 ? 1 : n - M(F(n-1)) }
function M(n)
{
if ( n == 0 ) return 0;
return n - F(M(n-1))
}
{ return n == 0 ? 0 : n - F(M(n-1)) }
BEGIN {
for(i=0; i < 20; i++) {
for(i=0; i <= 20; i++) {
printf "%3d ", F(i)
}
print ""
for(i=0; i < 20; i++) {
for(i=0; i <= 20; i++) {
printf "%3d ", M(i)
}
print ""