Table of divisors by medialuna

n=:".>{.;:(1!:1)3
f=:>:@I.@(0&=)@((>:@i.)|])
v=:((<@":@f)"0[1+i.n)
t=:(,&':')each(<@":)"0[1+i.n
echo&.>(<@;)"1 t,.v

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

download

return to the top page