Lisp Scheme Part41 (856ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

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))))))

---

443(1): デフォルトの名無しさん [sage] 2021/07/20(火) 11:23:57.77 ID:0xL9gg55(2/2) AAS
(define (pow x y)
　　(let ((z (lambda()(pow x (quotient y 2)))))
　　　　 (cond ((zero? y) 1)
　　　　　　　 ((zero? (modulo y 2)) (set! z (z)) (* z z))
　　　　　　　 (else (set! z (z)) (* x z z)))))

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.042s