($n,$z)=glob<>; print $n>2?No:$n<2?Yes:${ $r=No; for$i(1..1000){ $w=$z-$i*$i; if($w>0&&$w==int(sqrt($w))**2){ $r=Yes; } } r }