Pascalの宿題は俺にやらせろ！！Part2

Pascalの宿題は俺にやらせろ！！Part2 at TECH

898:デフォルトの名無しさん
09/04/30 20:20:53
>>896
そんなあなたに

(labels
((ps (n m) (if (= m 0) (mod n 10) (mod (expt (ps n (1- m)) n) 10))))
(defun pg (n) (ps n n)))

そんで

(pg 7)

ってやってみ速攻で求まるから

次ページ

続きを表示

1を表示