Lisp Scheme Part41 (856ﾚｽ)
上下前次1-新
450: 2021/07/20(火)17:41 ID:yRdGIeGP(2/2) AAS
こんなんでもいいんじゃない
(define (pow2 x y)
(if (= y 0) 1
(let ((z (pow2 x (quotient y 2))))
(* (if (= (modulo y 2) 0) 1 x) z z))))
上下前次1-新書関写板覧索設栞歴
あと 406 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.013s