Interlinear
Score: 164.24 (pass)
uno mas
#!perl -ap056
$_=lc,$_=y/aeiouy//.'/'.s/\w//gfor$g=$_="@F",@F;$_&&=1+s/\S+ /$"^$"x4|$&/eg.(s/(.{57}).{4,}/$1.../,": $_
$g: ").(s/[^ .]+ */shift@F|$"x18&$&/eg,/\D*$/,"$`
")
|
Score: 165.23 (pass)
Hey, only 15 more chars to go...
#!perl -ap056
$_=lc,$_=y/aeiouy//.'/'.s/\w//gfor$g=$_="@F",@F;$x=1+s/\S+ /$"^$"x4|$&/eg.(s/(.{57}).{4,}/$1.../,": $_
$g: ");s/[^ .]+ */shift@F|$"x18&$&/eg,s/(.*\d).*/$x$1
/
|
Score: 166.22 (pass)
There's no way this should work, but it does. Random mutation rules!
#!perl -ap056
$_=lc,$_=y/aeiouy//.'/'.s/\w//gfor$g=$_="@F",@F;$n=1+s/\S+ /$&|"\0 "/eg;s/(.{57}).{4,}/$1.../;$x=$_;s/[^ .]+ */shift@F|$"x18&$&/eg;s/(.*\d).*/$n: $x
$g: $1
/
|
Score: 170.22 (pass)
Get rid of useless variables. This is becoming truly sick.
#!perl -ap056
$_=lc,$_=y/aeiouy//.'/'.s/\w//gfor$g=$_="@F",@F;$n=1+s/\S+ /$&|"\0 "/eg;s/(.{57}).{4,}/$1.../;$x=$_;s/[^ .]+ */shift@F|$"x length$&/eg;s/(.*\d).*/$n: $x
$g: $1
/
|
Score: 174.23 (fail)
My browser doesn't like NULL's, so I have to do it this way...
#!perl -ap056
($g,@v)=map{map y/aeiouy//.'/'.s/\w//g,lc}$_="@F",@F;$n=1+s/\S+ /$&|" "/eg;s/(.{57}).{4,}/$1.../;$x=$_;s/[^ .]+ */shift@v|$"x length$&/eg;s/(.*\d).*/$n: $x
$g: $1
/
|
Score: 175.23 (pass)
One longer than it has to be, but Web-save(tm)!
#!perl -ap056
($g,@v)=map{map y/aeiouy//.'/'.s/\w//g,lc}$_="@F",@F;$n=1+s/\S+ /$&|"\0 "/eg;s/(.{57}).{4,}/$1.../;$x=$_;s/[^ .]+ */shift@v|$"x length$&/eg;s/(.*\d).*/$n: $x
$g: $1
/
|
Score: 176.23 (pass)
The command-line gods have been good to me. I swore if I broke 200 I would turn pro, and much to my surprise, here we go. Minor unorthodoxy for the literal \t and \n -- hope they're legal.
#!perl -ap056
($g,@v)=map{map y/aeiouy//.'/'.s/\w//g,lc}$_="@F",@F;$n=1+s/\S+ /$&|"\0 "/eg;s/(.{57}).{4,}/$1.../;$x=$_;s/[^ .]+ */shift@v|$"x length$&/eg;s/^(.*\d).*/$n: $x
$g: $1
/
|
Score: 214.21 (pass)
a few more (or less)...
#!perl
$/=$*;map{($g,@v,$n)=map{map y/aeiouy//.'/'.s/\w//g,lc}$_,/\S+/g;s/\s*(\S+)\s+/"$1 "|"\0 "/eg;s/(.{57}).{3,}/$1../;$x=$_;s/[^ .]+ */$v[$n++]|$"x length$&/eg;s/\D*$//;@v&&print@v.":\t$x.\n$g:\t$`\n"}split/\.\W/,<>
|
Score: 217.23 (pass)
Alright. Back to the tweaking game. Luckily the tests aren't completely thorough...
#!perl
$/=$*;map{($g,@v,$n)=map{map y/aeiouy//.'/'.y/a-z0-9//,lc}$_,/\S+/g;s/\s*(\S+)\s+/"$1 "|"\0 "/eg;s/(.{57}).{3,}/$1../;$x=$_;s/[^ .]+ */$v[$n++]|$"x length$&/eg;s/\D*$//;@v&&print@v.":\t$x.\n$g:\t$`\n"}split/\.\W/,<>
|
Score: 220.23 (pass)
Okay, not exactly revolutionary, but a larger random mutation than the previous few...
#!perl
$/=$*;map{($g,@v,$n)=map{map y/aeiouy//.'/'.y/a-z0-9//,lc}$_,/\S+/g;s/\s*?(\S+)\s+/"$1 "|"\0 "/eg;s/(.{57}).{3,}/$1../;$x=$_;s/[^ .]+ */$v[$n++]|$"x length$&/eg;s/[. ]*$//;@v&&print@v.":\t$x.\n$g:\t$`\n"}split/\.\W/,<>
|
Score: 229.24 (pass)
Another minor tweak...
#!perl
$/=$*;sub v{$_=lc;y/aeiouy//.'/'.y/a-z0-9//}map{split;$g=v;s/\S+\s?/A.length($&|$"x4)/eg;$_=pack$p=$_,@_;s/ *$/./;$n=s/^(.{57}).{4,}/$1.../?56:60;($x=pack$p,map{v}@_)=~s/^.{0,$n}\S+/@_&&print@_.":\t$_\n$g:\t$&\n"/e}split/\.\W/,<>
|
Score: 232.23 (pass)
must... improve... tiebreak...
must... find... new... idea...
#!perl
$/=$*;sub v{$_=lc;y/aeiouy//.'/'.y/a-z0-9//}map{@p=map{A.length("$_ "|$"x4)}@w=split;$g=v;$_=pack"@p",@w;s/ *$/./;$n=s/^(.{57})...+\S/$1.../?56:60;($x=pack"@p",map{v}@w)=~s/^.{0,$n}\S+/@w&&print@w.":\t$_\n$g:\t$&\n"/e}split/\.\W/,<>
|
Score: 236.24 (pass)
Nevermind... I can shave one more off.
#!perl
$/=$*;sub v{$_=lc;y/aeiouy//.'/'.y/a-z0-9//}map{@p=map{A.length("$_ "|$"x4)}@w=split;$g=v;$_=pack"@p",@w;s/ *$/./;$i=s/^(.{57})...+\S/$1.../?56:60;($x=pack"@p",map{v}@w)=~s/^(.{0,$i}\S+).*/@w&&print@w.":\t$_\n$g:\t$1\n"/e}split/\.\W/,<>
|
Score: 237.24 (pass)
Maybe it's time for a new approach...
#!perl
$/=$*;sub v{$_=lc;y/aeiouy//.'/'.y/a-z0-9//}map{@p=map{A.length("$_ "|$"x4)}@w=split;$g=v;$_=pack"@p",@w;s/ *$/./;$i=s/^(.{57}).{3,}\S/$1.../?56:60;($x=pack"@p",map{v}@w)=~s/^(.{0,$i}\S+).*/@w&&print@w.":\t$_\n$g:\t$1\n"/e}split/\.\W/,<>
|
Score: 245.23 (pass)
Eliminated a couple useless regex modifiers. "Moving up fast," says the ref, but I'm still nearly 100 strokes behind the aliens... At my current rate, that's 100 more submissions.
#!perl -l
$/=$*;sub v{$_=lc;y/aeiouy//.'/'.y/a-z0-9//}map{@p=map{A.length("$_ "|$"x4)}@w=split;$g=v;$i=($w=pack"@p",@w)=~s|^(.{57})...+\S.*|$1...|?56:60;$_=pack"@p",map{v}@w;s/^(.{0,$i}\S+).*/:\t$w\n$g:\t$1/;s/ *$//m;@w&&print@w.$_}split/(?<=\.)\W+/,<>
|
Score: 248.22 (pass)
#!perl -l
$/=$*;sub v{$_=lc;y/aeiouy//.'/'.y/a-z0-9//}map{@p=map{A.length("$_ "|$"x4)}@w=split;$g=v;$i=($w=pack"@p",@w)=~s|^(.{57})...+\S.*|$1...|?56:60;$_=pack"@p",map{v}@w;s/^(.{0,$i}\S*).*/:\t$w\n$g:\t$1/;s/\s*$//gm;@w&&print@w.$_}split/(?<=\.)\W+/m,<>
|
Score: 252.23 (pass)
#!perl -l
$/=$*;sub v{$_=lc;y/aeiouy//.'/'.y/a-z0-9//}map{@p=map{A.length("$_ "|$"x4)}@w=split;$g=v;$i=($w=pack"@p",@w)=~s|^(.{57})...+\S.*|$1...|?56:60;$_=pack"@p",map{v}@w;s/^(.{0,$i}\S*).*/:\t$w\n$g:\t$1/;s/\s*$//gm;print@w.$_}grep/./,split/(?<=\.)\W+/m,<>
|
Score: 257.23 (pass)
#!perl -l
$/=$*;sub v{$_=lc;y/aeiouy//.'/'.y/a-z0-9//}map{@p=map{A.(4>($l=length)?4:1+$l)}@w=split;$g=v;$i=($w=pack"@p",@w)=~s|^(.{57})...+\S.*|$1...|?56:60;$_=pack"@p",map{v}@w;s/^(.{0,$i}\S*).*/@w.":\t$w\n$g:\t$1"/e;s/\s*$//gm;print}grep/./,split/(?<=\.)\W+/m,<>
|
Score: 270.22 (pass)
#!perl -l
$/=$*;sub v{(@x=/[aeiouy]/gi).'/'.(@x=/[a-z\d]/gi)}map{$g=v;@p=map{A.(4>($l=length)?4:1+$l)}@w=split;$i=(($w=pack"@p",@w)=~s|^(.{57})...+\S.*|$1...|)?56:60;$_=pack"@p",map{v}@w;s/^(.{0,$i}\S*).*/@w.":\t$w\n$g:\t$1"/e;s/\s*$//gm;print}grep/./,split/(?<=\.)[\s\n]+/m,<>
|
Score: 290.21 (pass)
#!perl -l
$/="";sub v{(@x=/[aeiouy]/gi).'/'.(@x=/[a-z\d]/gi)}map{($g,$p)=v;$_=pack$p,map{$p.=A.++(($l=length)>($L=length($v=v))?$l:$L);$v}@w=split;$i=(($w=pack$p,@w)=~s/^(.{57})...+\S.*/$1.../)?56:60;s/^(.{$i}\S*).*/$1/gm;($_=@w.":\t$w\n$g:\t$_")=~s/\s*$//gm;print}map{split/(?<=\.)[\s\n]+/m,$_}<>
|
Score: 359.19 (pass)
first cut.
#!perl
undef$/;sub v{(@x=/[aeiouy]/gi).'/'.(@x=/[a-z0-9]/gi)}for(map{"$_."}map{split/\.(?:\s+|$)/m,$_}grep/\S/,split/\n\n+/,<>){($g,$p)=v;($c=pack$p,map{$l=length;$m=length($v=v);$p.='A'.(($l>$m?$l:$m)+1);$v}(@w,@c)=split)=~s/^(.{60}\S*).*/$1/;$c=~s/^(.{56}\S*).*/$1/ if($w=pack$p,@w)=~s/^(.{57}).{3,}\S.*/$1.../;$w=~s/\s*$//;$c=~s/\s*$//;print@w.":\t$w\n$g:\t$c\n"}
|