suzanne.soy/2010-m1s1-compilation
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fusion de fonctions-utiles et util.lisp .

Browse Source
This commit is contained in:
Georges Dupéron 2010-11-02 01:43:45 +01:00
parent f9e9741a7f
commit a71ac81634
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fonctions-utiles
View File

@ -1,8 +0,0 @@
(rplacd x val) = (setf (cdr x) val)
(rplaca x val) = (setf (car x) val)
(intersection l1 l2) = évident
(acons clé valeur liste-associative) = (cons (cons clé valeur) liste-associative) ;; Ne gère pas les doublons !!!
(push x liste) = (setf liste (cons x liste))
(remove-if-not predicate list) filtre la liste en fonction de predicate.
(incf x) incrémente x, (decf x) décrémente x.
(loop ......) lire la doc...

12
util.lisp
View File

@ -1,3 +1,15 @@
;; Fonctions utiles
;; Liste de quelques fonctions pratiques de LISP :
;; (rplacd x val) = (setf (cdr x) val)
;; (rplaca x val) = (setf (car x) val)
;; (intersection l1 l2) = évident
;; (acons clé valeur liste-associative) = (cons (cons clé valeur) liste-associative) ;; Ne gère pas les doublons et ne fait pas de setf.
;; (push x liste) = (setf liste (cons x liste))
;; (remove-if-not predicate list) filtre la liste en fonction de predicate.
;; (incf x) incrémente x, (decf x) décrémente x.
;; (loop ......) lire la doc...
(defmacro aset (k v alist)
`(let ((my-k ,k)
(my-v ,v))