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 2024-11-11 10:11:44 -08:00
parent 157b70a810
commit 8e4e15fa56
78 changed files with 2016 additions and 222 deletions
Download patch file Download diff file Expand all files Collapse all files

46
Task/Loops-N-plus-one-half/M2000-Interpreter/loops-n-plus-one-half.m2000
View file

@ -1,27 +1,25 @@
Module Checkit {
\\ old type loop
For i=1 to 10
Print i;
If i=10 Then Exit For
Print ", ";
Next i
Print
\\ fast type loop. Continue exit block, without breaking loop.
For i=1 to 10 {
Print i;
If i=10 Then Continue
Print ", ";
}
Print
Print
i=0
{
loop \\ this mark block for loop, each time need to mark
i++
Print i;
If i=10 Then Exit ' so now we use exit to break loop
Print ", ";
}
Print
For i=1 to 10
Print i;
If i=10 Then Continue
Print ",";
Next i
Print
i=1
{ Print i;
If i=10 Then Continue
loop ' this mark block for loop
Print ",";
i++
}
Print
05 REM like Basic Old type
10 LET i=0
20 i=i+1
30 PRINT i;
40 IF i=10 THEN 70
50 PRINT ",";
60 GOTO 20
70 PRINT
}
Checkit