lisp - 我可以使用什么 Racket 函数将值插入列表中的任意位置？

Question

我知道这实现起来很简单，但我希望 Racket 能够兑现它“包含电池”的 promise 。我正在寻找一个像这样工作的函数:

> (define (between lst item spot)
    (append (take lst spot)
            (cons item (drop lst spot))))
> (between '(1 3) 2 1)
'(1 2 3)

Racket 是否包含任何此类内置函数？

Answer 1

这是一个基于 Stephen Chang 评论的实现(我稍微调换了参数顺序并重命名了函数):

(define (insert-at lst pos x)
  (define-values (before after) (split-at lst pos))
  (append before (cons x after)))