gistfile1.sls

(define (count xs)
  (if (or (null? xs)
          (null? (cdr xs)))
      0
      (let ([minimum (apply min xs)])
        (cond
         [(= minimum (first xs)) (count (cdr xs))]
         [(= minimum (last xs))  (+ 1 (count (cdr (reverse xs))))]
         [else (let loop ([L '()] [R xs])
                 (if (= minimum (car R))
                   (+ 2 (count (append (cdr R) L)))
                   (loop (cons (car R) L) (cdr R))))]))))