flatten

このflattenカッコイイ

• 黄金比や白銀比，青銅比などの貴金属比でパラメータを分割して一覧を出力するGaucheスクリプト — Gist

(use srfi-1)

(define (flatten xs)
  (if (pair? xs)
      (append-map flatten xs)
      (list xs)))

自分はこう書いてた

(define (flatten tree)
  (fold-right (lambda (e acc)
                (if (pair?  e)
                    (append (flatten e) acc)
                    (cons e acc)))
              '() tree))