$_~~[map{($_%30)**2+($_%23)**2}@p]&&printf"%f ",sqrt for@p=1..$$