- or download this
sub mc_sym {
\%{{map{(reverse eq$_&&($x=$_*$_)eq reverse$x)?($_,$x):()}1..pop}}
}
- or download this
sub mc_sym {
+{map{(reverse==$_&&($x=$_*$_)==reverse$x)?($_,$x):()}1..pop}
}
- or download this
sub mc_sym {
+{map{(reverse^$_||($x=$_*$_)^reverse$x)?():($_,$x)}1..pop}
}