Использование схемы/racket для возврата определенных элементов из списка

Question

Что я хотел бы сделать, это создать функцию, которая принимает список значений и список символов и объединяет соответствующие символы («атомы», я думаю, они технически быть вызванными) в новый список.

Вот что я до сих пор;

#lang racket 
(define (find num char) 
    (if (= num 1) 
    (car char)         ;Problem here perhaps? 
    (find (- num 1) (cdr char)))) 


(define (test num char) 
    (if (null? num) 
    '("Done") 
    (list (find (car num) (test (cdr num) char))))) 

Это, однако, дает мне ошибку, которая по большей части я понимаю, что он говорит, но я не понимаю, что это неправильно, чтобы создать эту ошибку. Учитывая следующий простой ввод теста, это то, что я получаю

> (test '(2 1) '(a b c)) 

car: contract violation 
expected: pair? 
given: '() 

По существу, на выходе должен быть '(b a) вместо ошибки очевидно.

Небольшая помощь и руководство для пользователя новой схемы оценили бы!

EDIT:

Вот код, который я смог бежать.

#lang racket 

(define (find num char) 
    (cond ((empty? char) #f) 
    ((= num 1) (car char)) 
    (else (find (- num 1) (cdr char))))) 


(define (project num char) 
    (if (empty? num) 
    '() 
    (cons (find (car num) char) (project (cdr num) char)))) 

Answer 1

Процедура find в основном верно (хотя это в основном изобретать велосипед и делать то же самое, что list-ref делает, но хорошо ...) просто быть осторожным, и не забудьте рассмотреть случай, когда список пусто:

(define (find num char) 
    (cond ((empty? char) #f) 
     ((= num 1) (car char)) 
     (else (find (- num 1) (cdr char))))) 

project процедура, с другой стороны, это не совсем верно. Вы должны знать, как написать рецепт для итерации по списку и создания нового списка в качестве ответа. Я дам вам несколько советов, заполнить пробелы:

(define (project num char) 
    (if <???>     ; if num is empty 
     <???>     ; then we're done, return the empty list 
     (cons     ; otherwise cons 
     <???>     ; the desired value, hint: use find 
     (project <???> char)))) ; and advance the recursion 

Это должно сделать трюк:

(test '(2 1) '(a b c)) 
=> '(b a) 

Answer 2

Лучше поздно, чем никогда:

(define (coalesce nums chars) 
    (map (lambda (num) (list-ref chars (- num 1))) nums)) 

Answer 3

С функций высшего порядка

#lang racket 

(define (find num chars) 
    (cond ((empty? chars) #f) 
    ((= num 1) (car chars)) 
    (else (find (- num 1) (cdr chars))))) 

(define (project nums chars) 
(let ((do-it (lambda (num) (find num chars)))) 
    (map do-it nums)))