peter/IBAFLang
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Collect all declared variables at start of program execution

Browse Source
This commit is contained in:
Peter
2024-04-16 08:12:52 +02:00
parent cb7f6f8e5d
commit f5f5626521
21 changed files with 299 additions and 284 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
IBAF-Tests/IBAF-1/fibfun.fct
View File

@@ -20,36 +20,32 @@ initialise-binding scope
sequential
(if-else
(is-less-or-equal
(assigned
(bound
("n")),
(assigned bound
"n",
decimal-natural
("1")),
scope
(collateral
(map
( )),
return assigned
(bound
("n"))),
return assigned bound
"n"),
null),
return int-add
(handle-return apply
(bound "fib",
list
(integer-subtract
(assigned
(bound
("n")),
(assigned bound
"n",
decimal-natural
("1")))),
handle-return apply
(bound "fib",
list
(integer-subtract
(assigned
(bound
("n")),
(assigned bound
"n",
decimal-natural
("2"))))))))),
bind
@@ -60,16 +56,15 @@ initialise-binding scope
( )),
sequential
(null,
assign
initialise-variable
(bound "n",
0),
while
(is-less
(assigned
(bound
("n")),
(assigned bound
"n",
decimal-natural
("5")),
("8")),
scope
(collateral
(map
@@ -79,17 +74,18 @@ initialise-binding scope
map
( )),
sequential
(print handle-return apply
(bound "fib",
list
(assigned
(bound
("n")))),
(print
(to-string handle-return apply
(bound "fib",
list
(assigned bound
"n")),
"
"),
assign
(bound "n",
int-add
(assigned
(bound
("n")),
(assigned bound
"n",
decimal-natural
("1"))))))))