[過去ﾛｸﾞ] プログラミングのお題スレ Part13 (1002ﾚｽ)

プログラミングのお題スレ Part13 http://mevius.5ch.net/test/read.cgi/tech/1549160513/

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

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

264: デフォルトの名無しさん [sage] 2019/02/20(水) 02:51:47.69 ID:qYIek1dL >>255 ;; Common Lisp (let ((prime (list 2))) 　(defun primep (n) 　　(loop for i from (1+ (car prime)) upto n 　　　　　 unless (find-if (lambda (j) (zerop (mod i j))) prime :from-end t) 　　　　　 do (push i prime)) 　　(find n prime))) (defun nearest (i j) 　(/ (floor (+ (* i (expt 10 j)) 0.5)) (expt 10 j))) (loop with cards = (loop for i from 1 to 8 nconc (make-list (- 9 i) :initial-element i)) 　　　 and n = 0 and p = 0 　　　 for one in cards 　　　 do (loop for two in (remove one cards :count 1) 　　　　　　 　　do (incf n) 　　　　　　 　　if (primep (+ (* 10 one) two)) do (incf p)) 　　　 finally (format t "~,3F~%" (nearest (* (/ p n)) 3))) http://mevius.5ch.net/test/read.cgi/tech/1549160513/264

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.045s