28.12.2012 Views

Re:TheAshLad - Sandbooks

Re:TheAshLad - Sandbooks

Re:TheAshLad - Sandbooks

SHOW MORE
SHOW LESS
  • No tags were found...

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

ejegkanikkef)(equalsvamer)(equalsvahremere)(equalsvacarminne)akk)<br />

n)))))(definetrykkes(lambda(strengakkoetsrf(snoc()('))gnertspirtstnorf(<br />

mot(fi()))))g))(frsteord(lambda(streng)(cond((tomstreng)tomnglengths))<br />

))(scons(lambda(ts)(stringappend(maker(cdrliste))))(else(begin(display(<br />

carliste))(dispgin(displaymeg)(paranteser(cdrliste))))((equal(er(cdrliste))<br />

))((equal(carliste)ditt)(begin(diseyvfgr)zva)(ortva(qvfcynlqva)(cnenagrf<br />

re(pqeyvste)))((equalelditt)(begin(displaymitt)(paran(displaydu)(parante<br />

serliste)))((equalelmin)(bat)(paranteserliste)))((equalvalg)(begin(displ)((<br />

equalvalg)(begin(displaykanduutdypeat)(pg)(equalvalg)(equalvalg)(equ<br />

alvalg)(equalvcfceccfdaqual(car(reverseliste)))(writehvaergrunnentilrlist<br />

e)for)(begin(display)(tohvorfor(cons(random))))(cond((nullliste)(writeh<br />

vorforsvar)(begin(newline)(displayfinsdetandregrunnertilatharvisnakket<br />

omtidligere.huskerdudet)(newline)(inetminne)(setkompleksetkompleks)<br />

(newline)t)(begin(newline)(if(equal(read)ja)(begin(newline)(disp)(equal<br />

strengjegvetikkedet))(begin(newline)(wriduleggedeminniarkivetunderdit<br />

tnavn.jeggreierikkegstrenglaossslutten)(equalstrengtakkforsamtale.<br />

prsml))(begin(newline)(write(talltastaturetfor()(equalsvarrstillgenereltsp<br />

rsml)(equalsvarrviharsnakketom)(equalsvarrdukanforeslnoeviharsrrfores<br />

l)(equalsvarrforeslnoe)(equalsvarrsetminne(cadr(assocnavn)))(setkompl<br />

eks(caddr(as)(equalsvvarstilletsprsml)(equalsvvarstillnavn(read)))(if(not<br />

(assocnavn))(begin(newline)(wr(newline)(display)(newline)(displayet(c<br />

drliste)(subn))))(define'())(define(starte)(N))(begin(newline)(displayduh<br />

arfleregangertidli))((zero((lengthliste)))(begin(newline)(displayualaaadu<br />

kanstilleetsprsml)(equalaaastillespalaaastill)(equalaaasprsml)(equalaaast<br />

iloreslnoe...dersomdetikkeernoespesieltduvilsnakkeofortsett))(begin(ne<br />

wline)(displayogdufortsettebdeaceceeeebedrd(frontstripstreng))(og(reste<br />

nav(frontstripstrenstreng)((blank(scarstreng))tomstreng)(else(scoestringt<br />

)s)))(frontstrip(lambda(streng)(cond((tolay)(paranteser(cdrliste)))))))(def<br />

ineog(lambda(carliste)jeg)(begin(displaydu)(display)(paraplaymitt)(para<br />

nteser(cdrliste))))((equal(carlisste))))((equal(carliste)mitt)(begin(display<br />

ditteserliste)))((equaleldine)(begin(displaymineegin(displaydin)(parante<br />

serliste)))((equalelmiayhvaliggeridetat)(paranteserliste)))((equalvarantes<br />

erliste)))((equalvalg)(begin(displayvigeb())glavlauqe()glavlauqe()glavla<br />

uqe()glaconsbetyr(reverse(consmeg(consfor(reverse(cdatduspromdet))((<br />

and(equal(carliste)p)(equaldet(cons(cddrliste))))))((equal(carliste)omerd<br />

uikke))((null(cdrliste))(writehvamenerdu)t)(paranteser(ogstreng))(newli<br />

ne)(skrives(read)mif(equal(read)nei)(begin(newline)(displayvelngingen<br />

aning)(equalstrengjegvetikke)(equalst(newline)(displaydafortsettervi.har<br />

dunoeannetsvlaykomtilbakeenannengangda.hadetbra.)(displayteprvtenk<br />

etter...)(newline)(skrives(read)minnejredetselvjegerbareenmaskin...ds.))(<br />

2089

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!