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

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

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

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

---

255: デフォルトの名無しさん [sage] 2019/02/19(火) 22:25:14.24 ID:flzwRht/ お題:1から8までのカードを混ぜ、2枚そこから引いた時1枚目*10+2枚目が素数になる確率を求める。 ただし、 1. 小数第3位で四捨五入した後に回答すること。 2. 数学的な証明は禁止。 3. 各カードは9-その数字の数だけ存在する。 (例:1ならば8枚存在する) 4. 各カードが出る確率はまだ引かれていないカードの枚数に比例する。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/255

257: デフォルトの名無しさん [sage] 2019/02/20(水) 00:55:56.83 ID:SyQ4jkRO >>255 Perl5 $R = 0.0; @s = map{($_) x (9-$_)} 1..8; #say "@s"; $t = @s; #say $t; for (qw{11 13 17 23 31 37 41 43 47 53 61 67 71 73 83}) { 　@o = split''; 　my %h; 　$h{$_}++ for @s; 　my $r = $h{$o[0]}-- / $t; 　$r *= $h{$o[1]}-- / ($t - 1); 　$R += $r; } printf "%3.2f\n", $R; 実行結果 ~ $ perl 13_255.pl 0.31 http://mevius.5ch.net/test/read.cgi/tech/1549160513/257

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.038s