[lnkForumImage]
TotalShareware - Download Free Software
Confronta i prezzi di migliaia di prodotti.
Asp Forum
 Home | Login | Register | Search 


 

Forums >

comp.lang.lisp

Re: value not reinitialized on subsequent function calls

William James

8/22/2015 12:27:00 PM

Kenneth Tilton wrote:

> > You need to have some sort of list copy on base-counts
> > to protect the data from the destructive modification.
> >
> > e.g.,
> > (let ((base-counts (list (list 'a 0) (list 'c 0) (list 'g 0) (list t 0)))
>
> or:
>
> (let ((base-counts (loop for base in '(a c g tee)
> collecting (list base 0))))...
>
> Not that 't is not a nice symbol. I don't know, maybe there would be no
> ill consequences. Well, if you forget to quote the other three there
> would likely be a compiler warning, but t would not.
>
> btw, if loop seems too advanced:
>
> (mapcar (lambda (base) (list base 0))
> '(a c g tee))

Gauche Scheme:

(map (cut list <> 0) '(a c g t))

--
The figures on Muslim rape of Western women in Europe are astounding. In
Denmark and Norway, between 65% and 70% of all rapes are committed by Muslims,
who as yet still less than 5% of the population. One local judge in Norway
actually exonerated one rapist by accepting his defense that the victim's dress
was taken by him to mean that she was egging him on.
http://fjordman.blogspot.com/2005/08/rape-nothing-to-do-with-...