[Vienna-pm] computerbox knobelei - golf?
Karlheinz Zoechling
kh at dartbase.com
Tue Feb 1 11:27:39 PST 2005
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
More information about the Vienna-pm
mailing list