kurz/tests/while.qbl

21 lines
154 B
Plaintext

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