scheme - 将元素插入列表列表中子列表的开头

Question

我的作业有点麻烦。我必须创建一个过程来请求一个列表列表和一个元素，然后将元素添加到每个子列表的第一个位置。我设法做到了，它看起来像这样:

(define (add-element lst elem)
   (foldr cons lst (list elem)))

(define (insert-first lst1 x)
  (cond
   [(empty? lst1) empty]
   [else (local [(define insert (add-element(first lst1) x))]
        (cons insert (insert-first (rest lst1) x)))]))

所以如果你输入 (insert-first '((a b) (c d)) 你最终会得到 (list (list 'x 'a 'b) (列出 'x'c'd))

唯一的问题是我需要使用 map 和 local 编写程序代码。后一个我认为我完成了，但我终究无法找到一种使用 map 的方法。

Answer 1

(define (insert-first elt lst)
  (map (lambda (x)
         (cons elt x))
       lst))

然后

(insert-first 'x '((a b) (c d)))
=> '((x a b) (x c d))