- 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/
- 367 名前：デフォルトの名無しさん mailto:sage [2018/11/11(日) 14:11:48.73 ID:j7sl2u35.net]
- >>354
それだけでいけるのか
すげー
- 368 名前：デフォルトの名無しさん mailto:sage [2018/11/11(日) 14:19:03.18 ID:SClia95W.net]
- それでもJﾆｷなら何とかしてくれる
- 369 名前：デフォルトの名無しさん mailto:sage [2018/11/11(日) 14:25:13.88 ID:j7sl2u35.net]
- よく読んだら素直に実装してるだけか
- 370 名前：デフォルトの名無しさん mailto:sage [2018/11/11(日) 14:34:26.37 ID:ILkwXRqJ.net]
- >>357
ですね…^^;
- 371 名前：デフォルトの名無しさん mailto:sage [2018/11/11(日) 16:24:01.50 ID:xWJTm2Oc.net]
- お題
n次のヒルベルト曲線を描画せよ
n=1
■□■
■□■
■■■
n=3
■□■■■■■□■■■■■□■
■□■□□□■□■□□□■□■
■■■□■■■□■■■□■■■
□□□□■□□□□□■□□□□
■■■□■■■□■■■□■■■
■□■□□□■□■□□□■□■
■□■■■■■□■■■■■□■
■□□□□□□□□□□□□□■
■■■□■■■■■■■□■■■
□□■□■□□□□□■□■□□
■■■□■■■□■■■□■■■
■□□□□□■□■□□□□□■
■□■■■□■□■□■■■□■
■□■□■□■□■□■□■□■
■■■□■■■□■■■□■■■
- 372 名前：デフォルトの名無しさん mailto:sage [2018/11/11(日) 17:11:10.50 ID:Gv5Fmm22.net]
- >>340 Perl5
use bignum (l=>GMP);
for $i (1,2,3,4,11,13,100,777) {
$j = $i % 100;
$k = $j ** $j % 100;
$p = $j ** $k % 100;
printf "$i %02d\n", $p;
}
実行例
$ time perl 12_338.pl
1 01
2 16
3 87
4 96
11 11
13 53
100 00
777 97
0.562 secs
- 373 名前：デフォルトの名無しさん mailto:sage [2018/11/11(日) 17:52:24.96 ID:tvDFPkAv.net]
- >>359 Ruby
def hilbert_curve(n)
return [[1, 0, 1], [1, 0, 1], [1, 1, 1]] if n == 1
hc = hilbert_curve(n - 1)
[
*hc.transpose.reverse.zip(hc.reverse.transpose).map{|a, b| [*a, 0, *b]},
[1, *Array.new(2**(n + 1) - 3, 0), 1],
*hc.zip(hc).map.with_index{|(a, b), i| [*a, 1/(i + 1), *b]}
]
end
[1, 3].each{|e| puts "n = #{e}", hilbert_curve(e).map{|a| a.join.gsub(/\d/, ?0 => ?□, ?1 => ?■)}.join($/)}
# => n = 1
■□■
■□■
■■■
n = 3
■□■■■■■□■■■■■□■
■□■□□□■□■□□□■□■
■■■□■■■□■■■□■■■
□□□□■□□□□□■□□□□
■■■□■■■□■■■□■■■
■□■□□□■□■□□□■□■
■□■■■■■□■■■■■□■
■□□□□□□□□□□□□□■
■■■□■■■■■■■□■■■
□□■□■□□□□□■□■□□
■■■□■■■□■■■□■■■
■□□□□□■□■□□□□□■
■□■■■□■□■□■■■□■
■□■□■□■□■□■□■□■
■■■□■■■□■■■□■■■
- 374 名前：デフォルトの名無しさん [2018/11/11(日) 22:01:36.28 ID:B3f/927d.net]
- >>340
Haskell
素直に書いた版。
何やってるかは分かりやすい。
main = mapM_ put $ zip list $ map f list
put (x,y) = putStr (show x ++ ":") >> print y
f x = (x ^ x ^ x) `mod` 100
list = [1,2,3,4,5,6,7,8]
- 375 名前：デフォルトの名無しさん [2018/11/11(日) 22:10:56.11 ID:B3f/927d.net]
- Haskell
Perlの人のパクリ版(めちゃ速い)
main = mapM_ put $ zip list $ map f list
put (x,y) = putStr (show x ++ ":") >> print y
f x = p
where j = x `mod` 100
k = j ^ j `mod` 100
p = j ^ k `mod` 100
list = [1,2,3,4,11,13,100,777]
- 376 名前：デフォルトの名無しさん mailto:sage [2018/11/11(日) 22:20:34.69 ID:xWJTm2Oc.net]
- >>360
n=10のときどうなる?
- 377 名前：デフォルトの名無しさん mailto:sage [2018/11/11(日) 23:54:52.39 ID:VLVUrnJ+.net]
- 指数を100の剰余取ってるのってどういう根拠なの？
- 378 名前：デフォルトの名無しさん mailto:sage [2018/11/11(日) 23:59:16.36 ID:lebYcZ/K.net]
- >>364
use bignum (l=>GMP);
for $i (10) {
$j = $i % 100;
$k = $j ** $j % 100;
$p = $j ** $k % 100;
printf "$i %02d\n", $p;
}
$i = 10;
print ($i**$i)**$i;
実行結果
$ perl 12_338_1.pl
10 01
10000000000
ﾀﾞﾒですね合いませんね。
単に左辺を%100すると一般性はありませんでした。サーせん。
ちゃんと循環性を見るとか、別の解法が要りますね
- 379 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 00:02:23.31 ID:EX0FpiMD.net]
- ちなみに循環性を見るとこんな感じになってました
use bignum (l=>GMP);
use Tie::IxHash;
use feature 'say';
for $i (0,1,2,3,4,5,10,11,13,777) {
tie my %h,'Tie::IxHash';
$p = $i;
for (1..100) {
last if exists $h{$p} and $h{$p} > 10;
$h{sprintf "%02d", $p % 100} = $_;
$p = $p * $i % 100;
}
@a = keys %h;
say "$i: ", scalar @a, ": @a", ": $p";
}
実行結果
1: 1: 01: 1
2: 21: 02 04 08 16 32 64 28 56 12 24 48 96 92 84 68 36 72 44 88 76 52: 48
3: 20: 03 09 27 81 43 29 87 61 83 49 47 41 23 69 07 21 63 89 67 01: 47
4: 10: 04 16 64 56 24 96 84 36 44 76: 16
5: 2: 05 25: 25
10: 2: 10 00: 0
11: 10: 11 21 31 41 51 61 71 81 91 01: 11
13: 20: 13 69 97 61 93 09 17 21 73 49 37 81 53 89 57 41 33 29 77 01: 37
777: 20: 77 29 33 41 57 89 53 81 37 49 73 21 17 09 93 61 97 69 13 01: 73
- 380 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 00:03:57.97 ID:EX0FpiMD.net]
- >>366
× 単に左辺を%100
○ 単に右辺(指数)を%100
- 381 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 00:05:03.96 ID:JEwLf6Zk.net]
- >>366
それは0乗しちゃってるからじゃない？
- 382 名前：デフォルトの名無しさん mailto:sage [2018/11/12(月) 00:10:02.50 ID:EX0FpiMD.net]
- >>369
10については、そういわれてみればそうだね。
- 383 名前：デフォルトの名無しさん [2018/11/12(月) 00:11:06.48 ID:D6ILV7Jx.net]
- >>366
iが10で割り切れれば00って別で切り分ければ良いんじゃ無いかな。
- 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]
|
 |
