list标准函数的模拟

;反序 (  ) -> (  )
(define (rvs x)
  (let recur ((x x)(res '()))
    (if (null? x)
        res
        (recur (cdr x) (cons (car x) res)))))

;长度 (  ) ->
(define (len x)
  (let recur ((x x)(y ))
    (if (null? x)
        y
        (recur (cdr x) (+ y )))))

;合并列表 (x ...) (y ...) -> (x ... y ...)
(define (apd x y)
  (let recur ((x x))
    (if (null? x)
        y
        (cons (car x) (recur (cdr x))))))

;切割教程版
(define (tail x n)
  (if (zero? n)
      x
      (tail (cdr x) (- n ))))

;引用 (   )  ->
(define (ref x n)
  (if (=  n)
      (car x)
      (ref (cdr x) (- n ))))

;成员查询  (   ) -> (  )
(define (mem i x)
  (let recur ((x x))
    (if (null? x)
        #f
        (if (equal? (car x) i)
            x
            (recur (cdr x))))))

;类字典查询 k2 ((k1 v1)(k2 v2)(k3 v3)...) ->(k2 v2)
(define (asq k x)
  (let recur ((x x))
    (if (null? x)
        #f
        (if (equal? (caar x) k)
            (car x)
            (recur (cdr x))))))

(define x '(1 2 3 4))
(define y '(5 6 7 8))

(append x y)
(apd x y)
(length x)
(len x)
(reverse x)
(rvs x)
(list-tail '(1 2 3) 1)
(tail '(1 2 3) 1)
(list-ref '(1 2 3) 2)
(ref '(1 2 3) 2)
(member  '(1 2 3 4))
(mem  '(1 2 3 4))
(assv  '((2 3) (5 7) (11 13)))
(asq  '((2 3) (5 7) (11 13))) 

结果:

(       )
(       )

(   )
(   )
( )
( )

(  )
(  )
( )
( )
>