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

1 名前：デフォルトの名無しさん mailto:sage [2018/09/28(金) 10:09:07.13 ID:phwOkayR.net] プログラミングのお題スレです。 【出題と回答例】 1 名前：デフォルトの名無しさん 　　お題：お題本文 2 名前：デフォルトの名無しさん 　　>>1 使用言語 　　回答本文 【ソースコードが長くなったら】 (オンラインでコードを実行できる) https://ideone.com/ codepad.org/ compileonline.com/ rextester.com/runcode https://runnable.com/ https://code.hackerearth.com/ 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/ 384 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 00:18:43.46 ID:EX0FpiMD.net] >>371 10については、そいうやり方も考えられるけど 上記の循環の例の11,13,777は指数を%100しても解は合うが 他の数値も単に指数を%100して解が合うか、一般性は疑わしいので、 >>360はちょっと勇み足だったかもしれないﾃﾍﾍﾟﾛ 385 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 00:19:14.52 ID:JEwLf6Zk.net] >>367 0〜99までとりあえず循環部分の周期は全て20の約数になるみたいだけど 数学雑魚の俺には理屈がわからなかった とりあえず、ざっくり100の剰余取るだけだと循環開始より小さい指数になったときにおかしくなりそう 386 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 00:52:30.78 ID:+qrAueUv.net] >>372 寧ろそれが成り立つ方がかなり特別なケースだぞ 387 名前：デフォルトの名無しさん [2018/11/12(月) 02:34:45.23 ID:MtlIUxHY.net] 多分数学的には証明されていることだろうと思うが、x ^ 100 とか x ^ 200 とか x ^ 300 って、 下3桁の結果が同じになるようだな。どうしてかはわからんが。多分考えて行くとその内わかる んだろう。後の事は数学が得意な人に任せた。 388 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 04:19:59.43 ID:lDwndekZ.net] x^22 - x^2 が常に100で割り切れるのが理由だと思う なので巡回群の長さは高々20までになる 389 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 04:44:54.48 ID:lDwndekZ.net] もう少し分かりやすく書くと x^20 - 1 と x^21 - x が 100で割り切れる保証はない（実際大部分は割り切れない）が x^22 - x^2 は絶対に100で割り切れる（合同式を用いれば証明は簡明）ので 一般に2以上の自然数 n に対して x^(n+20) - x^n ≡ 0 mod 100が成り立つ（xは整数） よって一般に指数部の20の剰余を取っても問題ないと言える 390 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 04:49:06.55 ID:fKeD1dzA.net] >>375 任意の整数 10n + r (-4 <= r <= 5)に対して (10n + r)^100 = r^100 mod 1000 なので mod 1000 で 0^100 = 0 5^100 = 625^25 = 625 (±1)^100 = 1 (±2)^100 = 24^10 = 376 (±3)^100 = 243^5 = 1 (±4)^100 = 376^2 = 376 となって 0, 1, 376, 625 は2乗しても下3桁は変わらないから 任意の整数は100n乗しても下3桁は常に同じだね 391 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 09:11:34.15 ID:WiNaWTIj.net] 数学板でやれ。問題からしてクソだった。 392 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 10:17:56.51 ID:iaSpw+rm.net] これ以上はスレ違いってなら同意だけど問題自体は別に良かっただろ 393 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 11:03:12.07 ID:oQPj2WUY.net] とりあえず>>340の出題者は用意してあった解答を出そうか くそ問題かどうかはそれを見て判断する 394 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 11:11:40.60 ID:iaSpw+rm.net] 既に回答がたくさん出てるのにクソ問題も何もねえだろ 395 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 11:51:52.42 ID:oQPj2WUY.net] 回答の多さとクソさとの相関はないだろ 例えばQiitaでいいねが多ければクソじゃないということがないのと同じように そういうのはいいから出題者は早めに解答だしてくれ 396 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 12:01:03.54 ID:iaSpw+rm.net] ボクがわからないからクソとか草生えるわ なんでお前の救い難い知的レベルに合わせてやらなければならいんだよ 397 名前：デフォルトの名無しさん [2018/11/12(月) 12:07:32.95 ID:iShTB70W.net] >>383 最近のQiitaのトレンド見てて いいねの数=内容の薄さ だと思うようになってきたわ 398 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 12:11:20.95 ID:b6USGf7s.net] 今回の問題はべき剰余の特殊な場合を求めるものだけど、工夫する余地もいくつかあり悪い問題ではないと思った。 というかなぜこれを悪い問題だと思ったんだ？ 399 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 12:19:11.85 ID:DYCuacpe.net] 競技プログラミングなんかでよく見るタイプの問題なのにな。 400 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 12:23:12.24 ID:hXyGmgtP.net] a↑↑b mod n を一般化してみたらテトレーション計算より 最初に使うφ(n)の計算のほうが重かった 10**nなら2**n * 5**nなので高速に計算できますけども 401 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 12:28:21.72 ID:TKKxOWxM.net] このスレは不特定言語スレだけど 高速性ならC/C++/Rast コンパクト性の追求ならSmallTalkとかRubyとか RADならJavaとかPythonとか定番固定化。 既にもうある程度少数特定言語スレになりつつあ る希ガス 402 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 12:28:55.23 ID:TKKxOWxM.net] RastじゃなくてRustやったなｗｗｗ 403 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 12:49:28.80 ID:7mLFygVa.net] >>384 > なんでお前の救い難い知的レベルに合わせてやらなければならいんだよ 数学の素養のあるっぽいやつのよくやりがちなダメな考え方だな そういう(逆)選民思想を持っているならこのスレで出題するのはやめてくれ そもそも良問と思うものをけなされるお前自身がたのしくないだろ？ 404 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 12:56:08.79 ID:1XBBjLKo.net] いずれにせよ出題者がどこまで考えて出題したか（つまり良問か否か）はそいつ自らの解答を見れば一目瞭然だよ 論よりコード はよ出せ 405 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 13:24:01.86 ID:WWnCJgTu.net] 問題の良さって問題じゃなく解答で決まるものなのか？ 問題だけで問題の良さが確定しないのは初めて知ったわ 406 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 13:26:44.24 ID:DYCuacpe.net] も一回言うけどこの問題はプログラミングのお題としてはよく見るような問題だぞ。 揚げ足取りというか難癖付けてる奴はおかしいだろ。 それこそスレチだから黙ってろよ。 407 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 13:28:23.55 ID:X+KqJ1/Z.net] >>393 解答で決まるなんて誰もいっとらんがな（数学の前にやることあるんじゃ？ｗ） 解答を見れば「どこまで考えて出題したか」が一目瞭然ということ どこまで考えて出された問題かで良問か否かが決まる もとより様々な状況で「結果的に良問」ということは実際あるしそれは否定する気は無いが、蓋然性は低い 408 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 13:38:11.17 ID:b6USGf7s.net] この程度のことで選民思想がどうのとか言い出すのはおかしいと思うよ。 冪剰余の計算は面白いテーマだし。 逆に悪問だと言ってる人がその根拠を示すべきだと思うんだけど。 409 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 13:57:27.23 ID:9RzF2H48.net] >>396 「この程度（のレベル）」とか言ってる選民思想バリバリの奴が 自分は違うって体で何か主張したところでぜんぜん説得力ないんだがｗ ともあれ、回答が多い割に文句なしの正答が出てこないのがこのスレ的には異常事態だろ お題 and/or 出題者をクソだと疑う十分な根拠になりうる 410 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 14:13:38.48 ID:b6USGf7s.net] >>397 英語の授業で"How are you?" "I'm fine. Thank you" って言ったら「ペダンチックだ。帰国子女ぶるな」といわれたくらいに衝撃的。 大体問題が理解できないのに「文句なしの正答」を見極められるというのはおかしくない？ こっちからすればここに既にある回答の内のいくつか(>>352とか)は「文句なしの正答」なんだけど。 問題が理解できないのに「文句なしの正答」を見極められるならそれらのどこが不十分なのか説明しなさい。 それができなければ数学ができる出来ない以前にただのモンスタークレーマーみたいな傲慢野郎だ。 411 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 14:16:13.02 ID:CqB5lm+V.net] まーた頭おかしいのが暴れてんのか >>397はNGぶっこむからIDころころ変えるな もしくはコテハンつけろよゴミが 412 名前：デフォルトの名無しさん [2018/11/12(月) 14:24:13.52 ID:D6ILV7Jx.net] >>359とか良い問題じゃ無い？ 私は解けないが。 413 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 16:17:37.15 ID:9RzF2H48.net] >>398 いくつかってずいぶん曖昧だなｗ お前の文句なしってセンス疑うわｗ 414 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 16:22:54.34 ID:CqB5lm+V.net] >>401 >>352に文句つけてみろよ無能ゴミクズが 415 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 16:27:56.77 ID:9RzF2H48.net] あとお前ら（直近ではID:9RzF2H48とID:CqB5lm+V） 勝手にクソ問題断定のクレーマー扱いしとるが 出題者の用意していた解答次第では良問の可能性も（わずかだが）あるんだからな ほどほどにしとけよｗ 416 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 16:29:53.16 ID:9RzF2H48.net] いかん自分を安価しちゃったよID:b6USGf7sな 417 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 16:33:57.40 ID:DYCuacpe.net] どうやら ID:9RzF2H48 は人を馬鹿にしたいだけみたいだな。 きちんと説明してもらってんのに言ってることがわけわからんし。 冪剰余の最適化なんて教科書にあってもいいくらいものすごくありふれたお題だっていうのに馬鹿らしい。 418 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 16:37:03.80 ID:CqB5lm+V.net] 数学の話ししてるのにイライラして思わずクソ問題呼ばわりして引くに引けなくなったんだろ 419 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 16:43:20.29 ID:b6USGf7s.net] >>401 いやだから>>352とかって例を挙げてるでしょ。ばかにしてる？ それで結局悪問だという根拠は示せないんだよね？ じゃあ悪いことしたんだからまだいるか知らないけど出題者に謝罪しようね。 君ははっきり言って不快だよ。 420 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 16:46:44.76 ID:9RzF2H48.net] >>405 本音がでたなｗ中立ぶるよりお前ららしいわ >>406 こんなん数学に入るかボケが つーかお前のためにID固定してやってんだからレスすんな 421 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 16:52:28.57 ID:9RzF2H48.net] >>407 自分で回答も出せないやつが他人のコード気安く挙げてんじゃねーよ お前が考えて出したコードならいくらでもケチつけたるわｗ 422 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 16:55:43.17 ID:CqB5lm+V.net] >>408 図星突かれて痛かったのか？ バカを愚弄するのはホント楽しいわ てか「数学板でやれ。問題からしてクソだった」って言ってたくせにこんなの数学に入らないっておかしいだろ 数学に入らないなら数学板推すなよアホか 結果的に数学よりも遥かにスレ違いの話題でこの場を荒らして皆に迷惑かけてんのはお前だ お前はみんなの迷惑なの 423 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 17:00:57.95 ID:b6USGf7s.net] >>409 ＞ともあれ、回答が多い割に文句なしの正答が出てこない って言うからその反例として件のレスなのに、開き直ってお前がコード書けだなんて控えめに言って狂ってる。 相手が言ったことも読まないし自分が行ったことすら覚えていないんじゃあ対話不可能。 ただただ不快な存在。 424 名前：デフォルトの名無しさん [2018/11/12(月) 17:01:55.26 ID:D6ILV7Jx.net] >>340 は情報爆発でメモリ使いまくる処理をいかにメモリ使わずに処理できるかって意味じゃ悪く無いと思う。 私はプログラマーじゃ無いから思い付けなかったが、こう言うのはプログラマーの本領発揮する分野じゃないかな。 そして >>359 も解けない私。。。Orz GUIならネットに落ちてるけど、CUIってのが味噌だよね。 425 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 17:02:08.43 ID:9RzF2H48.net] >>407 それは出題者のコードじゃないだろ？ ほんとお前、日本語読解とか論理的思考とか大丈夫なの？ 426 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 17:02:52.43 ID:9RzF2H48.net] 正直、ばかにはしているｗ 427 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 17:03:00.49 ID:DYCuacpe.net] >>408 ものすごくありふれたお題に文句付けてるんだからあきれてものも言えないってだけ。 別に中立ぶってなどいない。お前のことは見下してるが。 428 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 17:06:56.26 ID:b6USGf7s.net] >>413 ＞ともあれ、回答が多い割に文句なしの正答が出てこない と言ったのはそちらで、それに対してこっちがその反例として件のレスを挙げたのに本気で意味不明。 会話を破綻させに行っているのは君でしょ。自分が書いたことすら覚えていないのだから。 さすがに不愉快だ。 429 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 17:08:31.84 ID:1o1kfQH0.net] 馬鹿は相手がどの高さいるのかもわからずに人を馬鹿にする 頭が悪いので周囲が何を言ってるのか何一つ理解できない そして自尊心の塊 430 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 17:08:37.05 ID:CqB5lm+V.net] ここまできっちり論破されてるとキチガイ相手でも哀れになってくるな 431 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 17:13:08.29 ID:9RzF2H48.net] >>416 お前は自分の「文句なし」に自信持ちすぎだろｗ あと「出題者の用意していた解答次第では良問の可能性も（わずかだが）ある」は無視ですかそうですか 432 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 17:15:33.59 ID:9RzF2H48.net] >>418 だからお前は反応するなと何度言わせる？ｗ 433 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 17:17:08.81 ID:b6USGf7s.net] >>419 対話する意図がないと判断した。 もういい。疲れた。 控えめに言って、君はもう死んだ方が良いよ。 434 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 17:21:16.54 ID:4IQEu5Ky.net] 最近あっちこっちで暴れてる単芝君か 5chに居場所が無くてもリアル犯罪に走るなよな 435 名前：デフォルトの名無しさん [2018/11/12(月) 17:21:58.58 ID:D6ILV7Jx.net] 良い加減にしろ！ もうオマイらで >>340 の文句なしの正当とやらを出し合えや。 436 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 17:23:23.00 ID:eZ2UdI/8.net] ・数学の話ばかりしてうざい　←わかる ・作者は答え書いて　←わからなくもない ・答え書かないからクソ問題！　←は？ 437 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 17:54:26.10 ID:9RzF2H48.net] >>424 誤解があるので訂正しておくけど 出題者が「落とし穴」をちゃんと想定できていれば良問だしそれを確認せんがための「答え出せ」だよ でも、勘違いしたままたまたま答えが合ってしまう入出力例しか提示されていない and/or それを排除できる例を出せない時点でこの問題はそれなりにクソ問題だと思う 引っ掛けて貶めたり、選抜や順位を競うことを目的とした場所じゃないんだからここは 438 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 18:12:43.91 ID:eZ2UdI/8.net] n^n^n % 100計算するのに落とし穴も何もないだろ フェルマーの小定理チックに指数部で剰余とるだなんて誰も想定できねえよ なんでキチガイは間違えたらそこから学ばずに問題の方(しかも真っ当 439 名前：)にケチ付けるんだか 運動会で転ぶと怪我をするからグラウンドの至る所にクッションを置いておけと言うモンペと同レベルのキチガイ [] [ここ壊れてます] 440 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 18:26:31.10 ID:bzMEonQL.net] なんで数学板でやらないのかね。 数学板ではザコだからプログラム板でマウント取りたいとか？ｗｗ 441 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 18:28:01.10 ID:CqB5lm+V.net] >>427 ID変えんなやキチガイ 442 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 18:32:41.33 ID:9RzF2H48.net] >>426 住人かと思ってちょっと丁寧にレスしたらこれだよ ┐(´-｀)┌ 443 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 18:34:56.16 ID:9RzF2H48.net] >>428 変えてないし、そもそも俺だと思うならレスすんなよ… 444 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 18:55:17.39 ID:eZ2UdI/8.net] >>429 お前以外誰もその問題にケチ付けてねえのに住人面すんな 素直に頭悪いが悪いのが悔しいですって言えよ 445 名前：デフォルトの名無しさん [2018/11/12(月) 19:18:26.81 ID:h68nq2of.net] プログラミングできてもネットリテラシーは低いんだな 446 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 19:28:11.51 ID:+FWS6rf7.net] ID:9RzF2H48 こいつ前からこの板荒らしまくってる粘着野郎だぞ 意思疎通は不可能だから無視しとけ 447 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 19:45:44.72 ID:4WXaKeF0.net] お題 1900年から2018年までの、7月31日が土曜日である年を全て挙げよ 448 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 19:52:33.63 ID:n3BneZmq.net] なんで？ 449 名前：デフォルトの名無しさん [2018/11/12(月) 19:54:05.95 ID:I5PkaEyl.net] 自分で計算して求めるのを作るか、ライブラリを使ってしまうか、悩ましいところですな・・・ 450 名前：336 mailto:sage [2018/11/12(月) 19:58:23.85 ID:rYIWpX0E.net] 悪い意味で盛り上がってて苦笑するしかない C++ https://ideone.com/HUZiK8 Ruby読めないけど>>346と大体同じ考え方なのかな 451 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 20:20:47.61 ID:4WXaKeF0.net] お題 0から99までの整数を2進数で表したとき、１が奇数個あるものを全て挙げよ 452 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 20:23:17.93 ID: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 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 20:27:55.24 ID: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 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 20:31:45.80 ID: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 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 20:36:43.90 ID: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 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 20:55:43.70 ID: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 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 21:30:19.73 ID: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 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 21:32:31.70 ID: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 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 21:57:07.87 ID:jh3oqSUb.net] >>438 rust https://ideone.com/gTuww7 461 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 22:18:19.15 ID:kM9Cc8DJ.net] >>434 PowerShell 1900..2018 | %{Get-Date "$_/07/31"} | ? -Property DayOfWeek -eq 6 | select Year 462 名前：デフォルトの名無しさん [2018/11/12(月) 23:14:49.42 ID:fOB5B0pj.net] >>283 Common Lisp https://ideone.com/C9fVpq 463 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 23:55:59.63 ID:jh3oqSUb.net] >>235 c https://ideone.com/BvQRUR 464 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 00:02:22.82 ID:5Ay5yU9p.net] 乙 465 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 00:27:29.87 ID: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 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 00:32:55.99 ID:7jyC4IO4.net] [x for x in range(1900,2018) if (x + x//4 - x//100 + x//400 + 1) % 7 == 6] でええやんけ 467 名前：デフォルトの名無しさん [2018/11/13(火) 00:43:41.95 ID: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 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 00:55:13.44 ID:5Ay5yU9p.net] 乙乙 469 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 01:00:17.03 ID:wnw9zNxR.net] 出力とかなさらないんですか？ 470 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 01:11:01.02 ID: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 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 01:23:34.12 ID: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 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 01:59:27.96 ID: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 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 02:08:16.58 ID: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 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 02:09:33.92 ID:JCaIqwLF.net] >>459 ＞1 z 8 ＞1 2 3 4 5 6 8 7 写し間違えました。実際には正しい結果になります。 475 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 02:27:33.07 ID:JCaIqwLF.net] >>459は各 (x,y) の項について 主キー x + y 副キー x + (-1)^(x+y) * (x+y) とするとジグザグ順に昇順のキーが得られるので そのキーでソートしたときの順位を表示、というやり方 476 名前：デフォルトの名無しさん [2018/11/13(火) 11:28:29.90 ID:/6RlnNZj.net] >>438 Perl5 https://paiza.io/projects/HxeBcbXHG1jRNRhrutaKqA 文字列にせずに全Bit足して求めた。 477 名前：デフォルトの名無しさん [2018/11/13(火) 12:04:16.15 ID:/6RlnNZj.net] >>434 C https://paiza.io/projects/Xq4YBZq4qJJLOZLsNTyWng ライブラリ使用。 コンパイラとライブラリの対応の問題だろうが、32bit環境ではできなかった。time_t型がlongか何かになっていて足りなかったからだろうと思う。 まともに動くかどうかは(またはコンパイルできるかどうかは)環境依存ということになる。 478 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 14:23:32.25 ID: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 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 15:05:24.75 ID:x0SFJuPP.net] >>461 副キーは x+y の偶奇に応じて上下や左右が反転してればいいわけだから 単に (-1)^(x+y)*x とか (-1)^(x+y)*y で十分か 480 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 16:16:43.59 ID: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 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 16:32:36.89 ID:3gkxjay9.net] >>283 何かの行列足せば出来るんじゃね 482 名前：デフォルトの名無しさん mailto:sage [2018/11/13(火) 17:15:46.99 ID: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 名前：デフォルトの名無しさん [2018/11/13(火) 18:58:02.16 ID: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 名前：デフォルトの名無しさん [2018/11/13(火) 19:36:47.61 ID:57oATazI.net] >>438 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

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef