Racket/Scheme 在现有列表中嵌入列表

Question

我正在尝试将列表嵌入到现有列表中，问题在下面进行了说明。

列表 1

bla
bla
bla
bla

列表 2

useful stuff
is here

当我的函数迭代 list1 时，它会选择一个随机点，然后插入：

useful stuff
is here

问题是 list2 现在看起来像：

bla
bla
useful stuff is here
bla
bla

而不是：

bla
bla
useful stuff 
is here
bla
bla

我完全糊涂了，我用谷歌搜索并阅读了文档，但我就是找不到答案，我尝试的一切都失败了。

Answer 1

#lang racket
(define list1 '("bla" "bla" "bla" "bla"))
(define list2 '("useful stuff" "is here"))

(define insertion-point (random (length list1)))

(append (take list1 insertion-point)
        list2
        (drop list1 insertion-point))

第一个运行的结果：

'("bla" "useful stuff" "is here" "bla" "bla" "bla")

Racket/Scheme 在现有列表中嵌入列表

Racket/Scheme embed list within existing list

racket