プログラミングのお題スレ Part22 (863ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
5(1): デフォルトの名無しさん [] 2023/08/06(日)18:08:09.04 ID:RhhSFLLO(2/2)
>>3
C
https://paiza.io/projects/McLPuKlM4c-1C9EgarDGjw
111(5): デフォルトの名無しさん [] 2023/09/30(土)17:32:44.04 ID:xxjzuZuq(1)
お題
文字列が入力されます
赤と緑を入れ替えて
黒と白を入れ替えて
黄と青を入れ替えてください
例
入力: 緑のカバンに500万入れて白の紙で黄色のカバン言うて書きながら赤のカバン言いながら置いてくれたら俺黒のカバン言いながら取りに行くわ
出力: 赤のカバンに500万入れて黒の紙で青色のカバン言うて書きながら緑のカバン言いながら置いてくれたら俺白のカバン言いながら取りに行くわ
152: デフォルトの名無しさん [] 2023/11/06(月)00:48:06.04 ID:uPzAm2Gi(1)
>>151
Java
https://paiza.io/projects/3z8V5XGGFjxqLac8ZYo_kg
218(2): デフォルトの名無しさん [] 2024/02/04(日)18:32:39.04 ID:fS5H2fbQ(1/2)
>>206
>>215をPowerShellに移植
$in =
"a1=a2", "b1=b2", "b3=b2", "c1=c2", "e1=e2", "a3=a4", "c3=c4", "e1=e3",
"a2=a4", "c3=c1", "b3=a4", "c2=d1", "a4=a5", "d2=c1", "b4=b3", "d3=c3"
$in -split "=" |% {$h = @{}; $n = 0} {if (!$h[$_]) {$h[$_] = $n++}}
$eq = $in |% {, $h[$_ -split "="]}
$g = 1..$n
do {
$changed = $false
$eq |% {
$i, $j = $_
switch ($g[$i] - $g[$j]) {
{$_ -gt 0} {$g[$i] = $g[$j]; $changed = $true}
{$_ -lt 0} {$g[$j] = $g[$i]; $changed = $true}
}
}
} while ($changed)
$h.keys | sort {$h[$_]} | group {$g[$h[$_]]} |% {"[$($_.group -join ", ")]"}
-- 実行結果 --
[a1, a2, b1, b2, b3, a3, a4, a5, b4]
[c1, c2, c3, c4, d1, d2, d3]
[e1, e2, e3]
352: 警備員[Lv.19] [] 2024/06/02(日)04:45:03.04 ID:yi3OE76t(1/2)
>>348
Perl
bash のコマンドラインから入力して実行(ワンライナー)
$ perl -ne 'if(/(\d+):(\d+):(\d+)/){print $1*$2*$3,"\n"}else{print"入力エラー\n"}'
1:2:3
6
3:4:5
60
04:05:06
120
$
371: デフォルトの名無しさん [sage] 2024/06/14(金)21:15:46.04 ID:cNkcubsv(1)
例を示しての出題だから
411: デフォルトの名無しさん [sage] 2024/08/24(土)23:36:40.04 ID:/cWP8Umv(2/2)
てかこのお題で私、期間中にヨーロッパから帰国しますんでってな特殊ケースまで折り込めって方が無理に思えるけど、ロケール設定した模範解答をどぞ、
454: デフォルトの名無しさん [] 01/01(水)15:04:31.04 ID:ZpviU2f/(3/7)
>>416
Java
https://paiza.io/projects/xs9ggwnP0Am-Y9dDK0794A?language=java
803(1): デフォルトの名無しさん [] 08/16(土)21:32:58.04 ID:kN4EEg8M(3/3)
>>799
>>802 のC++のithDuplicatedPermutation関数は引数が別の値（例えばn = 5, m = 3）のとき
正しく計算できなかったので修正。Rの方はintではなくdoubleで計算しているので問題ない。
https://ideone.com/uH8dpO
810: デフォルトの名無しさん [sage] 08/19(火)21:28:38.04 ID:ahVErwF8(1)
>>771 scheme (chicken 4.13)
https://ideone.com/RREeGy
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.035s