Question

假设我有以下列表：

(list '("a" 2) '("b" 1) '("c" 'end))

我想从第一个列表中获取两个列表，输出：

(list "a" "b" "c") and (list 2 1 'end)

我如何在Racket中做到这一点？

我想出了类似的东西：

(define first (mlist))
(define second (mlist))
(define (get-two-lists l)
  (for ([i t])
    (mappend! first (list-ref i 0))
    (mappend! second (list-ref i 1))))

输出给我空列表..

Answer 1

#lang racket
(define l (list '("a" 2) '("b" 1) '("c" 'end)))

(values (map first l)
        (map second l))

Answer 2

对于手动循环功能：

(define (f l)
  (let loop ((l l)
             (l1 '())
             (l2 '()))
    (if (empty? l)
        (values (reverse l1)
                (reverse l2))
        (loop (rest l)
              (cons (first (first l)) l1)
              (cons (second (first l)) l2) ))))

测试：

(f (list '("a" 2) '("b" 1) '("c" 'end)))

输出：

'("a" "b" "c")
'(2 1 'end)

从一个列表中获取两个列表

2 个答案: