#!perl -pla my($r,$j,@d,@c); $_=<>; unshift@{$c[$_]},$j++for split; $r<($d[$_+1]=$k=$d[$_]+1)&&($r=$k)for map@{$c[$_]},@F; $_=100-$r;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page