woensdag 7 mei 2008

6 mei: Marc wint de Anet uitdaging


Deze uitdaging liep nu al zo'n 2 weken: hoogtijd om een winnaar aan te duiden. De bedoeling was om een zo efficiƫnt en elegant mogelijk algoritme te ontwikkelen dat kon uitmaken of de inhoud van een M variabele nu een getal of een karakterrij bevat. Uiteindelijk werden 3 oplossingen weerhouden:

Alain: barok en onverwacht


def %IsNumber(x):
n ZA
q $e($na(ZA(x),1),4)'=""""


Richard: vernuftig en traag

def %IsNumber(x):
q $S(x="":0,x]]$C(0):0,1:x'=$C(0))


Marc: sober en elegant

def %IsNumber(x):
q x=+x


Marc is de onbetwiste winnaar en neemt een fles champagne mee naar huis.

Geen opmerkingen: