Как вручную сгладить список в Racket (Схема)

Question

Как можно сгладить список, не используя функцию сглаживания, встроенную в ракетку?

Я понимаю, что реализация по умолчанию Flatten является

(define (flatten lst) 
    (cond 
    ((null? list) 
     empty) 
    ((list? (car lst)) 
     (append (flatten (car lst)) (flatten (cdr lst)))) 
    (else 
     (cons (car lst) (flatten (cdr lst)))))) 

, но им не совсем уверен, как идти о не используя функцию Flatten как я не знаю, как он работает за кулисами. Я не мог найти хорошее объяснение этому, кроме реализаций этого кода. Может кто-то пожалуйста, объясните

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

(define acc null) 
(define (my-flatten lst) 
    (cond 
    [(null? lst) null] 
    [(list? (car lst)) (help-flatten (car lst)) (append (cdr lst) acc)] 
    [else (append (car lst) acc) (my-flatten (cdr lst))])) 

(define (help-flatten subLst) 
    (if (null? subLst) 
     (set! acc null) 
     (append (car subLst) acc)) 
    (help-flatten (cdr subLst))) 

Answer 1

Первая реализация показана самодостаточным, но неправильно , и он не вызывает встроенный Racket flatten - он просто называет себя рекурсивно, переименовывает его, чтобы понять, что я имею в виду. Вот фиксированная версия:

(define (my-flatten lst) 
    (cond ((null? lst) empty) ; you wrote `list` instead of `lst` 
     ((pair? (car lst)) ; it's more efficient if we use `pair?` 
     (append (my-flatten (car lst)) (my-flatten (cdr lst)))) 
     (else (cons (car lst) (my-flatten (cdr lst)))))) 

Или немного проще:

(define (my-flatten lst) 
    (cond ((null? lst) '()) 
     ((pair? lst) 
     (append (my-flatten (car lst)) (my-flatten (cdr lst)))) 
     (else (list lst))))