Кривая дракона в Racket

Question

У меня здесь небольшая проблема. Я хочу, чтобы кривая дракона использовала Racket. Во-первых, я хочу составить список с поворотами данного порядка кривой дракона.

Например: Приказ 3 дал мне список: (список 'R' R 'L' R 'R' L 'L). L означает поворот на 90 градусов влево, а R означает поворот на 90 градусов вправо.

Алгоритм формирования списка с помощью данного порядка:

1. Первого заказ всегда правый поворот (список «R)
2. следующего порядка предыдущего порядок плюс элемент (список» R) плюс предыдущий порядок, где средний символ заменен на «L.

Таким образом, второй порядок будет (список «R» R «L)

Но я действительно не знаю, как написать этот„алгоритм“как (рекурсивный) кода.

;;number -> list 
;; number 'n' is the order of the dragon curve. 
;; (dragon-code 3) should make: (list 'R 'R 'L 'R 'R 'L 'L) 
(define (dragon-code n) 
    (cond 
    [(zero? n) empty] 
    [else 

Я был бы благодарен за каждый намек! :)

Answer 1

Буквальный перевод текста дает:

(define (dragon order) 
    (if (= order 1) 
     (list 'R) 
     (append (dragon (- order 1)) 
       (list 'R) 
       (replace-middle-with-L (dragon (- order 1)))))) 

Реализовать replace-middle-with-L и тест с (dragon 3).