Wie bekomme ich N erstes Element einer Liste

Question

Ich möchte eine Funktion machen, um das N-te erste Element einer Liste zu bekommen.

Zum Beispiel:

>>(firsts 3 '(a b c d e)) 

Rückkehr: (abc)

ich gemacht, dass:

(define (firsts number lst) 
    (let ((maliste '())) 
     (if (equal? 0 number) 
      maliste 
      (and (set! maliste (cons (car lst) maliste)) (firsts (- number 1) (cdr lst)))))) 

Aber es funktioniert nicht, ich glaube, ich let verwenden sollte, aber ich Ich weiß nicht wie.

Danke.

Answer 1

Es ist viel einfacher, erinnern Sie sich - Sie sollten versuchen, funktional zu denken. In Lisp wird unter Verwendung von set! (oder anderen Operationen, die den Status mutieren) abgeraten, eine rekursive Lösung ist der natürliche Ansatz. Unter der Annahme, dass die Liste genügend Elemente hat, sollte dies funktionieren:

(define (firsts number lst) 
    ; as an exercise: add an extra condition for handling the 
    ; case when the list is empty before the number is zero 
    (if (equal? 0 number) 
     '() 
     (cons (car lst) 
      (firsts (- number 1) (cdr lst)))))