ordre d'exécution des commandes dans le schéma

Question

Je suis en train d'écrire un programme dans le schéma, qui utilise la récursivité pour marcher dans la liste, et arrêter à un certain pointeur, lorsque le compteur atteint un certain nombre N

(define (functX N lst) 
    (define counter 1) 
    (cond 
    [(empty? lst) empty] 
    [(negative? N) empty] 
    [(< (length lst) N) empty] 
    [(<= counter N) ((set! counter (+ counter 1))(cons (first lst) (functX N (rest lst)))))] 
    [else empty])) 

Je ne Je comprends, pourquoi la deuxième ligne du bas me cause des problèmes: l'erreur que j'obtiens est "procédure d'application: procédure attendue, donnée: '(1) (sans arguments)"

Answer 1

Vous l'avez entouré entre parenthèses deux fois. Les expressions dans Scheme ont la forme (func-expr arg-expr ...), donc la première expression doit évaluer dans une fonction. Donc, si vous avez fait:

(define (f n) n) 
((f 5)) 

Il évaluerait (f 5) il serait alors essayer d'évaluer (5) ce qui est une erreur.

Édition: Quelques précisions.

Vous disposez entre crochets deux fois:

((set! counter (+ counter 1))(cons (first lst) (functX N (rest lst))))) 

Alors d'abord il évalue set! et réduit jusqu'à (où n est un nombre):

(n (cons ...)) 

cons est ensuite évaluée avec ses arguments (où x est le résultat):

(n x) 

Ensuite, il essaie d'appliquer l'argument x à la fonction n, mais comme n est un nombre, cela entraîne une erreur. Si vous souhaitez effectuer deux calculs séparés et renvoyer uniquement la valeur d'un, vous pouvez utiliser begin.

(begin (set! counter (+ counter 1)) (cons (first lst) (functX N (rest lst)))) 

Mise à jour:

Voici une fonction qui semble faire ce que vous voulez sans voodoo (depuis mutation est le mal).

(define (take n xs) 
    (cond 
    [(empty? xs) empty] 
    [(negative? n) empty] 
    [(eq? n 0) empty] 
    [else (cons (first xs) (take (- n 1) (rest xs)))])) 

Answer 2

Vous devriez envisager de décrémentation N dans l'appel récursif et en supprimant la variable counter tout à fait.