再帰の除去


factCPS(10, id) の実行結果


このプログラムのソース

(再帰除去の途中段階)
function aux(n, c) {
  return function(r) { return c(n * r); }; 
}

function factCPS(n, c) {   
  while (n > 0) {
    c = aux(n, c);
    n--;
  }
  return c(1);
}

Koji Kagawa (kagawa@eng.?????)