X
プログラミングのお題スレ Part16
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
垢版 |
2019/11/17(日) 09:00:22.10ID:xqEdXdr6
プログラミングのお題スレです。

【出題と回答例】
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/

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

※前スレ
プログラミングのお題スレ Part15
http://mevius.5ch.net/test/read.cgi/tech/1564310397/
0326デフォルトの名無しさん
垢版 |
2019/12/15(日) 22:58:29.31ID:myBFLrpG
4ピンのハノイの塔(河内塔)
n枚の円盤は最初ピン0にある。n枚すべてをピン3に移動させる。

条件：
　小円盤の上に大円盤を載せられない。
　ピン1とピン2には最大1枚しか置けない。
0327デフォルトの名無しさん
垢版 |
2019/12/15(日) 23:12:15.95ID:myBFLrpG
・n=2 のとき
12, -, -, -
2, 1, -, -
-, 1, -, 2
-, -, -, 12　　(3手)

・n=3 のとき
123, -, -, -
23, 1, -, -
3, 1, 2, -
-, 1, 2, 3
-, 1, -, 23
-, -, -, 123　　(5手)

・n=4 のとき
1234, -, -, -
234, 1, -, -
34, 1, 2, -
4, 1, 2, 3
4, 1, -, 23
-, 1, 4, 23
2, 1, 4, 3
12, -, 4, 3
12, 3, 4, -
12, 3, -, 4
12, -, -, 34
2, 1, -, 34
-, 1, -, 234
-, -, -, 1234　　(13手)
0328デフォルトの名無しさん
垢版 |
2019/12/15(日) 23:25:59.52ID:myBFLrpG
・n=5 のとき
12345, -, -, -
2345, 1, -, -
345, 1, 2, -
45, 1, 2, 3
45, 1, -, 23
45, -, -, 123
5, 4, -, 123
-, 4, 5, 123
4, -, 5, 123
4, 1, 5, 23
24, 1, 5, 3
124, -, 5, 3
124, 3, 5, -
124, 3, -, 5
24, 3, 1, 5
4, 3, 1, 25
4, 3, -, 125
-, 3, 4, 125
3, -, 4, 125
3, 1, 4, 25
23, 1, 4, 5
23, 1, -, 45
3, 1, 2, 45
-, 1, 2, 345
-, 1, -, 2345
-, -, -, 12345　　(25手)
0329デフォルトの名無しさん
垢版 |
2019/12/16(月) 08:07:19.12ID:YuYKZXFs
お題：

ここに単語を登録したリストがある
リストには以下の種類の言葉が存在する

単語：（例）くさり
単語解説：（例）環状の部品を繋げて線状にしたもの

リストには上記ペアを１単位として、ずらずら並んでいる
（数十個くらい）

リストの中の似たような単語を探し、
以下のサンプルのようにボケ、ツッコミを繰り返すプログラムを作れ
似たような単語が見つからない場合には
最後に「こうじ：お前とはもうやってられませんわ」とprintし、
プログラムを終了せよ

動作サンプル：
こうじ：「くさび」を見ると興奮するよね
てつお：ああ、環状の部品を繋げて線状にしたものね
こうじ：それは「くさり」
てつお：ああ、マルスダレガイ科に属する二枚貝ね
こうじ：それは「あさり」
てつお：ああ、慰安婦の嘘を書いた新聞ね
こうじ：それは「あさひ」
こうじ：お前とはもうやってられませんわ
0330デフォルトの名無しさん
垢版 |
2019/12/16(月) 09:38:23.88ID:UpTR80vx
>>326
・n≧6のとき
ピン1とピン2には各1個しか置けないから 1〜(n-1) を置くことはできない。
∴　n を ピン0 から ピン3 に直送することはできない。
∴　ピン0 → ピン1 → ピン3　と送ろう。
まず 12345 をピン2、ピン3に退避する。(n=6の場合)
　123456, -, -, -
　6, -, m, 12345-m　　(1≦m≦5)
　6, -, -, 12345　　　　は m=1 と見なす。
　-, 6, m, 12345-m
次にピン3を空けるため、ピン0とピン2に移すことになる。
しかしピン0には3枚しか移動できず、ピン3に n-5枚残ってしまう。
∴ n≧6 では不可能。
0331デフォルトの名無しさん
垢版 |
2019/12/16(月) 10:03:17.28ID:UpTR80vx
条件を変えたらどうなるか？

条件(1,1)
　ピン1、ﾋﾟﾝ2には最大で１枚しか置けない。　　　>>326

条件(1,2)
　ピン1には最大で1枚、ピン2には最大で2枚しか置けない。

条件(2,2)
　ピン1、ピン2には最大で2枚しか置けない。
0334デフォルトの名無しさん
垢版 |
2019/12/16(月) 15:02:43.75ID:b9yK9thh
>>317
perl5

cat digits
2019
102030
123

cat digits | perl -lane '$zero = 0; while (s/0//) {++$zero}; print $_ . "0" x $zero;'
2190
123000
123
0335デフォルトの名無しさん
垢版 |
2019/12/16(月) 17:56:02.69ID:rcGH9Ke6
>>317 Ruby

def f(n)
n.to_s.chars.partition{|x| x !="0"}.join .to_i
end
0336◆QZaw55cn4c
垢版 |
2019/12/16(月) 20:29:58.89ID:NZyGx79l
>>326
これ昔やったことがありますが、すっかり忘れてしまったのは残念ですね…
0337デフォルトの名無しさん
垢版 |
2019/12/16(月) 22:11:10.55ID:Ppfui4Eb
>>317 PowerShell
function f($n) {($n -replace "0", "") + ($n -replace "[^0]", "")}
0340デフォルトの名無しさん
垢版 |
2019/12/17(火) 13:17:36.43ID:EDJKyz+u
>>317 julia
function f(n)
　　r = ""
　　for c = reverse(string(n))
　　　　if c == '0'
　　r = r * c
　　　　else
　　　　　　r = c * r
　　　　end
　　end
　　parse(Int, r)
end
0341デフォルトの名無しさん
垢版 |
2019/12/17(火) 17:33:51.45ID:/DSBUbt2
お題
任意の文字列からaが連続する最も長い長さを出力してください

入力:acgtaattgaaagggtctt
期待値:3
0347デフォルトの名無しさん
垢版 |
2019/12/17(火) 21:42:29.19ID:p+XnOFki
>>346
Rで2通りの求め方

d <- c(3, 5, -3 * 5)
q <- 1000 %/% d
cat(sum(d * q * (q + 1) / 2), "\n")
cat(sum(which(1:1000 %% 3 == 0 | 1:1000 %% 5 == 0)), "\n")

--- 実行結果 ---
234168
234168
0350◆QZaw55cn4c
垢版 |
2019/12/17(火) 21:47:21.34ID:780pCLgH
お題：ファイル名の一部に空白文字が使える OS（出題者想定は Windows7） の元で、正常に argc, argv を切り出せるスタートアップ支援ルーチンを作ってください
"" で囲まれている文字列は、それが一つのファイル名またはディレクトリ名として扱うこととし、"" で囲まれていない空白は引数の区切りとします
int main() {
rearrange(...);
...
と main の頭に置いて、xargc, xargv を代わりに使う、見たいな感じでお願いします

例によって私が痛切に欲しいと思っているものです…
0351デフォルトの名無しさん
垢版 |
2019/12/17(火) 23:55:17.00ID:jG+XSsUd
>>341は簡単すぎるので、
任意の文字列から連続してる文字が最も長い文字とその文字数を求めよ
最も長い文字が複数ある場合は全て出力すること
入力:acgtaattgaaagggtctt
期待値: ("a", 3), ("g",3)
0356デフォルトの名無しさん
垢版 |
2019/12/18(水) 00:13:22.10ID:LTfQ+mrC
戦が始まります
0359デフォルトの名無しさん
垢版 |
2019/12/18(水) 06:09:15.93ID:6RKB+CQ3
>>351 Ruby

p 'acgtaattgaaagggtctt'.scan(/((.)\2*)/).group_by{|s, _| s.size}.max&.last&.map{|s, c| [c, s.size]}

# => [["a", 3], ["g", 3]]
0362デフォルトの名無しさん
垢版 |
2019/12/18(水) 12:47:12.26ID:Xcao9p4E
acgtが出てくんだからDNA配列だろな。
　a=adenine, c=cytosine, g=guanine, t=thymine
ながさ30億の塩基対なんぢゃね？（ヒトの場合）
0363デフォルトの名無しさん
垢版 |
2019/12/18(水) 13:00:45.28ID:Xcao9p4E
>>331
・n=7 のとき
　条件(1,2) または 条件(2,2) とする。
　1234567, -, -, -
　　(>328)
　67, -, -, 12345
　7, 6, -, 12345
　-, 6, 7, 12345
　6, -, 7, 12345
　　(>327)
　12346, -, 7, 5
　12346, 5, 7, -
　12346, 5, -, 7
　12346, -, 5, 7
　　　(>327)
　6, -, 5, 12347
　6, 5, -, 12347
　-, 5, 6, 12347
　5, -, 6, 12347
　　　(>327)
　12345, -, 6, 7
　12345, -, -, 67
　　　(>328)
　-, -, -, 1234567
にて可能。
0368デフォルトの名無しさん
垢版 |
2019/12/18(水) 14:58:11.70ID:Xcao9p4E
>>331
・n=8のとき
　条件(1,2) または 条件(2,2) とする。
　12345678, -, -, -　　　　(>328)
　678, -, -, 12345
　78, -, 6, 12345　　　　　　(>328)
　1234578, -, 6, -
　1234578, -, -, 6　　　　　(>328)
　78, -, -, 123456
　8, 7, -, 123456
　-, 7, 8, 123456
　7, -, 8, 123456　　　　　　(>328)
　123457, -, 8, 6
　123457, 6, 8, -
　123457, 6, -, 8
　123457, -, 6, 8　　　　　　(>328)
　7, -, 6, 123458
　7, 6, -, 123458
　-, 6, 7, 123458
　6, -, 7, 123458　　　　　　(>328)
　123456, -, 7, 8
　123456, -, -, 78　　　　　(>328)
　6, -, -, 1234578
　-, -, 6, 1234578　　　　　(>328)
　12345, -, 6, 78
　12345, -, -, 678　　　　　(>328)
　-, -, -, 12345678
にて可能。

・n=9 は 条件(1,2) では無理か････
0370デフォルトの名無しさん
垢版 |
2019/12/18(水) 21:05:50.74ID:WdZQqUwr
>>359
Rでrle関数を使って楽々

MaxRepChar <- function(s) {
　if (!nchar(s)) return(invisible())
　r <- rle(unlist(strsplit(s, "")))
　b <- r$lengths == max(r$lengths)
　cat(sprintf('("%s", %d)', r$values[b], r$lengths[b]), sep = ", "); cat("\n")
}

MaxRepChar("acgtaattgaaagggtctt")
MaxRepChar("http://mevius.5ch.net/test/read.cgi/tech/1573948822/";)

-- 実行結果 --
("a", 3), ("g", 3)
("t", 2), ("/", 2), ("8", 2), ("2", 2)
0371デフォルトの名無しさん
垢版 |
2019/12/18(水) 21:06:21.05ID:H5ShkPcr
f(m, n) : 動かせる最大枚数

m≧n≧1の時

x=f(m-1,n)
A:1,2,3,...,x
B:x+1,...,x+n
C:x+n+1
D:x+n+2

ABCD, -, -, -
CD, -, -, AB
C, D, -, AB
AC, D, -, B
AC, -, -, BD
C, -, - ABD
-, C, -, ABD
A, C, -, BD
A, -, -, BCD
-, -, - ABCD

よって
f(m, n)≧f(m-1,n)+n+2

f(1,0)=2
f(m,n)=f(n,m)
と数学的帰納法により

f(m,n)≧(m+2)(n+2)-4
0372◆QZaw55cn4c
垢版 |
2019/12/18(水) 22:57:24.30ID:tbeJyQYA
>>371
理論はどうでもいいから動くコードを出して欲しいです、このスレ的には
0374デフォルトの名無しさん
垢版 |
2019/12/19(木) 00:58:04.71ID:1AoIgbUn
>>317 文言 wenyan-lang
http://wenyan-lang.lingdong.works/ide.html

吾有一術。名之曰「零右寄」。欲行是術。必先得一數。曰「数」。乃行是術曰。
吾有三數。曰零。曰零。曰一。名之曰「甲」曰「乙」曰「丙」。
恆為是。若「数」等於零者乃止也。除「数」以十。所餘幾何。昔之「甲」者。今其是矣。
若「甲」等於零者。乘「乙」以十。昔之「乙」者。今其是矣。若非。乘「甲」以「丙」。
加其以「乙」。昔之「乙」者。今其是矣。也。除「数」以十。昔之「数」者。今其是矣。
除其以一。所餘幾何。減「数」以其。昔之「数」者。今其是矣。
乘「丙」以十。昔之「丙」者。今其是矣。云云。乃得「乙」。是謂「零右寄」之術也。
吾有一列。名之曰「丁」。充「丁」以二千零一十九。以一十萬二千零三十。以一百二十三。
凡「丁」中之「戊」。施「零右寄」於「戊」。名之曰「己」吾有三數。曰「戊」。曰「「、」」。曰「己」。書之。云云。

OUTPUT ---------------------
二千零一十九、二千一百九十
一十萬二千零三十、一十二萬三千
一百二十三、一百二十三


なんかGIGAZINEで紹介されていたので
0375デフォルトの名無しさん
垢版 |
2019/12/19(木) 03:38:08.86ID:i+MhtJYW
>>363
・n=7 のとき
　条件(1,2) または 条件(2,2)
　{1234}=A と略記する。
　A567, -, -, -　　　(>327)
　567, -, -, A
　67, 5, -, A
　7, 5, 6, A
　57, -, 6, A　　　　(>327)
　A57, -, 6, -
　A57, -, -, 6　　　(>327)
　57, -, -, A6
　7, 5, -, A6
　-, 5, 7, A6
　5, -, 7, A6　　　　(>327)
　A5, -, 7, 6
　A5, 6, 7, -
　A5, 6, -, 7
　A5, -, -, 67　　　　(>327)
　5, -, -, A67
　-, -, 5, A67　　　　(>327)
　A, -, 5, 67
　A, -, -, 567　　　　(>327)
　-, -, -, A567
にて可能。
0376デフォルトの名無しさん
垢版 |
2019/12/19(木) 03:43:24.67ID:i+MhtJYW
>>368
・n=8のとき
　条件(1,2) または 条件(2,2)
　{12345} = A と略記する。
　A678, -, -, -　　　 　　　(>328)
　678, -, -, A
　78, 6, -, A
　8, 6, 7, A
　68, -, 7, A　　　　　　　(>328)
　A68, -, 7, -
　A68, -, -, 7　　　　　　　(>328)
　68, -, -, A7
　8, 6, -, A7
　-, 6, 8, A7
　6, -, 8, A7　　　　　　　(>328)
　A6, -, 8, 7
　A6, 7, 8, -
　A6, 7, -, 8
　A6, -, -, 78　　　　　　　(>328)
　6, -, -, A78
　-, -, 6, A78　　　　 (>328)
　A, -, 6, 78
　A, -, -, 678　　　　　　　(>328)
　-, -, -, A678
にて可能。
0377デフォルトの名無しさん
垢版 |
2019/12/19(木) 04:34:36.23ID:i+MhtJYW
・n=12 のとき
　条件(2,2)
{12345678} = A, {9,10} = B, 11=C, 12=D と略記する。
　ABCD, -, -, -　　　(>376)
　BCD, -, -, A
　CD, -, B, A
　D, C, B, A
　BD, C, -, A　　　　(>376)
　ABD, C, -, -
　ABD, -, -, C　　　(>376)
　BD, -, -, AC
　D, -, B, AC
　-, D, B, AC
　B, D, -, AC　　　　(>376)
　AB, D, -, C
　AB, D, C, -
　AB, -, C, D
　AB, -, -, CD　　　(>376)
　B, -, -, ACD
　O, 9, -, ACD　　　(>376)
　AO, 9, -, CD
　AO, -, -, 9CD　　　(>376)
　O, -, -, A9CD
　-, O, -, A9CD　　　(>376)
　A, O, -, 9CD
　A, O, 9, CD
　A, -, 9, OCD
　A, -,-, BCD　　　　(>376)
　-, -, -, ABCD
にて可能。
0378デフォルトの名無しさん
垢版 |
2019/12/19(木) 07:01:53.01ID:NLbJ7Izu
>>317 J
f =: 3 : 0
a =. ": y
b =. a -. '0'
". b , a -. b
)
0379346
垢版 |
2019/12/19(木) 11:40:09.74ID:dMnFAlGo
>>346
Ruby で、234,168

# 蓄積変数の初期値は、0
puts ( 1..1_000 ).inject( 0 ) { |sum, num|
num % 3 == 0 || num % 5 == 0 ? sum + num : sum
}
0380デフォルトの名無しさん
垢版 |
2019/12/19(木) 13:03:26.44ID:LRZ6v8WB
>>375-377

>>371で理論は出来たんだから
次は
プログラムにするか
等号の証明をするか
最短手順を調べるか
本数を増やすか

ではないでしょうか？

私は>>371で満足
出題者ありがとう
0383デフォルトの名無しさん
垢版 |
2019/12/19(木) 16:34:48.53ID:dMnFAlGo
お題

MY FAVORITE SONGS を、Snake, Camel, Pascal にして！

my_favorite_songs, myFavoriteSongs, MyFavoriteSongs
0384デフォルトの名無しさん
垢版 |
2019/12/19(木) 17:08:15.12ID:0uPukb6z
>>346
Kotlin script

ただ馬鹿正直に抜き出して足すだけ。

println((1..1000).filter { it % 3 == 0 || it % 5 == 0 }.sum())
0386デフォルトの名無しさん
垢版 |
2019/12/19(木) 19:39:18.71ID:xlnTqgd4
>>383 Ruby

str = 'MY FAVORITE SONGS'

puts str.tr('A-Z ', 'a-z_') # => my_favorite_songs
puts str.gsub(/ (\w)/){$1.downcase}.swapcase # => myFavoriteSongs
puts str.split.map(&:capitalize).join # => MyFavoriteSongs
0387デフォルトの名無しさん
垢版 |
2019/12/19(木) 20:42:11.68ID:M6N2QgoX
>>351 >>362 Common Lisp
https://ideone.com/hTxKo6

30億バイトでの実行結果:

% uname -p
Intel(R) Core(TM) i7-4765T CPU @ 2.00GHz
% /usr/bin/time -p sbcl --script odai-pt16-351-362-lisp-3-hash-table.lisp </tmp/random-acgt-3-billion.txt
((#\T . 17))
real 178.75
user 177.55
sys 1.17
%

*standard-input* ではなく (open "/dev/stdin" ...) を使っているのは *standard-input* が遅いから
ざっと六倍もの時間がかかった
0390383
垢版 |
2019/12/20(金) 14:24:42.29ID:A+TGdcd9
>>383
Ruby で、

ary = "MY FAVORITE SONGS".split.map( &:downcase ) # すべて小文字へ

puts ary.join( "_" ) #=> my_favorite_songs
puts ary.map( &:capitalize ).join #=> MyFavoriteSongs

puts ary.map.with_index { |word, idx|
if idx == 0
word # 最初だけ、そのまま
else
word.capitalize
end
}.join #=> myFavoriteSongs
0391デフォルトの名無しさん
垢版 |
2019/12/20(金) 17:55:37.64ID:KHh/7LOP
>>346 julia

println(sum(Set([3:3:1000; 5:5:1000])))
0392デフォルトの名無しさん
垢版 |
2019/12/20(金) 19:38:12.53ID:KibkA5Ab
お題（>>346の改変版）

1から100万までの整数のうち、2か3か5か7か11か13か17か19の倍数の合計を
求める処理を3000回繰り返してから、結果を表示せよ。ただし、ideoneの
実行制限時間（5秒）以内に完了すること。
0395デフォルトの名無しさん
垢版 |
2019/12/20(金) 21:22:01.32ID:ZH5ZbPnE
素数の数をカウントする代わりに
マイナスを付けて素数を掛け算してるのが違うくらい
0396デフォルトの名無しさん
垢版 |
2019/12/20(金) 21:28:45.69ID:ZH5ZbPnE
お題
3000回じゃなくてもっとマシな出し方なかったのかね？
最適化で1回の結果を使い回されて何回やっても時間同じになっちゃってたよ

3000回数分合計して、最後に3000で割ってたんだけど
最適化が頭良すぎた
0397デフォルトの名無しさん
垢版 |
2019/12/20(金) 21:49:16.14ID:qHTdS2+z
やったー僕が考えた効率良いプログラムだと5秒以内で3000回も計算できたぞ！
そうだこれをお題にしてやろう！
0398デフォルトの名無しさん
垢版 |
2019/12/20(金) 22:16:29.10ID:ZH5ZbPnE
C/C++だと
ほんのちょっと数学の知識を使えば
コード上の工夫をまったくしなくても0.01秒
コード上の工夫でまだまだ速くなる
スクリプト系言語でも100倍はかからない気がする

なぜ5秒？
なぜ1000000？
なぜ3000回？

謎だ
0400デフォルトの名無しさん
垢版 |
2019/12/20(金) 22:30:49.77ID:ZH5ZbPnE
数学的知識を使わないで
単純に足していくアルゴリズムを
コードの工夫で5秒切るって問題？
0401デフォルトの名無しさん
垢版 |
2019/12/20(金) 22:38:11.88ID:PCNOOvYP
>>399

>>393は素数の数に対してオーダーは2^n nだけど、
コード上の工夫で2^nになる

さらに、
乗算の数十倍時間がかかる、変数による除算も
コード上の工夫で無くせる

些細な差では無いと思う
0402デフォルトの名無しさん
垢版 |
2019/12/20(金) 22:38:43.75ID:ZH5ZbPnE
>>399

>>393は素数の数に対してオーダーは2^n nだけど、
コード上の工夫で2^nになる

さらに、
乗算の数十倍時間がかかる、変数による除算も
コード上の工夫で無くせる

些細な差では無いと思う
0405デフォルトの名無しさん
垢版 |
2019/12/20(金) 23:00:03.89ID:KibkA5Ab
>>393
正解。ちなみにRで短く書いたプログラム: https://ideone.com/T9oDqa
結局、奇数個の積の倍数の個数の和から偶数個のそれを引くというやり方は同じだな。

>>397
そう。上のプログラムが5秒以内に余裕を持って終わるように繰り返し回数を設定したw
効率というより短いのが好きで書いた。

>>398
>>393をRにそのまま移植すると5秒以内に終わらず、1000回に減らしても
（https://ideone.com/K94wA8）4.56秒かかって、上のプログラムの2.43秒より
遅いよ。Rでは自前のループを書くよりも、関数や演算子を使って短く書いた方が
速くなることが多い。
0407デフォルトの名無しさん
垢版 |
2019/12/20(金) 23:10:59.45ID:KibkA5Ab
1000までではなく与えられた自然数までということ以外は>>346と同じ問題が
オライリーの「Modern C++チャレンジ」に載っているが、示されている解答は
if (i % 3 == 0 || i % 5 == 0) sum += i; という単純に足していく方式だな。
本の副題は「C++17プログラミング力を鍛える100問」だが、何が鍛えられられるのか
よく分からない。
0411デフォルトの名無しさん
垢版 |
2019/12/21(土) 17:30:00.35ID:BSqycIZI
お題
ビットコインの採掘問題です

000 〜 300 までの3桁の整数の文字列を、MD5 で暗号化した時に、
冒頭部分から、5 が最も多く続く、整数は何？

答え、239 : 555d6〜
0413デフォルトの名無しさん
垢版 |
2019/12/21(土) 22:58:23.57ID:hbXQRpYW
>>411　PowerShell
$MD5 = new-object "System.Security.Cryptography.MD5CryptoServiceProvider"
$a = 0..300
$hash = $a |% {-join ($MD5.ComputeHash([char[]]("{0:000}" -f $_)) |% {"{0:x2}" -f $_})}
$n = $hash |% {[RegEx]::Match($_, "^5+").length}
$max = ($n | measure -max).Maximum
$a |? {$n[$_] -eq $max} |% {"$_ : " + $hash[$_]}

-- 実行結果 --
239 : 555d6702c950ecb729a966504af0a635
0415デフォルトの名無しさん
垢版 |
2019/12/22(日) 14:00:57.91ID:sfBU8dhx
>>411 Ruby

require 'digest'
p ("000".."300").map{|i|[Digest::MD5.hexdigest(i).index(/[^5]/),i]}.max[1]
0416411
垢版 |
2019/12/22(日) 19:20:37.12ID:u+b66RrE
>>411 Ruby

require 'digest'

# :count は、先頭から続く、5の数
Result = Struct.new( :num, :md5, :count )

res = ( "000".."300" ).each_with_object( Result.new( nil, nil, -1 ) ) do |num, res|
md5 = Digest::MD5.hexdigest( num ) # ハッシュ化

md5.each_char.with_index do |char, idx| # 1文字ずつ処理する
if char != "5"
if idx > res.count # 大きい時だけ更新する
res.num = num
res.md5 = md5
res.count = idx
end
break
end
end
end

puts "#{ res.num } : #{ res.md5 }"
#=> 239 : 555d6702c950ecb729a966504af0a635
0418デフォルトの名無しさん
垢版 |
2019/12/24(火) 02:05:20.47ID:3/kDRwCG
>>377
>>389

・n=13 のとき
　条件(2,2)
{12345678} = A, {9,10} = B, 11=C, 12=D, 13=E と略記する。

　ABCDE, -, -, -
　　手順１
　CDE, -, -, AB
　　手順２
　CD, E, -, AB
　ACD, E, -, B
　　手順３
　ACD, -, -, BE
　CD, -, -, ABE
　　手順２
　C, D, -, ABE
　AC, D, -, BE　
　　手順３
　AC, -, -, BDE
　C, -, -, ABDE
　-, C, -, ABDE
　A, C, -, BDE
　　手順３
　A, -, -, BCDE
　-, -, -, ABCDE
にて可能。
0419デフォルトの名無しさん
垢版 |
2019/12/24(火) 02:16:33.78ID:3/kDRwCG
　#A = f(2,1) = 8,　　　#B = 2
* 手順１
　ABX, -, -, -
　BX, -, -, A
　OX, 9, -, A
　AOX, 9, -, -
　AOX, -, -, 9
　OX, -, -, A9
　X, O, -, A9
　AX, O, -, 9
　AX, O, 9, -
　AX, -, 9, O
　AX, -, -, B
　X, -, -, AB
*手順２
　CDY, -, -, *
　DY, C, -, *
　Y, C, D, *
　Y, -, CD, *
　-, Y, CD, *
　-, CY, D, *
　D, CY, -, *
　CD, Y, -, *
* 手順３
　*, Y, -, BZ
　*, 9Y, -, OZ
　*, 9Y, O, Z
　*, Y, B, Z
　*, -, B, YZ
　*, 9, O, YZ
　*, 9, -, OYZ
　*, -, -, BYZ
0421デフォルトの名無しさん
垢版 |
2019/12/24(火) 06:33:05.83ID:cUFUrp77
n=13を考えるとき
真ん中2本が空いてる時にはn=12までは動かせる
っていう仮定を使うと
考え方が楽になりますよ

これが出来たら
あとは(2,1)のn=8から1枚ずつ増やしていく帰納法が使えます
0422デフォルトの名無しさん
垢版 |
2019/12/24(火) 07:26:03.90ID:cUFUrp77
a≧b≧c≧d≧e≧1

f(a,b,c,d,e)=f(a-1,b,c,d,e)+2n+1

n = max { a, f(b-1,c,d,e) }
+ max { b, f(c-1,d,e) }
+ max { c, f(d-1,e) }
+ e
0423デフォルトの名無しさん
垢版 |
2019/12/24(火) 07:43:48.05ID:cUFUrp77
(a,b,c,d,e) の動かしかた

A : 小さい f(a-1,b,c,d,e) 枚
X : 最大の1枚
(n) : A,X以外の任意のn枚
n : >>422で定義

A(2n)X / - / -
(n)X / - / A(n)
(n) / X / A(n)
A(n) / X / (n)
A(n) / - / (n)X
- / - / A(2n)X
0426デフォルトの名無しさん
垢版 |
2019/12/25(水) 16:51:57.78ID:eBvDhPt7
[お題]　2020と素数

　"2020"の省略形は"20"
　異なる素数を20個使って、総合計で2020を作る。

1) 何種類できるか(組合せで)。 --> ?

　　以下 数列は昇順でソート済みでの比較
2) 数列の比較で(辞書順)最小な数列を出力。
--> [3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,73,1381]
3) 数列の比較で(辞書順)最大な数列を出力。
--> ?

例) 総合計 26 で要素数 3の場合
　種類は[2,5,19],[2,7,17],[2,11,13]の3種類、
　最小は[2,5,19], 最大は[2,11,13]
0428426
垢版 |
2019/12/25(水) 19:20:25.05ID:eBvDhPt7
>>427
1)は二年前の大晦日に、part9で ほぼ既出問題。
とても大きな数字になるから、
全探索しないでね、って意味で1)においたのだが……
0431デフォルトの名無しさん
垢版 |
2019/12/25(水) 22:57:35.89ID:LrSoTBV6
辞書順最後は
{ 53, 59, 61, 67, 71, 73, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151 }
0432426
垢版 |
2019/12/25(水) 23:33:28.28ID:eBvDhPt7
>>429, 431 当方とおなじです。

>>426
　https://ideone.com/SuOGod

数が程々なので、まとめて手抜きの"文字列DP"をやってます。
(pypyで1秒以内で回っているのだから、真面目にやる必要ないでしょう)
0435デフォルトの名無しさん
垢版 |
2019/12/26(木) 04:04:05.93ID:Wc5llTmi
>>421

>>418 は >>371 にEを追加したものです。

　ピン0⇔ピン3 間で移動する「4ピン手順」と
　ピン{{0,1,2} または {1,2,3} 間で移動する「3ピン手順」
　を交互に行ないます。

*手順１ は4ピン手順で、ABの10個を移動します。
*手順2、手順3 は3ピン手順です。
　　ピン0→ピン{1,2}　あるいはピン{1,2}→ピン3　間でxを移動するときは
　　xより小さい円盤を1本のピンに集めることが必要で、これがネックですね。
　　最初に12個移動するのはどうかと思うけど････
0436デフォルトの名無しさん
垢版 |
2019/12/26(木) 07:13:27.63ID:rIhsLdYp
>>435
帰納法を使えば
具体的な手順は>>423の手順だけで
≧を示せる

と言ってるだけですよ

帰納法の仮定として
・>>422の式より円盤の枚数が少ない時は動かせる
・>>422の条件より置ける置ける枚数が少ない時は>>422が成り立つ
を使う
0437デフォルトの名無しさん
垢版 |
2019/12/26(木) 07:22:33.88ID:rIhsLdYp
>>371から>>423に進化して
本数も枚数も一般化出来た
( >>425 )

帰納法の仮定を使って
>>423の(n)は任意のn枚に出来る
これによって手順の記述が対称になり
非常に簡略化出来てます

最短手順を求めるのはまた別の話で
これは帰納的には求められないと思っています
0438デフォルトの名無しさん
垢版 |
2019/12/26(木) 07:28:47.21ID:rIhsLdYp
ちなみに >>371の式は最大枚数ではなくて
Cをn枚にすることで最大になります

動かせる最大枚数はわかったので
残る課題は｢最短手順を求める｣のみ
0439蟻人間 ◆T6xkBnTXz7B0
垢版 |
2019/12/26(木) 15:19:10.12ID:Npbug+/w
お題: 半角英数からなるユーザーIDとパスワードで認証できるアカウントのシステムを以下の要件で作る。

1.新規登録を選んでユーザーIDとパスワードとメールアドレスを入力するとアカウント登録ができる。
2. 複数アカウント対応。ユーザーIDの重複はダメ。
3. アカウント一覧を選ぶとアカウントの一覧とログイン状態が見える。
4. ログインを選んでユーザーIDとパスワードの入力が一致すればログインできる。
5. ログアウトを選べばログアウトできる。
6. パスワードを忘れたとき、アカウントの回復を選んでメルアド入力すると、メールが来てパスワードがリセットされる。
0444蟻人間 ◆T6xkBnTXz7B0
垢版 |
2019/12/27(金) 18:58:01.81ID:0l4cUgpw
Web系もプログラミングの一種なんだけど、日本のIT教育では軽視されてるみたいなんだ。
0445デフォルトの名無しさん
垢版 |
2019/12/27(金) 20:56:28.17ID:JVKHwIo7
<('o')>ﾌｰﾝ
0446◆QZaw55cn4c
垢版 |
2019/12/27(金) 21:03:47.38ID:9iE1xeZJ
>>444
web 系をはじめるには、どういう環境で学べばいいですか？
0449デフォルトの名無しさん
垢版 |
2019/12/27(金) 22:14:31.51ID:novkoLBo
>>426 類似問題

素数を20個使って、総合計で2020を作る。
(同じ素数を複数使ってよい）

何種類できるか(組合せで)。 -->?
(同じ数字は区別しない -> ソートして数列が異なるもので1種類)

ちなみに、辞書順最小が[ 2(* 18), 5, 1979] 、最大が[ 101(* 20)]になる。

※ 2020で20個なら、まだint64_tでおさまる
0454デフォルトの名無しさん
垢版 |
2019/12/28(土) 01:41:03.72ID:HU/ZZyYG
>>447のだと
for (j = N - 1; j >= 0; j--) {
これを
for (j = 0; j < N; j++) {
こう逆にすると重複の計算ができるんだね
0455デフォルトの名無しさん
垢版 |
2019/12/28(土) 03:25:23.74ID:HeaGj5a1
>>423

m≧n≧1 のとき
　ピン2に大円盤が1枚以下のときは、ピン0⇔ピン1間、ピン1⇔ピン3間で
　n枚組の円盤を移動できますね。 (3ピン手順)

　A: 1,2,････,x　のx個組　ただし x=f(m-1,n)
　B: x+1,...,x+n　のn個組
　C: x+n+1,････,x+2n+1 のn個組
　D: x+2n+1
とする。
0456デフォルトの名無しさん
垢版 |
2019/12/28(土) 03:28:09.64ID:HeaGj5a1
　ABCD, -, -, -
　BCD, -, -, A
　　手順２
　BC(2..n)D, -, C(1), A
　ABC(2..n)D, -, C(1), -
　ABC(2..n)D, -, -, C(1)
　BC(2..n)D, -, -, AC(1)
　　手順２
　BC(3..n)D, -, C(2), AC(1)
　ABC(3..n)D, -, C(2), C(1)
　　手順３
　ABC(3..n)D, -, -, C(1..2)
　････
　同様にしてC(k)とDを移動する。(k=1..n)
　････
　ABD, -, -, C
　BD, -, -, AC
　　手順２
　B, -, D, AC
　AB, -, D, C
　　手順３
　AB, -, -, CD
　B, -, -, ACD
　B(2..n), -, B(1), ACD
　AB(2..n), -, B(1), CD
　AB(2..n), -, -, B(1)CD
　B(2..n), -, -, AB(1)CD
　B(3..n), -, B(2), AB(1)CD
　AB(3..n), -, B(2), B(1)CD
　　手順３
　AB(3..n), -, -, B(1..2)CD
0457デフォルトの名無しさん
垢版 |
2019/12/28(土) 03:34:05.21ID:HeaGj5a1
　B(3..n), -, -, AB(1..2)CD
　･････
　同様にしてB(k) を移動する。(k=1..n)
　･･････
　B(n), -, -, AB(1..n-1)CD
　-, -, B(n), AB(1..n-1)CD
　A, -, B(n), B(1..n-1)CD
　　手順３’
　A, -, -, BCD
　-, -, -, ABCD

∴　f(m,n) ≧ f(m-1,n) + 2n + 1,

・手順２
　BC(k..n)D, -, -, *
　C(k..n)D, B, -, *
　C(k+1..n)D, B, C(k), *
　BC(k+1..n)D, -, C(k), *　

・手順３
　*, -, C(k), C(1..k-1)
　*, C(1..k-1), C(k), -
　*, C(1..k-1), -, C(k)
　*, -, -, C(1..k)

・手順３’
　*, -, B(k), B(1..k-1)CD
　*, B(1..k-1), B(k), CD
　*, B(1..k-1), -, B(k)CD
　*, -, -, B(1..k)CD
■ このスレッドは過去ログ倉庫に格納されています
ニューススポーツなんでも実況