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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Flow-control-structures/Icon/flow-control-structures-1.icon Normal file
View file

@ -0,0 +1,9 @@
if x := every i := 1 to *container do { # * is the 'length' operator
if container[i] ~== y then
write("item ", i, " is not interesting")
else
break a
} then
write("found item ", x)
else
write("did not find an item")

1
Task/Flow-control-structures/Icon/flow-control-structures-2.icon Normal file
View file

@ -0,0 +1 @@
break break next

1
Task/Flow-control-structures/Icon/flow-control-structures-3.icon Normal file
View file

@ -0,0 +1 @@
x := ftn()

8
Task/Flow-control-structures/Icon/flow-control-structures-4.icon Normal file
View file

@ -0,0 +1,8 @@
&error := 1
mayErrorOut()
if &error == 1 then
&error := 0 # clear the trap
else {
# deal with the fault
handleError(&errornumber, &errortext, &errorvalue) # keyword values containing facts about the failure
}

1
Task/Flow-control-structures/Icon/flow-control-structures-5.icon Normal file
View file

@ -0,0 +1 @@
runerr(errnumber, errorvalue) # choose an error number and supply the offending value