Data update

This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions

View file

@ -1,3 +0,0 @@
for I in reverse 0..10 loop
Put_Line(Integer'Image(I));
end loop;

View file

@ -1,14 +0,0 @@
identification division.
program-id. countdown.
environment division.
data division.
working-storage section.
01 counter pic 99.
88 counter-done value 0.
01 counter-disp pic Z9.
procedure division.
perform with test after varying counter from 10 by -1 until counter-done
move counter to counter-disp
display counter-disp
end-perform
stop run.

View file

@ -1,2 +0,0 @@
for i in 1..10 by -1 do
writeln(i);

View file

@ -1,2 +0,0 @@
var r = 1..10;
for i in r by -1 do { ... }

View file

@ -1,3 +0,0 @@
for i = 10 to 0 by -1 do
? i
end for

View file

@ -1,22 +0,0 @@
class Step {
var end:Int;
var step:Int;
var index:Int;
public inline function new(start:Int, end:Int, step:Int) {
this.index = start;
this.end = end;
this.step = step;
}
public inline function hasNext() return step > 0 ? end >= index : index >= end;
public inline function next() return (index += step) - step;
}
class Main {
static function main() {
for (i in new Step(10, 0, -1)) {
Sys.print('$i ');
}
}
}

View file

@ -1,3 +0,0 @@
for ($i = 10; $i -ge 0; $i--) {
$i
}

View file

@ -1 +0,0 @@
for i 10 0 -1 [print i]