Новости Perlgolf

Wolong
, 26 April 2010

Результаты.

sum:

Alexey Udovenko, CIT - 16

$/=$";print<>+<>

madbe@jabber.cc - 17

$/=" ";print<>+<>

seenbe, Vulnbugs - 17

$/=" ";print<>+<>

417944388@qip.ru, ??? - 90

$s=<STDIN>;$p=index($s," ");$l=length($s);print substr($s,0,$p) + substr($s,$p+1,$l-$p-2);

radius:

Alexey Udovenko, CIT - 86

while(<>){split$";for$t(0..2){$s+=!${$l=\$a{$t+@_[0],$_+@_[1]}},$$l=1for 0..2}}print$s

madbe@jabber.cc - 88

for(<>){($a,$b)=split;for$c($a-1..$a+1){for($b-1..$b+1){$h{"$c;$_"}=1}}}print int keys%h

seenbe, Vulnbugs - 100

while(<>){($a,$b)=split;for$c($a-1..$a+1){for($b-1..$b+1){$d++if(!$h{$c}{$_});$h{$c}{$_}=1}}}print$d

flagfinder:

madbe@jabber.cc - 60

$\="\n";for(<>){print scalar reverse$&while(/[a-z\d]{32}/g)}

Alexey Udovenko, CIT - 60

s#[a-z\d]{32}#print join'',reverse(split'',$&),$/#ge while<>

inverse:

seenbe, Vulnbugs - 47

$i=0,s/./$_[$i++].=$&/egfor(<>);$,="\n";print@_

madbe@jabber.cc - 50

$i=0,s/./$a[$i++].=$&/egfor(<>);$\=$,="\n";print@a

Alexey Udovenko, CIT - 63

while(<>){chomp;split//;$p=0;$a[$p++].=$_ for@_}$"=$/;print"@a"

sum2:

Alexey Udovenko, CIT - 161

while(<>){chomp;$i=$j=0;@_=reverse split'';while($j<=$#_||$d){$a{$i}+=$_[$j++]+$d;$d=0;$d=1,$a{$i}-=10if$a{$i}>9;$i++}}print$a{$_}for reverse sort{$a<=>$b}keys%a

sum3:

Alexey Udovenko, CIT - 37

split(''),$s+=@_[$i++]while<>;print$s

Также хотелось бы отметить отличные, но не совсем подходящие по формату, решения ещё одного человека:

Dmitry Kornev:

1.pl (12):

-040p $_+=<>

2.pl (66):

-na for$z(-1..1){$h{$F[0]+$z,$F[1]+$_}=1 for-1..1}}{print 0+keys%h

3.pl (37):

-nl s/[a-z\d]{3}/print"".reverse$&/ge

4.pl (49):

-anF pop@F;$i=0;$a[$i++].=$_ for@F}{$,=$/;print@a

5.pl (112):

-anF pop@F;push@a,[reverse@F]}{for$x(0..$#{$a[0]}){$s+=$a[$_][$x]for

0..$#a;$_=($s%10).$_;$s=int$s/10}print$s.$_

6.pl (26):

-anF $s+=$F[$i++]}{print$s

сумма: 302

Статья в копируемом виде: http://dpaste.org/drOC/