[Vienna-pm] computerbox knobelei - golf?

Leopold Toetsch lt at toetsch.at
Wed Feb 2 05:08:08 PST 2005


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



More information about the Vienna-pm mailing list