• ベストアンサー

emacsについて

このプログラムの各行の動きを出来れば一行づつ教えてください。お願いいたします (defun power (x y) (setq i 0) (setq tmp 1) (loop (if (>= i y) (return tmp)) (setq i (+ 1 i)) (setq tmp (* tmp x)) ))

質問者が選んだベストアンサー

  • ベストアンサー
  • BLUEPIXY
  • ベストアンサー率50% (3003/5914)
回答No.1

(defun power (x y) ;x のy乗を求める関数 power を定義する (setq i 0) ; i に0 をセットする (setq tmp 1) ; tmp に 1をセットする (loop ; 以下を繰り返す (if (>= i y) (return tmp)) ; i が y以上になったらループを抜けtmp を結果として返す (setq i (+ 1 i)) ; i を +1する (setq tmp (* tmp x)) ; tmp に x を掛けたものにする(最終的にxをy個掛けたものになる) ))

関連するQ&A