vallog: [The Little Schemer]Numbers Games 3

2009/04/10

[The Little Schemer]Numbers Games 3

一応一通り書いたので、[The Little Schemer]Numbers Games 2で書いてない分を。

リストの長さを求める

(define length
(lambda (lat)
    (cond
     ((null? lat) 0)
     (else (add1 (length (cdr lat)))))))

指定した位置にある要素を求める（なぜかインデックスは0始まりでない）

(define pick
(lambda (n lat)
    (cond
     ((zero? (sub1 n))(car lat))
     (else (pick (sub1 n)(cdr lat))))))

指定した位置にある要素を除去したリストを求める

(define rempick
(lambda (n lat)
    (cond
     ((zero? (sub1 n))(cdr lat))
     (else (cons (car lat)
                 (rempick (sub1 n)
                          (cdr lat)))))))

リスト内の数値要素を除去したリストを求める

(define no-nums
(lambda (lat)
    (if (null? lat)
        '()
        (cond
         ((number? (car lat))
          (no-nums (cdr lat)))
         (else (cons (car lat)
                     (no-nums (cdr lat))))))))

リスト内で数値以外の要素を除去したリストを求める

(define all-nums
(lambda (lat)
    (if (null? lat)
        '()
        (cond
         ((number? (car lat))
          (cons (car lat)
                (all-nums (cdr lat))))
         (else (all-nums (cdr lat)))))))

atomの等値性を問う

(define egan?
(lambda (a1 a2)
    (cond
     ((and (number? a1)(number? a2))
      (equals? a1 a2))
     ((or (number? a1)(number? a2))
      #f)
     (else (eq? a1 a2)))))

リスト内で指定した要素の出現回数を求める

(define occur
(lambda (a lat)
    (cond
     ((null? lat) 0)
     (else
      (cond
       ((eq? (car lat) a)
        (add1 (occur a (cdr lat))))
       (else (occur a (cdr lat))))))))