*


: x0 x 2 * 1 - ;
: y0 y 2 * 1 - ;
: n x0 dup * y0 dup * + 4 - sqrt ;
: len3 dup * swap dup * + swap dup * + sqrt ;
: world dup dup push push x0 n / * pop y0 n / * pop -2 n / * 3 + len3 1 - y0 1 + min ;
: l dup world + ;
0
l l l l l l l l l l l l l
5 / dup dup

comments powered by Disqus