プログラミングのお題スレ Part12

**デフォルトの名無しさん** · 2018/09/28(金) 10:09:07.13

プログラミングのお題スレです。

【出題と回答例】
1 名前：デフォルトの名無しさん
　　お題：お題本文

2 名前：デフォルトの名無しさん
　　>>1 使用言語
　　回答本文

【ソースコードが長くなったら】 (オンラインでコードを実行できる)
https://ideone.com/
http://codepad.org/
http://compileonline.com/
http://rextester.com/runcode
https://runnable.com/
https://code.hackerearth.com/
http://melpon.org/wandbox
https://paiza.io/

宿題は宿題スレがあるのでそちらへ。

前スレ
プログラミングのお題スレ Part10
https://mevius.5ch.net/test/read.cgi/tech/1514772904/

プログラミングのお題スレ Part11
https://mevius.5ch.net/test/read.cgi/tech/1524570314/

**デフォルトの名無しさん** · 2018/11/12(月) 16:55:43.17

>>404
図星突かれて痛かったのか？
バカを愚弄するのはホント楽しいわ
てか「数学板でやれ。問題からしてクソだった」って言ってたくせにこんなの数学に入らないっておかしいだろ
数学に入らないなら数学板推すなよアホか
結果的に数学よりも遥かにスレ違いの話題でこの場を荒らして皆に迷惑かけてんのはお前だ
お前はみんなの迷惑なの

**デフォルトの名無しさん** · 2018/11/12(月) 17:00:57.95

>>405
＞ともあれ、回答が多い割に文句なしの正答が出てこない
って言うからその反例として件のレスなのに、開き直ってお前がコード書けだなんて控えめに言って狂ってる。
相手が言ったことも読まないし自分が行ったことすら覚えていないんじゃあ対話不可能。
ただただ不快な存在。

**デフォルトの名無しさん** · 2018/11/12(月) 17:01:55.26

>>336 は情報爆発でメモリ使いまくる処理をいかにメモリ使わずに処理できるかって意味じゃ悪く無いと思う。
私はプログラマーじゃ無いから思い付けなかったが、こう言うのはプログラマーの本領発揮する分野じゃないかな。

そして >>355 も解けない私。。。Orz
GUIならネットに落ちてるけど、CUIってのが味噌だよね。

**デフォルトの名無しさん** · 2018/11/12(月) 17:02:08.43

>>403
それは出題者のコードじゃないだろ？
ほんとお前、日本語読解とか論理的思考とか大丈夫なの？

**デフォルトの名無しさん** · 2018/11/12(月) 17:02:52.43

正直、ばかにはしているｗ

**デフォルトの名無しさん** · 2018/11/12(月) 17:03:00.49

>>404
ものすごくありふれたお題に文句付けてるんだからあきれてものも言えないってだけ。
別に中立ぶってなどいない。お前のことは見下してるが。

**デフォルトの名無しさん** · 2018/11/12(月) 17:06:56.26

>>409
＞ともあれ、回答が多い割に文句なしの正答が出てこない
と言ったのはそちらで、それに対してこっちがその反例として件のレスを挙げたのに本気で意味不明。
会話を破綻させに行っているのは君でしょ。自分が書いたことすら覚えていないのだから。
さすがに不愉快だ。

**デフォルトの名無しさん** · 2018/11/12(月) 17:08:31.84

馬鹿は相手がどの高さいるのかもわからずに人を馬鹿にする
頭が悪いので周囲が何を言ってるのか何一つ理解できない
そして自尊心の塊

**デフォルトの名無しさん** · 2018/11/12(月) 17:08:37.05

ここまできっちり論破されてるとキチガイ相手でも哀れになってくるな

**デフォルトの名無しさん** · 2018/11/12(月) 17:13:08.29

>>412
お前は自分の「文句なし」に自信持ちすぎだろｗ
あと「出題者の用意していた解答次第では良問の可能性も（わずかだが）ある」は無視ですかそうですか

**デフォルトの名無しさん** · 2018/11/12(月) 17:15:33.59

>>414
だからお前は反応するなと何度言わせる？ｗ

**デフォルトの名無しさん** · 2018/11/12(月) 17:17:08.81

>>415
対話する意図がないと判断した。
もういい。疲れた。
控えめに言って、君はもう死んだ方が良いよ。

**デフォルトの名無しさん** · 2018/11/12(月) 17:21:16.54

最近あっちこっちで暴れてる単芝君か
5chに居場所が無くてもリアル犯罪に走るなよな

**デフォルトの名無しさん** · 2018/11/12(月) 17:21:58.58

良い加減にしろ！
もうオマイらで >>336 の文句なしの正当とやらを出し合えや。

**デフォルトの名無しさん** · 2018/11/12(月) 17:23:23.00

・数学の話ばかりしてうざい　←わかる
・作者は答え書いて　←わからなくもない
・答え書かないからクソ問題！　←は？

**デフォルトの名無しさん** · 2018/11/12(月) 17:54:26.10

>>420
誤解があるので訂正しておくけど
出題者が「落とし穴」をちゃんと想定できていれば良問だしそれを確認せんがための「答え出せ」だよ

でも、勘違いしたままたまたま答えが合ってしまう入出力例しか提示されていない
and/or それを排除できる例を出せない時点でこの問題はそれなりにクソ問題だと思う

引っ掛けて貶めたり、選抜や順位を競うことを目的とした場所じゃないんだからここは

**デフォルトの名無しさん** · 2018/11/12(月) 18:12:43.91

n^n^n % 100計算するのに落とし穴も何もないだろ
フェルマーの小定理チックに指数部で剰余とるだなんて誰も想定できねえよ
なんでキチガイは間違えたらそこから学ばずに問題の方(しかも真っ当)にケチ付けるんだか
運動会で転ぶと怪我をするからグラウンドの至る所にクッションを置いておけと言うモンペと同レベルのキチガイ

**デフォルトの名無しさん** · 2018/11/12(月) 18:26:31.10

なんで数学板でやらないのかね。
数学板ではザコだからプログラム板でマウント取りたいとか？ｗｗ

**デフォルトの名無しさん** · 2018/11/12(月) 18:28:01.10

>>423
ID変えんなやキチガイ

**デフォルトの名無しさん** · 2018/11/12(月) 18:32:41.33

>>422
住人かと思ってちょっと丁寧にレスしたらこれだよ ┐(´-｀)┌

**デフォルトの名無しさん** · 2018/11/12(月) 18:34:56.16

>>424
変えてないし、そもそも俺だと思うならレスすんなよ…

**デフォルトの名無しさん** · 2018/11/12(月) 18:55:17.39

>>425
お前以外誰もその問題にケチ付けてねえのに住人面すんな
素直に頭悪いが悪いのが悔しいですって言えよ

**デフォルトの名無しさん** · 2018/11/12(月) 19:18:26.81

プログラミングできてもネットリテラシーは低いんだな

**デフォルトの名無しさん** · 2018/11/12(月) 19:28:11.51

ID:9RzF2H48
こいつ前からこの板荒らしまくってる粘着野郎だぞ
意思疎通は不可能だから無視しとけ

**デフォルトの名無しさん** · 2018/11/12(月) 19:45:44.72

お題
1900年から2018年までの、7月31日が土曜日である年を全て挙げよ

**デフォルトの名無しさん** · 2018/11/12(月) 19:52:33.63

なんで？

**デフォルトの名無しさん** · 2018/11/12(月) 19:54:05.95

自分で計算して求めるのを作るか、ライブラリを使ってしまうか、悩ましいところですな・・・

**336** · 2018/11/12(月) 19:58:23.85

悪い意味で盛り上がってて苦笑するしかない

C++
https://ideone.com/HUZiK8

Ruby読めないけど>>342と大体同じ考え方なのかな

**デフォルトの名無しさん** · 2018/11/12(月) 20:20:47.61

お題
0から99までの整数を2進数で表したとき、１が奇数個あるものを全て挙げよ

**デフォルトの名無しさん** · 2018/11/12(月) 20:23:17.93

>>430 bash + date
for i in {1900..2018}; do if [ $(date --date=07/31/$i +%w) -eq 6 ];then echo "$i "; fi; done

**デフォルトの名無しさん** · 2018/11/12(月) 20:27:55.24

>>430 Ruby 日付ライブラリ使うのもつまらないので冗談で

(1900..2018).select{|y| (y%100*5/4 - y/2000) % 7 == 4}
# => [1909, 1915, 1920, 1926, 1937, 1943, 1948, 1954, 1965, 1971, 1976, 1982, 1993, 1999, 2004, 2010]

**デフォルトの名無しさん** · 2018/11/12(月) 20:31:45.80

>>434 Ruby
p (0..99).select{|i| i.digits(2).count(1).odd?};
# => [1, 2, 4, 7, 8, 11, 13, 14, 16, 19, 21, 22, 25, 26, 28, 31, 32,
35, 37, 38, 41, 42, 44, 47, 49, 50, 52, 55, 56, 59,61, 62, 64, 67,
69, 70, 73, 74, 76, 79, 81, 82, 84, 87, 88, 91, 93, 94, 97, 98]

**デフォルトの名無しさん** · 2018/11/12(月) 20:36:43.90

>>430
J
分けて計算
years=:1900 + i. 119
saturdays =: 6= weekday years(,"0 1) 7 31
saturdays # years
出力
1909 1915 1920 1926 1937 1943 1948 1954 1965 1971 1976 1982 1993 1999 2004 2010

1行で
(#~ 6&=@weekday@(,&7 31)"0) 1900+i.119
出力は同じ

**デフォルトの名無しさん** · 2018/11/12(月) 20:55:43.70

>>434
J

(#~ 2&|@+/@(#.^:_1"0)) i.100
出力
1 2 4 7 8 11 13 14 16 19 21 22 25 26 28 31 32 35 37 38 41 42 44 47 49 50 52 55 56 59 61 62 64 67 69 70 73 74 76 79 81 82 84 87 88 91 93 94 97 98

**デフォルトの名無しさん** · 2018/11/12(月) 21:30:19.73

>>434 Perl5
use feature say;
$,=',';
say = grep{1&sprintf("%b", $_) =~ tr/1/1/} 0..99;

実行
$ perl 12_434.pl
1,2,4,7,8,11,13,14,16,19,21,22,25,26,28,31,32,35,37,38,41,42,44,47,49,50,52,55,56,59,61,62,64,67,69,70,73,74,76,79,81,82,84,87,88,91,93,94,97,98

**デフォルトの名無しさん** · 2018/11/12(月) 21:32:31.70

>>440 ｺﾞﾒﾝよけいな=が入っていたので削除

>>434 Perl5
use feature say;
$,=',';
say grep{1&sprintf("%b", $_) =~ tr/1/1/} 0..99;

実行
$ perl 12_434.pl
1,2,4,7,8,11,13,14,16,19,21,22,25,26,28,31,32,35,37,38,41,42,44,47,49,50,52,55,56,59,61,62,64,67,69,70,73,74,76,79,81,82,84,87,88,91,93,94,97,98

**デフォルトの名無しさん** · 2018/11/12(月) 21:57:07.87

>>434 rust
https://ideone.com/gTuww7

**デフォルトの名無しさん** · 2018/11/12(月) 22:18:19.15

>>430 PowerShell
1900..2018 | %{Get-Date "$_/07/31"} | ? -Property DayOfWeek -eq 6 | select Year

**デフォルトの名無しさん** · 2018/11/12(月) 23:14:49.42

>>279 Common Lisp
https://ideone.com/C9fVpq

**デフォルトの名無しさん** · 2018/11/12(月) 23:55:59.63

>>234 c
https://ideone.com/BvQRUR

**デフォルトの名無しさん** · 2018/11/13(火) 00:02:22.82

乙

**デフォルトの名無しさん** · 2018/11/13(火) 00:27:29.87

python

>>430
import datetime
[x for x in range(1900,2018) if datetime.datetime(x,7,31).weekday() == 5]
-> [1909, 1915, 1920, 1926, 1937, 1943, 1948, 1954, 1965, 1971, 1976, 1982, 1993, 1999, 2004, 2010]
ツェラーの公式を用いた別解
[x for x in range(1900,2018) if (x + int(x/4) - int(x/100) + int(x/400) + 1) % 7 == 6]

>>434
[x for x in range(1,99) if format(x,"b").count("1") % 2]
->
[1, 2, 4, 7, 8, 11, 13, 14, 16, 19, 21, 22, 25, 26, 28,
31, 32, 35, 37, 38, 41, 42, 44, 47, 49, 50, 52, 55, 56, 59,
61, 62, 64, 67, 69, 70, 73, 74, 76, 79, 81, 82, 84, 87, 88, 91, 93, 94, 97, 98]

**デフォルトの名無しさん** · 2018/11/13(火) 00:32:55.99

[x for x in range(1900,2018) if (x + x//4 - x//100 + x//400 + 1) % 7 == 6]
でええやんけ

**デフォルトの名無しさん** · 2018/11/13(火) 00:43:41.95

>>434
Haskell

main = print.tnum.filodd.zip list $ map bsum list

tnum = map (\(x,_) -> x)

filodd = filter (\(x,y) -> odd y)

bsum = sum.blist

blist 0 = []
blist n = (n `mod` 2):blist (n `div` 2)

list = [0..99]

実行結果
[1,2,4,7,8,11,13,14,16,19,21,22,25,26,28,31,32,35,37,38,41,42,44,47,49,50,52,55,56,59,61,62,64,67,69,70,73,74,76,79,81,82,84,87,88,91,93,94,97,98]

**デフォルトの名無しさん** · 2018/11/13(火) 00:55:13.44

乙乙

**デフォルトの名無しさん** · 2018/11/13(火) 01:00:17.03

出力とかなさらないんですか？

**デフォルトの名無しさん** · 2018/11/13(火) 01:11:01.02

>>430 Squeak/Pharo Smalltalk

(1900 to: 2018) select: [:y | (Date year: y month: 7 day: 31) weekday = #Saturday]

"=> #(1909 1915 1920 1926 1937 1943 1948 1954 1965 1971 1976 1982 1993 1999 2004 2010) "

**デフォルトの名無しさん** · 2018/11/13(火) 01:23:34.12

>>434 Squeak/Pharo Smalltalk

(0 to: 99) select: [:x | ((x radix: 2) occurrencesOf: $1) odd]

"=> #(1 2 4 7 8 11 13 14 16 19 21 22 25 26 28 31 32 35 37 38 41 42 44 47 49 50
52 55 56 59 61 62 64 67 69 70 73 74 76 79 81 82 84 87 88 91 93 94 97 98) "

**デフォルトの名無しさん** · 2018/11/13(火) 01:59:27.96

>>447>>448をJavascriptに引き写してみた。

>>430
[...function*(){for(i=1900;i++<2018;)if((i+~~(i/4)-~~(i/100)+~~(i/400)+1)%7==6)yield i}()]

>>434
[...function*(){for(i=0;i++<99;)if(i.toString(2).match(/1/g).length%2)yield i}()]

汚い…
Pythonの内包表記は良いなぁ…

**デフォルトの名無しさん** · 2018/11/13(火) 02:08:16.58

>>279やってみた
J

z=: dyad define " 0
s=: ([+ (], (((_1:^+)*+)))) "0 0
>: |: (y,x)$((i.c)/:,(+:c)(#."0 1)|(i.y)s/(i.x))i.i.c=.x*y
)

3 z 3
1 2 6
3 5 7
4 8 9

4 z 2
1 2
3 5
4 6
7 8

3 z 5
1 2 6 7 12
3 5 8 11 13
4 9 10 14 15

1 z 8
1 2 3 4 5 6 8 7

**デフォルトの名無しさん** · 2018/11/13(火) 02:09:33.92

>>455
＞1 z 8
＞1 2 3 4 5 6 8 7

写し間違えました。実際には正しい結果になります。

**デフォルトの名無しさん** · 2018/11/13(火) 02:27:33.07

>>455は各 (x,y) の項について
主キー x + y
副キー x + (-1)^(x+y) * (x+y)
とするとジグザグ順に昇順のキーが得られるので
そのキーでソートしたときの順位を表示、というやり方

**デフォルトの名無しさん** · 2018/11/13(火) 11:28:29.90

>>434
Perl5
https://paiza.io/projects/HxeBcbXHG1jRNRhrutaKqA
文字列にせずに全Bit足して求めた。

**デフォルトの名無しさん** · 2018/11/13(火) 12:04:16.15

>>430
C
https://paiza.io/projects/Xq4YBZq4qJJLOZLsNTyWng

ライブラリ使用。
コンパイラとライブラリの対応の問題だろうが、32bit環境ではできなかった。time_t型がlongか何かになっていて足りなかったからだろうと思う。
まともに動くかどうかは(またはコンパイルできるかどうかは)環境依存ということになる。

**デフォルトの名無しさん** · 2018/11/13(火) 14:23:32.25

>>279 Squeak Smalltalk >>457 を参考に (joinを直せばPharoも可)

| fn |
fn := [:M :N |
| digits xs ys primaries secondaries sorted |
digits := (M * N) log ceiling.
xs := (1 to: M) collect: [:idx | (1 to: N) asArray].
ys := (1 to: M) collect: [:idx | Array new: N withAll: idx].
primaries := xs + ys.
secondaries := primaries \\ 2 * 2 - 1 * xs.
sorted := ((1 to: M) gather: [:y | (1 to: N) collect: [:x | x@y]]) sort:
[:pt | (primaries at: pt y) at: pt x] ascending, [:pt | (secondaries at: pt y) at: pt x] descending.
sorted doWithIndex: [:pt :idx | (xs at: pt y) at: pt x put: (idx printStringPadded: digits)].
(xs collect: [:row | row joinSeparatedBy: ' ']) asStringWithCr
].

fn value: 3 value: 3. "=>
'1 2 6
3 5 7
4 8 9' "
fn value: 4 value: 2. "=>
'1 2
3 5
4 6
7 8' "
fn value: 3 value: 5. "=>
'01 02 06 07 12
03 05 08 11 13
04 09 10 14 15' "
fn value: 1 value: 8. "=>
'1 2 3 4 5 6 7 8' "

**デフォルトの名無しさん** · 2018/11/13(火) 15:05:24.75

>>457
副キーは x+y の偶奇に応じて上下や左右が反転してればいいわけだから
単に (-1)^(x+y)*x とか (-1)^(x+y)*y で十分か

**デフォルトの名無しさん** · 2018/11/13(火) 16:16:43.59

>>336 Squeak/Pharo Smalltalk >>342 を参考に

| fn |

fn := [:N :exp :lastNDigs |
| M series count nextVal initial cycle nextExp |
M := 10 raisedTo: lastNDigs.
series := OrderedCollection with: N \\ M.
count := 0.
[(series addIfNotPresent: (nextVal := series last * N \\ M); size) = (count := count + 1)] whileFalse.
initial := series indexOf: nextVal.
cycle := series size - initial + 1.
nextExp := N.
exp - 1 timesRepeat: [nextExp := (nextExp between: 1 and: series size)
ifTrue: [series at: nextExp]
ifFalse: [series at: nextExp - initial \\ cycle + initial]].
nextExp printStringPadded: lastNDigs
].

#(1 2 3 4 5 10 11 13 100 777) collect: [:N | N -> (fn value: N value: 3 value: 2)].
"=> {1->'01' . 2->'16' . 3->'87' . 4->'96' . 5->'25' .
10->'00' . 11->'11' . 13->'53' . 100->'00' . 777->'97'} "

#(1 2 3 4 5 10 11 13 100 777) collect: [:N | N -> (fn value: N value: 3 value: 6)].
"=> {1->'000001' . 2->'000016' . 3->'484987' . 4->'084096' . 5->'203125' .
10->'000000' . 11->'906611' . 13->'549053' . 100->'000000' . 777->'977097'} "

#(1 2 3 4 5 10 11 13 100 777) collect: [:N | N -> (fn value: N value: 4 value: 3)].
"=> {1->'001' . 2->'536' . 3->'387' . 4->'896' . 5->'125' .
10->'000' . 11->'611' . 13->'053' . 100->'000' . 777->'097'} "

**デフォルトの名無しさん** · 2018/11/13(火) 16:32:36.89

>>279
何かの行列足せば出来るんじゃね

**デフォルトの名無しさん** · 2018/11/13(火) 17:15:46.99

>>355 Squeak Smalltalk ヒルベルトは組み込みなので…

| fn |
fn := [:n |
| form m lines |
form := Form extent: (m := 2 << n - 2) + 1 asPoint.
(Pen newOnForm: form) place: 0@m; hilbert: n side: 2.
lines := (m to: 0 by: -1) collect: [:y |
(0 to: m) inject: '' into: [:acc :x | acc copyWith: ('□■' at: (form pixelValueAt: x@y) + 1)]
].
lines asStringWithCr
].
fn value: 1. "=>
'■□■
■□■
■■■' "
fn value: 3. "=>
'■□■■■■■□■■■■■□■
■□■□□□■□■□□□■□■
■■■□■■■□■■■□■■■
□□□□■□□□□□■□□□□
■■■□■■■□■■■□■■■
■□■□□□■□■□□□■□■
■□■■■■■□■■■■■□■
■□□□□□□□□□□□□□■
■■■□■■■■■■■□■■■
□□■□■□□□□□■□■□□
■■■□■■■□■■■□■■■
■□□□□□■□■□□□□□■
■□■■■□■□■□■■■□■
■□■□■□■□■□■□■□■
■■■□■■■□■■■□■■■' "

**デフォルトの名無しさん** · 2018/11/13(火) 18:58:02.16

>>279 Ruby >>457とは別のアプローチで

def zigzag(h, w)
　　min, max = [h, w].minmax
　　sum, multi = h + w, h * w
　　f = -> n {n < min ? n + 1 : n >= max - 1 ? sum - n - 1 : min}
　　diagonal = (sum - 1).times.with_object([*1..multi]).map{|i, ary| ary.shift(f[i]).tap{|a| i.odd? && a.reverse!}}
　　len = Math.log10(multi).floor + 1
　　h.times.map{|i| diagonal[i, w].map(&:pop)}.map{|e| e.map{|i| "%0#{len}d" % i}.join(' ')}.join($/)
end

[[3, 3], [4, 2], [3, 5], [1, 8]].each{|e| puts "%d %d =>\n%s\n\n" % [*e, zigzag(*e)]}
# =>
3 3 =>
1 2 6
3 5 7
4 8 9

4 2 =>
1 2
3 5
4 6
7 8

3 5 =>
01 02 06 07 12
03 05 08 11 13
04 09 10 14 15

1 8 =>
1 2 3 4 5 6 7 8

**デフォルトの名無しさん** · 2018/11/13(火) 19:36:47.61

>>434
Python3
https://ideone.com/N66H4z

=> 1 2 4 7 8 11 13 14 16 19 21 22 25 26 28 31 32 35 37 38 41 42 44 47 49 50 52 55 56 59 61 62 64 67 69 70 73 74 76 79 81 82 84 87 88 91 93 94 97 98

**デフォルトの名無しさん** · 2018/11/13(火) 21:13:13.10

お題
直方体の体積を求めよ。三辺の長さはそれぞれ自然数+単位(mm,cm,m,km)の形式で与えられる。
答えは自然数+単位(mm^3,cm^3,m^3,km^3)の形式で、数値部分がなるべく小さくなるように単位を選択せよ。

2cm 3cm 4cm
=> 24cm^3

5mm 5mm 40mm
=> 1cm^3

3m 100000000km 3mm
=> 900000000m^3

**デフォルトの名無しさん** · 2018/11/13(火) 21:46:22.87

>>467 Ruby
def to_mili(num, unit)
　　case unit
　　when 'mm' then num
　　when 'cm' then num * 10
　　when 'm' then num * 1000
　　when 'km' then num * 1000000
　　end
end

def volume(sides)
　　v_mili = sides.scan(/(\d+)([a-z]+)/i).map{|side, unit| to_mili(side.to_i, unit)}.reduce(:*)
　　[[10**18, 'km^3'], [10**9, 'm^3'], [10**3, 'cm^3'], [1, 'mm^3']].each{|coe, unit| return [v_mili / coe, unit] if v_mili % coe == 0}
end

['2cm 3cm 4cm', '5mm 5mm 40mm', '3m 100000000km 3mm'].each{|sides| puts '%s => %d%s' % [sides, *volume(sides)]}
# =>
2cm 3cm 4cm => 24cm^3
5mm 5mm 40mm => 1cm^3
3m 100000000km 3mm => 900000000m^3

**デフォルトの名無しさん** · 2018/11/13(火) 22:46:25.57

プログラミング無料で学んで就職できる？
https://et-irodori.com/b/2202

**デフォルトの名無しさん** · 2018/11/13(火) 22:49:55.39

無料ではないな。
お前の将来の給料からスクールに金が行く。

**デフォルトの名無しさん** · 2018/11/14(水) 00:08:48.41

お題：品物がN個あり，ぞれぞれ体積はa(1), ..., a(N)である。
すべての品物を複数のダンボール(容積C)に分けて詰めるとき，必要になるダンボールの最小数を求めよ。

例：
C: 30
a: 8 5 10 6 4 5 8 5 9 6 9
=> 3

C: 120
a: 33 61 58 41 50 21 60 64
=> 4

C: 120
a: 33 61 58 41 50 21 60 64 23 45 67 78 89
=> 7

◆QZaw55cn4c · 2018/11/14(水) 00:21:42.53

>>434
https://mevius.5ch.net/test/read.cgi/tech/1434079972/54
rucursive に書く人が一人ぐらいいてもいいか、と

**デフォルトの名無しさん** · 2018/11/14(水) 00:25:56.42

rucursiveならしょうがない

◆QZaw55cn4c · 2018/11/14(水) 00:58:44.50

>>473
typo, "recursive"
ええと、>>472 に近いのは >>449 かもしれませんが、>>449 は bit 数を具体的に求めきっていますか？それとも >>472 のように真理値まで短縮してリターンしてますか？
haskell はよくわからないので…

**デフォルトの名無しさん** · 2018/11/14(水) 01:04:38.44

>>471
全探索したら、3つ目の例の答えが6になったんだが合ってる？
[21 33 60] [23 89] [41 78] [45 64] [50 67] [58 61]

**デフォルトの名無しさん** · 2018/11/14(水) 01:23:48.18

>>475
5はありえないから合ってるね

**デフォルトの名無しさん** · 2018/11/14(水) 05:43:59.41

>>336 J
f=:3 : 0
y 100&|@^ y^y
)

**デフォルトの名無しさん** · 2018/11/14(水) 06:20:37.22

>>477
どのバージョンのJで100|777^777なんてできるんだよ…

**デフォルトの名無しさん** · 2018/11/14(水) 06:24:21.52

書き方が嫌らしかった。
それ動かないんじゃないですかということ。

**デフォルトの名無しさん** · 2018/11/14(水) 06:38:51.58

>>478
v6で動いたけどな

**デフォルトの名無しさん** · 2018/11/14(水) 07:48:55.58

>>474
むっちゃ愚直に10進数から2進数に変換してるだけです＾＾;
http://www.it-license.com/cardinal_number/DecimalToBinary.html

ただ、今回は1になってるビットが奇数かどうかだけなのでビット順は逆になっても構わないだろうと、
速い方でリストにしてます。

blist n = (n `mod` 2):blist (n `div` 2)

だとビット順は逆さま。

blist n = (n `mod` 2) ++ blist (n `div` 2)

とすると正しい順番ですが遅くなります。

あとは1と0だけのリストなので合計求めて

sum.blist ―2進数に変換しながら1の合計を求める。

入力と関連付けて

zip list

奇数だけをフィルタリングしてます。

filodd = filter (\(_,y) -> odd y)

**デフォルトの名無しさん** · 2018/11/14(水) 07:53:25.46

>>477の実行結果

f @>1 2 3 4 11 13 100 777x
1 16 87 96 11 53 0 97

**デフォルトの名無しさん** · 2018/11/14(水) 08:04:51.77

>>477
最後の y の前に x: つければどのバージョンでも動くな
100 のとき 0 にならないからダメだけど

**デフォルトの名無しさん** · 2018/11/14(水) 08:08:08.67

>>483
＞100 のとき 0 にならないからダメだけど

いやこっちは言いがかりだった。ちゃんと動く。

◆QZaw55cn4c · 2018/11/14(水) 08:16:08.16

>>481
解説ありがとうございます。
＞blist n = (n `mod` 2) : blist (n `div` 2)
この : は (cond atom list) の : なんですね、なんとかわかるようになりました

◆QZaw55cn4c · 2018/11/14(水) 08:19:40.71

>>485
×(cond atom list)
○(cons atom list)

**デフォルトの名無しさん** · 2018/11/14(水) 08:34:57.16

言いがかりだったというか
いちゃもんを付けてごめんなさい

100|777x^777x^777x これはngで
777(100&|@^) 777x^777x これはok

とか勉強になりました (累乗の剰余の特別扱いか？)

**デフォルトの名無しさん** · 2018/11/14(水) 11:57:26.31

>>279
Kotlin
https://paiza.io/projects/PT0g18WlTHd6eyd_iXA5aQ

**デフォルトの名無しさん** · 2018/11/14(水) 14:12:11.78

ナップサック問題はNP困難らしいけど>>471は効率よく解けるのだろうか

**デフォルトの名無しさん** · 2018/11/14(水) 14:13:39.09

>>489
順列と足し算の問題ではないのか？
てか、今のところそれしか思い浮かばない。

**デフォルトの名無しさん** · 2018/11/14(水) 14:30:58.50

現実は荷物が一日１０万個くらいあるんだよなぁ

**デフォルトの名無しさん** · 2018/11/14(水) 14:57:13.49

正にコンピュータ向けの仕事

**デフォルトの名無しさん** · 2018/11/14(水) 15:18:37.83

実際は大量購入した方が安くなるから、よく出るサイズを大量購入して、それ以下の重量は全部よく出るサイズにした方が安上がりだったりする。
(だからアマゾンの箱は無駄にでかい)

まあこれはプログラミング上の問題だが。

**デフォルトの名無しさん** · 2018/11/14(水) 16:08:49.28

>>471
段ボール箱の容量の増減は割と簡単に出来る。

**デフォルトの名無しさん** · 2018/11/14(水) 18:30:10.19

>>279 octave
https://ideone.com/8QGk1s

**デフォルトの名無しさん** · 2018/11/14(水) 19:00:13.88

>>434 C
https://ideone.com/ecAVVC

**デフォルトの名無しさん** · 2018/11/14(水) 22:47:03.81

>>279 ruby
https://ideone.com/OugAmn

**デフォルトの名無しさん** · 2018/11/15(木) 00:59:29.19

>>279
python 3
https://ideone.com/moV2rT
ゴミ

**デフォルトの名無しさん** · 2018/11/15(木) 02:07:53.71

>>471
Kotlin

このアルゴリズムで良いのかいまいちわからん。
箱の中に入れられる最大の品物を詰め込み続け入れられなくなったら次の箱を用意して同じことを繰り返すという方法。
結果を見ると一応出来ているようではあるが、これでうまく行く理由がはっきりわからない。

https://paiza.io/projects/rWdvvAZRxR1Qhr8B6PaM2Q

入力は1行の先頭に容積、その後スペース区切りで品物の体積。
結果は箱の数とそれぞれの箱に詰め込んだ品物。

**デフォルトの名無しさん** · 2018/11/15(木) 05:46:40.53

>>499
C: 7
a: 3 3 2 2 2 2
最適は[3,2,2]と[3,2,2]の2箱でないといけない

**デフォルトの名無しさん** · 2018/11/15(木) 07:10:16.88

>>499
それだと 6, 5, 3, 2, 2, 2のとき[6, 3], [5, 2, 2] [2] になるが[6, 2, 2] [5, 2, 3]が最小

**デフォルトの名無しさん** · 2018/11/15(木) 07:14:44.92

>>501
C=10を書き忘れた上に既に同じ指摘が書かれてた

**499** · 2018/11/15(木) 09:09:38.39

>>500>>501>>502
なるほど。じゃあダメだな。

**497** · 2018/11/15(木) 18:39:12.67

>>279 ruby
https://ideone.com/WmHR8h
・ほんのりリファクタ

**114** · 2018/11/15(木) 23:46:11.08

>>471
Haskell

問題と同じ答えになったんだが、どうやら三番目は6個になるっぽい？
じゃあダメか。。。

main = print $ map mapbox (slist list)

slist xs = map (\(x,y) -> (x, qsort y)) xs

mapbox (x,y) = (x,box 0 x [] y)

box n _ [] [] = n
box n _ ns [] = n + 1
box n c ns [x] | c >= sum (x:ns) = n + 1
box n c ns [x] | c < sum (x:ns) = n + 2
box n c ns (x:xs) | c == sum (x:ns) = box (n + 1) c [] xs
box n c ns (x:xs) | c > sum (x:ns) = box n c (x:ns) xs
box n c ns (x:xs) | c < sum (x:ns) && c > sum ((minimum xs):ns) =
box n c ((last xs):ns) (x:(init xs))
box n c ns (x:xs) | c < sum (x:ns) && c < sum ((minimum xs):ns) =
box (n + 1) c [] (x:xs)
box n c ns (x:xs) | c < sum (x:ns) && c == sum ((minimum xs):ns) =
box (n + 1) c [] (x:(init xs))