sub F{(/$0/|$0le$_&ord||-1)*ord}for$0(reverse(D..Z,_),C..Z,_){IX!~$0&&print sort({F(*_=b)-F*_=a}A..Z),$/}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page