Lisp Scheme Part41 (858ﾚｽ)
上下前次1-新

---

441: デフォルトの名無しさん [sage] 2021/07/20(火) 09:22:43.66 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-新書関写板覧索設栞歴

---

あと 417 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.024s