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

[過去ﾛｸﾞ] プログラミングのお題スレ Part17 (1002ﾚｽ)
上下前次 1-新

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

354: 2020/04/28(火)07:56 ID:UKf6vnXk(1) AAS
>>293 Ruby
半加算器
外部ﾘﾝｸ:ideone.com
外部ﾘﾝｸ:ideone.com

355: 2020/04/28(火)07:57 ID:6K6MgdzD(2/3) AAS
プログラマの９９％はリコメンドしない情報盗人。俺調べ。

356: 2020/04/28(火)07:58 ID:9sR0wNPf(12/16) AAS
そもそも
>>334の｢近似すれば｣は｢高校生でも解ける｣にしかかかってないし

357: 2020/04/28(火)07:59 ID:9sR0wNPf(13/16) AAS
高校生で習う知識が全てと思ってしまう高校生レベルのアホ

358: 2020/04/28(火)13:50 ID:EhAaIQLq(1) AAS
底辺ITドカタは気性が荒いなぁ

359: 2020/04/28(火)18:50 ID:9sR0wNPf(14/16) AAS
ごめん

360: 2020/04/28(火)18:55 ID:9sR0wNPf(15/16) AAS
これでもサラリーマンの年収の上位5%に入るんだ

361: ◆QZaw55cn4c 2020/04/28(火)18:58 ID:cQuYXkHz(1) AAS
>>349
重力加速度を指定ください

362: 2020/04/28(火)19:02 ID:9sR0wNPf(16/16) AAS
9.80665

363: 2020/04/28(火)19:31 ID:KJ919r2x(1) AAS
数学の話になると毎度現れるアスペ君今日も来てて草
アスペが重度なのか数学コンプが重度なのか

364(1): 2020/04/28(火)19:43 ID:yUYRMh3W(1) AAS
>>308
C 幅優先探索
外部ﾘﾝｸ:ideone.com

365: 2020/04/28(火)19:44 ID:6K6MgdzD(3/3) AAS
>>293
全加算器
Step 12, Solution 3
0 : -1, -2: 0, 0, 0, 0, 1, 1, 1, 1 : 4
1 : -1, -2: 0, 0, 1, 1, 0, 0, 1, 1 : 4
2 : -1, -2: 0, 1, 0, 1, 0, 1, 0, 1 : 4
3 : 2, 1: 1, 1, 1, 0, 1, 1, 1, 0 : 6
4 : 3, 1: 1, 1, 0, 1, 1, 1, 0, 1 : 6
5 : 3, 2: 1, 0, 1, 1, 1, 0, 1, 1 : 6
6 : 5, 4: 0, 1, 1, 0, 0, 1, 1, 0 : 4
省6

366(1): 2020/04/28(火)21:14 ID:5Mrr6wN/(1) AAS
お題：CapsLock on/offを切り替えながら文字入力

[入力]
A B C S

A : Shiftキーを押さずに1文字入力するのにかかる時間
B : Shiftキーを押しながら1文字入力するのにかかる時間(※)
C : CapsLock on/offの切り替えにかかる時間
S : 入力する文字列(英字のみ)

※CapsLock onで小文字入力、CapsLock offで大文字入力にかかる時間をBとする

[出力]
初期状態をCapsLock offとしたとき、Sを入力するのにかかる時間の最小値を求めよ
省10

367: 2020/04/29(水)01:24 ID:W2Vd/2U1(1) AAS
>>364
そんな長いコードよく1日でかけたな

368: 2020/04/29(水)02:08 ID:hFx8dHat(1/2) AAS
つられて開いたら、そんなに長くなかった

369(1): 2020/04/29(水)02:11 ID:hFx8dHat(2/2) AAS
ﾓﾚも若い頃、力ずくの実装でこう言ふコード書いていた時期があった希ガス遠い目

370: 2020/04/29(水)02:17 ID:7u9sxpAB(1) AAS
プログラマってプライド高いからすぐに張り合うよねw

371: 2020/04/29(水)02:21 ID:MMtCgKFX(1) AAS
誰も張り合っていないが

372: 2020/04/29(水)02:22 ID:IXK0ODva(1/2) AAS
子どもみたい

373: [age] 2020/04/29(水)02:25 ID:HpBd3h/I(1/4) AAS
大人とは何か

374(1): 2020/04/29(水)02:27 ID:IXK0ODva(2/2) AAS
冗談だから間に受けなくていいよ。

375(1): [age] 2020/04/29(水)02:28 ID:HpBd3h/I(2/4) AAS
大人とは酒、タバコ、Unix

376: 2020/04/29(水)02:29 ID:C2sNF63S(1) AAS
>>374
うざいからよそでやれ

377: 2020/04/29(水)02:29 ID:sgNXZLgj(1) AAS
うん。で？

378: 2020/04/29(水)02:30 ID:gC4oizq8(1) AAS
>>375
うざいからよそでやれ

379(1): 2020/04/29(水)02:33 ID:YwwSpjL1(1) AAS
餌をあげないでください。

380(1): 2020/04/29(水)02:33 ID:b7RiChMO(1) AAS
>>379
うざいからよそでやれ

381: 2020/04/29(水)02:35 ID:nrbD9/Mw(1) AAS
>>380
あなたにとってうざいことは、みな歓迎しています

382: 2020/04/29(水)02:36 ID:CXgZ7sKW(1) AAS
>>369
そうなんだおじさん「そうなんだ」

383: 2020/04/29(水)02:37 ID:hZe4L1sV(1) AAS
いやいや全然違います

384: 2020/04/29(水)02:38 ID:pkOZSJYa(1) AAS
いいえ全然違いません

385: 2020/04/29(水)02:39 ID:OQU5gELq(1/6) AAS
くだらねぇーｗ

386: 2020/04/29(水)02:40 ID:tOnjZeuD(1) AAS
くだらないことは何度も

387: 2020/04/29(水)02:41 ID:OQU5gELq(2/6) AAS
うん。で？

388: 2020/04/29(水)02:41 ID:i/nVZZDh(1) AAS
うざいからよそでやれ

389: 2020/04/29(水)02:43 ID:OQU5gELq(3/6) AAS
AA省

390: 2020/04/29(水)02:43 ID:JIRRi7ju(1) AAS
おじさんはここがいいです。

391: 2020/04/29(水)02:44 ID:Fecc9l/8(1) AAS
くだらねーw

392: 2020/04/29(水)02:44 ID:OQU5gELq(4/6) AAS
逝ってよし

393: 2020/04/29(水)02:45 ID:73PkxB6e(1) AAS
おじさんはよそに行きましょうね

394: 2020/04/29(水)02:45 ID:OQU5gELq(5/6) AAS
↓少し下でID変えて書くはず
逝ってよし

395: 2020/04/29(水)02:46 ID:mcZoq7mu(1) AAS
くだらねーw

396: 2020/04/29(水)02:47 ID:XlBNFPbk(1) AAS
逝ってよし

397: 2020/04/29(水)02:47 ID:OQU5gELq(6/6) AAS
ktkr

398(1): 2020/04/29(水)02:48 ID:QCxNpmbM(1) AAS
くだらねーw

399: 2020/04/29(水)02:49 ID:P4G9hJZv(1) AAS
律儀だなお前

400(1): 2020/04/29(水)02:50 ID:WGhV7jsx(1) AAS
おじいちゃんの唐突な自分語りワロタ

401: 2020/04/29(水)02:50 ID:189Zc0ZE(1/5) AAS
>>398 ご褒美あげるよ
外部ﾘﾝｸ:www.google.co.jp

402: 2020/04/29(水)02:53 ID:189Zc0ZE(2/5) AAS
>>400
お前も、ご褒美、欲しい？

403: 2020/04/29(水)02:54 ID:189Zc0ZE(3/5) AAS
やっぱ、お前には、あーげない。

404: 2020/04/29(水)02:57 ID:189Zc0ZE(4/5) AAS
なぜこの程度で、黙る？

405: 2020/04/29(水)02:59 ID:189Zc0ZE(5/5) AAS
かわいそうなことをしてしまったかな…

406: 2020/04/29(水)03:13 ID:VGrmX9xw(1/2) AAS
ご褒美にどうせ貼るならこっちだろ
外部ﾘﾝｸ:www.google.co.jp

407: 2020/04/29(水)03:14 ID:VGrmX9xw(2/2) AAS
いやいやこっち
外部ﾘﾝｸ:www.google.co.jp

408: 289 2020/04/29(水)07:47 ID:h4pVS5Or(1) AAS
>>286 Ruby
外部ﾘﾝｸ:ideone.com
主な処理をテーブルで済ませて高速化
ideone の時間制限内に完走できた

409: 2020/04/29(水)09:28 ID:7z7Xd+nS(1) AAS
>>366 Ruby
# A <= B とする

def f(a, b, c, arr, cl = false)
　　return 0 if arr.empty?
　　arr = arr.clone
　　cap, size = arr.shift
　　return a * size + f(a, b, c, arr, cl) if cap == cl
　　[c + a * size + f(a, b, c, arr, !cl), b * size + f(a, b, c, arr, cl)].min
end

g = -> str {str.scan(/[A-Z]+|[a-z]+/).map{|s| [s.match?(/[A-Z]/), s.size]}}
省9

410: 2020/04/29(水)09:42 ID:v+B1NZPE(1) AAS
>>308
2番目の例impossibleじゃなくて S -> 3 -> Gじゃないの？って思ったら入力1行目はH Wだった

411: 2020/04/29(水)16:10 ID:HpBd3h/I(3/4) AAS
>>271
Java
外部ﾘﾝｸ:paiza.io

412: 2020/04/29(水)21:05 ID:HpBd3h/I(4/4) AAS
>>234
Java
外部ﾘﾝｸ:paiza.io

413: 2020/04/30(木)06:48 ID:2MGLj+B4(1) AAS
>>293
４入力セレクタ

digraph g1 {
subgraph cluster_1 {
label = "Solution_1"
aa_1_0, aa_1_0 -> aa_1_6 ; aa_1_1, aa_1_1 -> aa_1_7 ; aa_1_3, aa_1_1 -> aa_1_8 ;
aa_1_5, aa_1_1 -> aa_1_9 ; aa_1_7, aa_1_2 -> aa_1_10 ; aa_1_7, aa_1_4 -> aa_1_11 ;
aa_1_10, aa_1_8 -> aa_1_12 ; aa_1_11, aa_1_9 -> aa_1_13 ; aa_1_12, aa_1_6 -> aa_1_14 ;
aa_1_13, aa_1_0 -> aa_1_15 ; aa_1_15, aa_1_14 -> aa_1_16 ;
}
省1

414: 289 2020/04/30(木)07:15 ID:SPWNNB7s(1) AAS
>>286 Ruby
外部ﾘﾝｸ:ideone.com
2pass化 25%ほど高速化

415: 2020/05/01(金)05:08 ID:GhPTuZah(1) AAS
>>286
EXNORはちょっとおもしろい。
Step 7, Solution 1
0 : -1, -2: 0, 0, 1, 1 : 2
1 : -1, -2: 0, 1, 0, 1 : 2
2 : 0, 0: 1, 1, 0, 0 : 2
3 : 1, 0: 1, 1, 1, 0 : 3
4 : 1, 1: 1, 0, 1, 0 : 2
5 : 4, 2: 0, 1, 1, 1 : 3
6 : 5, 3: 1, 0, 0, 1 : 2 *

416(2): 2020/05/01(金)05:42 ID:VWVnAecH(1/6) AAS
お題: 関数とパイプを実装せよ
以下のような文字列をパースし、パイプに繋げながら関数を実行せよ
標準入力と標準出力の代わりにバッファを使って実装すること

in < "hello"
out > hello

in < "hello | world"
out > helloworld

in < "world | hello"
out > worldhello

in < "hello | upper"
省3

417(1): 2020/05/01(金)06:02 ID:+MJaN8j/(1) AAS
>>416
hello | upperはhelloupperだろ

418: 289 2020/05/01(金)07:03 ID:bMo1YMx1(1) AAS
>>286 Ruby
外部ﾘﾝｸ:ideone.com
一度に 4bit計算 40%ほど高速化

419: 2020/05/01(金)07:11 ID:VWVnAecH(2/6) AAS
>>417
upperはバッファを大文字にする関数

420: 2020/05/01(金)07:20 ID:kd4VrQns(1) AAS
いや、存在する関数を全部定義しないと実装なんてできんやん
突っ込まれて思わなかったの？

421: 2020/05/01(金)07:55 ID:VWVnAecH(3/6) AAS
hello, world, upperだけ実装すればいいのでは

422: 2020/05/01(金)08:08 ID:VWVnAecH(4/6) AAS
みんな真面目だなｗ

423(4): 2020/05/01(金)08:25 ID:VWVnAecH(5/6) AAS
>>416 書き直し

お題: 関数hello, world, upperを実装し、それらをパイプで繋げて実行できるようにせよ
標準入力からコマンドライン文字列が一行ずつ入力されるので、それをパースして上記の関数を組み合わせて実行する
関数の出力と入力には標準入出力を使う代わりに、バッファを使い、コマンドライン全体の実行が終わったら構築したバッファを標準出力へ出力すること
例えば入力されるコマンドラインは

in < hello
in < hello | world
in < hello | world | upper
in < world | hello
in < world | hello | upper
省12

424(1): 2020/05/01(金)08:29 ID:R0k5e7Mk(1) AAS
hello world それぞれを改行無しの printf などで出力し
upper は大きくするだけか

425: 2020/05/01(金)08:34 ID:VWVnAecH(6/6) AAS
>>424
バッファを使わずに標準入出力だけで実装できるならそれでもいいです

426: 2020/05/01(金)11:04 ID:MCEzZFz/(1) AAS
Ruby には、まさに文字列(バッファ)に、IO インタフェースを実装したクラス、StringIO がある！

427(1): 2020/05/01(金)11:29 ID:TOWtsDG5(1) AAS
>>423 Ruby
$><<$_.split(' | ').reduce(''){|s,e|[s.upcase,s+e][e.ord%-3]}while gets

-*- input -*-
hello
hello | world
hello | world | upper
world | hello
world | hello | upper

-*- output -*-
hello
省4

428: 2020/05/02(土)23:08 ID:MMgV24Hu(1) AAS
>>423
Java
外部ﾘﾝｸ:paiza.io

429: 2020/05/03(日)01:19 ID:SFv1ny6W(1) AAS
>>423 Perl5, 要求仕様通り素直に三つの関数を定義し、文字列をparseした単語の関数名を呼び出す形で実装

sub hello { $o .= 'hello' }
sub world { $o .= 'world' }
sub upper { $o = uc $o }
for (<DATA>) {
　$o = '';
　&$_ for /(\w+)/g;
　print "$o\n";
}
__DATA__
省14

430: 289 2020/05/03(日)07:15 ID:E6IlR6fn(1) AAS
>>286 Ruby
外部ﾘﾝｸ:ideone.com
枝刈りを強化 38%ほど高速化

431(1): 2020/05/03(日)09:17 ID:n5Gy3ytY(1) AAS
>>427
world | upper | hello

432: 2020/05/03(日)09:27 ID:/8opEJBh(1) AAS
>>431
ちゃんと"WORLDhello"って出力される

433: 2020/05/04(月)00:23 ID:k2FsLwVs(1) AAS
>>423
Kotlin
外部ﾘﾝｸ:paiza.io

文字列を判定して対応する処理をするだけでも良かったが、Map に文字列と対応する処理をセットしてそれを呼び出して実行させるようにした。
また hello, world, upper 以外が入力されるとエラーが出るようになっている。

434: 2020/05/04(月)00:44 ID:Jy1F1UMD(1/2) AAS
また変なTwitterの奴か

435(1): 289 2020/05/04(月)07:13 ID:p+pGQ7l4(1) AAS
>>286 C++
外部ﾘﾝｸ:ideone.com
Ruby から移植。実行時間は Rubyより 90倍程度高速化

436(1): 2020/05/04(月)07:38 ID:kseU4FEU(1) AAS
>>435
端子の出現順を固定しないから無駄に組合せが増えているのではないだろうか。

437(2): 2020/05/04(月)13:46 ID:FrWOvyZy(1/2) AAS
お題
H行W列のマス目が与えられる。左上の座標を(0, 0)、右下の座標を(H, W)とする。
座標(0.5, 0)を始点にしてボールを右下45度の方向に発射する。
ボールが始点に戻ってくるまでに壁に衝突する回数を求めよ。
(マス目の範囲外は壁とみなす。ボールの大きさや摩擦などは無視してよい)

[入力]
H W
('.'が地面、'#'が壁)

[例]
1 1
省15

438: 2020/05/04(月)15:35 ID:oc+BowE6(1/2) AAS
>>437
x = Math.gcd(H, W);
print((H / x + 1) * ( W / x + 1));

439: 2020/05/04(月)15:38 ID:oc+BowE6(2/2) AAS
ああ、違うな
壁って長方形の辺上にだけあるのかと思って解いてた

440: 2020/05/04(月)16:28 ID:cRRhYgqa(1) AAS
バーカ

441: 2020/05/04(月)17:18 ID:7s1fJbf+(1) AAS
AA省

442(9): 2020/05/04(月)18:29 ID:FrWOvyZy(2/2) AAS
お題
2つの文字列について、文字列を構成する文字が同じで、最初と最後の文字が合っていれば、
その2つの文字列は等価であるとみなす。

文字列がN個与えられる。
上記ルールに従って重複を除去したとき、文字列はいくつ残るか？

(例)
6
programming
odai
prorgamnimg
省4

443(1): 2020/05/04(月)19:25 ID:ku0WQYaW(1) AAS
>>442 Perl5、"6"も文字列に含めれば、４

for (<DATA>) {
　@a = /(\w)/g;
　%h = map{$_ => 1} @a;
　$s = $a[0].join('', sort keys %h).$a[-1];
　print "$_ -> $s\n";
　$g{$s}++;
}
print keys(%g)."\n";
__DATA__
省17

444: 2020/05/04(月)19:32 ID:Jy1F1UMD(2/2) AAS
暇人か

445(1): 2020/05/04(月)19:38 ID:aNaLc8en(1) AAS
>>442
(defun cambridge-string= (a b)
(and (char= (elt a 0) (elt b 0))
(char= (elt a (1- (length a))) (elt b (1- (length b))))
(string= (sort (copy-seq a) #'char<) (sort (copy-seq b) #'char<))))

(defvar *set* nil)
(dotimes (n (read))
(pushnew (read-line) *set* :test #'cambridge-string=))
(princ (length *set*))
common lispのsortは破壊的だったのか

446(1): 2020/05/04(月)23:39 ID:g5q+36pu(1/2) AAS
>>443
Java
外部ﾘﾝｸ:paiza.io

447: 2020/05/04(月)23:43 ID:g5q+36pu(2/2) AAS
>>446
おぎゃー
レス番間違えた
>>442
外部ﾘﾝｸ:paiza.io

448: 2020/05/04(月)23:55 ID:GlEFtj51(1) AAS
>>442 Ruby

p %[6 programming odai prorgamnimg oadi pgorgamming idao].
uniq{|s| b, *m, e = s.chars; [b, e, m.uniq.sort]}.size

# => 4

449: 289 2020/05/05(火)07:17 ID:JzUmiA6e(1) AAS
>>436
端子の順番は固定ですよ
なので print_map2() では省略しています
print_map() で出力すれば >>286 のフォーマットになります

450: 2020/05/05(火)09:05 ID:ZpeQ6MPR(1) AAS
>>442 J

smoutput # ~. <@( /:~ , {. , {:);._2 stdin ''

451(1): 2020/05/05(火)09:59 ID:nQMNje/J(1) AAS
4入力一致の回路
選別

digraph g1 {
subgraph cluster_1 {
label = "Solution_1"
aa_1_0, aa_1_0 -> aa_1_4 ; aa_1_1, aa_1_1 -> aa_1_5 ;
aa_1_3, aa_1_2 -> aa_1_6 ; aa_1_4, aa_1_2 -> aa_1_7 ;
aa_1_5, aa_1_3 -> aa_1_8 ; aa_1_5, aa_1_4 -> aa_1_9 ;
aa_1_8, aa_1_7 -> aa_1_10 ; aa_1_9, aa_1_6 -> aa_1_11 ;
aa_1_10, aa_1_10 -> aa_1_12 ; aa_1_12, aa_1_11 -> aa_1_13 ;
省3

452: 2020/05/05(火)12:20 ID:hsugdvwn(1) AAS
>>270
R
外部ﾘﾝｸ:ideone.com

453(1): 2020/05/05(火)15:23 ID:JDagEH9a(1) AAS
>>442
c++
外部ﾘﾝｸ:ideone.com

sortしてuniqするだけ、45行

上下前次 1-新書関写板覧索設栞歴

あと 549 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.025s