...and three more
#!perl -ap056
sub c{$_=lc;y/aeiouy//.'/'.s/\w//g}
$s=$t=":\t";($s.=$_.$")|=($t.=c."\0")^($t|=$s^$s)for@F;$_=($v=@F)?"$v$s
${\c}$t
":'';y/\0/ /;s/(:.{58})...+\./$1.../&&s|(:.{57,}?) \d.*|$1|;s/ +$//mg
|
Woo. One stroke shaved. Hi, Samy. :)
#!perl -ap056
sub c{$_=lc;y/aeiouy//.'/'.s/\w//g}$s=$t=":\t";($s.=$_.$")|=($t.=c."\0")^($t|=$s^$s)for@F;$s=~s/(.{59})[^.]{3,}/$1../&&$t=~s«(.{58})\0.*«$1«;$_=($v=@F)?"$v$s
${\c}$t
":'';y/\0/ /;s/ +$//mg
|
Small problem interpreting "An underscore is not a letter." I wonder if this one is kosher.
#!perl -ap056
sub c{$_=lc;y/aeiouy//.'/'.s/\w//g}$s=$t=":\t";($s.=$_.$")|=($t.=c.$")^($t|=$s^$s)for@F;$s=~s/(.{59})[^.]{3,}/$1../&&$t=~s/(.{58})[\0 ].*/$1/;$_=($v=@F)?"$v$s
${\c}$t
":'';y/\0/ /;s/ +$//mg
|
I'm in love with the string-building part. I need to channel an alien who can do some regex-bashing. Ow! My *other* eyeball!
#!perl -ap056
sub c{$_=lc;y/aeiouy//.'/'.y/a-z0-9//}$s=$t=":\t";($s.=$_.$")|=($t.=c.$")^($t|=$s^$s)for@F;$s=~s/(.{59})[^.]{3,}/$1../&&$t=~s/(.{58})[\0 ].*/$1/;$_=($v=@F)?"$v$s
${\c}$t
":'';y/\0/ /;s/ +$//mg
|
I don't hate this hole as much as I did this afternoon. I think it's time for a whole new approach, as not much more can be wrung out of this one.
#!perl -ap056
sub c{$_=lc;y/aeiouy//.'/'.y/a-z0-9//}my($w,$x);($d=length($w.=$_.$")-length($x.=c.$"))>0?$x:$w.=$"x abs$d for@F;$w=~s/(.{57})..[^.]..+/$1.../&&$x=~s/(.{56}) .*/$1/;$_=($v=@F)?"$v:\t$w
${\c}:\t$x
":'';s/ +$//mg
|
Futzed with it for hours before getting something that worked at ALL, and it boiled down to this piece of puke. I intensely dislike this hole. Participation was a difficult decision.
#!perl
$/='.';sub c{local$_=lc;y/aeiouy//.'/'.y/a-z0-9//}while(<>){$w=split||next;($x,$y)=();map{$x.=$_.$";$y.=&c.$";($d=length($x)-length$y)>0?$y:$x.=$"x abs$d}@_;$x=~s/(.{57})..[^\.]..+/$1.../&&substr($y,56)=~s/ .*//;s/ +$//for$x,$y;print"$w:\t$x
",&c,":\t$y
"}
|