append

ちゃんと書こうとすると、意外と難しいですね。

• Scheme で append 関数を再定義（未完成） - satosystemsの日記

これだと (append '() 1) が 1 にならないですね。

こんな感じでしょうか。


最近、諸事情により昼間にパソコンを開く時間があまりありません。。

追記

• Twitter / SaitoAtsushi: @valvallow (use srfi-1)(de ...

(use srfi-1)
(define (list-append x . n)
  (if (null? n)
      x
      (unfold null? car cdr x
              (lambda _
                (apply list-append n)))))

なるほど！そういえば・・・

• vallog: append1, append

追記2

reduce-right！

• Twitter / leque: @valvallow (define (list-a ...

(use srfi-1)
(define (list-append . xss)
 (reduce-right append1 '() xss))

• reduce-right - Gauche ユーザリファレンス: 10.2 srfi-1 - List library