Say what? Saturn didn't win??! Who's this Degausser kid and how dare he win!!?
(btw, you missed my slightly-shortened entry somehow. no big deal though.)
ALIAS palicount return $calc($regsubex($x($1),/(.)(?=(.*)$)/g,$y($x(\1\2)) +))
ALIAS x return $regsubex(x,$1,/(.)/g,$mid(\A,-\n,1))
ALIAS y return $len($regsubex(y,$1,/(.)(?=(.+\1)$)|./gF,$iif(\1\2 === $$x(\1\2),1)))
((yes. i can only think in $regsubex() anymore. this is who i've become))
Sorry my bad!! I updated it
"The only excuse for making a useless script is that one admires it intensely" - Oscar Wilde