[Vienna-pm] computerbox knobelei - golf?

Leopold Toetsch lt at toetsch.at
Wed Feb 2 01:52:44 PST 2005


Stefan Weiss wrote:
> Moin.
> 
> Weils noch zu früh ist, um was gscheits zu arbeiten...

Genau.

> On 2005-02-01 20:27, Karlheinz Zoechling wrote:
> 
>>perl -F// -lane 'print (((join "", map { $_ * 1 } (@F = reverse split //, abs
>>($_ - join "", reverse @F))[0..2]) + join "", reverse map { $_ * 1 } @F[0..2])
>>== 1089 ? "ja" : "nein")'
>>
>>das ist uebrigens mein erster halbwegs ernsthafter versuch in perlgolf / obfu, 
>>also bitte nicht gleich in der luft zerreissen. ;-)

Nich schlecht, etwas länglich halt ;)

> Perlgolf ist mir neu, klingt lustig. Das Zusammensetzen der Ziffern in
> @F geht einfacher, wenn man $" auf "" setzt:
> 
> perl -F//
> -lane'$"="";@x=split//,"@F"-"@{[reverse at F]}";print"@x"+"@{[reverse at x]}"==1089?"ja":"nein"'
> 
> (100 chars)

Schon ganz gut.

> Next!

perl -lne'sub _{/(.)(.)$/,"$2$1$`"}{$_-=_;print$_+_==1089?"ja":"nein"}

(72 char)

leo



More information about the Vienna-pm mailing list