[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