Whoops, nearly missed a simple four-stroke improvement.
#!perl -lan0
for$a((@F)x@F){/^(?!\Q$a\E ).* \Q$a
/m||s/(?
|
Uglier, but better tie-breaker.
#!perl -lan0
for$a((@F)x y/
//){/^(?!\Q$a\E ).* \Q$a
/m||s/(?
|
Into the 80's. Now if I can only lose another 23 strokes in the next 13 hours, I could still win this!
#!perl -lan0
for$a((@F)x y/
//){$b="\Q$a";/^(?!$b ).* $b
/m||s/(?
|
#!perl -lan0
for$a((@F)x y/
//){$b="\Q$a";/^(?!$b ).* $b
/m||s/^$b( $b
| |
)//mg&&print$a}$_&&die
|
#!perl -lan0
for$a((@F)x y/
//){$b="\Q$a";/^(?!$b ).* $b
/m||s/^$b( $b
| |
)//mg&&print$a}/./&&die
|
#!perl -lan0
for$a((@F)x y/
//){$b="\Q$a";/^(?!$b ).* $b
/m||s/^$b( ($b
)?|
)//mg&&print$a}/./&&die
|
Down to only 1.75 * Ton's score.
#!perl -ln0
map{for$a(/\S+/gm){$b="\Q$a";/^(?!$b ).* $b$/m||s/^$b(?!\S) ?//mg&&print($a)&s/^$b$//mg}}($_)x y/
//;/./&&die
|
Completely different method, but not much better.
#!perl -l
map{(grep{/ \Q$a\E$/&!/^\Q$a /}@0)||(print$a)&&map{s/^\Q$a //;s/^\Q$a\E$//}@0if($a)=/(\S+)/}@0for@0=<>,@0;"@0"=~/\S/&&die
|
Not very good, but I like the expression grep{$v{$_}}@{$v{$_}}
#!perl -nla
($",$b)=@F;push@{$v{$"}},$;;$"eq$b||push@{$v{$b}},$"}{map{map{print,delete$v{$_}if!grep{$v{$_}}@{$v{$_}}}keys%v}0..$.;%v&&die
|