Lisp Scheme Part41 (856ﾚｽ)
上下前次1-新
441: 2021/07/20(火)09:22 ID:0xL9gg55(1/2) AAS
(define (pow x y)
(let ((z (lambda()(pow x (quotient y 2)))))
(cond ((zero? y) 1)
((zero? (modulo y 2)) (* (z) (z)))
(else (* x (z) (z))))))
上下前次1-新書関写板覧索設栞歴
あと 415 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.008s