メモです。 flatten 学習用データ作成 - 主にアルゴリズムの実験日誌 (define (flatten ls) (cond ((null? ls) '()) ((pair? ls) (append (flatten (car ls)) (flatten (cdr ls)))) (else (list ls)))) LISP Scheme Part8 (define (flatten a) (if (list? a)…