[Vienna-pm] computerbox knobelei - golf?

[Thomas Klausner]

Hi!

On Wed, Feb 02, 2005 at 10:52:44AM +0100, Leopold Toetsch wrote:

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

Nett, regex statt ziffern-als-array 

Hmm, da fehlt ein ' am Ende

Ausserdem:

987
ja
789
nein

Entweder stimmt da was mit den Vorzeichen nicht, oder ich verstehe die
Aufgabe falsch.

(BTW, dieser Fehler (wenns einer ist) war schon in der ersten Version von khz)



-- 
#!/usr/bin/perl                               http://domm.zsi.at
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}