[Vienna-pm] computerbox knobelei - golf?

[Karlheinz Zoechling]

hi,

ich schau gelegentlich bei der orf teletext computerbox vorbei - dort gibt's 
eine knobelei die ich mir manchmal "goenne". die aktuelle ist finde ich recht 
interessant - und eignet sich IMHO vorzueglich fuer eine runde golf / obfu. 
;-)

hier das problem:

http://teletext.orf.at/400/464_0002.htm

und mein "beitrag" dazu:

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

also, wer will mitspielen?

lg
karlheinz