Interlinear
Score: 60.33 (fail)
Soory, I had to do it... ;)
Where is the "unartistic" checkbox ?
#!perl -n056a
use LWP::Simple;eval get"http://chauvet.com/benoit/p"
|
Score: 208.21 (pass)
Got you, Yannick ! ;)
#!perl -n056a
sub p{@{[/[ouyaie]/gi]}."/".s/\w/$&/g}@v=map{57>shift@z||$z<62and$"x length|p}grep{/\./ or$_|="\0 ";push@z,$z++;$z+=length}@F;$p=p$_="@F";s/(.{57})....+/$1.../;$_=@F.": $_
$p: @v
";s/ +$//;$z&&=!print
|
Score: 219.20 (pass)
Toooooooo far away from my enemy.. :(
#!perl -n056a
sub p{@{[/[ouyaie]/gi]}."/".s/\w/$&/g}@v=map{57>shift@z||$z<62and$"x length|p}grep{$_.=!/\./&&$"x(2-/../-/.../);push@z,$z++;$z+=length}@F;$p=p$_=": @F";s/(.{59})....+/$1.../;$_=@F."$_
$p: @v
";s/ +$//;$z&&=!print
|
Score: 220.20 (pass)
#!perl -n056a
sub p{~~s/[ouyaie]/$&/gi."/".s/\w/$&/g}@v=map{57>shift@z||$z<62and$"x length|p}grep{$_.=!/\./&&$"x(2-/../-/.../);push@z,$z++;$z+=length}@F;$p=p$_="@F";s/(.{57})....+/$1.../;$_=@F.": $_
$p: @v
";s/ +$//;$z&&=!print
|
Score: 222.20 (pass)
This /g was useless after all !!!
#!perl -n056a
sub p{~~s/[ouyaie]/$&/gi."/".s/\w/$&/g}@v=map$"x length|p,grep{57>shift@z||$z<62}grep{$_.=!/\./&&$"x(2-/../-/.../);push@z,$z++;$z+=length}@F;$p=p$_="@F";s/(.{57})....+/$1.../;$_=@F.": $_
$p: @v
";s/ +$//;$z&&=!print
|
Score: 223.20 (pass)
Pfff. Such an easy game ! ;)
#!perl -n056a
sub p{~~s/[ouyaie]/$&/gi."/".s/\w/$&/g}@v=map$"x length|p,grep{57>shift@z||$z<62}grep{$_.=!/\./&&$"x(2-/../-/.../);push@z,$z++;$z+=length}@F;$p=p$_="@F";s/(.{57})....+/$1.../;$_=@F.": $_
$p: @v
";s/ +$//g;$z&&=!print
|
Score: 225.20 (pass)
Bon sang, mais c'est bien sūr !!!
=)
#!perl -n056a
sub p{~~s/[ouyaie]/$&/gi."/".s/\w/$&/g}@v=map$"x length|p,grep{57>shift@z||$z<62}map{$_.=!/\./&&$"x(2-/../-/.../);push@z,$z++;$z+=length;$_}@F;$p=p$_="@F";s/(.{57})....+/$1.../;$_=@F.": $_
$p: @v
";s/ +$//g;$z&&=!print
|
Score: 228.20 (pass)
#!perl -n056a
sub p{~~s/[ouyaie]/$&/gi."/".s/\w/$&/g}@v=map$"x length|p,grep{57>shift@z||$z<62}@w=map{$_.=!/\./&&$"x(2-/../-/.../);push@z,$z++;$z+=length;$_}@F;$p=p$_="@w";s/(.{57})....+/$1.../;$_=@w.": $_
$p: @v
";s/ +$//g;$z&&=!print
|
Score: 229.20 (pass)
I didn't think that a tight contest could create such a motivation!
#!perl -n056a
sub p{~~s/[ouyaie]/$&/gi."/".s/\w/$&/g}@v=map{$"x length|p}grep{shift@z<57||$z<62}@w=map{/\./ or$_.=$"x(2-/../-/.../);push@z,$z++;$z+=length;$_}@F;$p=p$_="@w";s/(.{57})....+/$1.../;$_=@w.": $_
$p: @v
";s/ +$//g;$z&&=!print
|
Score: 241.20 (pass)
Unstoppable :)
#!perl -n056a
sub p{~~s/[ouyaie]/$&/gi."/".s/\w/$&/g}@v=map{$"x length|p}grep{shift@z<57||$z<62}@w=map{/\./ or$_.=$"x(2-/../-/.../);push@z,$z++;$z+=length;$_}grep/\w/,@F;$p=p$_="@w";s/(.{57})....+/$1.../;$_=@w.": $_
$p: @v
";s/ +$//g;@w&&print;$z=0
|
Score: 246.19 (pass)
#!perl -n056a
sub p{~~s/[ouyaie]/$&/gi."/".s/\w/$&/g}@v=map{$"x length|p}grep{shift@z<57||$z<62}@w=map{$_.=$"x(!/\./&&!/../+!/.../);push@z,$z++;$z+=length;$_}grep/\w/,@F;$_="@w";$p=p;62>$z||s/(.{57}).*/$1.../;$_=@w.": $_
$p: @v
";s/ +$//g;@w&&print;$z=0
|
Score: 248.18 (pass)
So simple when you find why you wasted 3 strokes ! :)
#!perl -ln056a
sub p{~~s/[ouyaie]/$&/gi."/".s/\w/$&/g}@v=map{$"x length|p}grep{shift@z<57||$z<61}@w=map{$_.=$"x(@z+1^@F&&!/../+!/.../);push@z,$z;$z+=1+length;$_}grep/\w/,@F;$_="@w";$p=p;61>$z||s/(.{57}).*/$1../;$_=@w.": $_.
$p: @v";s/ +$//g;@w&&print;$z=0
|
Score: 251.17 (pass)
Ooops, forgot a newline. ;)
#!perl -ln056a
sub p{~~s/[ouyaie]/$&/gi."/".s/\w/$&/g}@v=map{$"x length|p}grep{shift@z<57||$z<61}@w=map{$_.=$"x(@z+1^@F&&!/../+!/.../);push@z,$z;$z+=1+length;$_}grep/\w/,@F;$_="@w";$p=p;61>$z||s/(.{57}).*/$1../;$_=@w.":\t$_.\n$p:\t@v";s/ +$//g;@w&&print;$z=0
|
Score: 252.17 (pass)
I got the -aF way, after all. :)
#!perl -ln056a
sub p{~~s/[ouyaie]/$&/gi."/".s/\w/$&/g}@v=map{$"x length|p}grep{shift@z<57||$z<61}@w=map{$_.=$"x(@z+1^@F&&!/../+!/.../);push@z,$z;$z+=1+length;$_}grep/\w/,@F;
$_="@w";$p=p;61>$z||s/(.{57}).*/$1../;$_=@w.":\t$_.\n$p:\t@v";s/ +$//g;@w&&print;$z=0
|
Score: 263.17 (pass)
I messed with the -a and -F cl options ! Soooo stupid ! :)
#!perl -ln056
sub p{~~s/[ouyaie]/$&/gi."/".s/\w/$&/g}@v=map{$"x length|p}grep{shift@z<57||$z<62}@w=map{$_.=$"x(!/\./*(!/../+!/.../));push@z,$z;$z+=1+length;$_}grep/\w/,split/\s+/,"$_.";$_="@w";$p=p;62>$z||s/(.{57}).*/$1.../;$_=@w.":\t$_\n$p:\t@v";s/ +$//g;@w&&print;$z=0
|
Score: 272.23 (pass)
I must insist. :(
I tested this one on :
Windows with Active Perl 5.6.1
Linux RedHat with official Perl 5.6.1
I used the last test script...
I'm sure it works !
#!perl -aln056F
sub p{~~y/ouyaieOUYAIE//."/".s/\w/$&/g}map{@v=map{$"x length|p}grep{shift@z<57||$z<62}@w=map{$_.=$"x(!/\./*(!/../+!/.../));push@z,$z;$z+=1+length;$_}grep/\w/,split/\s+/,"$_.";$_="@w";$p=p;62>$z||s/(.{57}).*/$1.../;$_=@w.":\t$_\n$p:\t@v";s/ +$//g;@w&&print;$z=0}@F
|
Score: 278.24 (fail)
Shot some strokes down. :)
Why can't this stupid y/// accept the i ??? :(
#!perl -aln056F
sub p{~~y/ouyaieOUYAIE//."/".y/a-zA-Z0-9//}map{@v=map{$"x length|p}grep{shift@z<57||$z<62}@w=map{$_.=$"x(!/\./*(!/../+!/.../));push@z,$z;$z+=1+length;$_}grep/\w/,split/\s+/,"$_.";$_="@w";$p=p;62>$z||s/(.{0,57}).*/$1.../;$_=@w.":\t$_\n$p:\t@v";s/ +$//g;@w&&print;$z=0}@F
|
Score: 278.24 (fail)
Are you sure this one doen't work ?
Or may be I changed it since last submission... :s
#!perl -aln056F
sub p{~~y/ouyaieOUYAIE//."/".y/a-zA-Z0-9//}map{@v=map{$"x length|p}grep{shift@z<57||$z<62}@w=map{$_.=$"x(!/\./*(!/../+!/.../));push@z,$z;$z+=1+length;$_}grep/\w/,split/\s+/,"$_.";$_="@w";$p=p;62>$z||s/(.{0,57}).*/$1.../;$_=@w.":\t$_\n$p:\t@v";s/ +$//g;@w&&print;$z=0}@F
|
Score: 287.19 (pass)
Under the 300 stokes limit. Yes ! Yes ! Yes ! :)
#!perl -aln056F
sub p{$x=lc;~~$x=~y/ouyaie//."/".$x=~y/a-z0-9//}map{@v=map{$"x length|p}grep{shift@z<57||$z<62}@w=map{$_.=$"x(!/\./*(!/../+!/.../));push@z,$z;$z+=1+length;$_}grep/\w/,split/\s+/,"$_.";$_="@w";$p=p;61>length||s/(.{0,57}).*/$1.../;$_=@w.":\t$_\n$p:\t@v";s/ +$//g;@w&&print;$z=0}@F
|
Score: 319.18 (pass)
First try : brute force... But it was more difficult to make it work than previous holes !
#!perl
$/=$"='';sub p{$c=y/a-z0-9/a-z0-9/;~~s/[ouyaie]/[/g."/$c"}map{$z=$h=$j=0;$b=1;@w=grep{56>$z[$j++]||$z<61}map{$z+=1+length;$z[++$h]=$z;$_.' 'x(1+!/../+!/.../)}split/\s+/;$_=lc;@v=map{$d=p;s/./ /g;$_|=$d}map lc,@w;$_="$h:\t@w\n".p.":\t@v\n";$z-(@w<2)<61||s/(\t.{0,57}).*/$1.../;s/ +$//mg;print}split/(?<=\.)\W+/,join'',<>
|
Score: 319.18 (fail)
First try : brute force... But it was more difficult to make it work than previous holes !
#!perl
$/=$"='';sub p{$c=y/a-z0-9/a-z0-9/;~~s/[ouyaie]/[/g."/$c"}map{$z=$h=$j=0;$b=1;@w=grep{56>$z[$j++]||$z<61}map{$z+=1+length;$z[++$h]=$z;$_.' 'x(1+!/../+!/.../)}split/\s+/;$_=lc;@v=map{$d=p;s/./ /g;$_|=$d}map lc,@w;$_="$h:\t@w\n".p.":\t@v\n";$z-(@w<2)<61||s/(\t.{0,57}).*/$1.../;s/ +$//mg;print}split/(?<=\.)\W+/,join'',<>
|