18/11/12 13:24:01.86 WWnCJgTu.net
問題の良さって問題じゃなく解答で決まるものなのか？
問題だけで問題の良さが確定しないのは初めて知ったわ
406:デフォルトの名無しさん
18/11/12 13:26:44.24 DYCuacpe.net
も一回言うけどこの問題はプログラミングのお題としてはよく見るような問題だぞ。
揚げ足取りというか難癖付けてる奴はおかしいだろ。
それこそスレチだから黙ってろよ。
407:デフォルトの名無しさん
18/11/12 13:28:23.55 X+KqJ1/Z.net
>>393
解答で決まるなんて誰もいっとらんがな（数学の前にやることあるんじゃ？ｗ）
解答を見れば「どこまで考えて出題したか」が一目瞭然ということ
どこまで考えて出された問題かで良問か否かが決まる
もとより様々な状況で「結果的に良問」ということは実際あるしそれは否定する気は無いが、蓋然性は低い
408:デフォルトの名無しさん
18/11/12 13:38:11.17 b6USGf7s.net
この程度のことで選民思想がどうのとか言い出すのはおかしいと思うよ。
冪剰余の計算は面白いテーマだし。
逆に悪問だと言ってる人がその根拠を示すべきだと思うんだけど。
409:デフォルトの名無しさん
18/11/12 13:57:27.23 9RzF2H48.net
>>396
「この程度（のレベル）」とか言ってる選民思想バリバリの奴が
自分は違うって体で何か主張したところでぜんぜん説得力ないんだがｗ
ともあれ、回答が多い割に文句なしの正答が出てこないのがこのスレ的には異常事態だろ
お題 and/or 出題者をクソだと疑う十分な根拠になりうる
410:デフォルトの名無しさん
18/11/12 14:13:38.48 b6USGf7s.net
>>397
英語の授業で"How are you?" "I'm fine. Thank you" って言ったら「ペダンチックだ。帰国子女ぶるな」といわれたくらいに衝撃的。
大体問題が理解できないのに「文句なしの正答」を見極められるというのはおかしくない？
こっちからすればここに既にある回答の内のいくつか(>>352とか)は「文句なしの正答」なんだけど。
問題が理解できないのに「文句なしの正答」を見極められるならそれらのどこが不十分なのか説明しなさい。
それができなければ数学ができる出来ない以前にただのモンスタークレーマーみたいな傲慢野郎だ。
411:デフォルトの名無しさん
18/11/12 14:16:13.02 CqB5lm+V.net
まーた頭おかしいのが暴れてんのか
>>397はNGぶっこむからIDころころ変えるな
もしくはコテハンつけろよゴミが
412:デフォルトの名無しさん
18/11/12 14:24:13.52 D6ILV7Jx.net
>>359とか良い問題じゃ無い？
私は解けないが。
413:デフォルトの名無しさん
18/11/12 16:17:37.15 9RzF2H48.net
>>398
いくつかってずいぶん曖昧だなｗ
お前の文句なしってセンス疑うわｗ
414:デフォルトの名無しさん
18/11/12 16:22:54.34 CqB5lm+V.net
>>401
>>352に文句つけてみろよ無能ゴミクズが
415:デフォルトの名無しさん
18/11/12 16:27:56.77 9RzF2H48.net
あとお前ら（直近ではID:9RzF2H48とID:CqB5lm+V）
勝手にクソ問題断定のクレーマー扱いしとるが
出題者の用意していた解答次第では良問の可能性も（わずかだが）あるんだからな
ほどほどにしとけよｗ
416:デフォルトの名無しさん
18/11/12 16:29:53.16 9RzF2H48.net
いかん自分を安価しちゃったよID:b6USGf7sな
417:デフォルトの名無しさん
18/11/12 16:33:57.40 DYCuacpe.net
どうやら ID:9RzF2H48 は人を馬鹿にしたいだけみたいだな。
きちんと説明してもらってんのに言ってることがわけわからんし。
冪剰余の最適化なんて教科書にあってもいいくらいものすごくありふれたお題だっていうのに馬鹿らしい。
418:デフォルトの名無しさん
18/11/12 16:37:03.80 CqB5lm+V.net
数学の話ししてるのにイライラして思わずクソ問題呼ばわりして引くに引けなくなったんだろ
419:デフォルトの名無しさん
18/11/12 16:43:20.29 b6USGf7s.net
>>401
いやだから>>352とかって例を挙げてるでしょ。ばかにしてる？
それで結局悪問だという根拠は示せないんだよね？
じゃあ悪いことしたんだからまだいるか知らないけど出題者に謝罪しようね。
君ははっきり言って不快だよ。
420:デフォルトの名無しさん
18/11/12 16:46:44.76 9RzF2H48.net
>>405
本音がでたなｗ中立ぶるよりお前ららしいわ
>>406
こんなん数学に入るかボケが
つーかお前のためにID固定してやってんだからレスすんな
421:デフォルトの名無しさん
18/11/12 16:52:28.57 9RzF2H48.net
>>407
自分で回答も出せないやつが他人のコード気安く挙げてんじゃねーよ
お前が考えて出したコードならいくらでもケチつけたるわｗ
422:デフォルトの名無しさん
18/11/12 16:55:43.17 CqB5lm+V.net
>>408
図星突かれて痛かったのか？
バカを愚弄するのはホント楽しいわ
てか「数学板でやれ。問題からしてクソだった」って言ってたくせにこんなの数学に入らないっておかしいだろ
数学に入らないなら数学板推すなよアホか
結果的に数学よりも遥かにスレ違いの話題でこの場を荒らして皆に迷惑かけてんのはお前だ
お前はみんなの迷惑なの
423:デフォルトの名無しさん
18/11/12 17:00:57.95 b6USGf7s.net
>>409
＞ともあれ、回答が多い割に文句なしの正答が出てこない
って言うからその反例として件のレスなのに、開き直ってお前がコード書けだなんて控えめに言って狂ってる。
相手が言ったことも読まないし自分が行ったことすら覚えていないんじゃあ対話不可能。
ただただ不快な存在。
424:デフォルトの名無しさん
18/11/12 17:01:55.26 D6ILV7Jx.net
>>340 は情報爆発でメモリ使いまくる処理をいかにメモリ使わずに処理できるかって意味じゃ悪く無いと思う。
私はプログラマーじゃ無いから思い付けなかったが、こう言うのはプログラマーの本領発揮する分野じゃないかな。
そして >>359 も解けない私。。。Orz
GUIならネットに落ちてるけど、CUIってのが味噌だよね。
425:デフォルトの名無しさん
18/11/12 17:02:08.43 9RzF2H48.net
>>407
それは出題者のコードじゃないだろ？
ほんとお前、日本語読解とか論理的思考とか大丈夫なの？
426:デフォルトの名無しさん
18/11/12 17:02:52.43 9RzF2H48.net
正直、ばかにはしているｗ
427:デフォルトの名無しさん
18/11/12 17:03:00.49 DYCuacpe.net
>>408
ものすごくありふれたお題に文句付けてるんだからあきれてものも言えないってだけ。
別に中立ぶってなどいない。お前のことは見下してるが。
428:デフォルトの名無しさん
18/11/12 17:06:56.26 b6USGf7s.net
>>413
＞ともあれ、回答が多い割に文句なしの正答が出てこない
と言ったのはそちらで、それに対してこっちがその反例として件のレスを挙げたのに本気で意味不明。
会話を破綻させに行っているのは君でしょ。自分が書いたことすら覚えていないのだから。
さすがに不愉快だ。
429:デフォルトの名無しさん
18/11/12 17:08:31.84 1o1kfQH0.net
馬鹿は相手がどの高さいるのかもわからずに人を馬鹿にする
頭が悪いので周囲が何を言ってるのか何一つ理解できない
そして自尊心の塊
430:デフォルトの名無しさん
18/11/12 17:08:37.05 CqB5lm+V.net
ここまできっちり論破されてるとキチガイ相手でも哀れになってくるな
431:デフォルトの名無しさん
18/11/12 17:13:08.29 9RzF2H48.net
>>416
お前は自分の「文句なし」に自信持ちすぎだろｗ
あと「出題者の用意していた解答次第では良問の可能性も（わずかだが）ある」は無視ですかそうですか
432:デフォルトの名無しさん
18/11/12 17:15:33.59 9RzF2H48.net
>>418
だからお前は反応するなと何度言わせる？ｗ
433:デフォルトの名無しさん
18/11/12 17:17:08.81 b6USGf7s.net
>>419
対話する意図がないと判断した。
もういい。疲れた。
控えめに言って、君はもう死んだ方が良いよ。
434:デフォルトの名無しさん
18/11/12 17:21:16.54 4IQEu5Ky.net
最近あっちこっちで暴れてる単芝君か
5chに居場所が無くてもリアル犯罪に走るなよな
435:デフォルトの名無しさん
18/11/12 17:21:58.58 D6ILV7Jx.net
良い加減にしろ！
もうオマイらで >>340 の文句なしの正当とやらを出し合えや。
436:デフォルトの名無しさん
18/11/12 17:23:23.00 eZ2UdI/8.net
・数学の話ばかりしてうざい ←わかる
・作者は答え書いて ←わからなくもない
・答え書かないからクソ問題！ ←は？
437:デフォルトの名無しさん
18/11/12 17:54:26.10 9RzF2H48.net
>>424
誤解があるので訂正しておくけど
出題者が「落とし穴」をちゃんと想定できていれば良問だしそれを確認せんがための「答え出せ」だよ
でも、勘違いしたままたまたま答えが合ってしまう入出力例しか提示されていない
and/or それを排除できる例を出せない時点でこの問題はそれなりにクソ問題だと思う
引っ掛けて貶めたり、選抜や順位を競うことを目的とした場所じゃないんだからここは
438:デフォルトの名無しさん
18/11/12 18:12:43.91 eZ2UdI/8.net
n^n^n % 100計算するのに落とし穴も何もないだろ
フェルマーの小定理チックに指数部で剰余とるだなんて誰も想定できねえよ
なんでキチガイは間違えたらそこから学ばずに問題の方(しかも真っ当
439:)にケチ付けるんだか 運動会で転ぶと怪我をするからグラウンドの至る所にクッションを置いておけと言うモンペと同レベルのキチガイ
440:デフォルトの名無しさん
18/11/12 18:26:31.10 bzMEonQL.net
なんで数学板でやらないのかね。
数学板ではザコだからプログラム板でマウント取りたいとか？ｗｗ
441:デフォルトの名無しさん
18/11/12 18:28:01.10 CqB5lm+V.net
>>427
ID変えんなやキチガイ
442:デフォルトの名無しさん
18/11/12 18:32:41.33 9RzF2H48.net
>>426
住人かと思ってちょっと丁寧にレスしたらこれだよ ┐(´-｀)┌
443:デフォルトの名無しさん
18/11/12 18:34:56.16 9RzF2H48.net
>>428
変えてないし、そもそも俺だと思うならレスすんなよ…
444:デフォルトの名無しさん
18/11/12 18:55:17.39 eZ2UdI/8.net
>>429
お前以外誰もその問題にケチ付けてねえのに住人面すんな
素直に頭悪いが悪いのが悔しいですって言えよ
445:デフォルトの名無しさん
18/11/12 19:18:26.81 h68nq2of.net
プログラミングできてもネットリテラシーは低いんだな
446:デフォルトの名無しさん
18/11/12 19:28:11.51 +FWS6rf7.net
ID:9RzF2H48
こいつ前からこの板荒らしまくってる粘着野郎だぞ
意思疎通は不可能だから無視しとけ
447:デフォルトの名無しさん
18/11/12 19:45:44.72 4WXaKeF0.net
お題
1900年から2018年までの、7月31日が土曜日である年を全て挙げよ
448:デフォルトの名無しさん
18/11/12 19:52:33.63 n3BneZmq.net
なんで？
449:デフォルトの名無しさん
18/11/12 19:54:05.95 I5PkaEyl.net
自分で計算して求めるのを作るか、ライブラリを使ってしまうか、悩ましいところですな・・・
450:336
18/11/12 19:58:23.85 rYIWpX0E.net
悪い意味で盛り上がってて苦笑するしかない
C++
URLﾘﾝｸ(ideone.com)
Ruby読めないけど>>346と大体同じ考え方なのかな
451:デフォルトの名無しさん
18/11/12 20:20:47.61 4WXaKeF0.net
お題
0から99までの整数を2進数で表したとき、１が奇数個あるものを全て挙げよ
452:デフォルトの名無しさん
18/11/12 20:23:17.93 zzbIEe7z.net
>>434 bash + date
for i in {1900..2018}; do if [ $(date --date=07/31/$i +%w) -eq 6 ];then echo "$i "; fi; done
453:デフォルトの名無しさん
18/11/12 20:27:55.24 q04ZIund.net
>>434 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]
454:デフォルトの名無しさん
18/11/12 20:31:45.80 q04ZIund.net
>>438 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]
455:デフォルトの名無しさん
18/11/12 20:36:43.90 MOsxqjp/.net
>>434
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
出力は同じ
456:デフォルトの名無しさん
18/11/12 20:55:43.70 MOsxqjp/.net
>>438
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
457:70 73 74 76 79 81 82 84 87 88 91 93 94 97 98
458:デフォルトの名無しさん
18/11/12 21:30:19.73 WG+vGwsG.net
>>438 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
459:デフォルトの名無しさん
18/11/12 21:32:31.70 WG+vGwsG.net
>>444 ｺﾞﾒﾝよけいな=が入っていたので削除
>>438 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
460:デフォルトの名無しさん
18/11/12 21:57:07.87 jh3oqSUb.net
>>438 rust
URLﾘﾝｸ(ideone.com)
461:デフォルトの名無しさん
18/11/12 22:18:19.15 kM9Cc8DJ.net
>>434 PowerShell
1900..2018 | %{Get-Date "$_/07/31"} | ? -Property DayOfWeek -eq 6 | select Year
462:デフォルトの名無しさん
18/11/12 23:14:49.42 fOB5B0pj.net
>>283 Common Lisp
URLﾘﾝｸ(ideone.com)
463:デフォルトの名無しさん
18/11/12 23:55:59.63 jh3oqSUb.net
>>235 c
URLﾘﾝｸ(ideone.com)
464:デフォルトの名無しさん
18/11/13 00:02:22.82 5Ay5yU9p.net
乙
465:デフォルトの名無しさん
18/11/13 00:27:29.87 7jyC4IO4.net
python
>>434
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]
>>438
[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]
466:デフォルトの名無しさん
18/11/13 00:32:55.99 7jyC4IO4.net
[x for x in range(1900,2018) if (x + x//4 - x//100 + x//400 + 1) % 7 == 6]
でええやんけ
467:デフォルトの名無しさん
18/11/13 00:43:41.95 bZ0HXQ7X.net
>>438
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]
468:デフォルトの名無しさん
18/11/13 00:55:13.44 5Ay5yU9p.net
乙乙
469:デフォルトの名無しさん
18/11/13 01:00:17.03 wnw9zNxR.net
出力とかなさらないんですか？
470:デフォルトの名無しさん
18/11/13 01:11:01.02 qGbdPj8P.net
>>434 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) "
471:デフォルトの名無しさん
18/11/13 01:23:34.12 qGbdPj8P.net
>>438 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) "
472:デフォルトの名無しさん
18/11/13 01:59:27.96 4/lVJDsB.net
>>451>>452をJavascriptに引き写してみた。
>>434
[...function*(){for(i=1900;i++<2018;)if((i+~~(i/4)-~~(i/100)+~~(i/400)+1)%7==6)yield i}()]
>>438
[...function*(){for(i=0;i++<99;)if(i.toString(2).match(/1/g).length%2)yield i}()]
汚い…
Pythonの内包表記は良いなぁ…
473:デフォルトの名無しさん
18/11/13 02:08:16.58 JCaIqwLF.net
>>283やってみた
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
474:デフォルトの名無しさん
18/11/13 02:09:33.92 JCaIqwLF.net
>>459
＞1 z 8
＞1 2 3 4 5 6 8 7
写し間違えました。実際には正しい結果になります。
475:デフォルトの名無しさん
18/11/13 02:27:33.07 JCaIqwLF.net
>>459は各 (x,y) の項について
主キー x + y
副キー x + (-1)^(x+y) * (x+y)
とするとジグザグ順に昇順のキーが得られるので
そのキーでソートしたときの順位を表示、というやり方
476:デフォルトの名無しさん
18/11/13 11:28:29.90 /6RlnNZj.net
>>438
Perl5
URLﾘﾝｸ(paiza.io)
文字列にせずに全Bit足して求めた。
477:デフォルトの名無しさん
18/11/13 12:04:16.15 /6RlnNZj.net
>>434
C
URLﾘﾝｸ(paiza.io)
ライブラリ使用。
コンパイラとライブラリの対応の問題だろうが、32bit環境ではできなかった。time_t型がlongか何かになっていて足りなかったからだろうと思う。
まともに動くかどうかは(またはコンパイルできるかどうかは)環境依存ということになる。
478:デフォルトの名無しさん
18/11/13 14:23:32.25 TStmpOw3.net
>>283 Squeak Smalltalk >>461 を参考に (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' "
479:デフォルトの名無しさん
18/11/13 15:05:24.75 x0SFJuPP.net
>>461
副キーは x+y の偶奇に応じて上下や左右が反転してればいいわけだから
単に (-1)^(x+y)*x とか (-1)^(x+y)*y で十分か
480:デフォルトの名無しさん
18/11/13 16:16:43.59 GUmX5rsv.net
>>340 Squeak/Pharo Smalltalk >>346 を参考に
| 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'} "
481:デフォルトの名無しさん
18/11/13 16:32:36.89 3gkxjay9.net
>>283
何かの行列足せば出来るんじゃね
482:デフォルトの名無しさん
18/11/13 17:15:46.99 GUmX5rsv.net
>>359 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. "=>
'■□■■■■■□■■■■■□■
■□■□□□■□■□□□■□■
■■■□■■■□■■■□■■■
□□□□■□□□□□■□□□□
■■■□■■■□■■■□■■■
■□■□□□■□■□□□■□■
■□■■■■■□■■■■■□■
■□□□□□□□□□□□□□■
■■■□■■■■■■■□■■■
□□■□■□□□□□■□■□□
■■■□■■■□■■■□■■■
■□□□□□■□■□□□□□■
■□■■■□■□■□■■■□■
■□■□■□■□■□■□■□■
■■■□■■■□■■■□■■■' "
483:デフォルトの名無しさん
18/11/13 18:58:02.16 6xZ1V9iJ.net
>>283 Ruby >>461とは別のアプローチで
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
484:デフォルトの名無しさん
18/11/13 19:36:47.61 57oATazI.net
>>438
Python3
URLﾘﾝｸ(ideone.com)
=> 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
485:デフォルトの名無しさん
18/11/13 21:13:13.10 VjbjD5Cz.net
お題
直方体の体積を求めよ。三辺の長さはそれぞれ自然数+単位(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
486:デフォルトの名無しさん
18/11/13 21:46:22.87 ZM1FA5dW.net
>>471 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
487:デフォルトの名無しさん
18/11/13 22:46:25.57 jgdNCfY5.net
プログラミング無料で学んで就職できる？
URLﾘﾝｸ(et-irodori.com)
488:デフォルトの名無しさん
18/11/13 22:49:55.39 YD+aXj03.net
無料ではないな。
お前の将来の給料からスクールに金が行く。
489:デフォルトの名無しさん
18/11/14 00:08:48.41 pC5Ut3Ig.net
お題： 品物が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
490:
18/11/14 00:21:42.53 1oDeoExT.net
>>438
ｽﾚﾘﾝｸ(tech板:54番)
rucursive に書く人が一人ぐらいいてもいいか、と
491:デフォルトの名無しさん
18/11/14 00:25:56.42 BDJVwe3s.net
rucursiveならしょうがない
492:
18/11/14 00:58:44.50 1oDeoExT.net
>>477
typo, "recursive"
ええと、>>476 に近いのは >>453 かもしれませんが、>>453 は bit 数を具体的に求めきっていますか？それとも >>476 のように真理値まで短縮してリターンしてますか？
haskell はよくわからないので…
493:デフォルトの名無しさん
18/11/14 01:04:38.44 xfEiy+CV.net
>>475
全探索したら、3つ目の例の答えが6になったんだが合ってる？
[21 33 60] [23 89] [41 78] [45 64] [50 67] [58 61]
494:デフォルトの名無しさん
18/11/14 01:23:48.18 smxkN2Ql.net
>>479
5はありえないから合ってるね
495:デフォルトの名無しさん
18/11/14 05:43:59.41 BYIKTG47.net
>>340 J
f=:3 : 0
y 100&|@^ y^y
)
496:デフォルトの名無しさん
18/11/14 06:20:37.22 W0CfAPru.net
>>481
どのバージョンのJで100|777^777なんてできるんだよ…
497:デフォルトの名無しさん
18/11/14 06:24:21.52 W0CfAPru.net
書き方が嫌らしかった。
それ動かないんじゃないですかということ。
498:デフォルトの名無しさん
18/11/14 06:38:51.58 BYIKTG47.net
>>482
v6で動いたけどな
499:デフォルトの名無しさん
18/11/14 07:48:55.58 XWwMTSMS.net
>>478
むっちゃ愚直に10進数から2進数に変換してるだけです＾＾;
URLﾘﾝｸ(www.it-license.com)
ただ、今回は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)
500:デフォルトの名無しさん
18/11/14 07:53:25.46 BYIKTG47.net
>>481の実行結果
f @>1 2 3 4 11 13 100 777x
1 16 87 96 11 53 0 97
501:デフォルトの名無しさん
18/11/14 08:04:51.77 W0CfAPru.net
>>481
最後の y の前に x: つければどのバージョンでも動くな
100 のとき 0 にならないからダメだけど
502:デフォルトの名無しさん
18/11/14 08:08:08.67 W0CfAPru.net
>>487
＞100 のとき 0 にならないからダメだけど
いやこっちは言いがかりだった。ちゃんと動く。
503:
18/11/14 08:16:08.16 1oDeoExT.net
>>485
解説ありがとうございます。
＞blist n = (n `mod` 2) : blist (n `div` 2)
この : は (cond atom list) の : なんですね、なんとかわかるようになりました
504:
18/11/14 08:19:40.71 1oDeoExT.net
>>489
×(cond atom list)
○(cons atom list)
505:デフォルトの名無しさん
18/11/14 08:34:57.16 W0CfAPru.net
言いがかりだったというか
いちゃもんを付けてごめんなさい
100|777x^777x^777x これはngで
777(100&|@^) 777x^777x これはok
とか勉強になりました (累乗の剰余の特別扱いか？)
506:デフォルトの名無しさん
18/11/14 11:57:26.31 bryEJhFF.net
>>283
Kotlin
URLﾘﾝｸ(paiza.io)
507:デフォルトの名無しさん
18/11/14 14:12:11.78 OQ399L2/.net
ナップサック問題はNP困難らしいけど>>475は効率よく解けるのだろうか
508:デフォルトの名無しさん
18/11/14 14:13:39.09 bryEJhFF.net
>>493
順列と足し算の問題ではないのか？
てか、今のところそれしか思い浮かばない。
509:デフォルトの名無しさん
18/11/14 14:30:58.50 BDJVwe3s.net
現実は荷物が一日１０万個くらいあるんだよなぁ
510:デフォルトの名無しさん
18/11/14 14:57:13.49 bryEJhFF.net
正にコンピュータ向けの仕事
511:デフォルトの名無しさん
18/11/14 15:18:37.83 XWwMTSMS.net
実際は大量購入した方が安くなるから、よく出るサイズを大量購入して、それ以下の重量は全部よく出るサイズにした方が安上がりだったりする。
(だからアマゾンの箱は無駄にでかい)
まあこれはプログラミング上の問題だが。
512:デフォルトの名無しさん
18/11/14 16:08:49.28 T5a0sRYf.net
>>475
段ボール箱の容量の増減は割と簡単に出来る。
513:デフォルトの名無しさん
18/11/14 18:30:10.19 whO97NBY.net
>>283 octave
URLﾘﾝｸ(ideone.com)
514:デフォルトの名無しさん
18/11/14 19:00:13.88 DmGPDAaP.net
>>438 C
URLﾘﾝｸ(ideone.com)
515:デフォルトの名無しさん
18/11/14 22:47:03.81 whO97NBY.net
>>283 ruby
URLﾘﾝｸ(ideone.com)
516:デフォルトの名無しさん
18/11/15 00:59:29.19 Q7kJgHrD.net
>>283
python 3
URLﾘﾝｸ(ideone.com)
ゴミ
517:デフォルトの名無しさん
18/11/15 02:07:53.71 lbhTVho0.net
>>475
Kotlin
このアルゴリズムで良いのかいまいちわからん。
箱の中に入れられる最大の品物を詰め込み続け入れられなくなったら次の箱を用意して同じことを繰り返すという方法。
結果を見ると一応出来ているようではあるが、これでうまく行く理由がはっきりわからない。
URLﾘﾝｸ(paiza.io)
入力は1行の先頭に容積、その後スペース区切りで品物の体積。
結果は箱の数とそれぞれの箱に詰め込んだ品物。
518:デフォルトの名無しさん
18/11/15 05:46:40.53 uj0cmGI/.net
>>503
C: 7
a: 3 3 2 2 2 2
最適は[3,2,2]と[3,2,2]の2箱でないといけない
519:デフォルトの名無しさん
18/11/15 07:10:16.88 dYhTSjHD.net
>>503
それだと 6, 5, 3, 2, 2, 2のとき[6, 3], [5, 2, 2] [2] になるが[6, 2, 2] [5, 2, 3]が最小
520:デフォルトの名無しさん
18/11/15 07:14:44.92 dYhTSjHD.net
>>505
C=10を書き忘れた上に既に同じ指摘が書かれてた
521:499
18/11/15 09:09:38.39 RDhHOc3n.net
>>504>>505>>506
なるほど。じゃあダメだな。
522:497
18/11/15 18:39:12.67 cWkAhR+7.net
>>283 ruby
URLﾘﾝｸ(ideone.com)
・ほんのりリファクタ
523:114
18/11/15 23:46:11.08 lNkjj0jr.net
>>475
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))
524:114
18/11/15 23:46:25.95 lNkjj0jr.net
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)]
525:デフォルトの名無しさん
18/11/15 23:52:24.73 Q7kJgHrD.net
>>283
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()を書かないといけない宿業
526:114
18/11/16 08:32:20.01 00yShIqx.net
>>510
結果がはみ出てた。。。
[(30,3),(120,4),(120,7)]
大きい順に入れて、はみ出たら一番小さいのを入れてみる(入ったら入れて、はみ出たらアカウント)アルゴリズムにしたけど、
大きい順に入れて、はみ出たら入る最大の数字に出会うまで探索。探すものが無くなったらカウントってアルゴリズムに変えても結果は変わらず。
どうやって三番目が6個で済むんだろ。
出来た人、アルゴリズム教えて＞＜
527:デフォルトの名無しさん
18/11/16 10:37:27.50 7Qu0EE2P.net
>>508
渦巻きスキャンも短い
URLﾘﾝｸ(ozy4dm.hateblo.jp)
528:デフォルトの名無しさん
18/11/16 11:04:51.39 qaNu/as0.net
>>512
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以内ぎりぎりのところで区切っていく
ってやり方で出てくる
このやり方もこれでは出来たけど最適解が必ず見つかるか分からない
529:114
18/11/16 11:42:51.07 00yShIqx.net
>>514
ありがとう。
やってみたけど、こっちでは順列だと1個増えた。
(と言うか、自分もソートしてから渡してるので順列なんだよね。念のため小さい順にしたら増えた)
うーん。。。
やってる事同じっぽいのに、なぜだ。。。
530:114
18/11/16 11:55:02.54 00yShIqx.net
自分は最後の一個入れようとして、入りきらなかったら入る分一個、はみ出た分一個で2個カウントしてるんだけど、そこが1個とカウントしてるとかだったり。。。
そう言う勘違いであってほしいな。。。
box n c ns [] [x] | c < sum (x:ns) = n + 2 -- x+nsで入りきらないので、nsで一個、xで一個。
じゃないと私じゃお手上げ＼(^o^)／
531:デフォルトの名無しさん
18/11/16 11:57:38.57 qaNu/as0.net
入るとか入らないとかじゃなくてこの並びが出てきたら左から順に区切って行くだけだよ
89 23 67 45 78 41 60 21 33 64 50 61 58
532:デフォルトの名無しさん
18/11/16 12:22:55.60 tOyusnlA.net
>>515
510のやり方で最小値は求まるのでコードが間違ってる
533:114
18/11/16 12:23:45.77 00yShIqx.net
おおう。。。勘違い。
順列の意味勘違いしてた。
数学の順列か。分かった。
やってみる。
ありがとう。
534:デフォルトの名無しさん
18/11/16 12:25:57.98 tOyusnlA.net
>>514
必ず見つかる
最小になるパターンの内各箱の中を逆順にソートした数列を考えてみると自明
535:114
18/11/16 15:20:04.95 00yShIqx.net
多分これで出るはずだけど、家の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,
536: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])] せっかく >>514 さんに順列と言うヒント貰っておいて活かしきれてない。。。ごめん。
537:114
18/11/16 15:22:31.31 00yShIqx.net
>>514 さんに折角、順列って言うヒント貰っておいて活かせなかった。
ごめん。
538:デフォルトの名無しさん
18/11/16 15:27:37.42 7Qu0EE2P.net
箱に入れた量で大小関係を付けると６個で３６通り
539:デフォルトの名無しさん
18/11/16 15:40:46.44 i0pW9pnK.net
>>475
URLﾘﾝｸ(ideone.com)
力技、順列力技ゆえN<=20程度しか求められない。
TSPのやつの変形(2^n*n)、
冗長な計算してるのだろうが、実装できない
ついでに、min(乱択(5000回),貪欲解*2) 回答も書いてみた。
最初のと比較をしてみると、3000テストで42個、間違えた。
(ideone上は100テストで2つ間違っている)
※N,Cが小さければ、
この程度で、そのくらい当たりやすい問題なのだろう。
(逆に間違いを探すのが大変)
余談
これは『ビンパッキング問題』そのもの
でかいNに対しては、ググればもっといい近似値の求め方がある。
540:デフォルトの名無しさん
18/11/16 17:13:07.29 36ZZe95D.net
ビンパッキングって焼きなまし法(近傍が分からない)のとビームサーチ、どっちが効率良いだろうか
541:デフォルトの名無しさん
18/11/16 17:37:36.91 t5p43h9A.net
お題：nの階乗の末尾の連続した0の個数を求める。（過去スレから）
542:デフォルトの名無しさん
18/11/16 17:46:29.02 TvsPH/qp.net
>>526 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
543:デフォルトの名無しさん
18/11/16 19:19:00.00 KTZidSV2.net
お題
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 (解は複数あるが、そのうちの一つを出力すればよい)
544:デフォルトの名無しさん
18/11/16 20:05:31.22 JjlNk60X.net
>>528 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]
545:デフォルトの名無しさん
18/11/16 21:39:18.95 0oMzWKAu.net
>>528 C
URLﾘﾝｸ(ideone.com)
546:デフォルトの名無しさん
18/11/17 09:45:00.71 u+BaxmkL.net
>>475
やった。
順列使わないで三番目が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])]
547:デフォルトの名無しさん
18/11/17 09:45:32.76 u+BaxmkL.net
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])]
548:デフォルトの名無しさん
18/11/17 09:46:31.74 u+BaxmkL.net
(120,[33,61,58,41,50,21,60,64,23,45,67,78,89])]
549:
18/11/17 11:31:38.44 ByrEztlA.net
>>500
やっと理解しました…すべての xor 演算を利用しているわけではないのですね…
550:デフォルトの名無しさん
18/11/17 11:41:54.02 u+BaxmkL.net
>>526
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)
551:デフォルトの名無しさん
18/11/17 12:12:32.80 PHz1iip2.net
>>535
よーわからんが末尾じゃなくてすべての0を数えてない？
552:デフォルトの名無しさん
18/11/17 12:27:52.98 z9owpr8+.net
>>526 ぺちぷ
<?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
553:デフォルトの名無しさん
18/11/17 12:46:05.88 u+BaxmkL.net
>>536
コリャうっかりw
zlen 差替え。
zlen x = (length.(takeWhile (== '0')).reverse.show.product) [1..x]
554:デフォルトの名無しさん
18/11/17 12:48:16.01 u+BaxmkL.net
実行結果
(0,0)
(1,0)
(2,0)
(3,0)
(4,0)
(5,1)
(10,2)
(100,24)
(1000,249)
(10000,2499)
555:デフォルトの名無しさん
18/11/17 15:08:29.22 thhERN1M.net
>>526 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";
}
>>526 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よりもエレガントな解法をしばらく考えていたけど一旦断念して投稿します
556:デフォルトの名無しさん
18/11/17 17:48:20.07 corCuJCM.net
お題
月(01から12)、日(01から31)、時(00から59)、分(00から59)、秒(00から59)の10桁の日付データで
全部の桁が異なる場合を全て求める。だ
557:デフォルトの名無しさん
18/11/17 17:53:02.90 corCuJCM.net
すいません。最後の文字はゴミです無視してください
558:デフォルトの名無しさん
18/11/17 18:44:23.27 eb0sqdRj.net
>>541
時って00から23じゃないの？
559:デフォルトの名無しさん
18/11/17 19:03:48.66 corCuJCM.net
>>543
その通りです。すいません。
時(00から23)に訂正します。
560:デフォルトの名無しさん
18/11/17 19:42:56.43 qglse9qW.net
>>541 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
... 略
561:デフォルトの名無しさん
18/11/17 20:18:24.56 e9k3MEr9.net
東西ローマ帝国勃興期か
胸が熱くなるな
562:デフォルトの名無しさん
18/11/17 20:30:15.26 z9owpr8+.net
>>540
ルジャンドルの定理がエレガントでは無いと申すか
563:デフォルトの名無しさん
18/11/17 20:54:52.23 u+BaxmkL.net
>>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の人(>>545)ので確認したので多分合ってる。
564:デフォルトの名無しさん
18/11/17 20:56:09.09 u+BaxmkL.net
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]]
>>545 の人ので答え合わせしたので、多分合ってる。
565:デフォルトの名無しさん
18/11/17 20:57:39.57 u+BaxmkL.net
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]]
>>545 の結果で答え合わせ済み。
566:デフォルトの名無しさん
18/11/17 20:58:20.76 u+BaxmkL.net
>>545 の結果で答え合わせ済み。
567:デフォルトの名無しさん
18/11/17 21:15:29.25 qglse9qW.net
>>545の全結果
過不足がないことは確認済み
URLﾘﾝｸ(ideone.com)
568:デフォルトの名無しさん
18/11/17 22:37:13.60 BeWwS75G.net
>>541 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個
569:デフォルトの名無しさん
18/11/17 23:10:25.25 u+BaxmkL.net
>>548
03/26 17:48:59
みたいに書式化してるんだけど、RubyもPerlも数字だけなのな。。。
その方が速いのは分かるけど。
570:デフォルトの名無しさん
18/11/17 23:53:27.88 BeWwS75G.net
>>547
数学的にルジャンドルの定理と同じ原理に帰結する解法であっても
もっとエレガントなコードアーキテクチャ、たとえば桁の三角形の5と10を
再帰的に渡り歩いてshiftしながら足しこんでいくようなすごくシンプルで、
もっと短いコード実現を探してたという意味です。
つか5とか10とか100とか通過するたびに0が一桁二桁増えることに
パターンがあるのに気がついてうまく使おうとしたけど、
それがルジャンドルの定理のひとつだとは知りゃせんでした。
571:デフォルトの名無しさん
18/11/18 00:08:39.78 2kF9kdFV.net
25 125が出てこない辺り理屈わかってなさそう
572:デフォルトの名無しさん
18/11/18 00:17:41.21 XHHQeobW.net
>>555
5は*5ね
50+は…
573:デフォルトの名無しさん
18/11/18 05:42:08.97 HhgIFMcS.net
分かっちゃ居たけど、聞いたこともない定理が出る辺り高卒にはエレガントな回答は無理ぽ。。。
574:デフォルトの名無しさん
18/11/18 10:00:29.21 5NL96rQC.net
>>558
codeIQで類似の問題を解いた当時は知らなかったけど、
普通に行き着いたけどな
575:デフォルトの名無しさん
18/11/18 10:39:30.27 Q5hV0WNe.net
>>541 ruby
URLﾘﾝｸ(ideone.com)
576:デフォルトの名無しさん
18/11/18 11:15:29.83 HhgIFMcS.net
>>526
せっかくルジャンドルの定理を知ったので作り直してみた。
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]
577:デフォルトの名無しさん
18/11/18 13:05:15.26 oKOqkAfz.net
お題：同調圧力
要素０，１からなる3次以上の正方行列がある。
縦、横、対角線に０が1個だと1に変化する。この変化が繰り返される。
最後にすべての要素が1になる最小数の１の数と初期配置を求めよ。
578:デフォルトの名無しさん
18/11/18 13:38:56.07 XHHQeobW.net
>>558
定理名を知らなくても考えれば見出せるよ
579:デフォルトの名無しさん
18/11/18 14:07:39.31 /U8hetN/.net
>>558
URLﾘﾝｸ(examist.jp)
URLﾘﾝｸ(www.youtube.com)
高校数学の範囲内だろ
「高卒」なる言い訳が通用するほど高校数学は甘くない
580:デフォルトの名無しさん
18/11/18 14:25:30.20 qNfVdQsW.net
まあ入試でよく見る問題だよね
581:デフォルトの名無しさん
18/11/18 14:54:31.18 HhgIFMcS.net
>>559
>>563-564
そうだね。
高卒だからは言い訳だ。
そう言うのを思いつけない頭の悪さでプログラマーに成れなかった。
それだけだな。
582:デフォルトの名無しさん
18/11/18 15:01:13.02 XHHQeobW.net
>>566
短時間で車輪を思い付く/付かないはある意味、向き/不向きでもある
そういうひらめきタイプじゃなくてもちゃんと食べているプログラマーはいっぱいいるぞ
583:デフォルトの名無しさん
18/11/18 16:24:57.02 HhgIFMcS.net
>>567
ありがとう。
でももう、プログラマー目指す年齢じゃないから＾＾；
iPadのHaskell(Raskell)で力付くでも12000！までは解ける辺り、
効率悪くてもとりあえず動く物を作れるようになったのは良い時代になったと思う。
584:
18/11/18 19:54:03.12 KS5/UdBT.net
>>564
その動画、素因数の5を数えればよい、と言い切っちゃっているが、2は数えなくてもいいのか？あるいは 2 を数えなくてもいい理由を述べていないよね
それに、どうして素因数分解は必ずひととおりになるのですか？二通りになるかもしれないのでは？
585:デフォルトの名無しさん
18/11/18 19:58:30.97 /tSlZOJ0.net
そうだね
おまけに足し算がアーベル群を成していないかもしれないから和と自然数の定義から確認しないと駄目だね
586:デフォルトの名無しさん
18/11/18 21:11:02.75 cU5Dmtcu.net
今、((2n-1)2^m, n5^m)をペアで考えるよ
そうすると、1≦n, mで常に(2n-1)2^m≦n2^(m+1)≦n4^m≦n5^mになる
で、ということはx!の中にある5の倍数が含まれるなら、対応した2の倍数もまた含まれていて素因数の個数が同じ
なので素因数は5だけ数えれば良い
587: 素因数分解が一通りなのは自明なので定義からやり直せ
588:デフォルトの名無しさん
18/11/18 21:18:15.05 HyP7YfXU.net
2以上のnに対しn!=(2^p)*(5^q)*N（Nと2と5は互いに素）とする非負整数p,q,Nがただ一組存在して
p>qであることはほとんど自明だが証明しろと言われると…
589:デフォルトの名無しさん
18/11/18 21:24:02.32 HhgIFMcS.net
>>569
URLﾘﾝｸ(mathtrain.jp)
末尾の 0の数は，10で何回割り切れるか，すなわち 2で割れる回数と 5で割れる回数の少ない方である。
（直感的に考えて 5 で割れる回数のほうが少ないので 5で割れる回数だけ考えればよいが練習のため，）
590:デフォルトの名無しさん
18/11/18 21:50:28.21 tNgGKwOg.net
普通に自明
591:
18/11/18 21:56:44.59 KS5/UdBT.net
>>571
＞素因数分解が一通りなのは自明
自明ではないと思います…「素数の定義は 1 と自身以外の約数を持たない」であって「素数の積が一通り」ではないですから
＞そうすると、1≦n, mで常に(2n-1)2^m≦5^mになる
OKです
＞で、ということはx!の中にある5の倍数が含まれるなら、対応した2の倍数もまた含まれていて素因数の個数が同じ
ここは飛躍しているのでは？
n・5^m →(2n-1)・2^m
と対応づけるとき n・5^m の形の数が決して (2n-1)・2^m の形にならないのであれば一対一の対応がとれますが、n・5^m の形であってかつ (2n-1)・2^m の形である整数が存在する場合は一対一の対応にならない
厳密に一対一の対応にならないのなら、因数 2 の個数と因数 5 の個数の大小についてなにもいえないのでは？
592:
18/11/18 21:58:55.74 KS5/UdBT.net
>>573
＞直感的に考えて 5 で割れる回数のほうが少ないので
あくまでも「直感的に」ですよね
厳密にそういえますか？
593:デフォルトの名無しさん
18/11/18 21:59:59.80 tNgGKwOg.net
ルジャンドルの定理を考えれば普通に自明
594:デフォルトの名無しさん
18/11/18 22:33:22.36 ryC6c2pW.net
>>569
証明はされているしググれば出てくる
内容についてはこのスレの趣旨的にここで深く論じる事ではないと思う
595:デフォルトの名無しさん
18/11/18 22:34:24.44 I7k3lQnf.net
◆QZaw55cn4c は荒らしなのでスルーでお願いします
596:デフォルトの名無しさん
18/11/18 22:42:22.16 qz83zcM7.net
お題
UTF-8のバイト列が与えられるので、Unicodeのコードポイントを求めよ
6F 64 61 69
=> U+006F U+0064 U+0061 U+0069
E3 81 8A E9 A1 8C
=> U+304A U+984C
C2 A9 F0 9F 8D 94 E9 A6 99 41
=> U+00A9 U+1F354 U+9999 U+0041
597:デフォルトの名無しさん
18/11/18 23:39:58.87 N6zzFXD1.net
◆QZaw55cn4c は、このスレでも荒らしてるのか。
598:
18/11/18 23:51:49.66 KS5/UdBT.net
>>578
＞内容についてはこのスレの趣旨的にここで深く論じる事ではない
一理あるとは思います
599:デフォルトの名無しさん
18/11/18 23:58:08.89 N6zzFXD1.net
何かと思ったら、自然数の素因数分解の一意性に文句を付けているのかよ。
600:デフォルトの名無しさん
18/11/19 00:12:50.43 En0/bEno.net
>>575 n・5^m=(2n-1)・2^mなら、nは2の累乗かつ2n-1は5の累乗(2と5は互いに素なので)
でも、2n-1が5の累乗だとするとn=3,13,63,313…と奇数なので(f(1)=3, f(x)=f(x-1)+2・5^(x-1)で導出)nが2の累乗であることに矛盾する
素因数分解が一意なのはwikipediaにでも載ってる
というか自分である程度考えてよ……粗探ししてないでさ
601:デフォルトの名無しさん
18/11/19 00:15:20.48 DnlmRpTS.net
>>580 Java
URLﾘﾝｸ(ideone.com)
602:
18/11/19 00:25:31.38 MufxDZB0.net
>>584
＞ n・5^m=(2n-1)・2^m
そう置くのではなく
a・5^b = (2c-1)・2^d
と置くべきなのでは？
たとえば m = 1 のとき n の小さいものから順に
1・5 → 1・2
2・5 → 3・2
3・5 → 5・2…①
ここ①で 5・2 はすでに数え上げているので、一対一対応になっていないと思います
一対一対応にな�
603:轤ﾈい以上、>>575 の推論は飛躍しているのではないでしょうか 繰り返しますが >>575 「n・5^m の形であってかつ (2n-1)・2^m の形である整数が存在する場合は一対一の対応にならない 厳密に一対一の対応にならないのなら、因数 2 の個数と因数 5 の個数の大小についてなにもいえないのでは？」 です
604:デフォルトの名無しさん
18/11/19 00:36:52.56 En0/bEno.net
ん、あれ確かにおかしいな
即レスはミスの源だな、再検討してくる
605:デフォルトの名無しさん
18/11/19 01:06:40.64 4D1JIT10.net
>>580
大変勉強になりました。
const getCP = s => [...new TextDecoder('utf-8').decode(Uint8Array.from(s.split` `.map(x => parseInt(x, 16))))].map(u => 'U+' + u.codePointAt().toString(16).toUpperCase().padStart(4, 0)).join` `
getCP('6F 64 61 69')
=> "U+006F U+0064 U+0061 U+0069"
getCP('E3 81 8A E9 A1 8C')
=> "U+304A U+984C"
getCP('C2 A9 F0 9F 8D 94 E9 A6 99 41')
=> "U+00A9 U+1F354 U+9999 U+0041"
606:デフォルトの名無しさん
18/11/19 01:10:37.57 rdQ6rffg.net
n/2>=n/5
n/2^2>=n/5^2
以下略
5の方が多くなることはないわな
607:デフォルトの名無しさん
18/11/19 01:11:16.13 4D1JIT10.net
あっ、>>588はJavascript(整形にpadStart使ったのでES2017)です。
608:デフォルトの名無しさん
18/11/19 03:32:52.09 hjbRrJKx.net
>>580
Perl5
変換は Perl 任せ。
URLﾘﾝｸ(paiza.io)
609:デフォルトの名無しさん
18/11/19 10:25:48.15 X6/A5UND.net
問題と言うより、単純な興味なんだけど。
Cでこんなコード書いて
(Hello World!!が横に流れ続けて下でマークがクルクル回る)
URLﾘﾝｸ(ideone.com)
それをHaskellで書いてみたのね。
URLﾘﾝｸ(ideone.com)
ハイブリッドな言語増えて来たので、他の言語だとどう書くのかなって。
出来れば破壊的なのと、関数型っぽく非破壊的なのと見てみたい。
(ミュータブル版とイミュータブル版)
610:デフォルトの名無しさん
18/11/19 10:29:45.48 /4Aoxd3M.net
>>592
何をするのか網ちょい詳しく
611:デフォルトの名無しさん
18/11/19 11:00:22.26 X6/A5UND.net
>>593
精一杯考えて説明したつもりなので、Cのコードコンパイルして実際にコマンドで動かしてもらえれば。
それと同じ動きになるコードを書いて欲しいと言うことです。
(出来れば初期化以外の変数代入有りと無しで)
612:デフォルトの名無しさん
18/11/19 23:48:36.76 S7M28HrM.net
>>580 rust
URLﾘﾝｸ(ideone.com)
>>580 ruby
URLﾘﾝｸ(ideone.com)
613:デフォルトの名無しさん
18/11/20 00:53:04.42 yKairBEQ.net
>>580
python 3
for x in ["6F 64 61 69","E3 81 8A E9 A1 8C","C2 A9 F0 9F 8D 94 E9 A6 99 41"]:
__print(" ".join(['U+{:04X}'.format(ord(y)) for y in bytes.fromhex(x).decode("utf-8")]))
->
U+006F U+0064 U+0061 U+0069
U+304A U+984C
U+00A9 U+1F354 U+9999 U+0041
614:デフォルトの名無しさん
18/11/20 01:11:13.89 avg9qTbR.net
>>588
utf-8がデフォルトだから引数要らないよ
615:587
18/11/20 02:29:27.79 lQrB+xRm.net
>>580
C
全て自分で変換
URLﾘﾝｸ(paiza.io)
616:デフォルトの名無しさん
18/11/20 02:34:35.37 yKairBEQ.net
>>541
python 3
URLﾘﾝｸ(ideone.com)
617:デフォルトの名無しさん
18/11/20 11:19:51.35 XC6mINx9.net
>>580 Ruby 仕様をそのまま。ただし冗長性のチェックだけはしていない
def divide_prefix(byte)
raise 'invalid byte' if byte & 0xF8 == 0xF8
prefix_len = (1..8).find{|i| (byte >> 8 - i) & 1 == 0}
prefix = (1
618: << prefix_len - 1) - 1 << 1 {prefix: prefix, body: byte - (prefix << 8 - prefix_len)} end def utf8_codepoints(bytes) ary = bytes.map{|e| divide_prefix(e)} leading_bytes = ary.select{|dc| dc[:prefix] != 0x02} leading_bytes.map do |lb| utf8_char = ary.shift(lb[:prefix] == 0 ? 1 : lb[:prefix].bit_length - 1) raise 'invalid sequence' if utf8_char[1..-1]&.any?{|dc| dc[:prefix] != 0x02} utf8_char.reverse_each.with_index.map{|dc, i| dc[:body] << 6 * i}.sum end end [ '6F 64 61 69', 'E3 81 8A E9 A1 8C', 'C2 A9 F0 9F 8D 94 E9 A6 99 41' ].each{|str| puts utf8_codepoints(str.split.map(&:hex)).map{|e| 'U+%04X' % e}.join(' ')} # => U+006F U+0064 U+0061 U+0069 U+304A U+984C U+00A9 U+1F354 U+9999 U+0041
619:デフォルトの名無しさん
18/11/20 13:23:53.49 FaN+D89v.net
>>592 Ruby ターミナル上で10秒間 <marquee>Hello, world</marquee> & 棒がぐるぐる的な感じ
duration = 10
wait = 0.1
str = 'Hello, World!'
len = str.size
bar = %w[- / | \\ ]
clear_lines = -> n {puts "\e[#{n}\e[#{n}A"}
# 非破壊的
str2 = 'Hello, World!' * 2
(duration / wait).round.times{|i|puts str2[i % len, len], bar[i % 4]; sleep(wait); clear_lines[2]}
# 破壊的
hello_ary = 'Hello, World!'.split('')
(duration / wait).round.times{puts hello_ary.rotate!.join, bar.rotate!.first; sleep(wait); clear_lines[2]}
620:デフォルトの名無しさん
18/11/20 13:50:30.38 +huVy/La.net
訂正
duration = 10
wait = 0.1
str = 'Hello, World!'
bar = %w[- / | \\ ]
clear_lines = -> n {puts "\e[#{n}\e[#{n}A"}
# 破壊的
str_ary = str.split('')
bar_ary = [*bar]
(1..duration / wait).each{puts str_ary.rotate!.join, bar_ary.rotate!.first; sleep(wait); clear_lines[2]}
# 非破壊的
str2 = str * 2
(1..duration / wait).each{|i|puts str2[i % sitr.size, str.size], bar[i % 4]; sleep(wait); clear_lines[2]}
621:デフォルトの名無しさん
18/11/20 23:12:15.60 Vm2a6rBd.net
世界一気持ち良いフェラチオのアルゴリズムを作れ
622:デフォルトの名無しさん
18/11/21 05:38:04.65 yscr9wE/.net
>>541
Ruby で実行すると、Timeout になりました！
# 10桁の文字列で、重複した文字が無いものは、いくつあるか？
month = ("01".."12").to_a
day = ("01".."31").to_a
hour = ("00".."23").to_a
min = sec = ("00".."59").to_a
# uniq! は変化が無ければ、nil
p month.product( day, hour, min, sec )
.reject { | mon, d, h, min, s | ( mon + d + h + min + s ).chars.uniq! }
.length
623:デフォルトの名無しさん
18/11/21 08:13:38.75 KQDfl3zy.net
>>604
.reject { | mon, d, h, min, s | ( mon + d + h + min + s ).chars.uniq! }が無駄過ぎ
.reject(&:uniq!)で良い。それでも良いコードではない
あとこれだと2月31日とかが含まれてしまう可能性考慮してないよね(実際には含まれないが)
624:デフォルトの名無しさん
18/11/21 13:17:27.94 r/9FyEhs.net
>>545 をちょっと変更。月を分ける必要がなかった
date = [1, 2].permutation.flat_map do |dd, dh|
[*3..5].permutation(2).flat_map do |dm, ds|
([*3..9] - [dm, ds]).permutation.map do |mo, d, h, m, s|
[0, mo, dd, d, dh, h, dm, m, ds, s] if dh == 1 || h == 3
end
end
end.compact.sort
625:デフォルトの名無しさん
18/11/21 13:59:24.73 89fYavxU.net
月日時分秒で文字列で並べる前に11月とか11日とか22日とか必ず各桁が同じ値になるやつ最初から省けば無駄がなくなって少し速くならんか？
626:デフォルトの名無しさん
18/11/21 17:57:29.48 89fYavxU.net
>>541
Kotlin
URLﾘﾝｸ(paiza.io)
色々試した結果、やはり最初に必要な文字列全て作ってしまうのが一番速かった。
627:デフォルトの名無しさん
18/11/21 19:06:42.18 7Tiab2M6.net
文字列を正規表現で判定するのは遅いんじゃね？
628:デフォルトの名無しさん
18/11/21 19:31:36.89 fvygYhm9.net
12*31*6
629:0*60*60=80,352,000通りの桁が異なるか判定より、10桁並び替え10!=3,628,800通りが日付になってるか判定の方が速そう
630:デフォルトの名無しさん
18/11/21 19:43:32.60 fvygYhm9.net
>>610
計算ミスった、12*31*24*60*60=32,140,800か
お詫びにコード、C++
URLﾘﾝｸ(ideone.com)
631:デフォルトの名無しさん
18/11/21 19:50:15.56 XrCNlm4w.net
最初の4桁は高々365パターンしかないからその各組について残り6桁720通り検討すれば262,800通りで済む
632:デフォルトの名無しさん
18/11/21 19:55:14.22 XrCNlm4w.net
ちなみに最初の4桁で数字に重複がないのは130通りしかないからここできちんと処理すれば93,600通りで済む
633:デフォルトの名無しさん
18/11/21 20:17:28.45 Pa+SHuBo.net
普通にやれば768通りで済む
時間が 0x/1d 23:Mm:Ss なら
{M, S} = {4, 5} で残りは4つの数字の任意の順でＯＫ
2 * 4! 通り
時間が 0X/2d 1h:Mm:Ss なら
M, S は異なる{3, 4, 5}の元で残りは5つの数字の任意の順でＯＫ
3P2 * 5! 通り
全部で (2 + 3P2 * 5) * 4! = 768 通り
634:デフォルトの名無しさん
18/11/21 20:32:17.09 89fYavxU.net
>>609
そうかも。
やっぱただの二重ループで調べるのが一番速いかな？
最初はSetに一文字づつ入れて同じのが既にあったらっていう判定してたんだけどね、正規表現なら一発で判定できると気づいてそちらにした。
まあでも正規表現だから中で複雑な動きになってるかも知れないな。
635:デフォルトの名無しさん
18/11/21 20:41:48.33 89fYavxU.net
良く考えたら各桁が数字しかないから10ビットのビットフラグ立てるかBoolenArrayで10要素あれば重複調べられるな。後で変えよう。
636:デフォルトの名無しさん
18/11/21 21:02:48.05 fvygYhm9.net
お題
以下の操作を好きなだけ行う時、0をXにするまでに必要な最小コストを求めよ
・コスト1で値を1増減させる
・コストn+Yで値をn倍する
XとYは与えられ、0以上の整数であることが保証される
nは自然数の範囲で任意に決めて良い
例(X, Y)
1 3
20 2
63 2
出力
3
11
17
637:デフォルトの名無しさん
18/11/21 21:03:37.61 Gj+ctZjI.net
お題
N個の正整数を並べ替えたあと結合してできる整数の最小値を求めよ
3 2 1
=> 123
1 2 21
=> 1212
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
=> 10111121314151623456789
638:デフォルトの名無しさん
18/11/21 21:13:22.72 fcujQIsM.net
>>541
一年って365日？372日？
639:デフォルトの名無しさん
18/11/21 21:47:53.81 DBPerFhf.net
>>618 Perl5
use feature say;
for (<DATA>) {
s/\s*//g;
$z = tr/0//;
@a = grep{$_} sort split '';
$a = shift @a;
say join '',($a, (0)x$z, @a);
}
__DATA__
3 2 1
1 2 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
execution
$ perl 12_614.pl
123
1122
10111111112233445566789
640:デフォルトの名無しさん
18/11/21 21:49:54.93 DBPerFhf.net
>>620
間違ってる。ｺﾞﾒﾝ却下
641:デフォルトの名無しさん
18/11/21 22:06:23.31 DBPerFhf.net
>>620 Perl5
use List::Util max;
use feature say;
for (<DATA>) {
@a = split;
$n = max map{length} @a;
say $n;
$b = join '', sort map{$_.'a'x($n-length)} @a;
$b =~ s/a//g;
say $b;
}
__DATA__
3 2 1
1 2 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
実行
$ perl 12_614.pl
123
1212
10111213141516123456789
642:デフォルトの名無しさん
18/11/21 22:08:43.18 DBPerFhf.net
>>622
途中の
say $n;
は不要なdebug write、
削除して下記と差し替え
use List::Util max;
use feature say;
for (<DATA>) {
@a = split;
$n = max map{length} @a;
$b = join '', sort map{$_.'a'x($n-length)} @a;
$b =~ s/a//g;
say $b;
}
__DATA__
3 2 1
1 2 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
643:デフォルトの名無しさん
18/11/21 22:22:35.53 fvygYhm9.net
>>618 Java
URLﾘﾝｸ(ideone.com)
644:デフォルトの名無しさん
18/11/21 22:30:22.51 7Tiab2M6.net
>>617 Java
URLﾘﾝｸ(ideone.com)
1 3は3じゃなくて1でいいんよね？
645:デフォルトの名無しさん
18/11/21
646:22:30:46.05 ID:luckbEjf.net
647:デフォルトの名無しさん
18/11/21 22:32:28.49 XrCNlm4w.net
>>618
python3
def keyMaker(x):
__x = [int(y) for y in x]
__x.append(x[-1]+0.1)
__return x
for y in ["3 2 1","1 2 21", "1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16"]: print(int("".join(sorted(y.split(),key=lambda x: keyMaker(x)))))
->
123
1212
10111121314151623456789
0.1足さないと "10 11 101 100"で間違えるな
648:デフォルトの名無しさん
18/11/21 22:39:54.74 Pa+SHuBo.net
>>624
101 10 と 10 101 で結果が異なる
URLﾘﾝｸ(ideone.com)
649:デフォルトの名無しさん
18/11/21 22:54:14.65 7Tiab2M6.net
>>618 Java
URLﾘﾝｸ(ideone.com)
650:デフォルトの名無しさん
18/11/21 22:55:54.34 7Tiab2M6.net
あ、>>625問題読み間違えてるわ
コスト1で1増やすんじゃなくて1増減出来るのね…
651:デフォルトの名無しさん
18/11/21 23:11:59.00 DBPerFhf.net
>>618 Perl5
use feature say;
say sort{"$a$b"<=>"$b$a"} split for <DATA>;
__DATA__
3 2 1
1 2 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
実行
$ perl 12_614.pl
123
1212
10111121314151623456789
652:デフォルトの名無しさん
18/11/21 23:12:22.88 jrFgFGaV.net
お題：分数を小数に直したときの循環部分の周期を求める
割り切れる場合は0とする
例：
1/3 => 1
10/2 => 0
988027/983 => 982
919/870473 => 54288
1223/1476221 => ?
99998360006603 / 9999901 => ?
653:デフォルトの名無しさん
18/11/21 23:20:10.22 7Tiab2M6.net
>>617 Java (>>625の修正)
URLﾘﾝｸ(ideone.com)
654:デフォルトの名無しさん
18/11/21 23:21:24.98 jrFgFGaV.net
123412345/999999999 => 9
も>>632の例に追加