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

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Ackermann-function/Elena/ackermann-function.elena
View file

@ -1,4 +1,5 @@
#define system.
#define extensions.
// --- Ackermann function ---
@ -14,13 +15,11 @@
#symbol program =
[
control from:0 &to:3 &do: i
control forrange &int:0 &int:3 &do: (&int:i)
[
control from:0 &to:5 &do: j
control forrange &int:0 &int:5 &do: (&int:j)
[
console << "A(" << i << "," << j << ")=" << (ackermann:i:j).
console writeLine.
consoleEx writeLine:"A(":i:",":j:")=":(ackermann:i:j).
].
].