尾の再帰的なリストの手順を作成するには？

Question

これはこれと同じ質問ですが、反復（テール再帰）関数の場合はHow to Reverse a List?です。このような機能を作成するにはどうすればいいですか？出来ますか？

Answer 1

またはそれ以上の明示的：

(define (reverse xs) 
    (let loop ((pend xs) 
       (res '())) 
     (if (null? pend) 
      res 
      (loop (cdr pend) (cons (car pend) res))))) 

クリス倍答えはもっときちんとしていないと、（様々な理由のために）より良いWRTのパフォーマンスすることができます。 質問の第2の部分として、常に可能です。つまり、すべての機能をテール再帰的に行うことができます（機械的に実行できるcpsに変換するなど）。

Answer 2

はい。実際にreverseの標準実装は完全にテール再帰的です。

(define (reverse xs) 
    (fold cons '() xs)) 

foldを使用しないでください。いいえ問題：

(define (reverse xs) 
    (do ((result '() (cons (car xs) result)) 
     (xs xs (cdr xs))) 
     ((null? xs) result)))