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 döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Task/Ackermann-function/HPPPL/ackermann-function.hpppl Normal file
View file

@ -0,0 +1,17 @@
//subAck1();
EXPORT Ackermann_function(m,n)
BEGIN
PRINT;
PRINT("Ackermann("+m+","+n+") = "+subAck1(m,n));
END;
subAck1(m,n)
BEGIN
CASE
IF m<0 OR n<0 THEN "m y n deben ser >=0" END;
IF m=0 THEN n+1 END;
IF m>0 AND n=0 THEN subAck1((m-1),1); END;
IF m>0 AND n>0 THEN subAck1((m-1),subAck1(m,(n-1))); END;
DEFAULT RETURN PRINT("ERROR");
END;
END;