(on b(tuples(drain:read)3)(prn:int:sqrt:apply *(map[-(/(sum + b)2)_]`(0,@b))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page