Okay, changing ....+ to .{4,} only helps the tiebreaker, but 0.01 is better than nothing.
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.(()=/\w/g)}$p=c;$_=sprintf'%-3s 'x@F,@F;s/ +$//and$f=$/x3x
s/(.{57}).{4,}/$1/,$_=@F.": $_$f
$p: ".pack"@{[map A.y///c,/\S+ */g]}9",map c,@F;s/ +$/
/
|
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.(()=/\w/g)}$p=c;$_=sprintf'%-3s 'x@F,@F;s/ +$//and$f=$/x3x
s/(.{57})....+/$1/,$_=@F.": $_$f
$p: ".pack"@{[map A.y///c,/\S+ */g]}9",map c,@F;s/ +$/
/
|
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.(()=/\w/g)}$p=c;$_=sprintf'%-3s 'x@F,@F
and$f=$/x3x s/(.{57})...+\S.*/$1/,$_=@F.": $_$f
$p: ".pack("@{[map A.y///c,/\S+ */g]}9",map c,@F).'
',s/ +$//gm
|
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.(()=/\w/g)}$p=c;$_=sprintf'%-3s 'x@F,@F
and$f=$/x3x s/(.{57})...+\S.*/$1/,$_=@F.": $_$f
$p: ".pack((join'',map A.y///c,/\S+ */g).9,map c,@F).'
',s/ +$//gm
|
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.(()=/\w/g)}$p=c;$_=sprintf'%-3s 'x@F,@F
and$f=$/x3x s/(.{57})...+\S.*/$1/,$_=@F.": $_$f
$p: ".(pack+(join'',map A.y///c,/\S+ */g).9,map c,@F).'
',s/ +$//gm
|
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.(()=/\w/g)}$p=c;$_=sprintf'%-3s 'x@F,@F
and($f=$/x3x s/(.{57})...+\S.*/$1/,$_=@F.": $_$f
$p: ".(pack+(join'',map A.y///c,/\S+ */g).9,map c,@F).'
',s/ +$//gm)
|
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.(()=/\w/g)}$p=c;$_=sprintf'%-3s 'x@F,@F
or next;$f=$/x3x s/(.{57})...+\S.*/$1/;$_=@F.": $_$f
$p: ".(pack+(join'',map A.y///c,/\S+ */g).9,map c,@F).'
',s/ +$//gm
|
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.(()=/\w/g)}$p=c;$_=sprintf'%-3s 'x@F,@F
or next;$f=$/x3x s/(.{57})...+\S.*/$1/;$r=join'',map
A.y///c,/\S+ */g;$_=@F.": $_$f
$p: ".(pack$r.9,map c,@F).'
',s/ +$//gm
|
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.(()=/\w/g)}$p=c;$_=sprintf'%-3s 'x@F,@F
or next;$f=$/x3x s/(.{57})...+\S.*/$1/;$r=join'',map
A.y///c,/\S+\s*/g;$_=@F.": $_$f
$p: ".(pack$r.9,map c,@F).'
',s/ +$//gm
|
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.y/A-Za-z0-9//}$p=c;$_=sprintf'%-3s 'x@F,@F;$f=$/x3x s/(.{57})...+\S.*/$1/;$t=@F.": $_$f
$p: ";$r=join'',map A.y///c,/\S+\s*/gand$_=$t.(pack$r.9,map c,@F).'
',s/ +$//gm
|
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.y/A-Za-z0-9//}$_.=$"x(3-length)for@F;$p=c;$_="@F";$f=$/x3x s/(.{57})...+\S.*/$1/;$t=@F.": $_$f
$p: ";$r=join'',map A.y///c,/\S+\s*/gand$_=$t.(pack$r.9,map c,@F).'
',s/ +$//gm
|
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.y/A-Za-z0-9//}$_.=$"x(3-length)for@F;$p=c;$_="@F";$f=$/x3x s/(.{57})...+\S.*/$1/;$t=@F.": $_$f
$p: ";s/\S+ */'%-'.(length$&).'s'/geand($_=$t.(sprintf$_,map c,@F).'
'),s/ +$//gm
|
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.y/A-Za-z0-9//}$_.=$"x(3-length)for@F;$p=c;$_="@F";$f=$/x3x s/(.{57})...+\S.*/$1/;$t=@F.": $_$f
$p: ";s/\S+ */'%-'.(length$&).'s'/ge;$t.=sprintf$_,map c,@F;$_="$t
"x!!@F;s/ +$//gm
|
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.y/A-Za-z0-9//}$_.=$"x(3-length)for@F;$s="@F";$f=$/x($s=~s/(.{57})...+\S.*/$1/*3);$t=@F.": $s$f
".c.": ";for(@F){$s=~/\S+/g||last;$t.=c.$"x(1+y///c-length c)}$_="$t
"x!!@F;s/ +$//gm
|
It's not quite as short as my current best, but I thought it was interesting to use formats, which I've never done before. (The weird characters are control-A's.)
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.y/A-Za-z0-9//}$_.=$"x(3-length)for@F;$p=c;$_="@F";$f=$/x3x s/(.{57})...+\S.*/$1/;$t=@F.": $_$f
$p: ";s/(^| )\S/$1@/g;y/@/
|
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.y/A-Za-z0-9//}$p=c;$_.=$"x(3-length)for@F;($s,$t)="@F";$f=$/x($s=~s/(.{57})...+\S.*/$1/*3);for(@F){$s=~/\S+/g||last;$t.=c.$"x(1+y///c-length c)}$_=(@F.": $s$f
$p: $t
")x!!@F;s/ +$//gm
|
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.y/A-Za-z0-9//}$p=c;$_.=$"x(3-length)for@F;($s,$t)="@F";$f=$/x($s=~s/(.{57})...+\S.*/$1/*3);for(@F){$s=~/\S+/g||last;$t.=c.$"x(1+y///c-length c)}$_=@F.": $s$f
$p: $t
";s/ +$//gm;$_ x=!!@F
|
Never really found a use for -a before, so I'd forgotten about it.
#!perl -pa056
sub c{lc=~y/aeiouy//.'/'.lc=~y/a-z0-9//}$p=c;$_.=$"x(3-length)for@F;($s,$t)="@F";$f=$/x($s=~s/(.{57}).{3,5}\S.*/$1/*3);for(@F){$s=~/\S+/g||last;$t.=c.$"x(1+y///c-length c)}$_=@F.": $s$f
$p: $t
";s/ +$//gm;$_ x=!!@F
|
#!perl -p056
sub c{lc=~y/aeiouy//.'/'.lc=~y/a-z0-9//}split;$p=c;$_.=$"x(3-length)for@_;($s,$t)="@_";$f=$/x($s=~s/(.{57}).{3,5}\S.*/$1/*3);for(@_){$s=~/\S+/g||last;$t.=c.$"x(1+y///c-length c)}$_=@_.": $s$f
$p: $t
";s/ +$//gm;$_ x=!!@_
|
#!perl -p056
sub c{lc=~y/aeiouy//.'/'.lc=~y/a-z0-9//}@b=split;$p=c;$_.=$"x(3-length)for@b;($s,$t)="@b";$f='.'x($s=~s/(.{57}).{3,5}\S.*/$1/*3);for(@b){$s=~/\S+/g||last;$t.=c.$"x(1+y///c-length c)}$_=@b.": $s$f
$p: $t
";s/ +$//gm;$_ x=!!@b
|
#!perl -p056
sub c{y/aeiouy//.'/'.y/a-z0-9//}$n=@a=split;$o=c
for lc;$_.=$"x(3- y///c)for@a;($s,$t)="@a";$e=$s=~s/(.{57})....?.?\S.*/$1/;$t.=sprintf"%-*s ",y///c>2?y///c:3,c while$_=lc
shift@a,$s=~/\S+/g;$_="$n: $s".($e&&'...')."
$o: $t
";s/ +$//gm;$_ x=!!$n
|
It's too late at night to refine this, but it's shorter than Eugene's (the only one on the board), and it finally works. I suspect the rules and test need to include something about the significance of paragraphs, but they don't at the moment.
#!perl -n056
$n=@a=split or next;$o=lc=~y/aeiouy//.'/'.lc=~y/a-z0-9//;$_.=$"x(3- y///c)for@a;$s="@a";$e=$s=~s/(.{57})....?.?\S.*/$1/;$t='';$t.=sprintf"%-*s ",y///c>2?y///c:3,y/aeiouy//.'/'.y/a-z0-9//while$_=lc
shift@a,$s=~/\S+/g;$_="$n: $s".($e&&'...')."
$o: $t
";s/ +$//gm;print
|