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 2025-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Task/Ackermann-function/TAV/ackermann-function.tav Normal file
View file

@ -0,0 +1,11 @@
ackermann (n) (m) :
? n = 0
:> m+1
? m = 0
:> ackermann (n-1) 1
:> ackermann (n-1) ackermann n (m-1) \ = ackermann (n-1) (ackermann n (m-1))
\ test it
main(params):+
p1 =: string params[1] as integer else 3
p2 =: string params[2] as integer else 5
print "ackermann(" _ p1 _ "," _ p2 _ ") = " _ ackermann p1 p2