#!perl -pla @b=split' ',<>; $x=$y=50; $x+=$b[$x]==$_ for @F; $y-=$b[$y]==$_ for reverse@F; $_=101-$x+$y
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page