Interlinear
Score: 150.22 (pass)
oops, random space in the previous one
#!perl -ap056
@Q=map{lc^lc^lc=~y/aeiouy//.-map/\w/g,$_^=v0 x3}lc,@F;$_="@F"&""x60;s/[^.]{3}$/ /;s/.+/$#Q $_
@Q[0..split]
/;y!\0 -! ./!;s/ +(.*\S) */: $1/g
|
Score: 150.23 (pass)
#!perl -ap056
@Q=map$_^($_^=v0 x3)^lc=~y/aeiouy//."/".s/\w/$&/g,$_,@F;$_="@F"&""x60;s/[^.]{3}$/ /;s!.+!$#Q $&
@Q[0..split]
!;y/\0 / ./;s/ +(.*\S) */: $1/g
|
Score: 150.23 (pass)
It fails the testprogram, but that's a problem with the testprogram. - is not a valid input char according to the rules
#!perl -ap056
@Q=map{lc^lc^lc=~y/aeiouy//.-map/\w/g,$_^=v0 x3}$_,@F;$_="@F"&""x60;s/[^.]{3}$/ /;s/.+/$#Q $_
@Q[0..split]
/;y!\0 -! ./!;s/ +(.*\S) */: $1/g
|
Score: 151.22 (pass)
Finally ! The tiebreaker !
#!perl -ap056
@Q=map{lc^lc^lc=~y/aeiouy//.-map/\w/g,$_^=v0 x3}lc,@F;$_="@F"&""x60;s/[^.]{3}$/ /;s/.+/$#Q $_
@Q[0..split]
/;y!\0 -! ./!;s/ +(.*\S) */: $1/g
|
Score: 151.27 (pass)
Not a very good solution,
but fun use of side-effects.
I had some hope for this method, but
never could make it short
#!perl -ap056
@Q=map lc=~y/aeiouy//."/".s/\w/$&/g^($_^=$:)^$_,$_,@F,@F;s/[^.]{3}$/ /,$#Q=split,$_=@F." $_
@Q
"if$_="@F"&""x60;y/\0 / ./;s/ +(.*\S) */: $1/g
|
Score: 152.24 (fail)
#!perl -ap056
@Q=map$_^($_^=$:^$:)|lc=~y/aeiouy//."/".s/\w/$&/g,$_,@F;$_="@F";pos=57;s/\G...+\./.../;s!.+!$#Q $&
@Q[0..s/[ .]+//g]
!;s// /g;s/ +(.*\S).*/: $1/g
|
Score: 153.23 (pass)
less funky, but better tiebreaker
#!perl -ap056
@Q=map$_^($_^=v0 x3)^lc=~y/aeiouy//."/".s/\w/$&/g,$_,@F;$_="@F"&""x60;s/[^.]{3}$/.../;s!.+!$#Q $&
@Q[0..s/[ .]+//g]
!;y/\0/ /;s/ +(.*\S).*/: $1/g
|
Score: 153.25 (pass)
You should know the drill by now. this is really a 152
#!perl -ap056
@Q=map$_^($_^=$:^$:)^lc=~y/aeiouy//."/".s/\w/$&/g,$_,@F;$_="@F"&""x60;s/[^.]{3}$/.../;s!.+!$#Q $&
@Q[0..s/[ .]+//g]
!;y/\0/ /;s/ +(.*\S).*/: $1/g
|
Score: 154.22 (pass)
replace that \0 by binary 0. PGAS doesn't let me submit it (it also has the dreaded \xff)
#!perl -ap056
@Q=map$_^($_^=$:^$:)^lc=~y/aeiouy//."/".s/\w/$&/g,$_,@F;$_="@F"&""x60;s/[^.]{3}$/.../;s!.+!$#Q $&
@Q[0..s/[ .]+//g]
!;s/\0/ /g;s/ +(.*\S).*/: $1/g
|
Score: 154.22 (pass)
First do some wild xor-ing.
Then fix everything up using only substitutes.
#!perl -ap056
@Q=map$_^($_^=$:^$:)^lc=~y/aeiouy//."/".s/\w/$&/g,$_,@F;$_="@F";s/(.{57})...+\./$1.../;s!.+!$#Q $&
@Q[0..s/[ .]+//g]
!;s/\0/ /g;s/ +(.*\S).*/: $1/g
|
Score: 155.24 (pass)
#!perl -ap056
@Q=map$"x$+[!s/$/$"x(3-pos)/e]|lc=~y/aeiouy//."/".s/\w/$&/g,$_,@F;$_="@F"&""x60;s/[^.]{3}$/.../;s!.+!$#Q $&
@Q[0..s/[ .]+//g]
!;s/ +(.*\S).*/: $1/g
|
Score: 156.24 (pass)
#!perl -ap056
@Q=map$"x$+[!s/$/$"x(3-pos)/e]|lc=~y/aeiouy//."/".s/\w/$&/g,$_,@F;$_="@F";s/(.{57})...+\S/$1.../;$_&&=@F." $_
@Q[0..s/[ .]+//g]
";s/ +(.*\S).*/: $1/g
|
Score: 159.25 (pass)
#!perl -ap056
@Q=map$"x$+[!s/$/$"x(3-pos)/e]|lc=~y/aeiouy//."/".s/\w/$&/g,$_,@F;$_="@F"&""x$=;s/[^.]{3}$/.../;($_=@F." $_
@Q[0..s/[ .]+//g]
")x=!!s/ +(.*\S).*/: $1/g
|
Score: 160.26 (pass)
notice that the char between "" in ""x$= is ASCII code 255
This solution also needs 5.6.1
#!perl -ap056
@Q=map$"x$+[!s/$/$"x(3-pos)/e]|lc=~y/aeiouy//."/".s/\w/$&/g,$_,@F;$_="@F"&""x$=;s/[^.]{3}$/.../;$#Q=()=/[ .]+/g;($_=@F." $_
@Q
")x=!!s/ +(.*\S).*/: $1/g
|
Score: 162.26 (fail)
#!perl -ap056
@Q=map$"x$+[!s/$/$"x(3-pos)/e]|lc=~y/aeiouy//."/".s/\w/$&/g,$_,@F;$_="@F"&""x$=;s/[^.]{3}$/.../;$#Q=()=/[ .]+/g;$_=@F." $_
@Q
";$_ x=!!s/ +(.*\S).*/: $1/g
|
Score: 163.26 (fail)
#!perl -ap056
@Q=map$"x$+[!s/$/$"x(3-pos)/e]|lc=~y/aeiouy//."/".s/\w/$&/g,$_,@F;$_="@F"&"^?"x$=;s/[^.]{3}$/.../;$#Q=()=/[ .]+/g;$_=@F." $_
@Q
";$_ x=!!s/ +(.*\S).*/: $1/g
|
Score: 164.26 (pass)
#!perl -ap056
@Q=map$"x($z=y///c*s//$"x(3-$z)/e)|lc=~y/aeiouy//."/".s/\w/$&/g,$_.$",@F;$_="@F
";s/(.{57}).{4,}/$1.../;/\S+ *\./;$_="@Q"=~/ +(.{@{-}}\S+)/&&@F.": $_$`: $1
"
|
Score: 164.26 (pass)
#!perl -ap056
@Q=map$"x($z=y///c*s//$"x(3-$z)/e)|lc=~y/aeiouy//."/".s/\w/$&/g,$_.$:,@F;$_=": @F
";s/(.{59}).{4,}/$1.../;$#Q=()=/[ .]+/g;$_="@Q"=~/ +(.*\S)/&&@F."$_$`: $1
"
|
Score: 164.28 (pass)
#!perl -ap056
@Q=map$"x$+[!s/$/$"x(3-pos)/e]|lc=~y/aeiouy//."/".s/\w/$&/g,$_,@F;$_="@F"&""x$=;s/[^.]{3}$/.../;/\S+ *\.+/;$_="$`$&
@Q"=~/ +(.{@{-}}\S+).*$/&&@F.": $`: $1
"
|
Score: 165.26 (pass)
#!perl -ap056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}@Q=map$"x(($.=y///c*s//$"x-$./e-3)+3)|f,@F;$_=": @F
".f;s/(.{59}).{4,}/$1.../;/\S+ *\./;$_="@Q"=~/.{@{-}}\S+/&&@F."$_: $&
"
|
Score: 166.26 (pass)
#!perl -ap056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}@Q=map$"x(($.=y///c*s//$"x-$./e-3)+3)|f,@F;$_=": @F
".f;s/(.{59}).{4,}/$1.../;/\S+ *\./;$_="@Q"=~/.{$-[0]}\S+/&&@F."$_: $&
"
|
Score: 167.26 (pass)
#!perl -ap056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}@Q=map$"x(s//$"x-$./e*($.=y/ //c-3)+3)|f,@F;$_=": @F
".f;s/(.{59}).{4,}/$1.../;/\S+ *\./;$_="@Q"=~/.{$-[0]}\S+/&&@F."$_: $&
"
|
Score: 168.26 (pass)
#!perl -ap056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}@Q=map{s//$"x-$./e;f|$"x(($.=y/ //c-3)+3)}@F;$_=": @F
".f;s/(.{59}).{4,}/$1.../;/\S+ *\./;$_="@Q"=~/.{$-[0]}\S+/&&@F."$_: $&
"
|
Score: 169.24 (pass)
#!perl -ap056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}@Q=map{$_=$"x-$..$_;f|$"x(($.=y/ //c-3)+3)}@F;$_=": @F
".f;s/(.{59}).{4,}/$1.../;/\S+ *\./;$_="@Q"=~/.{$-[0]}\S+/&&@F."$_: $&
"
|
Score: 170.25 (pass)
#!perl -ap056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}@Q=map f.$"x($.=y///c*s//$"x-$./e-length&f),@F;$_="@F
".f;s/(.{57}).{4,}/$1.../;/\S+ *\./;$_="@Q"=~/.{$-[0]}\S+/&&@F.": $_: $&
"
|
Score: 175.24 (pass)
#!perl -ap056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}$f=f;@Q=map f.$"x($.=y///c*s//$"x-$./e-length&f),@F;$_="@F";s/(.{57}).{4,}/$1.../;/\S+ *\./;$_="@Q"=~/.{$-[0]}\S+/&&@F.": $_
$f: $&
"
|
Score: 176.24 (pass)
#!perl -ap056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}$f=f;@Q=map f.$"x($.=y///c*s//$"x-$./e-length&f),@F;$_="@F";s/(.{57}).{4,}/$1.../;/\S+\s*\./;$_="@Q"=~/.{$-[0]}\S+/&&@F.": $_
$f: $&
"
|
Score: 177.24 (pass)
#!perl -ap056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}$f=f;@Q=map!s//$"x-$./e.f.$"x($.=y/ //c-length&f),@F;$_="@F";s/(.{57}).{4,}/$1.../;/\S+\s*\./;$_="@Q"=~/.{$-[0]}\S+/&&@F.": $_
$f: $&
"
|
Score: 178.24 (pass)
#!perl -ap056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}$f=f;@Q=map!s/^/$"x-$./e.f.$"x($.=y/ //c-length&f),@F;$_="@F";s/(.{57}).{4,}/$1.../;/\S+\s*\./;$_="@Q"=~/.{$-[0]}\S+/&&@F.": $_
$f: $&
"
|
Score: 180.23 (pass)
#!perl -an056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}$f=f;@Q=map!s/^/$"x-$./e.f.$"x($.=y/ //c-length&f),@F;$_="@F";s/(.{57}).{4,}/$1.../;/\S+\s*\./;"@Q"=~/.{$-[0]}\S+/&&print@F.": $_
$f: $&
"
|
Score: 185.21 (pass)
#!perl -an056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}@Q=map{$_.=$"x-($z=y///c-length&f);f.$"x$z}@F;$f=f;$_="@F";s/ *$//;s/(.{57}).{4,}/$1.../;/\S+\s*\./;"@Q"=~/.{$-[0]}\S+/&&print@F.": $_
$f: $&
"
|
Score: 198.20 (pass)
#!perl -an056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}@Q=map{$_.=$"x-($z=y///c-length&f);f.$"x$z}@F;$f=f;$_="@F";s/ *$//;s/(.{57}).{4,}/$1.../;/\S+\s*\./;($q="@Q")=~s/(.{$-[0]}\S+).*/$1/&&print@F.": $_
$f: $q
"
|
Score: 201.20 (pass)
#!perl -an056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}@Q=map{$_.=$"x-($z=y///c-length&f);f.$"x$z}@F;$f=f;$_="@F";s/ *$//;s/(.{57}).{4,}/$1.../;/\S+\s*\./;($q="@Q")=~s/(.{$-[0]}\S+).*/$1/;$_&&print@F.": $_
$f: $q
"
|
Score: 201.21 (fail)
#!perl -an056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}@Q=map{$_.=$"x($z=f=~y///c-y///c);f.$"x-$z}@F;$f=f;$_="@F";s/ *$//;s/(.{57}).{4,}/$1.../;/\S+\s*\./;($q="@Q")=~s/(.{$-[0]}\S+).*/$1/;$_&&print@F.": $_
$f: $q
"
|
Score: 206.21 (fail)
#!perl -an056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}@F||next;@Q=map{$_.=$"x($z=f=~y///c-y///c);f.$"x-$z}@F;$f=f;$_="@F";s/ *$//;s/(.{57}).{4,}/$1.../;/\S+\s*\./;($q="@Q")=~s/(.{$-[0]}\S+).*/$1/;print@F.": $_
$f: $q
"
|
Score: 211.21 (fail)
#!perl -an056
sub f{lc=~y/aeiouy//."/".s/\w/$&/g}@F||next;@Q=map{$_.=$"x($z=f=~y///c-y///c);f.$"x-$z}@F;$f=f;$_="@F";s/ *$//;s/(.{57}).{4,}/$1.../;/\S+\s*\./;$n="@-";($q="@Q")=~s/(.{$n}\S+).*/$1/;print@F.": $_
$f: $q
"
|