mirror of
https://github.com/dschmenk/PLASMA.git
synced 2024-09-16 09:56:58 +00:00
Fix minmax.lisp example
This commit is contained in:
parent
54b36f9ef7
commit
c3ea787808
Binary file not shown.
@ -1,7 +1,7 @@
|
|||||||
(DEFINE
|
(DEFINE
|
||||||
(MINL (LAMBDA (M L)
|
(MINL (LAMBDA (M L)
|
||||||
(COND ((NULL L), M)
|
(COND ((NULL L), M)
|
||||||
((< M (CAR L), (MINL M (CDR L))))
|
((< M (CAR L)), (MINL M (CDR L)))
|
||||||
(T, (MINL (CAR L) (CDR L)))
|
(T, (MINL (CAR L) (CDR L)))
|
||||||
))
|
))
|
||||||
)
|
)
|
||||||
@ -13,7 +13,7 @@
|
|||||||
)
|
)
|
||||||
(MAXL (LAMBDA (M L)
|
(MAXL (LAMBDA (M L)
|
||||||
(COND ((NULL L), M)
|
(COND ((NULL L), M)
|
||||||
((> M (CAR L), (MINL M (CDR L))))
|
((> M (CAR L)), (MINL M (CDR L)))
|
||||||
(T, (MINL (CAR L) (CDR L)))
|
(T, (MINL (CAR L) (CDR L)))
|
||||||
))
|
))
|
||||||
)
|
)
|
||||||
|
Loading…
Reference in New Issue
Block a user