Im aware of the sort function, but I cant seem to get it to work.
Im trying to follow this guide: http://www.n-a-n-o.c...utorial-22.html
and this is my attempt
edit: there seems to be a bug in DIC. I dont have />, i have )
(defun roots (a b c) (sort '( (/(+ (* -1 B )(sqrt(- (expt b 2) (* 4 a c ) )))(* 2 a)) (/(- (* -1 B )(sqrt(- (expt b 2) (* 4 a c ) )))(* 2 a)) #'<) ) )
this is the error I get
*** - EVAL: too few arguments given to SORT: (SORT '((/ (+ (* -1


The following restarts are available:
ABORT :R1 Abort debug loop
ABORT :R2 Abort debug loop
ABORT :R3 Abort debug loop
ABORT :R4 Abort debug loop
ABORT :R5 Abort debug loop
ABORT :R6 Abort debug loop
ABORT :R7 Abort debug loop
ABORT :R8 Abort debug loop
ABORT :R9 Abort debug loop
ABORT :R10 Abort debug loop
ABORT :R11 Abort debug loop
ABORT :R12 Abort debug loop
ABORT :R13 Abort debug loop
ABORT :R14 Abort debug loop
ABORT :R15 Abort debug loop
ABORT :R16 Abort debug loop
ABORT :R17 Abort debug loop
ABORT :R18 Abort debug loop
ABORT :R19 Abort debug loop
ABORT :R20 Abort debug loop
ABORT :R21 Abort debug loop
ABORT :R22 Abort debug loop
ABORT :R23 Abort debug loop
ABORT :R24 Abort main loop
This post has been edited by NecroWinter: 17 January 2013 - 08:27 PM