久しぶりにlisp

elispだけど，久しぶりに関数型言語を使うはめに．

とりあえずリハビリも兼ねて，x^y を求める関数 pow をつくってみる．

(defun pow (x y)
  (if (eq y 0)
      1
    (* x (pow x (- y 1)))))

y回の繰り返しを，y回の再帰として書く．ああ懐かしい．