31 lines
303 B
Plaintext
31 lines
303 B
Plaintext
import "../std.qbl"
|
|
|
|
true 3 0
|
|
while
|
|
{
|
|
// i sum
|
|
dup check req req +
|
|
incAndCheck req
|
|
}
|
|
|
|
deq intToStr println
|
|
|
|
function int => int check
|
|
{
|
|
3 dup % 0 req != req
|
|
// not_divisible start
|
|
if
|
|
{
|
|
5 dup % 0 req != req
|
|
if
|
|
{
|
|
deq 0
|
|
}
|
|
}
|
|
}
|
|
|
|
function int => bool int incAndCheck
|
|
{
|
|
1 + 1000 dup < req
|
|
}
|