Select Code to Download

  +{map$_^reverse||reverse($x=$_**2)^$x?():($_,$x),0..pop}

  +{map$_-reverse|reverse($x=$_**2)-$x?():($_,$x),0..pop}