kurz/tests/while.qbl

21 lines
164 B
Plaintext

//valid,output:10987654321falsefalse
true while
{
false
}
10 0 dup > req
while
{
dup print
1 - 0 dup > req
}
deq
true true true while
{
false
}
print print