Rolling division by medialuna

p=:(<.)`(0.5"_ +<.)`(>:@<.)
c=:((0.3 0.7)&I.)@([-<.)
r=:((p@.c)@(%&2))"0
s=:((>:)@(i.&1){.[) r^:(i.100) ".>{.;:(1!:1)3
echo each 0j1": each <"0 s

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page