Scheme
リスト構造の中のノード数を数える手続きを考える. (define node-count (lambda (tree) (if (pair? tree) (+ 1 (node-count (car tree)) (node-count (cdr tree))) 1))) 当然末尾再帰になってないからスタックがあふれる.これをCPSに変換するのはちょっと…
リスト構造の中のノード数を数える手続きを考える. (define node-count (lambda (tree) (if (pair? tree) (+ 1 (node-count (car tree)) (node-count (cdr tree))) 1))) 当然末尾再帰になってないからスタックがあふれる.これをCPSに変換するのはちょっと…