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