[Vienna-pm] computerbox knobelei - golf?

[LAUN Wolfgang]

Weil's wieder einmal typisch ist: Die ursrüngliche "Spezifikation" 
http://teletext.orf.at/400/464_0002.htm
ignoriert fröhlich den Fall, dass die Umkehrung der Ausgangszahl
größer als diese ist.

Mit kleinen Verbesserungen:

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

lg
Wolfgang


> -----Original Message-----
> From: Leopold Toetsch [mailto:lt at toetsch.at]
> Sent: Wednesday, February 02, 2005 10:53 AM
> To: vienna-pm at mail.pm.org
> Subject: Re: [Vienna-pm] computerbox knobelei - golf?
> 
> 
> 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"+"@{[rev
> erse at x]}"==1089?"ja":"nein"'
> > 
> > (100 chars)
> 
> Schon ganz gut.
> 
> > Next!
> 
> perl -lne'sub _{/(.)(.)$/,"$2$1$`"}{$_-=_;print$_+_==1089?"ja":"nein"}
> 
> (72 char)
> 
> leo
> 
> _______________________________________________
> Vienna-pm mailing list
> Vienna-pm at pm.org
> http://mail.pm.org/mailman/listinfo/vienna-pm
>