kurz/tests/while.qbl

35 lines
292 B
Plaintext

//valid,10987654321falsefalse
//:END:
true while
{
false
}
10 0 dup > req
// true 10
while
{
// i
dup intToStr req print
1 - 0 dup > req
}
deq
function bool => str boolToStr
{
if
{
"true"
}
else
{
"false"
}
}
true true true while
{
false
}
boolToStr boolToStr print println