Interlinear

Score: 190.21 (pass)

#!perl -p056
sub
t{map
y/aeiyou//.'/'.s/\w//g,lc}@q=map$_.$"x(3-tr///c),split;@w=t$_="@q";s/(.{57})...+\./$1.../;$_=@q.":	$_
@w:	@{[map{sprintf'%-'.y///c.'s',t}@q[0..$#z]]}
"if@z=/\w\S*/g;s/ *$//gm

Score: 196.23 (pass)

could... could I really have a chance to beat /-\ndrew?

#!perl -p056
sub
t{map
y/aeiyou//.'/'.s/\w//g,lc
pop}@q=map$_.$"x(3-
y///c),split;@w=t$_="@q";s/(.{57})...+\./$1.../;$_=@q.":	$_
@w:	@{[map{sprintf'%-'.y///c.'s',t$_}@q[0..$#z]]}
"if@z=/\w\S*/g;s/ *$//gm

Score: 197.22 (pass)

You just know you are on your last mile when you begin to fiddle with the tiebreaker score...

#!perl -p056
sub
t{map
y/aeiyou//.'/'.s/\w//g,lc
pop}@q=map$_.$"x(3-
y///c),split;@w=t$_="@q";s/(.{57})...+\./$1.../;@z=/\w\S*/g;$_&&=@q.":	$_
@w:	@{[map{sprintf'%-'.y///c.'s',t$_}@q[0..$#z]]}
";s/ *$//gm

Score: 197.25 (pass)

WOO*HOO*!!! Under 200! *make a spontaneous dance of victory* I might even, maybe!, come to beat Andrew this time!

#!perl -p056
sub
t{map
y/aeiyou//.'/'.s/\w//g,lc
pop}@q=map$_.$"x(3-
y///c),split;@w=t$_="@q";s/(.{57})...+\./$1.../;@a=/\w\S*/g;$_&&=@q.":	$_
@w:	@{[map{sprintf'%-'.y///c.'s',t$_}@q[0..$#a]]}
";s/ *$//gm

Score: 203.25 (pass)

I just *know* this can be improved (sic). But how, HOW?

#!perl -p056
sub
t{map
y/aeiyou//.'/'.s/\w//g,lc
pop}@q=map$_.$"x(3-
y///c),split;@w=t$_="@q";s/ +$//;s/(.{57})....+/$1.../;@a=/\w\S*/g;$_&&=@q.":	$_
@w:	@{[map{sprintf'%-'.y///c.'s',t$_}@q[0..$#a]]}
";s/ *$//g

Score: 206.26 (fail)

Oh yeah.

#!perl -p056
sub
t{map
y/aeiyou//.'/'.s/\w//g,lc
pop}@q=map$_.$"x(3-
y///c),split;@w=t$_="@q";s/
+$//;s/(.{57})....+/$1.../;@a=/\w\S*/g;"@{[map{sprintf'%-'.y///c.'s',t$_}@q[0..$#a]]}"=~/
*$/;$_&&=@q.":	$_
@w:	$`
"

Score: 206.26 (pass)

Hoping that the copy'n'paste will work, this time...

#!perl -p056
sub
t{map
y/aeiyou//.'/'.s/\w//g,lc
pop}@q=map$_.$"x(3-
y///c),split;@w=t$_="@q";s/ +$//;s/(.{57})....+/$1.../;@a=/\w\S*/g;"@{[map{sprintf'%-'.y///c.'s',t$_}@q[0..$#a]]}"=~/ *$/;$_&&=@q.":	$_
@w:	$`
"

Score: 212.24 (pass)

You watch a movie about giant killing spiders, you go to bed, and hop! you think of an easy way to shave two more strokes.

#!perl -p056
sub
t{map
y/aeiyou//.'/'.s/\w//g,lc
pop}@q=map$_.$"x(3-
y///c),split;@w=t$_="@q";s/ +$//,s/(.{57})....+/$1.../,$x=@a=/\w\S*/g;"@{[map{sprintf'%-'.y///c.'s',t$_}@q]}"=~/(.*?\/\d+){$x}/;$_&&=@q.":	$_
@w:	$&
"

Score: 214.24 (pass)

Okay, enough for tonight.

#!perl -p056
sub
t{map
y/aeiyou//.'/'.s/\w//g,lc
pop}@q=map$_.$"x(3-
y///c),split;@w=t$_="@q";s/ +$//,s/(.{57})....+/$1.../,$x=@a=/\w\S*/g;"@{[map{sprintf'%-'.y///c.'s',t$_}@q]}"=~/( *\d+\/\d+){$x}/;$_&&=@q.":	$_
@w:	$&
"

Score: 217.25 (pass)

yes. hurt me more.

#!perl -p056
sub
t{map
y/aeiyou//.'/'.(@a=/\w/g),lc
pop}@q=map$_.$"x(3-
y///c),split;@w=t$_="@q";s/ +$//,s/(.{57})....+/$1.../,$x=@a=/\w\S*/g;"@{[map{sprintf'%-'.y///c.'s',t$_}@q]}"=~/( *\d+\/\d+){$x}/;$_&&=@q.":	$_
@w:	$&
"

Score: 229.27 (pass)

must.. shave.. more.. strokes..

#!perl -p056
sub
t{map
y/aeiyou//.'/'.(@a=/\w/g),lc
pop}@q=map$_.$"x(3-
y///c),split;@w=t$y=$_="@q";s/ +$//,s/(.{57})....+/$1.../,$x=@a=/\w\S*/gfor$y;s#\S..?\S*#sprintf"%-@{[length$&]}s",t$&#eg,/( *\d+\/\d+){$x}/;
$_&&=@q.":	$y
@w:	$&
"

Score: 238.27 (pass)

A small shaving for my script, a big leap toward Benoit's occular explosion. :)

#!perl -p056
sub
t{local$_=lc
pop;y/aeiyou//.'/'.(@a=/\w/g)}$w=t$y=$_=join$",map{sprintf"%-3s",$_}@q=split;$y=~s#\S..?\S*#sprintf"%-@{[length$&]}s",t$&#eg;s/ +$//;s/(.{57})....+/$1.../;$x=@a=/\w\S*/g;$y=~/( *\d+\/\d+){$x}/;$_&&=@q.":	$_
$w:	$&
"

Score: 249.27 (pass)

Strokes, strokes everywhere A painful dead-end on a painful script Strokes, strokes everywhere And the program barely shrinked...

#!perl -p056
sub
t{local$_=lc
pop;y/aeiyou//.'/'.(@a=/\w/g)}$w=t$y=$_=join$",map{sprintf"%-3s",$_}@q=split;$y=~s#\S..?\S*#sprintf"%-@{[length$&]}s",t$&#eg;s/ +$//;$_="$&..."if/.{1,57}/,3

Score: 250.27 (pass)

Considering that Eugene is almost 100 strokes ahead, I must say that I'm tempted by a nervous breakdown...

#!perl -p056
sub
t{local$_=lc
pop;y/aeiyou//.'/'.(@a=/\w/g)}$w=t$y=$_=join$",map{sprintf"%-3s",$_}@q=split;$y=~s#\S..?\S*#sprintf"%-@{[length$&]}s",t$&#eg;s/ +$//;/.{1,57}/;$_="$&..."if
3

Score: 270.28 (pass)

Ah! Benoit, ce gredin, ne me battra point, morbleu!

#!perl -p056
sub
t{local$_=lc
pop;y/aeiyou//.'/'.(@a=/\w/g)}($y=$_=join$",map$_.$"x(3- y///c),split)=~s/\S..?\S*/t($&).($"x(length($&)-length t$&))/eg;s/ +$//;$q=@a=/\S+/g;$w=t$_;/.{1,57}/;$_="$&..."if 3

Score: 276.27 (pass)

There must be a way to change all of this goodle for some sprintf formatting...

#!perl -p056
sub
t{local$_=lc
pop;y/aeiyou//.'/'.(@a=/\w/g)}($y=$_=join$",map$_.($"x(3- y///c)),split)=~s/\S..?\S*/t($&).($"x(length($&)-length t($&)))/eg;s/ +$//;$q=@a=/\S+/g;$w=t$_;/.{1,57}/||next;$_="$&..."if 3

Score: 279.27 (pass)

#!perl -p056
sub t{local$_=lc
pop;y/aeiyou//.'/'.(@a=/\w/g)}($y=$_=join$",map$_.($"x(3- y///c)),split)=~s/\S..?\S*/t($&).($"x(length($&)-length t($&)))/eg;s/\s+$//;$q=@a=/\S+/g;$w=t($_);/.{1,57}/||next;$_="$&..."if 3

Score: 295.26 (pass)

I feel silly optimizing a solution that so obviously needs a total rewrite...

#!perl -n0
sub t($){local$_=lc
pop;y/aeiyou//.'/'.(@a=/\w/g)}map{s/(\S+)\s+/"$1 ".(" "x(3-length$1))/eg;($y=$_)=~s/\S..?\S*/(t$&).(' 'x(length($&)-length t$&))/eg;$s=$_;/.{0,57}/;$_="$&..."if 3

Score: 308.25 (pass)

Pitiful, I know. but at least I step ahread of Ronald.

#!perl -n0
sub t($){local$_=lc
pop;y/aeiyou//.'/'.(@a=/\w/g)}map{s/(\S+)\s+/"$1 ".(" "x(3-length$1))/eg;($y=$_)=~s/\S..?\S*/(t$&).(' 'x(length($&)-length t$&))/eg;($s=$_)=~s/(.{0,57})(.*)/$1.(4>length$2?$2:'...')/e;$x=@a=$s=~/\w\S*/g;$y=~/(\s*\d+\/\d+){$x}/;$y=$&;print 0+(@a=/\S+/g),":	$s
",t$_,":	$y
"}/\w.*?\./sg

Score: 311.27 (pass)

Note to self: cut'n'paste from an aterm convert \t to spaces. Silly c'n'p...

#!perl -n0
sub t($){local$_=lc
pop;y/aeiyou//.'/'.(@a=/\w/g)}for(/\w.*?\./sg){s/(\S+)\s+/"$1 ".(" "x(3-length$1))/eg;($y=$_)=~s/\S..?\S*/($a=t$&).(' 'x(length($&)-length$a))/eg;($s=$_)=~s/(.{0,57})(.*)/$1.(4>length$2?$2:'...')/e;$x=@a=$s=~/\w\S*/g;$y=~/(\s*\d+\/\d+){$x}/;$y=$&;print 0+(@a=/\S+/g),":	$s
",t$_,":	$y
"}

Score: 319.27 (fail)

Good news, in in the top ten. Bad news, there is laast than 10 golfers playing, and I'm the last o' them. :-P

#!perl -n0
sub t($){local$_=lc
pop;y/aeiyou//.'/'.(@a=/\w/g)}for(/\w.*?\./sg){s/(\S+)\s+/"$1 ".(" "x(3-length$1))/eg;($y=$_)=~s/\S..?\S*/($a=t$&).(' 'x(length($&)-length$a))/eg;($s=$_)=~s/(.{0,57})(.*)/$1.(4>length$2?$2:'...')/e;$x=@a=$s=~/\w\S*/g;$y=~/(\s*\d+\/\d+){$x}/;$y=$&;print 0+(@a=/\S+/g),":  $s
",t$_,":        $y
"}

Score: 330.29 (pass)

Hmm.. It /is/ passing the test program here. Maybe a bad cut'n'paste in my first entry?

#!perl -0
sub t{$a=lc
pop;$a=~y/aeiyou//.'/'.(@a=$a=~/\w/g)}
for(<>=~/\w.*?\./sg){s/(\S+)[
\s]+/"$1 ".(" "x(3-length$1))/eg;$y=$_;$y=~s/\S..?\S*/$a=t($&);$a.(' 'x(length($&)-length$a))/eg;$s=$_;$s=~/(.{0,57})(.*)/;$s=$1 .(length($2)<4?$2:'...');$x=@a=$s=~/\w\S*/g;$y=~/(\s*\d+\/\d+){$x}/;$y=$&;print 0+(@a=/\S+/g), ":	$s
",t($_),":	$y
"}

Score: 345.27 (fail)

Don't you *dare* laugh.

#!perl -0
sub t{$a=lc shift;($a=~y/aeiyou//).'/'.(@a=$a=~/\w/g)}
for(<>=~/\w.*?\./sg){@w=/\S+/g;s/(\S+)[\n\s]+/"$1 ".(" "x(3-length$1))/eg;$y=$_;$y=~s/\S..?\S*/$a=t($&);$a.(' 'x(length($&)-length$a))/eg;$s=$_;$s=~/(.{0,57})(.*)/;$s=$1
.(length($2)<4?$2:'...');$x=@a=$s=~/\w\S*/g;$y=~/(\s*\d+\/\d+){$x}/;$y=$&;print 0+@w, ":     $s
",t($_),":      $y
"}