[Vienna-pm] computerbox knobelei - golf?

[Leopold Toetsch]

LAUN Wolfgang wrote:
> Und noch eine notwendige Korrektur:
> 
> perl -lne'sub _{/(.)(.)$/,$2.$1.($`||0)}{$_-=_;s/-//;print$_+_==1089?ja:nein}'

Ah ja, aber viiiel zu lang ;)

perl -lne'sub 
_{/(.)(.)$/,$2.$1.0+$`}$_-=_,s,-,,,print$_+_==1089?"ja":"nein"'
998
ja
001
ja
100
ja
333
nein

78 chars (incl \n am Ende)
leo