Data update

This commit is contained in:
Ingy döt Net 2025-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions

View file

@ -0,0 +1,16 @@
create or replace function do_while(init) as table (
with recursive cte as (
select init+1 as value -- Increment unconditionally
union all -- Loop
select value+1 as value -- Each time through the loop, add 1 to the value then print it.
from cte
where value % 6 != 0 -- "while value mod 6 is not equal to 0"
)
from cte order by value
);
# The task
from do_while(0);
# Also check that the loop executes at least once.
from do_while(-1);

View file

@ -0,0 +1,4 @@
local value = 0
repeat
print(++value)
until value % 6 == 0

View file

@ -0,0 +1,6 @@
x =: 0
?* \ loop forever
x =+ 1 \ increment x
print x
? x %% 6 = 0 \ until
?> \ break

View file

@ -0,0 +1,6 @@
x = 0
while \ loop forever
x += 1 \ increment x
print x
if x %% 6 == 0 \ until
break