re: Advice for a new lisper

Kenny Tilton wrote:

(defun straightp (hand)
    (if (null (cdr hand))
        t
      (and (= (caar hand) (- (caadr hand) 1)) (straightp (cdr hand)))))

 
Not bad, except of course for the caar/caadr thing. Lisniks have an
irrational bias against recursion where iteration will do, so if they
turn on you just come back with:
 
       (loop for (c1 c2) on hand
             unless c2 return t
             unless <in order> return nil)

Gauche Scheme

;; Not a fully functional procedure; just for testing.
(define (in-order a b) (= 1 (- b a)))

(define (straight? hand)
  (every
    in-order
    hand
    (cdr hand)))