kurz/tests/while.qbl

26 lines
237 B
Plaintext
Raw Normal View History

2022-12-18 04:05:50 +01:00
//valid,10987654321falsefalse
//:END:
2022-12-14 11:46:47 +01:00
2023-02-06 15:00:37 +01:00
import "../std.qbl"
2022-12-14 20:39:51 +01:00
true while
2022-12-14 11:46:47 +01:00
{
2022-12-14 20:39:51 +01:00
false
2022-12-14 11:46:47 +01:00
}
2022-12-14 20:39:51 +01:00
10 0 dup > req
2022-12-31 16:09:55 +01:00
// true 10
2022-12-14 20:39:51 +01:00
while
2022-12-14 11:46:47 +01:00
{
2022-12-31 16:09:55 +01:00
// i
dup intToStr req print
2022-12-14 20:39:51 +01:00
1 - 0 dup > req
2022-12-14 11:46:47 +01:00
}
2022-12-14 20:39:51 +01:00
deq
true true true while
{
false
}
2023-02-06 15:00:37 +01:00
boolToStr boolToStr print println