Using 'ash' in LISP to perform a binary search?
问题 So, I'm reading Land of Lisp now, and Lisp is turning out to be quite different than other programming languages that I've seen. Anyways, the book provides some code that we're meant to enter into the CLISP REPL: (defparameter *small* 1) (defparameter *big* 100) (defun guess-my-number () (ash (+ *small* *big*) -1)) (defun smaller () (setf *big* (1- (guess-my-number))) (guess-my-number)) (defun bigger () (setf *small* (1+ (guess-my-number))) (guess-my-number)) Now, the basic goal is to create