プログラミングのお題スレ Part22 (854ﾚｽ)
プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
304: デフォルトの名無しさん [sage] 2024/03/09(土) 22:47:01.30 ID:v99WCN19 お題 460円 580円 600円 の3種類の商品があります これらを組み合わせて合計10個買ったら5360円になりました 組み合わせを求めるプログラムを書いてください ちなみに答えの一つは ・600円×2 ・580円×4 ・460円×4 だそうです https://rio2016.5ch.net/test/read.cgi/cigaret/1706726196/56-57 http://mevius.5ch.net/test/read.cgi/tech/1691038333/304
305: デフォルトの名無しさん [] 2024/03/09(土) 23:59:51.39 ID:C74EWG6S >>304 面倒なのでRで全探索 https://ideone.com/vrtYvk http://mevius.5ch.net/test/read.cgi/tech/1691038333/305
306: デフォルトの名無しさん [sage] 2024/03/10(日) 01:20:18.65 ID:8NU5B5F+ >>304 面倒なので全て460円を引くと A=0円 B=120円 C=140円 10個で760円という問題 面倒なのでさらに20で割ると A=0円 B=6 C=7円 10個で38円という問題 つまり唯一奇数のCは偶数個が確定 Cが6個以上だと42円以上でオーバーしてNG Cが4個だと28円で残り10円をA,Bで作れないからNG Cが2個だと14円で残り24円はBが4個で残り4個がA Cが0個だと0円で残り38円をA,Bで作れないからNG つまり解は(A,B,C)=(4,4,2)しかない http://mevius.5ch.net/test/read.cgi/tech/1691038333/306
308: デフォルトの名無しさん [] 2024/03/10(日) 19:06:13.20 ID:qBLPZ6x8 >>304 Rで全探索でなくちゃんと解くと https://ideone.com/F44pCL 解が複数ある場合と全くない場合の例として、600円を540円と520円に変更したときの出力も載せた。 http://mevius.5ch.net/test/read.cgi/tech/1691038333/308
311: デフォルトの名無しさん [sage] 2024/03/27(水) 23:42:08.75 ID:sRZ89+IF >>304 a = (600, 580, 460) m = min(a) h = set() def buy(b, yen): if yen < m: return for i in range(0, len(a)): v = a[i] if yen >= v: b[i] += 1 if yen == v: h.add(str(b)) else: buy(b, yen - v) b[i] -= 1 buy([0, 0, 0], 5360) for s in h: print(s) http://mevius.5ch.net/test/read.cgi/tech/1691038333/311
312: デフォルトの名無しさん [] 2024/03/27(水) 23:55:15.74 ID:qNf/D02g >>304 Haskell [(a, b, c) | a <- [0..20], b <- [0..20], c <- [0..20], a * 460 + b * 580 + c * 600 == 5360] output: [(0,2,7),(4,4,2)] http://mevius.5ch.net/test/read.cgi/tech/1691038333/312
316: デフォルトの名無しさん [] 2024/03/31(日) 22:30:39.09 ID:4FIGx2uN >>304 ぶっちゃけ、他の言語の人と同じっぽくないので心配なんだが…。 自分なりにHaskellで全探索じゃないバージョン書いてみた。 Haskell [(a, b, c) | a <- [0..10], b <- [0..10 - a], c <- [0..10 - (a + b)], a * 460 + b * 580 + c * 600 == 5360, a + b + c == 10] 答えは同じ[(4,4,2)]。 http://mevius.5ch.net/test/read.cgi/tech/1691038333/316
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.346s*