33 lines
326 B
Plaintext
33 lines
326 B
Plaintext
//valid,233168
|
|
//:END:
|
|
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
|
|
}
|