Skip to main content
edited body
Source Link
Xcali
  • 17k
  • 2
  • 17
  • 42

Perl 5 -p, 5656 52 bytes

s/./($s="$`$'"eq"$`$'"eq reverse"$`$'")&$i++if!$s&&($\=pos)while/ge;$_=$s?$i:./g}{$\||=-1 

Try it online!Try it online!

Perl 5 -p, 56 bytes

s/./($s="$`$'"eq reverse"$`$'")&$i++if!$s/ge;$_=$s?$i:-1 

Try it online!

Perl 5 -p, 56 52 bytes

("$`$'"eq reverse"$`$'")&&($\=pos)while/./g}{$\||=-1 

Try it online!

Source Link
Xcali
  • 17k
  • 2
  • 17
  • 42

Perl 5 -p, 56 bytes

s/./($s="$`$'"eq reverse"$`$'")&$i++if!$s/ge;$_=$s?$i:-1 

Try it online!