Question: Quicksort in LISP using a shebang script Need help using this code with a shebang sbcl script as I recieve the error: {100194E7E3}>: READ error
Quicksort in LISP using a shebang script
Need help using this code with a shebang sbcl script as I recieve the error: {100194E7E3}>: READ error during LOAD: Package EXT does not exist.


Need help with creating the shebang script file and implementing the function
#!/usr/bin/clisp (defun quicksort (lst) (cond ((null lst) nil) (t (append (quicksort (left (car lst) (cdr lst))) (cons (car lst) nil) (quicksort (right (car lst) (cdr lst)))))))
(defun left (a b) (cond ((or (null a) (null b)) nil) ((
(defun right (a b) (cond ((or (null a) (null b)) nil) ((>= a (car b)) (right a (cdr b))) (t (cons (car b) (right a (cdr b))))))
(defun randlist (n) (let ((lst ())) (dotimes (i n) (setf lst (cons (random 101) lst))) lst))
(print (quicksort (randlist (parse-integer (FIRST EXT:*ARGS*)))))
Task Write a Lisp program that generates a list of n random numbers, sorts them using Quicksort, and prints out the sorted ist to the screen. Task Write a Lisp program that generates a list of n random numbers, sorts them using Quicksort, and prints out the sorted ist to the screen
Step by Step Solution
There are 3 Steps involved in it
Get step-by-step solutions from verified subject matter experts
