;; key が lst の何番目 (nth) の要素かを返す関数
;; 先頭が 0 番目
(define (nth-of key lst)
 (let f ((nth 0)
         (l lst))
  (cond ((null? l) #f)
    ((equal? key (car l)) nth)
    (else (f (+ nth 1) (cdr l))))))


(nth-of 'code '(code name sort))
;; -> 0
(nth-of 'name '(code name sort))
;; -> 1
(nth-of 'price '(code name sort))
;; -> #f

#Scheme #Lisp #nth #named-let #Gauche

SN 2013/07/22 19:33:20

Archives > Scheme_nth_of.html