07/07/04 11:25:50
好みの分かれるところか？
(define (exclude-nth n l) (append (take l n) (drop l ( + n 1))))
(exclude-nth 3 '(0 1 2 3 4 5 6 7 8 9))
=>(0 1 2 4 5 6 7 8 9)
07/07/04 11:25:50
好みの分かれるところか？
(define (exclude-nth n l) (append (take l n) (drop l ( + n 1))))
(exclude-nth 3 '(0 1 2 3 4 5 6 7 8 9))
=>(0 1 2 4 5 6 7 8 9)