プログラミングのお題スレです。
【出題と回答例】
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/
探検
プログラミングのお題スレ Part12
■ このスレッドは過去ログ倉庫に格納されています
2018/09/28(金) 10:09:07.13ID:phwOkayR
458デフォルトの名無しさん
2018/11/13(火) 11:28:29.90ID:/6RlnNZj459デフォルトの名無しさん
2018/11/13(火) 12:04:16.15ID:/6RlnNZj >>430
C
https://paiza.io/projects/Xq4YBZq4qJJLOZLsNTyWng
ライブラリ使用。
コンパイラとライブラリの対応の問題だろうが、32bit環境ではできなかった。time_t型がlongか何かになっていて足りなかったからだろうと思う。
まともに動くかどうかは(またはコンパイルできるかどうかは)環境依存ということになる。
C
https://paiza.io/projects/Xq4YBZq4qJJLOZLsNTyWng
ライブラリ使用。
コンパイラとライブラリの対応の問題だろうが、32bit環境ではできなかった。time_t型がlongか何かになっていて足りなかったからだろうと思う。
まともに動くかどうかは(またはコンパイルできるかどうかは)環境依存ということになる。
460デフォルトの名無しさん
2018/11/13(火) 14:23:32.25ID:TStmpOw3 >>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' "
| 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' "
461デフォルトの名無しさん
2018/11/13(火) 15:05:24.75ID:x0SFJuPP462デフォルトの名無しさん
2018/11/13(火) 16:16:43.59ID:GUmX5rsv >>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'} "
| 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'} "
463デフォルトの名無しさん
2018/11/13(火) 16:32:36.89ID:3gkxjay9 >>279
何かの行列足せば出来るんじゃね
何かの行列足せば出来るんじゃね
464デフォルトの名無しさん
2018/11/13(火) 17:15:46.99ID:GUmX5rsv >>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. "=>
'■□■■■■■□■■■■■□■
■□■□□□■□■□□□■□■
■■■□■■■□■■■□■■■
□□□□■□□□□□■□□□□
■■■□■■■□■■■□■■■
■□■□□□■□■□□□■□■
■□■■■■■□■■■■■□■
■□□□□□□□□□□□□□■
■■■□■■■■■■■□■■■
□□■□■□□□□□■□■□□
■■■□■■■□■■■□■■■
■□□□□□■□■□□□□□■
■□■■■□■□■□■■■□■
■□■□■□■□■□■□■□■
■■■□■■■□■■■□■■■' "
| 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. "=>
'■□■■■■■□■■■■■□■
■□■□□□■□■□□□■□■
■■■□■■■□■■■□■■■
□□□□■□□□□□■□□□□
■■■□■■■□■■■□■■■
■□■□□□■□■□□□■□■
■□■■■■■□■■■■■□■
■□□□□□□□□□□□□□■
■■■□■■■■■■■□■■■
□□■□■□□□□□■□■□□
■■■□■■■□■■■□■■■
■□□□□□■□■□□□□□■
■□■■■□■□■□■■■□■
■□■□■□■□■□■□■□■
■■■□■■■□■■■□■■■' "
465デフォルトの名無しさん
2018/11/13(火) 18:58:02.16ID:6xZ1V9iJ >>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
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
466デフォルトの名無しさん
2018/11/13(火) 19:36:47.61ID:57oATazI >>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
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
467デフォルトの名無しさん
2018/11/13(火) 21:13:13.10ID:VjbjD5Cz お題
直方体の体積を求めよ。三辺の長さはそれぞれ自然数+単位(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
直方体の体積を求めよ。三辺の長さはそれぞれ自然数+単位(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
468デフォルトの名無しさん
2018/11/13(火) 21:46:22.87ID:ZM1FA5dW >>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
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
469デフォルトの名無しさん
2018/11/13(火) 22:46:25.57ID:jgdNCfY5 プログラミング無料で学んで就職できる？
https://et-irodori.com/b/2202
https://et-irodori.com/b/2202
470デフォルトの名無しさん
2018/11/13(火) 22:49:55.39ID:YD+aXj03 無料ではないな。
お前の将来の給料からスクールに金が行く。
お前の将来の給料からスクールに金が行く。
471デフォルトの名無しさん
2018/11/14(水) 00:08:48.41ID:pC5Ut3Ig お題： 品物が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
すべての品物を複数のダンボール(容積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
473デフォルトの名無しさん
2018/11/14(水) 00:25:56.42ID:BDJVwe3s rucursiveならしょうがない
475デフォルトの名無しさん
2018/11/14(水) 01:04:38.44ID:xfEiy+CV476デフォルトの名無しさん
2018/11/14(水) 01:23:48.18ID:smxkN2Ql >>475
5はありえないから合ってるね
5はありえないから合ってるね
477デフォルトの名無しさん
2018/11/14(水) 05:43:59.41ID:BYIKTG47478デフォルトの名無しさん
2018/11/14(水) 06:20:37.22ID:W0CfAPru >>477
どのバージョンのJで100|777^777なんてできるんだよ…
どのバージョンのJで100|777^777なんてできるんだよ…
479デフォルトの名無しさん
2018/11/14(水) 06:24:21.52ID:W0CfAPru 書き方が嫌らしかった。
それ動かないんじゃないですかということ。
それ動かないんじゃないですかということ。
480デフォルトの名無しさん
2018/11/14(水) 06:38:51.58ID:BYIKTG47 >>478
v6で動いたけどな
v6で動いたけどな
481デフォルトの名無しさん
2018/11/14(水) 07:48:55.58ID:XWwMTSMS >>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)
むっちゃ愚直に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)
482デフォルトの名無しさん
2018/11/14(水) 07:53:25.46ID:BYIKTG47483デフォルトの名無しさん
2018/11/14(水) 08:04:51.77ID:W0CfAPru484デフォルトの名無しさん
2018/11/14(水) 08:08:08.67ID:W0CfAPru >>481
解説ありがとうございます。
＞blist n = (n `mod` 2) : blist (n `div` 2)
この : は (cond atom list) の : なんですね、なんとかわかるようになりました
解説ありがとうございます。
＞blist n = (n `mod` 2) : blist (n `div` 2)
この : は (cond atom list) の : なんですね、なんとかわかるようになりました
487デフォルトの名無しさん
2018/11/14(水) 08:34:57.16ID:W0CfAPru 言いがかりだったというか
いちゃもんを付けてごめんなさい
100|777x^777x^777x これはngで
777(100&|@^) 777x^777x これはok
とか勉強になりました (累乗の剰余の特別扱いか？)
いちゃもんを付けてごめんなさい
100|777x^777x^777x これはngで
777(100&|@^) 777x^777x これはok
とか勉強になりました (累乗の剰余の特別扱いか？)
488デフォルトの名無しさん
2018/11/14(水) 11:57:26.31ID:bryEJhFF489デフォルトの名無しさん
2018/11/14(水) 14:12:11.78ID:OQ399L2/ ナップサック問題はNP困難らしいけど>>471は効率よく解けるのだろうか
490デフォルトの名無しさん
2018/11/14(水) 14:13:39.09ID:bryEJhFF491デフォルトの名無しさん
2018/11/14(水) 14:30:58.50ID:BDJVwe3s 現実は荷物が一日１０万個くらいあるんだよなぁ
492デフォルトの名無しさん
2018/11/14(水) 14:57:13.49ID:bryEJhFF 正にコンピュータ向けの仕事
493デフォルトの名無しさん
2018/11/14(水) 15:18:37.83ID:XWwMTSMS 実際は大量購入した方が安くなるから、よく出るサイズを大量購入して、それ以下の重量は全部よく出るサイズにした方が安上がりだったりする。
(だからアマゾンの箱は無駄にでかい)
まあこれはプログラミング上の問題だが。
(だからアマゾンの箱は無駄にでかい)
まあこれはプログラミング上の問題だが。
494デフォルトの名無しさん
2018/11/14(水) 16:08:49.28ID:T5a0sRYf >>471
段ボール箱の容量の増減は割と簡単に出来る。
段ボール箱の容量の増減は割と簡単に出来る。
495デフォルトの名無しさん
2018/11/14(水) 18:30:10.19ID:whO97NBY496デフォルトの名無しさん
2018/11/14(水) 19:00:13.88ID:DmGPDAaP497デフォルトの名無しさん
2018/11/14(水) 22:47:03.81ID:whO97NBY498デフォルトの名無しさん
2018/11/15(木) 00:59:29.19ID:Q7kJgHrD499デフォルトの名無しさん
2018/11/15(木) 02:07:53.71ID:lbhTVho0 >>471
Kotlin
このアルゴリズムで良いのかいまいちわからん。
箱の中に入れられる最大の品物を詰め込み続け入れられなくなったら次の箱を用意して同じことを繰り返すという方法。
結果を見ると一応出来ているようではあるが、これでうまく行く理由がはっきりわからない。
https://paiza.io/projects/rWdvvAZRxR1Qhr8B6PaM2Q
入力は1行の先頭に容積、その後スペース区切りで品物の体積。
結果は箱の数とそれぞれの箱に詰め込んだ品物。
Kotlin
このアルゴリズムで良いのかいまいちわからん。
箱の中に入れられる最大の品物を詰め込み続け入れられなくなったら次の箱を用意して同じことを繰り返すという方法。
結果を見ると一応出来ているようではあるが、これでうまく行く理由がはっきりわからない。
https://paiza.io/projects/rWdvvAZRxR1Qhr8B6PaM2Q
入力は1行の先頭に容積、その後スペース区切りで品物の体積。
結果は箱の数とそれぞれの箱に詰め込んだ品物。
500デフォルトの名無しさん
2018/11/15(木) 05:46:40.53ID:uj0cmGI/501デフォルトの名無しさん
2018/11/15(木) 07:10:16.88ID:dYhTSjHD >>499
それだと 6, 5, 3, 2, 2, 2のとき[6, 3], [5, 2, 2] [2] になるが[6, 2, 2] [5, 2, 3]が最小
それだと 6, 5, 3, 2, 2, 2のとき[6, 3], [5, 2, 2] [2] になるが[6, 2, 2] [5, 2, 3]が最小
502デフォルトの名無しさん
2018/11/15(木) 07:14:44.92ID:dYhTSjHD >>501
C=10を書き忘れた上に既に同じ指摘が書かれてた
C=10を書き忘れた上に既に同じ指摘が書かれてた
504497
2018/11/15(木) 18:39:12.67ID:cWkAhR+7505114
2018/11/15(木) 23:46:11.08ID:lNkjj0jr >>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))
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))
506114
2018/11/15(木) 23:46:25.95ID:lNkjj0jr qsort [] = []
qsort (x:xs) = large ++ [x] ++ small
where
small = qsort [a|a <- xs,a <= x]
large = qsort [a|a <- xs,a > x]
list = [(30,[8,5,10,6,4,5,8,5,9,6,9]),
(120,[33,61,58,41,50,21,60,64]),
(120,[33,61,58,41,50,21,60,64,23,45,67,78,89])]
出力
[(30,3),(120,4),(120,7)]
qsort (x:xs) = large ++ [x] ++ small
where
small = qsort [a|a <- xs,a <= x]
large = qsort [a|a <- xs,a > x]
list = [(30,[8,5,10,6,4,5,8,5,9,6,9]),
(120,[33,61,58,41,50,21,60,64]),
(120,[33,61,58,41,50,21,60,64,23,45,67,78,89])]
出力
[(30,3),(120,4),(120,7)]
507デフォルトの名無しさん
2018/11/15(木) 23:52:24.73ID:Q7kJgHrD >>279
python 3
def wall2(height, width):
__maps = {x : [] for x in range(height)}
__counts = {w: [x for x in range(height) for y in range(width) if x + y == w] for w in range(height + width)}
__num = iter(range(1, 1 + height * width))
__for k,v in counts.items():
____for vv in sorted(v, reverse= not k % 2):maps[vv].append(next(num))
__for v in range(height):
____print(" ".join(map(lambda x: "%0{}d".format(len(str(width * height))) % x, maps[v])))
__else: print()
for x in [[3,3],[4,2],[3,5],[1,8]]: wall(*x)
やまほどrange()を書かないといけない宿業
python 3
def wall2(height, width):
__maps = {x : [] for x in range(height)}
__counts = {w: [x for x in range(height) for y in range(width) if x + y == w] for w in range(height + width)}
__num = iter(range(1, 1 + height * width))
__for k,v in counts.items():
____for vv in sorted(v, reverse= not k % 2):maps[vv].append(next(num))
__for v in range(height):
____print(" ".join(map(lambda x: "%0{}d".format(len(str(width * height))) % x, maps[v])))
__else: print()
for x in [[3,3],[4,2],[3,5],[1,8]]: wall(*x)
やまほどrange()を書かないといけない宿業
508114
2018/11/16(金) 08:32:20.01ID:00yShIqx >>506
結果がはみ出てた。。。
[(30,3),(120,4),(120,7)]
大きい順に入れて、はみ出たら一番小さいのを入れてみる(入ったら入れて、はみ出たらアカウント)アルゴリズムにしたけど、
大きい順に入れて、はみ出たら入る最大の数字に出会うまで探索。探すものが無くなったらカウントってアルゴリズムに変えても結果は変わらず。
どうやって三番目が6個で済むんだろ。
出来た人、アルゴリズム教えて＞＜
結果がはみ出てた。。。
[(30,3),(120,4),(120,7)]
大きい順に入れて、はみ出たら一番小さいのを入れてみる(入ったら入れて、はみ出たらアカウント)アルゴリズムにしたけど、
大きい順に入れて、はみ出たら入る最大の数字に出会うまで探索。探すものが無くなったらカウントってアルゴリズムに変えても結果は変わらず。
どうやって三番目が6個で済むんだろ。
出来た人、アルゴリズム教えて＞＜
509デフォルトの名無しさん
2018/11/16(金) 10:37:27.50ID:7Qu0EE2P510デフォルトの名無しさん
2018/11/16(金) 11:04:51.39ID:qaNu/as0 >>508
89 23| 67 45| 78 41| 60 21 33| 64 50| 61 58
全探索ではないけど
33 61 58 41 50 21 60 64 23 45 67 78 89
これを全ての順列作って前から順に120以内ぎりぎりのところで区切っていく
ってやり方で出てくる
このやり方もこれでは出来たけど最適解が必ず見つかるか分からない
89 23| 67 45| 78 41| 60 21 33| 64 50| 61 58
全探索ではないけど
33 61 58 41 50 21 60 64 23 45 67 78 89
これを全ての順列作って前から順に120以内ぎりぎりのところで区切っていく
ってやり方で出てくる
このやり方もこれでは出来たけど最適解が必ず見つかるか分からない
511114
2018/11/16(金) 11:42:51.07ID:00yShIqx >>510
ありがとう。
やってみたけど、こっちでは順列だと1個増えた。
(と言うか、自分もソートしてから渡してるので順列なんだよね。念のため小さい順にしたら増えた)
うーん。。。
やってる事同じっぽいのに、なぜだ。。。
ありがとう。
やってみたけど、こっちでは順列だと1個増えた。
(と言うか、自分もソートしてから渡してるので順列なんだよね。念のため小さい順にしたら増えた)
うーん。。。
やってる事同じっぽいのに、なぜだ。。。
512114
2018/11/16(金) 11:55:02.54ID:00yShIqx 自分は最後の一個入れようとして、入りきらなかったら入る分一個、はみ出た分一個で2個カウントしてるんだけど、そこが1個とカウントしてるとかだったり。。。
そう言う勘違いであってほしいな。。。
box n c ns [] [x] | c < sum (x:ns) = n + 2 -- x+nsで入りきらないので、nsで一個、xで一個。
じゃないと私じゃお手上げ＼(^o^)／
そう言う勘違いであってほしいな。。。
box n c ns [] [x] | c < sum (x:ns) = n + 2 -- x+nsで入りきらないので、nsで一個、xで一個。
じゃないと私じゃお手上げ＼(^o^)／
513デフォルトの名無しさん
2018/11/16(金) 11:57:38.57ID:qaNu/as0 入るとか入らないとかじゃなくてこの並びが出てきたら左から順に区切って行くだけだよ
89 23 67 45 78 41 60 21 33 64 50 61 58
89 23 67 45 78 41 60 21 33 64 50 61 58
514デフォルトの名無しさん
2018/11/16(金) 12:22:55.60ID:tOyusnlA >>511
510のやり方で最小値は求まるのでコードが間違ってる
510のやり方で最小値は求まるのでコードが間違ってる
515114
2018/11/16(金) 12:23:45.77ID:00yShIqx おおう。。。勘違い。
順列の意味勘違いしてた。
数学の順列か。分かった。
やってみる。
ありがとう。
順列の意味勘違いしてた。
数学の順列か。分かった。
やってみる。
ありがとう。
516デフォルトの名無しさん
2018/11/16(金) 12:25:57.98ID:tOyusnlA517114
2018/11/16(金) 15:20:04.95ID:00yShIqx 多分これで出るはずだけど、家のPCが低スペックでメモリ不足で止まる。。。(ideoneでも止まる辺り、現実的じゃない)
(小さいリストでは確かめて見たので、動いてるっぽい？)
import Data.List
main = print $ map (\(x,ys)->(x, bmin x ys)) list
bmin x xs = minimum $ map (\lst -> box 0 x [] lst)
$ permutations xs
box c x [] [] = c
box c x ns [] = c + 1
box c x ns (y:ys) | x < sum (y:ns) = box (c + 1) x [] (y:ys)
box c x ns (y:ys) | x >= sum (y:ns) = box c x (y:ns) ys
list = [(30,[8,5,10,6,4,5,8,5,9,6,9]),
(120,[33,61,58,41,50,21,60,64]),
(120,[33,61,58,41,50,21,60,64,23,45,67,78,89])]
せっかく >>510 さんに順列と言うヒント貰っておいて活かしきれてない。。。ごめん。
(小さいリストでは確かめて見たので、動いてるっぽい？)
import Data.List
main = print $ map (\(x,ys)->(x, bmin x ys)) list
bmin x xs = minimum $ map (\lst -> box 0 x [] lst)
$ permutations xs
box c x [] [] = c
box c x ns [] = c + 1
box c x ns (y:ys) | x < sum (y:ns) = box (c + 1) x [] (y:ys)
box c x ns (y:ys) | x >= sum (y:ns) = box c x (y:ns) ys
list = [(30,[8,5,10,6,4,5,8,5,9,6,9]),
(120,[33,61,58,41,50,21,60,64]),
(120,[33,61,58,41,50,21,60,64,23,45,67,78,89])]
せっかく >>510 さんに順列と言うヒント貰っておいて活かしきれてない。。。ごめん。
518114
2018/11/16(金) 15:22:31.31ID:00yShIqx >>510 さんに折角、順列って言うヒント貰っておいて活かせなかった。
ごめん。
ごめん。
519デフォルトの名無しさん
2018/11/16(金) 15:27:37.42ID:7Qu0EE2P 箱に入れた量で大小関係を付けると６個で３６通り
520デフォルトの名無しさん
2018/11/16(金) 15:40:46.44ID:i0pW9pnK >>471
https://ideone.com/gsuOUp
力技、順列力技ゆえN<=20程度しか求められない。
TSPのやつの変形(2^n*n)、
冗長な計算してるのだろうが、実装できない
ついでに、min(乱択(5000回),貪欲解*2) 回答も書いてみた。
最初のと比較をしてみると、3000テストで42個、間違えた。
(ideone上は100テストで2つ間違っている)
※N,Cが小さければ、
この程度で、そのくらい当たりやすい問題なのだろう。
(逆に間違いを探すのが大変)
余談
これは『ビンパッキング問題』そのもの
でかいNに対しては、ググればもっといい近似値の求め方がある。
https://ideone.com/gsuOUp
力技、順列力技ゆえN<=20程度しか求められない。
TSPのやつの変形(2^n*n)、
冗長な計算してるのだろうが、実装できない
ついでに、min(乱択(5000回),貪欲解*2) 回答も書いてみた。
最初のと比較をしてみると、3000テストで42個、間違えた。
(ideone上は100テストで2つ間違っている)
※N,Cが小さければ、
この程度で、そのくらい当たりやすい問題なのだろう。
(逆に間違いを探すのが大変)
余談
これは『ビンパッキング問題』そのもの
でかいNに対しては、ググればもっといい近似値の求め方がある。
521デフォルトの名無しさん
2018/11/16(金) 17:13:07.29ID:36ZZe95D ビンパッキングって焼きなまし法(近傍が分からない)のとビームサーチ、どっちが効率良いだろうか
522デフォルトの名無しさん
2018/11/16(金) 17:37:36.91ID:t5p43h9A お題：nの階乗の末尾の連続した0の個数を求める。（過去スレから）
523デフォルトの名無しさん
2018/11/16(金) 17:46:29.02ID:TvsPH/qp >>522 Ruby
f = ->n{s = 0; while 0 < n /= 5; s += n; end; s}
[0, 1, 2, 3, 4, 5, 10, 100, 1000000,
10000000000000000].each{|e| puts '%d => %d' % [e, f[e]]}
# =>
0 => 0
1 => 0
2 => 0
3 => 0
4 => 0
5 => 1
10 => 2
100 => 24
1000000 => 249998
10000000000000000 => 2499999999999996
f = ->n{s = 0; while 0 < n /= 5; s += n; end; s}
[0, 1, 2, 3, 4, 5, 10, 100, 1000000,
10000000000000000].each{|e| puts '%d => %d' % [e, f[e]]}
# =>
0 => 0
1 => 0
2 => 0
3 => 0
4 => 0
5 => 1
10 => 2
100 => 24
1000000 => 249998
10000000000000000 => 2499999999999996
524デフォルトの名無しさん
2018/11/16(金) 19:19:00.00ID:KTZidSV2 お題
N段の三角形ピラミッドの一筆書きを構成せよ
例えば、2段の三角形ピラミッドは以下のような図形である
△
△ △
頂点の番号は上から順番に
1
2 3
4 5 6
……
と与えられる。
(入出力例)
N=1
=> 3 2 1 3
N=2
=> 1 2 4 5 2 3 5 6 3 1
=> 1 3 5 6 3 2 5 4 2 1 (解は複数あるが、そのうちの一つを出力すればよい)
N段の三角形ピラミッドの一筆書きを構成せよ
例えば、2段の三角形ピラミッドは以下のような図形である
△
△ △
頂点の番号は上から順番に
1
2 3
4 5 6
……
と与えられる。
(入出力例)
N=1
=> 3 2 1 3
N=2
=> 1 2 4 5 2 3 5 6 3 1
=> 1 3 5 6 3 2 5 4 2 1 (解は複数あるが、そのうちの一つを出力すればよい)
525デフォルトの名無しさん
2018/11/16(金) 20:05:31.22ID:JjlNk60X >>524 Ruby
def hitofude(n)
return [1] if n == 0
x, y = n*(n + 1)/2, (n + 1)*(n + 2)/2
[
y,
*hitofude(n - 1),
*(1...n).flat_map{|i| [y - i, x - i]},
*(x + 1..y),
]
end
[2, 3, 4].each{|i| p hitofude(i)}
# =>
[6, 3, 1, 2, 3, 5, 2, 4, 5, 6]
[10, 6, 3, 1, 2, 3, 5, 2, 4, 5, 6, 9, 5, 8, 4, 7, 8, 9, 10]
[15, 10, 6, 3, 1, 2, 3, 5, 2, 4, 5, 6, 9, 5, 8, 4, 7, 8, 9, 10, 14, 9, 13, 8, 12, 7, 11, 12, 13, 14, 15]
def hitofude(n)
return [1] if n == 0
x, y = n*(n + 1)/2, (n + 1)*(n + 2)/2
[
y,
*hitofude(n - 1),
*(1...n).flat_map{|i| [y - i, x - i]},
*(x + 1..y),
]
end
[2, 3, 4].each{|i| p hitofude(i)}
# =>
[6, 3, 1, 2, 3, 5, 2, 4, 5, 6]
[10, 6, 3, 1, 2, 3, 5, 2, 4, 5, 6, 9, 5, 8, 4, 7, 8, 9, 10]
[15, 10, 6, 3, 1, 2, 3, 5, 2, 4, 5, 6, 9, 5, 8, 4, 7, 8, 9, 10, 14, 9, 13, 8, 12, 7, 11, 12, 13, 14, 15]
526デフォルトの名無しさん
2018/11/16(金) 21:39:18.95ID:0oMzWKAu527デフォルトの名無しさん
2018/11/17(土) 09:45:00.71ID:u+BaxmkL >>471
やった。
順列使わないで三番目が6個になった！
Haskell
main = mapM_ print $ map mapbox (slist list)
slist xs = map (\(x,y) -> (x, qsort y)) xs
mapbox (x,y) = (x,length (box x [] [] y))
box _ [] [] [] = [[]]
box _ ns [] [] = [ns]
box c ns ys [x] | c >= sum (x:ns) = box c (x:ns) [] (reverse ys)
box c ns ys [x] | c < sum (x:ns) = [ns] ++ box c [] [] (reverse (x:ys))
box c ns ys (x:xs) | c >= sum (x:ns) = box c (x:ns) ys xs
box c ns ys (x:xs) | c < sum (x:ns) && c >= sum ((last xs):ns) = box c ns (x:ys) xs
box c ns ys (x:xs) | c < sum (x:ns) && c < sum ((last xs):ns) = [ns] ++ box c [] [] (reverse ys ++ (x:xs))
qsort [] = []
qsort (x:xs) = large ++ [x] ++ small
where
small = qsort [a|a <- xs,a <= x]
large = qsort [a|a <- xs,a > x]
list = [(30,[8,5,10,6,4,5,8,5,9,6,9]),
(120,[33,61,58,41,50,21,60,64]),
(120,[33,61,58,41,50,21,60,64,23,45,67,78,89])]
やった。
順列使わないで三番目が6個になった！
Haskell
main = mapM_ print $ map mapbox (slist list)
slist xs = map (\(x,y) -> (x, qsort y)) xs
mapbox (x,y) = (x,length (box x [] [] y))
box _ [] [] [] = [[]]
box _ ns [] [] = [ns]
box c ns ys [x] | c >= sum (x:ns) = box c (x:ns) [] (reverse ys)
box c ns ys [x] | c < sum (x:ns) = [ns] ++ box c [] [] (reverse (x:ys))
box c ns ys (x:xs) | c >= sum (x:ns) = box c (x:ns) ys xs
box c ns ys (x:xs) | c < sum (x:ns) && c >= sum ((last xs):ns) = box c ns (x:ys) xs
box c ns ys (x:xs) | c < sum (x:ns) && c < sum ((last xs):ns) = [ns] ++ box c [] [] (reverse ys ++ (x:xs))
qsort [] = []
qsort (x:xs) = large ++ [x] ++ small
where
small = qsort [a|a <- xs,a <= x]
large = qsort [a|a <- xs,a > x]
list = [(30,[8,5,10,6,4,5,8,5,9,6,9]),
(120,[33,61,58,41,50,21,60,64]),
(120,[33,61,58,41,50,21,60,64,23,45,67,78,89])]
528デフォルトの名無しさん
2018/11/17(土) 09:45:32.76ID:u+BaxmkL qsort (x:xs) = large ++ [x] ++ small
where
small = qsort [a|a <- xs,a <= x]
large = qsort [a|a <- xs,a > x]
list = [(30,[8,5,10,6,4,5,8,5,9,6,9]),
(120,[33,61,58,41,50,21,60,64]),
(120,[33,61,58,41,50,21,60,64,23,45,67,78,89])]
where
small = qsort [a|a <- xs,a <= x]
large = qsort [a|a <- xs,a > x]
list = [(30,[8,5,10,6,4,5,8,5,9,6,9]),
(120,[33,61,58,41,50,21,60,64]),
(120,[33,61,58,41,50,21,60,64,23,45,67,78,89])]
529デフォルトの名無しさん
2018/11/17(土) 09:46:31.74ID:u+BaxmkL (120,[33,61,58,41,50,21,60,64,23,45,67,78,89])]
>>496
やっと理解しました…すべての xor 演算を利用しているわけではないのですね…
やっと理解しました…すべての xor 演算を利用しているわけではないのですね…
531デフォルトの名無しさん
2018/11/17(土) 11:41:54.02ID:u+BaxmkL >>522
Haskell
main = mapM_ print $ zip list $ map zlen list
zlen x = (length.(filter (== '0')).show.product) [1..x]
list = [0,1,2,3,4,5,10,100,1000,10000]
Out
(0,0)
(1,0)
(2,0)
(3,0)
(4,0)
(5,1)
(10,2)
(100,30)
(1000,472)
(10000,5803)
Haskell
main = mapM_ print $ zip list $ map zlen list
zlen x = (length.(filter (== '0')).show.product) [1..x]
list = [0,1,2,3,4,5,10,100,1000,10000]
Out
(0,0)
(1,0)
(2,0)
(3,0)
(4,0)
(5,1)
(10,2)
(100,30)
(1000,472)
(10000,5803)
532デフォルトの名無しさん
2018/11/17(土) 12:12:32.80ID:PHz1iip2 >>531
よーわからんが末尾じゃなくてすべての0を数えてない？
よーわからんが末尾じゃなくてすべての0を数えてない？
533デフォルトの名無しさん
2018/11/17(土) 12:27:52.98ID:z9owpr8+ >>522 ぺちぷ
<?php
function solve(int $n):int{
$a=0;
for($i=5;$i<=$n;$i*=5)$a+=intdiv($n,$i);
return $a;
}
foreach([1,5,10,1e2,1e6,1e16] as $i)printf("%d -> %d\n",$i,solve($i));
?>
1 -> 0
5 -> 1
10 -> 2
100 -> 24
1000000 -> 249998
10000000000000000 -> 2499999999999996
<?php
function solve(int $n):int{
$a=0;
for($i=5;$i<=$n;$i*=5)$a+=intdiv($n,$i);
return $a;
}
foreach([1,5,10,1e2,1e6,1e16] as $i)printf("%d -> %d\n",$i,solve($i));
?>
1 -> 0
5 -> 1
10 -> 2
100 -> 24
1000000 -> 249998
10000000000000000 -> 2499999999999996
534デフォルトの名無しさん
2018/11/17(土) 12:46:05.88ID:u+BaxmkL535デフォルトの名無しさん
2018/11/17(土) 12:48:16.01ID:u+BaxmkL 実行結果
(0,0)
(1,0)
(2,0)
(3,0)
(4,0)
(5,1)
(10,2)
(100,24)
(1000,249)
(10000,2499)
(0,0)
(1,0)
(2,0)
(3,0)
(4,0)
(5,1)
(10,2)
(100,24)
(1000,249)
(10000,2499)
536デフォルトの名無しさん
2018/11/17(土) 15:08:29.22ID:thhERN1M >>522 Perl5 その1:単純にloop
for $i (0,1,2,3,4,5,10,100,1000,10000,1000000) {
($s, $n) = ($i, 0);
while ($s) {
$s = int $s / 5;
$n += $s;
}
print "$i $n\n";
}
>>522 Perl5 その2: lambdaのtail recursion
use feature current_sub;
for $i (0,1,2,3,4,5,10,100,1000,10000,1000000) {
$n = sub {my $j = shift;
$j ? do {my $s = int $j / 5;
$s + __SUB__->($s)} : 0;
}->($i);
print "$i $n\n";
}
いずれも実行結果は
$ perl 12_522.pl
0 0
1 0
2 0
3 0
4 0
5 1
10 2
100 24
1000 249
10000 2499
1000000 249998
= i/5のreductionよりもエレガントな解法をしばらく考えていたけど一旦断念して投稿します
for $i (0,1,2,3,4,5,10,100,1000,10000,1000000) {
($s, $n) = ($i, 0);
while ($s) {
$s = int $s / 5;
$n += $s;
}
print "$i $n\n";
}
>>522 Perl5 その2: lambdaのtail recursion
use feature current_sub;
for $i (0,1,2,3,4,5,10,100,1000,10000,1000000) {
$n = sub {my $j = shift;
$j ? do {my $s = int $j / 5;
$s + __SUB__->($s)} : 0;
}->($i);
print "$i $n\n";
}
いずれも実行結果は
$ perl 12_522.pl
0 0
1 0
2 0
3 0
4 0
5 1
10 2
100 24
1000 249
10000 2499
1000000 249998
= i/5のreductionよりもエレガントな解法をしばらく考えていたけど一旦断念して投稿します
537デフォルトの名無しさん
2018/11/17(土) 17:48:20.07ID:corCuJCM お題
月(01から12)、日(01から31)、時(00から59)、分(00から59)、秒(00から59)の10桁の日付データで
全部の桁が異なる場合を全て求める。だ
月(01から12)、日(01から31)、時(00から59)、分(00から59)、秒(00から59)の10桁の日付データで
全部の桁が異なる場合を全て求める。だ
538デフォルトの名無しさん
2018/11/17(土) 17:53:02.90ID:corCuJCM すいません。最後の文字はゴミです無視してください
539デフォルトの名無しさん
2018/11/17(土) 18:44:23.27ID:eb0sqdRj >>537
時って00から23じゃないの？
時って00から23じゃないの？
540デフォルトの名無しさん
2018/11/17(土) 19:03:48.66ID:corCuJCM541デフォルトの名無しさん
2018/11/17(土) 19:42:56.43ID:qglse9qW >>537 Ruby
date = (3..9).flat_map do |mo|
[*1..2].permutation.flat_map do |dd, dh|
([*3..5] - [mo]).permutation(2).flat_map do |dm, ds|
([*3..9] - [mo, dm, ds]).permutation.map do |d, h, m, s|
[0, mo, dd, d, dh, h, dm, m, ds, s] if dh == 1 || h < 4
end
end
end
end.compact
p date.size
# => 768
puts date.map(&:join)
# => 0326174859
0326174958
0326184759
0326184957
0326194758
0326194857
0327164859
0327164958
0327184659
0327184956
... 略
date = (3..9).flat_map do |mo|
[*1..2].permutation.flat_map do |dd, dh|
([*3..5] - [mo]).permutation(2).flat_map do |dm, ds|
([*3..9] - [mo, dm, ds]).permutation.map do |d, h, m, s|
[0, mo, dd, d, dh, h, dm, m, ds, s] if dh == 1 || h < 4
end
end
end
end.compact
p date.size
# => 768
puts date.map(&:join)
# => 0326174859
0326174958
0326184759
0326184957
0326194758
0326194857
0327164859
0327164958
0327184659
0327184956
... 略
542デフォルトの名無しさん
2018/11/17(土) 20:18:24.56ID:e9k3MEr9 東西ローマ帝国勃興期か
胸が熱くなるな
胸が熱くなるな
543デフォルトの名無しさん
2018/11/17(土) 20:30:15.26ID:z9owpr8+ >>536
ルジャンドルの定理がエレガントでは無いと申すか
ルジャンドルの定理がエレガントでは無いと申すか
544デフォルトの名無しさん
2018/11/17(土) 20:54:52.23ID:u+BaxmkL >>537
Haskell
main = ((mapM_ putStrLn).only.(zip (ccheck date10))) date10
n2 n | n < 10 = '0':show n
n2 n = show n
only = (map (\(_, d) -> d)).filter (\(x,_) -> x == False)
ccheck = map ((elem False).count)
count xs = map (\c -> ((<2).length.(filter (== c))) xs) "1234567890"
date10 = [concat [n2 month, "/", n2 day, " ", n2 hour, ":", n2 minut, ":", n2 sec]
| month <- [0..12], day <- [0..31], hour <- [0..24], minut <- [0..60], sec <- [0..60]]
パターン数字や最初付近が合ってるかはRubyの人(>>541)ので確認したので多分合ってる。
Haskell
main = ((mapM_ putStrLn).only.(zip (ccheck date10))) date10
n2 n | n < 10 = '0':show n
n2 n = show n
only = (map (\(_, d) -> d)).filter (\(x,_) -> x == False)
ccheck = map ((elem False).count)
count xs = map (\c -> ((<2).length.(filter (== c))) xs) "1234567890"
date10 = [concat [n2 month, "/", n2 day, " ", n2 hour, ":", n2 minut, ":", n2 sec]
| month <- [0..12], day <- [0..31], hour <- [0..24], minut <- [0..60], sec <- [0..60]]
パターン数字や最初付近が合ってるかはRubyの人(>>541)ので確認したので多分合ってる。
545デフォルトの名無しさん
2018/11/17(土) 20:56:09.09ID:u+BaxmkL ccheck = map ((elem False).count)
count xs = map (\c -> ((<2).length.(filter (== c))) xs) "1234567890"
date10 = [concat [n2 month, "/", n2 day, " ", n2 hour, ":", n2 minut, ":", n2 sec]
| month <- [0..12], day <- [0..31], hour <- [0..24], minut <- [0..60], sec <- [0..60]]
>>541 の人ので答え合わせしたので、多分合ってる。
count xs = map (\c -> ((<2).length.(filter (== c))) xs) "1234567890"
date10 = [concat [n2 month, "/", n2 day, " ", n2 hour, ":", n2 minut, ":", n2 sec]
| month <- [0..12], day <- [0..31], hour <- [0..24], minut <- [0..60], sec <- [0..60]]
>>541 の人ので答え合わせしたので、多分合ってる。
546デフォルトの名無しさん
2018/11/17(土) 20:57:39.57ID:u+BaxmkL date10 = [concat [n2 month, "/", n2 day, " ", n2 hour, ":", n2 minut, ":", n2 sec]
| month <- [0..12], day <- [0..31], hour <- [0..24], minut <- [0..60], sec <- [0..60]]
>>541 の結果で答え合わせ済み。
| month <- [0..12], day <- [0..31], hour <- [0..24], minut <- [0..60], sec <- [0..60]]
>>541 の結果で答え合わせ済み。
547デフォルトの名無しさん
2018/11/17(土) 20:58:20.76ID:u+BaxmkL >>541 の結果で答え合わせ済み。
548デフォルトの名無しさん
2018/11/17(土) 21:15:29.25ID:qglse9qW549デフォルトの名無しさん
2018/11/17(土) 22:37:13.60ID:BeWwS75G >>537 Perl5
sub f {grep{!/(.)\1/} map{sprintf "%02d", $_} @_}
sub g {map{$_=>1} split'', shift}
for $M (1..10,12) {
($S) = f($M);
$D = $M == 2 ? 28 : ($M =~ /(4|6|9)/ ? 30 : 31);
for $d (f 1..$D) {
%t = g "$S$d";
next if 4 != keys %t;
for $h (f 1..23) {
%t = g "$S$d$h";
next if 6 != keys %t;
for $m (f 0..59) {
%t = map{$_=>1} split'', "$S$d$h$m";
next if 8 != keys %t;
for $s (f 0..59) {
%t = map{$_=>1} split'', "$S$d$h$m$s";
next if 10 != keys %t;
print "$S$d$h$m$s\n";
} } } } }
実行結果
$ perl 12_537.pl
0326174859
0326174958
0326175849
... 中略
0928175436
0928175634
0928175643
計768個
sub f {grep{!/(.)\1/} map{sprintf "%02d", $_} @_}
sub g {map{$_=>1} split'', shift}
for $M (1..10,12) {
($S) = f($M);
$D = $M == 2 ? 28 : ($M =~ /(4|6|9)/ ? 30 : 31);
for $d (f 1..$D) {
%t = g "$S$d";
next if 4 != keys %t;
for $h (f 1..23) {
%t = g "$S$d$h";
next if 6 != keys %t;
for $m (f 0..59) {
%t = map{$_=>1} split'', "$S$d$h$m";
next if 8 != keys %t;
for $s (f 0..59) {
%t = map{$_=>1} split'', "$S$d$h$m$s";
next if 10 != keys %t;
print "$S$d$h$m$s\n";
} } } } }
実行結果
$ perl 12_537.pl
0326174859
0326174958
0326175849
... 中略
0928175436
0928175634
0928175643
計768個
550デフォルトの名無しさん
2018/11/17(土) 23:10:25.25ID:u+BaxmkL551デフォルトの名無しさん
2018/11/17(土) 23:53:27.88ID:BeWwS75G >>543
数学的にルジャンドルの定理と同じ原理に帰結する解法であっても
もっとエレガントなコードアーキテクチャ、たとえば桁の三角形の5と10を
再帰的に渡り歩いてshiftしながら足しこんでいくようなすごくシンプルで、
もっと短いコード実現を探してたという意味です。
つか5とか10とか100とか通過するたびに0が一桁二桁増えることに
パターンがあるのに気がついてうまく使おうとしたけど、
それがルジャンドルの定理のひとつだとは知りゃせんでした。
数学的にルジャンドルの定理と同じ原理に帰結する解法であっても
もっとエレガントなコードアーキテクチャ、たとえば桁の三角形の5と10を
再帰的に渡り歩いてshiftしながら足しこんでいくようなすごくシンプルで、
もっと短いコード実現を探してたという意味です。
つか5とか10とか100とか通過するたびに0が一桁二桁増えることに
パターンがあるのに気がついてうまく使おうとしたけど、
それがルジャンドルの定理のひとつだとは知りゃせんでした。
552デフォルトの名無しさん
2018/11/18(日) 00:08:39.78ID:2kF9kdFV 25 125が出てこない辺り理屈わかってなさそう
553デフォルトの名無しさん
2018/11/18(日) 00:17:41.21ID:XHHQeobW554デフォルトの名無しさん
2018/11/18(日) 05:42:08.97ID:HhgIFMcS 分かっちゃ居たけど、聞いたこともない定理が出る辺り高卒にはエレガントな回答は無理ぽ。。。
555デフォルトの名無しさん
2018/11/18(日) 10:00:29.21ID:5NL96rQC556デフォルトの名無しさん
2018/11/18(日) 10:39:30.27ID:Q5hV0WNe557デフォルトの名無しさん
2018/11/18(日) 11:15:29.83ID:HhgIFMcS >>522
せっかくルジャンドルの定理を知ったので作り直してみた。
Haskell
main = ((mapM_ print).(zip list).(map (zlen 0 1))) list
zlen ans x n | 5 ^ x > n = ans
zlen ans x n = zlen (n `div` (5 ^ x) + ans) (x + 1) n
list = [0,1,2,3,4,5,10,100,1000,10000,12000,100000000]
せっかくルジャンドルの定理を知ったので作り直してみた。
Haskell
main = ((mapM_ print).(zip list).(map (zlen 0 1))) list
zlen ans x n | 5 ^ x > n = ans
zlen ans x n = zlen (n `div` (5 ^ x) + ans) (x + 1) n
list = [0,1,2,3,4,5,10,100,1000,10000,12000,100000000]
558デフォルトの名無しさん
2018/11/18(日) 13:05:15.26ID:oKOqkAfz お題：同調圧力
要素０，１からなる3次以上の正方行列がある。
縦、横、対角線に０が1個だと1に変化する。この変化が繰り返される。
最後にすべての要素が1になる最小数の１の数と初期配置を求めよ。
要素０，１からなる3次以上の正方行列がある。
縦、横、対角線に０が1個だと1に変化する。この変化が繰り返される。
最後にすべての要素が1になる最小数の１の数と初期配置を求めよ。
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 中国国営メディア「沖縄は日本ではない」… [BFU★]
- 中国国営メディア「沖縄は日本ではない」… ★2 [BFU★]
- 【こんなの初めて…】民泊には既にキャンセルも 中国の渡航自粛で [ぐれ★]
- 高市政権にパイプ役不在…日中高まる緊張 公明党の連立離脱影響、自民内にも懸念「自分でまいた種は自分で刈り取ってもらわないと」 [ぐれ★]
- 「稼ぐのよ!」高市総理が電話ガチャ切りで伝えたこと 鈴木憲和農林水産大臣が国政報告会に出席 自身が目指す農政の方針語る [煮卵★]
- 秋田県警本部機動隊の敷地にクマ [nita★]
- 【悲報】中国の輸入で生活してるジャップがその中国に戦争吹っ掛ける理由、誰にもわからない😰 [616817505]
- 【高市悲報】アメリカ戦争省「あのさ、何回シミュレートしてもわーくに中国に負けちゃうんだよね🤗」 [359965264]
- ジャップ、今更気付く。スーパー店員｢レジに椅子導入したら楽になりました｣ [242521385]
- 自民「高市の一言でこれまで積み上げてきた関係が駄目になる。言葉の重みを分かっていない。自分でまいた種は自分で刈り取ってもらう」 [256556981]
- 中国国営放送「日本は琉球をただちに中国に返還せよ」 ｷﾀ━━━━(ﾟ∀ﾟ)━━━━!!!!! [314039747]
- 【悲報】高市経済ブレーン「積極財政は円高要因ですよ」 [237216734]