scheme - スキームの浅いフラット

Question

「浅いフラット」を行う機能はありますか？つまり、関数 flatten のように、リスト内の各式から () は 1 つだけです。

例えば：

 (shallow flat '((1) (2) ( ( 4 5) 6)))

戻る

'(1 2 (4 5) 6))

ありがとう

Answer 1

(apply append '((1) (2) ((4 5) 6)))   ;=> (1 2 (4 5) 6))
(apply append '((1) (2) (((4) 5) 6))) ;=> (1 2 ((4) 5) 6)

あなたはそれを手続きにすることができます、すなわち：

(define (shallow-flatten lst)
  (apply append lst))