This repository has been archived on 2025-04-07. You can view files and clone it, but cannot push or open issues or pull requests.
kurz/tests/test.qbl
2023-01-05 00:19:29 +01:00

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