Невозможно скомпилировать функцию схемы

Question

Новое в схеме здесь. Я пытаюсь скомпилировать функцию схемы, range. Это очень просто - он принимает start, step и stop list L и делает новый список, где каждый элемент = stepAmt + curStep.

Например: (диапазон '(0 2 7)) => (0 2 4 6), (диапазон' (2 2 0)) =>()

При попытке компиляции

(define (helper2(start stepAmt stop curStep newList) 
(if (> start stop) 
    '() 
    (if (> (+ stepAmt curStep) stop) 
     newList 
     (helper2 (start stepAmt stop (+ stepAmt curStep) (concat newList (+stepAmt curStep)))))))) 

Я получаю ошибку

некорректные специальную форму: (определить helper2 (начало stepamt остановка curstep NewList) (если ... ... ...))

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

Это функция, которая будет вызывать эту функцию:

(define (example L) 
(let (
    (start (car L)) 
    (curStep (car (cdr L))) 
    (step (car (cdr L))) 
    (stop (car (cdr (cdr L)))) 
    ) 
    (helper2 (start step stop curStep '())) 
) 

)

Все указатели было бы здорово. Я не уверен, что это опечатка или логическая ошибка. Спасибо!

Answer 1

Вам не нужно

(define helper2 (some arguments go here) 
    definition goes here) 

но

(define (helper2 some arguments go here) 
    definition goes here) 

Способом вспомнить, что то, что происходит после define, выглядит просто как вызов функции, которую вы определяете. «Вот как бороться с звонком, как (helper2 some arguments go here): ...»

Answer 2

Посмотрите внимательно на то, где вы разместили круглые скобки:

(define helper2(start stepAmt stop curStep newList) ... 

в сравнении

(define (example L) ... 

Answer 3

Вы используете DrRacket? Эта работа:

#lang racket 

(define (helper2 start stepAmt stop curStep newList) 
(if (> start stop) 
    '() 
    (if (> (+ stepAmt curStep) stop) 
     newList 
     (helper2 start stepAmt stop (+ stepAmt curStep) (concat newList (+ stepAmt curStep)))))) 

(define (concat l elm) 
    (append l (list elm))) 

(define (example L) 
(let (
    (start (car L)) 
    (curStep (car (cdr L))) 
    (step (car (cdr L))) 
    (stop (car (cdr (cdr L)))) 
    ) 
    (helper2 start step stop curStep '()) 
))