Определение очереди в функции

Question

Я пытаюсь создать новую очередь в одном из своих функций, но я получаю ошибку

Определяет нашел определение, которое не на самом высоком уровне

Как я могу это решить? Мне нужно создать эту очередь где-то внутри. Я не могу просто создавать вспомогательные переменные вне его.

(define (bfs-graph X G) 
    (define q (make-queue)) 
    (enqueue! q X) 
    ... some work with queue 
) 

(define (reachable? X Y G) 
    (cond 
    [(empty? (graph-edges G)) #f] 
    [else (bfs-graph X G)] 
    ) 
) 

EDIT:

Хорошо, это, кажется, как это работает. Я попытаюсь сыграть с кодом еще немного. Благодарю.

(define (reachable? X Y G) 
    (let ((q (make-queue))) 
    (cond 
     [(empty? (graph-edges G)) #f] 
     [else (bfs-graph X G q)] 
    ) 
    ) 
) 


(define (bfs-graph X G q) 
    (enqueue! q X) 
) 

Answer 1

код вы вывесили должны работать, попробуйте изменить язык - установить его на «Определить язык из источника» и добавьте эту строку в начале файла:

#lang racket 

Если по каким-то причинам вы не можете использовать другой язык, это равносильно тому, что вы написали:

(define (bfs-graph X G) 
    (let ((q (make-queue))) 
    (enqueue! q X) 
    ; ... some work with queue 
    ))