[Vienna-pm] computerbox knobelei - golf?

[Stefan Weiss]

Moin.

Weils noch zu früh ist, um was gscheits zu arbeiten...

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. ;-)

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)

Oder wenn man keine Ausgabe braucht:

perl -F// -lane '$"="";@x=split//,"@F"-"@{[reverse at F]}";exit
int("@x"+"@{[reverse at x]}"!=1089)'

(93 chars)


Next!

cheers,
stefan