在方案

Question

中寫扁平方法我一直在研究下面的函數扁平化，到目前爲止它只能用於列表。我想知道如果有人能夠提供一些關於如何使它與對一起工作的見解？例如（flatten'（a .a））會返回（a）。謝謝。

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

Answer 1

這裏有一個選項：

(define (flatten x) 
    (cond ((null? x) '()) 
     ((pair? x) (append (flatten (car x)) (flatten (cdr x)))) 
     (else (list x)))) 

Answer 2

(define (flatten l) 
    (cond 
    [(empty? l) empty] 
    [(list? l) 
    (append (flatten (first l)) 
      (flatten (rest l)))] 
    [else (list l)]))