[過去ﾛｸﾞ] プログラミングのお題スレ Part13 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

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

---

255(2): 2019/02/19(火)22:25 ID:flzwRht/(1)調 AAS
お題:1から8までのカードを混ぜ、2枚そこから引いた時1枚目*10+2枚目が素数になる確率を求める。
ただし、
1. 小数第3位で四捨五入した後に回答すること。
2. 数学的な証明は禁止。
3. 各カードは9-その数字の数だけ存在する。 (例:1ならば8枚存在する)
4. 各カードが出る確率はまだ引かれていないカードの枚数に比例する。

---

257: 2019/02/20(水)00:55 ID:SyQ4jkRO(1/3)調 AAS
>>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

---

264: 2019/02/20(水)02:51 ID:qYIek1dL(1)調 AAS
>>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)))

---

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

---

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

---

ぬこの手 ぬこTOP 0.057s