voor de initialise-variable verandering
This commit is contained in:
64
IBAF-Tests/IBAF-1/initialiseTest.fct
Normal file
64
IBAF-Tests/IBAF-1/initialiseTest.fct
Normal file
@@ -0,0 +1,64 @@
|
||||
initialise-binding scope
|
||||
(collateral
|
||||
(bind
|
||||
("x",
|
||||
allocate-variable
|
||||
(integers)),
|
||||
map
|
||||
( ),
|
||||
map
|
||||
( ),
|
||||
map
|
||||
( ),
|
||||
map
|
||||
( )),
|
||||
sequential
|
||||
(assign
|
||||
(bound "x",
|
||||
int-mul
|
||||
(decimal-natural
|
||||
("10"),
|
||||
decimal-natural
|
||||
("10"))),
|
||||
print assigned
|
||||
(bound
|
||||
("x")),
|
||||
scope
|
||||
(collateral
|
||||
(bind
|
||||
("x",
|
||||
allocate-variable
|
||||
(integers)),
|
||||
bind
|
||||
("y",
|
||||
allocate-variable
|
||||
(integers)),
|
||||
map
|
||||
( ),
|
||||
map
|
||||
( ),
|
||||
map
|
||||
( )),
|
||||
sequential
|
||||
(assign
|
||||
(bound "x",
|
||||
decimal-natural
|
||||
("10")),
|
||||
assign
|
||||
(bound "y",
|
||||
int-mul
|
||||
(assigned
|
||||
(bound
|
||||
("x")),
|
||||
assigned
|
||||
(bound
|
||||
("x")))),
|
||||
print assigned
|
||||
(bound
|
||||
("x")),
|
||||
print assigned
|
||||
(bound
|
||||
("y")))),
|
||||
print assigned
|
||||
(bound
|
||||
("y"))))
|
||||
Reference in New Issue
Block a user