プログラミングのお題スレ Part22 (863ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

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

---

41: デフォルトの名無しさん [sage] 2023/08/15(火)23:36:55.46 ID:GhE5EH0z(1)
蟻人間がコテハン外したのかな

---

121(1): 9 [sage] 2023/10/08(日)20:24:03.46 ID:zYJ3wh+h(1)
>>120
「もっとも効率がいいエレベーターの停止順序」とは？
1.停止回数がもっとも少ない
2.移動した階数の和が最も小さい
3.ほか
など、どのような指標？

---

215(1): デフォルトの名無しさん [] 2024/02/03(土)10:26:51.46 ID:kmOXhk/V(1)
>>206 >>213
Rでもっと短く書けた。
https://ideone.com/vmtYAJ

---

344: デフォルトの名無しさん [sage] 2024/05/14(火)17:27:18.46 ID:AXiunB2g(1)
https://ideone.com/KrUq7e
Z-algorithm を使って O(|B|) で解いてみた

---

387: デフォルトの名無しさん [sage] 2024/08/03(土)21:50:20.46 ID:VMb0ie+F(2/2)
>>386
二直線の交点は連立方程式を解けば良くて行列を使えば簡単だけど、どういう回答が求められてるのかが分からず途方に暮れております

---

477: デフォルトの名無しさん [sage] 01/05(日)21:35:39.46 ID:6Z+55hA8(1)
>>474 ruby
https://ideone.com/6bso7P

---

491: 9 [sage] 01/24(金)01:44:22.46 ID:p08ruAfw(1)
>>485　Perl5

for $n (1..3) {
　@cp = @s = qw(A B C);
　while(--$n) { @cp = map{ $p = $_; map{ "$p$_" } @s } @cp }
　print "@cp\n";
}

※見易くするためインデントは全角スペースに置換してあります

実行結果
~ $ perl 22_485_CartesianProd.pl
A B C
AA AB AC BA BB BC CA CB CC
AAA AAB AAC ABA ABB ABC ACA ACB ACC BAA BAB BAC BBA BBB BBC BCA BCB BCC CAA CAB CAC CBA CBB CBC CCA CCB CCC

---

519(1): デフォルトの名無しさん [sage] 01/31(金)22:17:10.46 ID:bHXxdIdo(1)
>>510 c
https://ideone.com/MZt32o

---

539: 9 [sage] 02/07(金)23:00:25.46 ID:dMuAEB5V(2/4)
>>537
しくった、これ一番短い範囲ではなく間違って一番長い範囲を検出してる。
サンプルデータではたまたま同じ解になるようで、間違いを見落としてしまった。

それから、一番長い（短いにすべきだったが）範囲の検索にわざわざ候補listをsortして[0]番目を
取得しているが無駄だし規模が大きくなると効率よくない

時間あったら直しますわ〜

---

758: デフォルトの名無しさん [sage] 04/13(日)23:53:41.46 ID:fz+Jdq57(1)
配列にするとどうかね

---

822: デフォルトの名無しさん [sage] 08/27(水)00:40:48.46 ID:AbNZa8yo(1/2)
>>799 ocaml
https://ideone.com/1Jx1Q8

>>799 scheme (chicken 4.13)
https://ideone.com/n7pIFw

---

844: デフォルトの名無しさん [sage] 09/12(金)20:36:05.46 ID:I2wrB793(1)
>>438 scheme (chicken 4.13)
https://ideone.com/SlkO0l
・空白時にdrop-while

>>842 ruby
https://ideone.com/mY83rW

---

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

---

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

---

ぬこの手 ぬこTOP 0.038s