Lisp Scheme Part41 (809ﾚｽ)

Lisp Scheme Part41 http://mevius.5ch.net/test/read.cgi/tech/1531587928/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

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

---

441: デフォルトの名無しさん [sage] 2021/07/20(火) 09:22:43.66 ID:0xL9gg55 (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)))))) http://mevius.5ch.net/test/read.cgi/tech/1531587928/441

443: デフォルトの名無しさん [sage] 2021/07/20(火) 11:23:57.77 ID:0xL9gg55 (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))))) http://mevius.5ch.net/test/read.cgi/tech/1531587928/443

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.038s