1001コメント272KB

((Common Lisp) (Scheme) :Part 15)

■ このスレッドは過去ログ倉庫に格納されています

0121デフォルトの名無しさん

2006/07/16(日) 21:05:57

(define (expt x n)
(if (= n 0)
　　1
　　(* x (expt x (- n 1)))))

■ このスレッドは過去ログ倉庫に格納されています