kurz/tests/test.qbl

43 lines
441 B
Plaintext

//valid,Hello, World!
//4242test2Falsetesttesttest:END:
"Hello, World!" println 43 foo foo deq
// Dequeues, enqueues 42 and 17, prints the head
function int => int foo
{
deq 42 17 intToStr req print
}
"test2" print false
check
print
function bool => str check
{
if
{
"True"
}
else
{
"False"
}
}
function int => whileFunction
{
dup
0 req >
req while
{
1 - 0 dup >
"test" req req print req
}
deq
}
3 whileFunction