与えられた基底と指数のパラメータ、自分自身のexpt関数を作成したい

Question

私は基数と指数nを取るラケットで "遅い"指数関数を作成しようとしています。私はこの関数を作成して、それ自身でベースを掛けることで答えを得ることができます。私は、リストの作成は私の答えを得るための最良の方法だと思いますが、私はいくつかの問題に実行しているよ：

(define (slow-expt base n) 
    (local [(define listn (make-list n base))] 
    (cons (* (- base 1) (first listn)) 
      (slow-expt base (rest listn))))) 

私のエラーは*が2番目の引数は数であることを想定しているが、それは与えられるべきである（最初のリスト）。アドバイスの言葉？

Answer 1

リストは、この問題とは何の関係もない、単にそれ自体でbaseを掛け、n回：

(define (slow-expt base n) 
    (if (= n 0) 
     1 
     (* base (slow-expt base (- n 1)))))