P16 (**) Drop every N'th element from a list.

问题描述

sash> (drop '(a b c d e f g h i k) 3)
sash> (a b d e g h k)

解法

(define drop
  (lambda (ls n)
    (let f ([s ls]
        [i 1])
      (cond
       [(null? s) '()]
       [(= i n) (f (cdr s) 1)]
       [else (cons (car s) (f (cdr s) (+ i 1)))]))))