$_~~[map{($_%30)**2+($_%23)**2}@p]&&printf"%f ",sqrt for@p=1..$$
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page