Ok, one more char.
#!perl -apl
map{s/ho|^m|^b/${$&}=$r;$r=0/e;$t=11;for$q qw(el te ni e se s fi f th tw o z){s/^$q/$t/;$t--}$r=($r+($_+/te|lv/*10)*10**/y/)*100**/hu/}@F;$_=sprintf",%03d"x4,$b,$m,$ho,$r;s/[0,]+//;$_||=0
|
What trick(s) did I miss?
#!perl -apl
map{s/ho|^m|^b/${$&}=$r;$r=0/e;$t=11;for$q qw(el te ni e se s fi f th tw o z){s/^$q/$t/;$t--}$r=($r+($_+/te|lv/*10)*10**/y/)*100**/hu/}@F;$_=sprintf",%03d"x4,$b,$m,$ho,$r;s/^[0,]+//;$_||=0
|
Why didn't I see this () before? So easy....
#!perl -apl
map{s/ho|^m|^b/${$&}=$r;$r=0/e;$t=12;for$q qw(twel el te ni e se s fi f th tw o z){s/^$q/$t/;$t--}$r=($r+($_+/te/*10)*10**/y/)*100**/hu/}@F;$_=sprintf",%03d"x4,$b,$m,$ho,$r;s/^[0,]+//;$_||=0
|
yeah! less than 200!
told you
#!perl -apl
map{s/ho|^m|^b/${$&}=$r;$r=0/e;$t=12;for$q qw(twel el te ni e se s fi f th tw o z){s/^$q/$t/;$t--}$r=($r+($_+/te/*10)*10**/y/)*100**/hu/}@F;$_=sprintf(",%03d"x4,$b,$m,$ho,$r);s/(0*,?)*//;$_||=0
|
two more to go! You can do it!
#!perl -apl
map{s/ho|mi|bi/${$&}=$r;$r=0/e;$t=12;for$q qw(twel el te ni ei se s fi f th tw o z){s/^$q/$t/;$t--}$r=($r+($_+/te/*10)*10**/y/)*100**/hu/}@F;$_=sprintf(",%03d"x4,$bi,$mi,$ho,$r);s/(0*,?)*//;$_||=0
|
Getting close to the 200 barrier. Like that wil help me win :-(
At least you're equal with the original BoB now
#!perl -apl
map{s/ho|mi|bi/${$&}=$r;$r=0/e;for$q qw(z o tw th fo f si s ei n te el){s/^$q/$t/;$t++};$t=s/.*lv/12/;$r+=($_+/tee/*10)*10**/y/;$r*=100**/hu/;}@F;$_=sprintf(",%03d"x4,$bi,$mi,$ho,$r);s/(0*,?)*//;s/^$/0/;
|
#!perl -apl
map{s/ho|mi|bi/${$&}=$r;$r=0/e;$t=s/.*lv/12/;for$q qw(z o tw th fo fi si se ei n te el){s/^$q/$t/;$t++};$r+=($_+(/tee/?10:0))*(/y/?10:1);$r*=/hu/?100:1;}@F;$_=$bi*1e9+$mi*1e6+$ho*1e3+$r;while(s/(?<=\d).{3}($|,)/,$&/){}
|
useless use of assignment.....
#!perl -apl
map{$t=1;for$q qw(ho mi bi){s/$q/$s+=$r*10**($t*3);$r=0/e;$t++}$f=/y/?10:1;$p=/tee/?10:0;$t=s/.*lv/12/;for$q qw(z o tw th fo fi si se ei n te el){s/^$q.*/$t/;$t++};$r+=($_+$p)*$f;$r*=/hu/?100:1;}@F;$_=$r+$s;while(s/(?<=\d).{3}($|,)/,$&/){}
|
#!perl -apl
@a=qw(z o tw th fo fi si se ei n te el);map{$t=1;for$q(qw(ho mi bi)){s/$q/$s+=$r*10**($t*3);$r=0/e;$t++}$f=/y/?10:1;$p=/tee/?10:0;$t=s/.*lv/12/;for$q(@a){s/^$q.*/$t/;$t++};$r+=($_+$p)*$f;$r*=/hu/?100:1;}@F;$_=$r+$s;while(s/(?<=\d).{3}($|,)/,$&/){}
|
#!perl -apl
@a=qw(z o tw th fo fi si se ei n te el);@b=qw(ho mi bi);map{$t=1;for$q(@b){s/$q/$s+=$r*10**($t*3);$r=0/e;$t++}$f=/y/?10:1;$p=/tee/?10:0;$t=s/.*lv/12/;for$q(@a){s/^$q.*/$t/;$t++};$r+=($_+$p)*$f;$r*=/hu/?100:1;}@F;$_=$r+$s;while(s/(?<=\d).{3}($|,)/,$&/){}
|