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

プログラミングのお題スレ Part13 at TECH

[前50を表示]
450:デフォルトの名無しさん
19/02/28 20:59:59.90 KtyAfxmO.net
>>437 もちろんどんな公園にもバカな書き込みをする奴はいるだろう。でも管理された公園では、次の日には修復されてるから書かれてたことにすら気づかなくて、誰も描かなくなる。
10年に1度くらいアホが便器を壊すなんて馬鹿なことをする事件もあるが、バカはどこにでもいるから仕方ない。

451:デフォルトの名無しさん
19/02/28 21:01:11.76 6vlCNc4e.net
もうちょっと気の利いた比喩がほしいね。

452:デフォルトの名無しさん
19/02/28 21:58:37.50 dSln4xk/.net
お題
四角形の羅列を、'#'と'.'を使った表現から罫線を使った表現に変換せよ
(例)等幅フォントで見てください
#
↓
┌┬┐
├┼┤
└┴┘
#..###.####.
..#.....##.#
#.#....#.#.#
....#.#...#.
┌┬┐　　　┌┬┬┬┬┬┐　┌┬┬┬┬┬┬┬┐　　
├┼┤　　　├┼┼┼┼┼┤　├┼┼┼┼┼┼┼┤　　
└┴┘　┌┬┼┴┴┴┴┴┘　└┴┼┼┼┼┼┴┼┬┐
　　　　├┼┤　　　　　　　　　├┼┼┼┤　├┼┤
┌┬┐　├┼┤　　　　　　　┌┬┼┴┼┼┤　├┼┤
├┼┤　├┼┤　　　　　　　├┼┤　├┼┤　├┼┤
└┴┘　└┴┘　┌┬┐　┌┬┼┴┘　└┴┼┬┼┴┘
　　　　　　　　├┼┤　├┼┤　　　　　├┼┤　　
　　　　　　　　└┴┘　└┴┘　　　　　└┴┘　　

453:デフォルトの名無しさん
19/02/28 22:09:31.89 DbAr3TBt.net
なにこれ？組み立てたらガンダムになるの？

454:デフォルトの名無しさん
19/02/28 22:33:12.22 lyW2+AsV.net
>>410 ruby
URLﾘﾝｸ(ideone.com)
f = -> s {[''].product(*s.chars.map {|c| [c, c.upcase]}).map(&:join)}
p %W(#{} a ab).map {|s| [s, f.(s)]}
↓
[["", [""]], ["a", ["a", "A"]], ["ab", ["ab", "aB", "Ab", "AB"]]]

455:デフォルトの名無しさん
19/03/01 11:41:54.16 RkKCNcIA.net
>>411　下らんお題出すなよ。

456:デフォルトの名無しさん
19/03/01 14:53:48.06 ber2ILYj.net
>>444
それお題じゃない

457:デフォルトの名無しさん
19/03/01 16:58:28.80 KMRxw/mf.net
>>444 >>441 の間違い

458:デフォルトの名無しさん
19/03/01 17:54:01.28 nsJzseJ0.net
読み手の環境を変えさせるようなお題は不適切。

459:デフォルトの名無しさん
19/03/01 18:00:52.30 nsJzseJ0.net
というか >>441 の問題が意味不明。スクリーンショットで示してみなよ。俺はやらんだろうけど。

460:デフォルトの名無しさん
19/03/01 18:05:43.92 nsJzseJ0.net
>>441 なんかプログラムの練習の前に、日本語のおさらいをした方が良い人間が見受けられるな。
プログラムはチームワークだから、他人に仕様が正確に伝えられなければその時点でそのプロジェクトは失敗。
理解しやすい言葉で混乱が起きない様に示すのが当たり前では？
それができない人はプログラムで問題を出しなさいよ。

461:デフォルトの名無しさん
19/03/01 18:35:43.56 ber2ILYj.net
え？>>441はわかるよ。俺がエスパーなだけ？w

462:デフォルトの名無しさん
19/03/01 18:38:47.53 nQNJhNQv.net
俺もわかるけどわかりにくいと思った

463:デフォルトの名無しさん
19/03/01 19:02:55.70 KgoMIpD3.net
なぜ#1つで4つの4角形になるんた？
#を図形として見た場合一致しないと思うんだが

464:デフォルトの名無しさん
19/03/01 19:26:25.34 ber2ILYj.net
記号を罫線ので作った四角にしろってことでこの場合は#だったってだけでは？
なんだったら「田」から変換するようにすれば雰囲気がマッチして良いかも知れんな。気分の問題だが。

465:デフォルトの名無しさん
19/03/01 19:55:55.91 HvpZFnzz.net
>>441 Common Lisp
URLﾘﾝｸ(ideone.com)

466:デフォルトの名無しさん
19/03/02 01:29:28.31 og4HVKiE.net
>>441　でたらめだろ。　＃が田形3マスになるのは良いとして、ドットが何で3マスになったり、1マスになってるんだよ。
#..###.####.
..#.....##.#
#.#....#.#.#
....#.#...#.
１２３４５６７８９いろはにほ１２３４５６７８９へと
┌┬┐　　　┌┬┬┬┬┬┐　┌┬┬┬┬┬┬┬┐　　
├┼┤　　　├┼┼┼┼┼┤　├┼┼┼┼┼┼┼┤　　
└┴┘　┌┬┼┴┴┴┴┴┘　└┴┼┼┼┼┼┴┼┬┐
　　　　├┼┤　　　　　　　　　├┼┼┼┤　├┼┤
┌┬┐　├┼┤　　　　　　　┌┬┼┴┼┼┤　├┼┤
├┼┤　├┼┤　　　　　　　├┼┤　├┼┤　├┼┤
└┴┘　└┴┘　┌┬┐　┌┬┼┴┘　└┴┼┬┼┴┘
　　　　　　　　├┼┤　├┼┤　　　　　├┼┤　　
　　　　　　　　└┴┘　└┴┘　　　　　└┴┘　　

467:デフォルトの名無しさん
19/03/02 01:35:36.81 og4HVKiE.net
>>455 ごめん、罫線だから、0.5ずれてたのか。　しかしわかりにくい問題だな。　
もしかして自分の仕事を人に押し付けようとしていないか？　

468:デフォルトの名無しさん
19/03/02 03:13:42.38 xuPe2CJ9.net
>>441 Java
URLﾘﾝｸ(ideone.com)

469:デフォルトの名無しさん
19/03/02 11:02:58.51 H6jPx1zC.net
専用ブラウザじゃ等副フォントなんて選べないのがあるのを知らないのか？
BB2Cでは、英字は等幅が選べても、漢字にはフォント設定すらない。
Jane Doe View も MSゴシックを選択しても等幅にならない。
読み手の設定を変えさせる問題なんて2chにはふさわしくない。

470:デフォルトの名無しさん
19/03/02 11:17:11.62 xuPe2CJ9.net
俺は等幅で見てくれってあったら、設定を変えるんじゃなくてメモ帳にコピペして見るけどなー

471:デフォルトの名無しさん
19/03/02 11:41:44.38 og4HVKiE.net
>>459 そうやって見たけど面倒くさい。　やるならどこかのサイトに張り付けるか画像で出題すべきだろ。

472:デフォルトの名無しさん
19/03/02 11:42:35.75 jZcAiOx4.net
おれなら出題を諦めるなw

473:デフォルトの名無しさん
19/03/02 11:43:11.78 chZTsz9F.net
問題とかずに問題への文句ばかり垂れるってお前らにしては珍しいな
問題とけよクズども

474:デフォルトの名無しさん
19/03/02 11:55:57.51 xuPe2CJ9.net
>>462
お…おれはやってるよっ

475:デフォルトの名無しさん
19/03/02 11:55:57.58 jZcAiOx4.net
>>462
ぐ、ぐむーっ

476:デフォルトの名無しさん
19/03/02 11:56:34.18 xuPe2CJ9.net
>>463-464
この間0.07秒である

477:デフォルトの名無しさん
19/03/02 12:11:05.29 JYk2NVzi.net
この広い日本のどこかに同じ時に同じレスに反応してしまった二人がいる。
プログラミングの世界は奥が深いな……

478:デフォルトの名無しさん
19/03/02 13:30:29.30 og4HVKiE.net
>>466 良いお題を解いたね。

479:デフォルトの名無しさん
19/03/02 16:02:22.23 xke/YE7F.net
>>453
なるほどそういうことか

480:デフォルトの名無しさん
19/03/02 16:22:52.10 ZN4ZPl7z.net
>>457
なるほど
 >>411 Common Lisp (>>457の移植)
URLﾘﾝｸ(ideone.com)
すごいなあ、こんなの全然思いつけない
文字を文字のままどうにかしようとしてぐちゃぐちゃになったのが >>454でした

481:デフォルトの名無しさん
19/03/02 16:25:46.70 ZN4ZPl7z.net
>>469
アンカミス
 >>411 → >>441

482:デフォルトの名無しさん
19/03/02 16:49:20.52 R507/Kbo.net
全く面白くない。

483:デフォルトの名無しさん
19/03/02 20:23:12.84 bDAZjPpu.net
>>471
自分の好みじゃないと面白くないなんて小学生か。
黙ってスルーするか、自分が好みの問題だして盛り上げたらどうだ？

484:デフォルトの名無しさん
19/03/03 08:56:00.68 NMVimqZR.net
お題：2つの円が重なった時、重なった部分の面積を求めなさい。

485:デフォルトの名無しさん
19/03/03 13:28:27.28 TjAANgsg.net
含まれている場合も考えなきゃならんな…

486:デフォルトの名無しさん
19/03/03 17:19:17.78 e91Lt8pq.net
>>473
わかりません。

487:さまよえる蟻人間
19/03/03 17:21:20.86 KlFuUPR7.net
距離と半径くらい指定しろよ。

488:デフォルトの名無しさん
19/03/03 17:48:01.52 EHdvkNdx.net
>>475
分からない人は答えなくていいし黙って見ていればいいよ

489:デフォルトの名無しさん
19/03/03 18:41:09.09 TjAANgsg.net
>>476
任意に対応すべきだろＪＫ

490:デフォルトの名無しさん
19/03/03 18:55:07.69 TjAANgsg.net
>>476
URLﾘﾝｸ(detail.chiebukuro.yahoo.co.jp)
このサイトは具体的な座標と半径について手計算で解いた例だけど、
座標と半径を一般化して連立二次方程式を解いて交点を求め、
三角形と円弧の面積の差を求めれば重なり合う2円弧の面積が算出できる。
小さい円の中心が大きい円の内側にある場合は、
三角形と円弧の面積の差の求め方を逆にする。
小さい円が大きい円の完全に内側にある場合は、小さい円の面積とする。
x,y座標で式を立てるより、曲座標で表して三角関数使うほうが楽かもしれない。
これをプログラム化すれば良い、筈【だと思う。
以上。

491:デフォルトの名無しさん
19/03/03 19:21:30.98 yjYtaUkW.net
2つの中心を通る線をX軸としてX軸と交わる点の端っこを原点して円の交点と半径で
円一個ずつ積分して面積を出して合わせるしかないだろ。

492:デフォルトの名無しさん
19/03/03 19:28:30.68 r5nrErEk.net
半径と中心間の距離から円の交点間の距離（＝弦）がわかるから
正弦定理とarcsinで中心角を求めればあとはただの掛け算と引き算だろ

493:デフォルトの名無しさん
19/03/03 19:33:55.32 TjAANgsg.net
>>481
二次方程式解かないで済みそうだな

494:デフォルトの名無しさん
19/03/03 20:19:21.58 ot+8d2KD.net
それが一番シンプルそうだな

495:デフォルトの名無しさん
19/03/03 20:23:33.79 8CruhG40.net
プログラム的には円同士の位置関係で場合分けして、あとは計算一発だから二次方程式をいやがる必要もなくない？

496:デフォルトの名無しさん
19/03/03 21:06:33.77 XGcp5yLx.net
>>473 C
URLﾘﾝｸ(ideone.com)
画像も参照。
URLﾘﾝｸ(imgur.com)

497:デフォルトの名無しさん
19/03/03 22:28:24.90 XGcp5yLx.net
>>485
条件分岐が間違っていたので修正。おそらくあってると思う
URLﾘﾝｸ(ideone.com)
余弦定理を使う方法しか思いつかなかったから、それでやった

498:デフォルトの名無しさん
19/03/04 01:00:55.59 q2TdavLp.net
乙

499:デフォルトの名無しさん
19/03/04 07:57:27.52 7HyVHUwF.net
お題：不等間隔で与えられる関数表から１次とか２次で補間をしなさい。

500:デフォルトの名無しさん
19/03/04 11:04:59.42 9wLIIjqc.net
お題：　２つの任意の英数字からなる芸術的なアスキーアートを出力しろ

501:デフォルトの名無しさん
19/03/04 11:07:25.78 9wLIIjqc.net
お題：　アスキーアートで芸術的な直線を出力しろ

502:デフォルトの名無しさん
19/03/04 12:15:59.00 9wLIIjqc.net
お題：　アスキーアートで芸術的な木のアスキーアートを出力しろ

503:デフォルトの名無しさん
19/03/04 13:00:20.39 enTqHBl5.net
お題：　このバカをどうにかしろ

504:デフォルトの名無しさん
19/03/04 13:06:53.32 mOK2oiAk.net
>>489、>>490、>>491
どうぞ……
ｽﾚﾘﾝｸ(motenai板)

505:デフォルトの名無しさん
19/03/04 18:59:01.31 R4eMfGlu.net
お題全角空白区切のCSV
カレントディレクトリにあるCSVファイルを読み込み、指定されたカラム名のデータの合計を求める。
1レコード目にはカラム名がある。
区切り記号は全角空白とする。データの数字は全てASCII数字だとする。
CSVファイル内のデータ例
カラム1　カラム2　カラム3　カラム4
1,0　2.0　3.0　4.0
2.1　3.1　4.1　5.1
------データ例終わり
出題カラム3 の合計を求めよ。
解答例カラム3 = 7.1

506:さまよえる蟻人間
19/03/04 19:01:33.11 wk4fvbO+.net
カンマとピリオド間違えたら死ぬぞ。気を付けれ。

507:デフォルトの名無しさん
19/03/04 19:03:32.42 rdjSvZ2C.net
>>494 間違い
データに 1,0 という間違いがあるけど問題ないだろ。
ついでに、この状態でカラム1の様にデータフォーマットが違う場合には正しくデータエラーを報告せよ。

508:さまよえる蟻人間
19/03/04 19:10:24.71 wk4fvbO+.net
日本やアメリカでは、ピリオドは文の終わりや小数点として使う。
カンマは文章途中の区切りや複数の項目の区切りに使う。

509:デフォルトの名無しさん
19/03/04 19:12:27.62 rdjSvZ2C.net
>>497 問題に関係ないことを言うなよ。

510:デフォルトの名無しさん
19/03/04 19:12:28.56 TpCWsYE8.net
>>494
awk。-F オプションで指定しているのが全角スペースね。OSやシェルの違いによってはシングルクオーテーションではなくダブルクォーテーションにする必要がある。入力はファイル名指定するか標準入力から読ませる。
awk -F'　' 'BEGIN{getline}{n+=$3}END{print n}'

511:デフォルトの名無しさん
19/03/04 19:15:20.56 TpCWsYE8.net
awkはデータフォーマットがおかしくても適当に0ってことにしちゃったりしてエラーにならんのでデータ異常まで調べたいなら他の言語使った方が良いだろうな。

512:デフォルトの名無しさん
19/03/04 19:16:48.51 rdjSvZ2C.net
>>499 カラム名を指定してよ。カラム名は指定された名前であり固定ではない。

513:デフォルトの名無しさん
19/03/04 19:22:30.38 TpCWsYE8.net
>>501
あー。じゃあ後で他の言語で作るか。

514:デフォルトの名無しさん
19/03/04 19:42:58.86 0eAiVVhP.net
お題：端末の横幅が与えられるので(*´ω｀*)を端末の中央に表示せよ

515:デフォルトの名無しさん
19/03/04 20:14:28.23 /O719wMt.net
このバカどうにかしろ
あとチンポジ代わりに直せ

516:デフォルトの名無しさん
19/03/04 21:14:51.56 x+RRe849.net
>>503 Ruby
w = 120
printf("%s%s\n", " " * ((w - 10) / 2), "(*´ω｀*)")

517:デフォルトの名無しさん
19/03/05 01:17:51.32 irQmeRjm.net
茨木　保健
貴老沢　風花
鬼塚　海鈴
鬼埜　可恋
儀賀沢　一愛
嫌沢　宮子
己問　彩姫
寺沢　七彩
寿川　瑞紀
樹木山　美咲
宗田　純
女ケ沢　美優
女ケ澤　飛鳥
女鹿沢　祐奈

518:デフォルトの名無しさん
19/03/05 03:28:01.02 CZi591h7.net
>>494
Ruby で
require 'csv'
# 全角空白区切りで、ヘッダー有り
options = { :headers => true, :col_sep => "　" }
# CSV ファイルを、1行ずつ処理する
puts CSV.foreach( "input.csv", options )
.map{ |row| row[ 2 ].to_f }.inject( :+ )

519:デフォルトの名無しさん
19/03/05 07:59:44.57 0SMIqw+w.net
>>507 カラム名サーチが入っていないみたいだけど。
例えば ”カラム3” と言うカラム名が指定されたとして書いてみて。3列目と言うことじゃないからね。
カラム4　カラム2　カラム1　カラム3
かも知れない。

520:デフォルトの名無しさん
19/03/05 08:10:31.80 utDz1VTj.net
変な流れが続いていたから、バカっぽいお題をいくつか出した後に一見まともそうなお題のふりして宿題をやってもらおうという腹かと勘ぐってしまう。

521:デフォルトの名無しさん
19/03/05 09:08:51.84 BKNc7BtY.net
>>509
お前の思いちゃんと伝わったよ
問題解けクズ

522:デフォルトの名無しさん
19/03/05 09:12:40.32 DIrFqE8l.net
>>510
宿題は自分でやれカス

523:デフォルトの名無しさん
19/03/05 09:42:11.28 BKNc7BtY.net
>>511
お前の宿題だが

524:デフォルトの名無しさん
19/03/05 09:45:18.09 DIrFqE8l.net
死ね

525:デフォルトの名無しさん
19/03/05 11:33:12.77 7U5lBe0C.net
だから言語制限なしで通すとやっぱネタギレじゃん

526:デフォルトの名無しさん
19/03/05 12:09:12.75 KQ31R4yU.net
お題１：　テトリスタイリング問題を解決しろ
ここでテトリスタイリング問とは任意の図形のアスキーアートを入力すると
全てのテトリスのブロックに隣接するブロックの種類が異なるようにタイリングしたアスキーアートを出力する
問題である
お題２：　テトリスタイリングNブロックス問題を解決しろ
ここでこの問題は上の問題でブロックの種類の数Nを最小にする問題である
例：
入力：
****
****
****
出力：
1002
1002
1122

527:デフォルトの名無しさん
19/03/05 12:21:13.18 WJ/srpVX.net
>>515
これじゃダメなのか?
1011
1001
1101

528:デフォルトの名無しさん
19/03/05 12:23:52.27 KQ31R4yU.net
>>516
それでもええで

529:デフォルトの名無しさん
19/03/05 23:56:55.78 0SMIqw+w.net
>>515 ボクちゃんわかんない。
何で縦の列は1とか同じ種類が許されてるの？なんか上から下へとか言う動きを前提にしてるの？

530:デフォルトの名無しさん
19/03/06 01:19:54.96 tTGpH/KM.net
>>518
URLﾘﾝｸ(upload.wikimedia.org)
片面テトロミノ(画像参照)を回転させて指定の形に詰め込め
ただし、同じテトロミノを隣接させてはいけない。　ってことじゃろ
515の出力例でいうと、
0は画像の水色、1は黄色、2は紫色の奴ってこと

531:デフォルトの名無しさん
19/03/06 08:04:05.66 bBth0ZZS.net
>>515 その出力例だと、タイルの種類は3種類じゃないの？
1と2を同じだとみなせば、同じ種類と隣接するからダメだろ？
>>516 だと完全に2種類だが。

532:デフォルトの名無しさん
19/03/06 10:13:54.30 Z0o65K/P.net
>>520
>>519

533:デフォルトの名無しさん
19/03/06 11:44:29.70 cM1JcwP7.net
>>521
だからこそ出題例 >>515は3種類のブロックを使ってるんだろ？　
2種類で出来ていないから問2に対しては不正解では？

534:デフォルトの名無しさん
19/03/06 11:58:00.89 OdnfdSEH.net
>>522
例がお題２とお題１両方の答えになっているなんてことはどこにも書いてないだろ
例を見ればだれでもどのお題の答えかわかるだろ

535:デフォルトの名無しさん
19/03/06 12:34:51.62 cM1JcwP7.net
>>523 誰でも解ると言うのは言い過ぎ。　何が正しいのかを示すのが例なんだし。
なんにせよお題の出し方が独断すぎるよ。
テトリスタイリングなんて知らない人にとっては説明不足だし
 >>519 の説明があって初めて平面上の回転図形は同じとみなし、裏表の回転は許さないと解るけど。
それでも519のブロックは4個の組み合わせのブロックしかないが、どうして4個固定なのか？　最大辺の個数を単位とするのか？
この場合は5個固定？
***
***
***
***
***

536:デフォルトの名無しさん
19/03/06 12:44:07.40 OdnfdSEH.net
>>524
釣りだろ？
本当にわからないのなら病院に行くレベルｗ

537:516
19/03/06 12:54:30.31 l

538:TLUMkgQ.net

539:デフォルトの名無しさん
19/03/06 12:57:33.38 FCOQEIBI.net
わかっても今のところ解く気は起きない

540:デフォルトの名無しさん
19/03/06 12:58:29.33 Z0o65K/P.net
>>522
あなた、前に書き込んでた中卒の人？

541:デフォルトの名無しさん
19/03/06 13:01:54.00 uLgh04dF.net
>>199と >>441が理解できなかったってやつと同一人物なのは分かる

542:デフォルトの名無しさん
19/03/06 13:08:31.07 URj2ByGk.net
>>524
>どうして4個固定なのか？　
テトリスってゲームがあってそれに出てくるブロックが >>519
>>515
>全てのテトリスのブロック
URLﾘﾝｸ(ja.wikipedia.org)
テトリス
>4つの正方形を組み合わせて作られた、片面型テトロミノ状のブロックピース
>（以下の7種、本作ではこれらを「テトリミノ」（Tetrimino）と呼ぶ）
>がフィールド上方からランダムに1種類ずつ落下してくる。

543:デフォルトの名無しさん
19/03/06 13:09:30.85 f/NWPYTA.net
>>441は分からんかった
問題を考えさせてほしい
問題文を考えさせるんじゃなく

544:デフォルトの名無しさん
19/03/06 13:50:33.24 cM1JcwP7.net
>>530 片面テトリミノの基本は4個だけどこれを使う前提なら、３ｘ５とか4の倍数の面積にならない図形は解けないよね。
聞いてるのは３ｘ５はどうするのと言う話。

545:デフォルトの名無しさん
19/03/06 14:02:02.94 URj2ByGk.net
>>532
「解けない」でいいんだろ

546:デフォルトの名無しさん
19/03/06 16:31:44.46 OdnfdSEH.net
>>532
この問題は君の思ってる小学校の算数とは違うんだよ

547:デフォルトの名無しさん
19/03/06 18:11:04.36 +4ROOaYr.net
問題の難しさと、問題の曖昧さは関係ないけどな。
難しい問題の条件が曖昧だと鼻から解く気になれない。

548:デフォルトの名無しさん
19/03/06 18:18:58.86 OdnfdSEH.net
考えればわかることまでいちいち書かないのは常識
それを曖昧とは言わない

549:デフォルトの名無しさん
19/03/06 19:39:35.98 RlXQ9XDp.net
数学者は常識人

550:デフォルトの名無しさん
19/03/06 19:40:44.95 L0cGL7i+.net
当たり前のことでもいちいち全部書くのがこの業界の常識だが

551:デフォルトの名無しさん
19/03/06 19:57:47.15 2Etc0l5z.net
仕様書をやりとりしてみれば如何に他人に解らせることが難しいか理解できると思うけどな。多分出題者は余り経験していないんだろう。
仕様をいい加減で進めても後で痛い目を見るのは自分。
(最初は完全でないのは当然、打ち合わせで抜けを詰めていけば良い話)

552:デフォルトの名無しさん
19/03/06 20:41:28.07 OdnfdSEH.net
>>538
テトリスがなにかなんて自分でググって調べればいいことだろ
そんなことまで面倒みれない

553:デフォルトの名無しさん
19/03/06 20:51:34.66 Xwbjxxrc.net
お題の面白さに共感しなければ趣味だから解かない。

554:デフォルトの名無しさん
19/03/06 21:21:50.81 FCOQEIBI.net
そういや安かったのでPS4用のテトリスを何気なく買って連日やってたら慣れてきちゃってレベル15の40ライン消しが楽にできるようになってしまったなあ。
今さらテトリスうまくなってどうすんだ俺w

555:デフォルトの名無しさん
19/03/07 03:21:20.86 QS9GxyX4.net
>>494
Kotlin
URLﾘﾝｸ(paiza.io)
入力はカラム名の行が最初にあり、次の行からはデータが続き「# カラム名」の行で終わり、
そこで指定したカラム名の列の合計値が出力される。
エラーはデータが数値として解釈できない文字列、項目数がカラム名の数と一致しない行、
同一カラム名があった場合に出る。一度エラーになると # の行まで読み飛ばされる。

556:デフォルトの名無しさん
19/03/07 17:22:14.11 bbRk4M8e.net
お題
R言語にandmaginsとうう関数がある。
m行n列の行列を渡すと行ごとの合計と列ごとの合計を追加して
(m+1)行(n+1)列の行列を返す。
同様の関数をつくる。
1 2 3
4 5 6
が
1 2 3 6
4 5 6 15
5 7 9 21
となる

557:デフォルトの名無しさん
19/03/07 19:35:31.07 gyMjU+f2.net
>>544
C++
URLﾘﾝｸ(ideone.com)

558:デフォルトの名無しさん
19/03/07 23:35:37.41 bSfNx8gZ.net
>>544 Squeak/Pharo Smalltalk
| fn |
fn := [:arr | arr, {arr sum} collect: [:row | row, {row sum}]].
fn value: #(
(1 2 3)
(4 5 6)
).
"=> #(
(1 2 3 6)
(4 5 6 15)
(5 7 9 21)
) "

559:デフォルトの名無しさん
19/03/08 00:35:43.62 N66/0TP0.net
大文字小文字だけが異なる、ファイル名を見つける
入力
aB.txt
Ab.txt
xx
cd
cD
CD
出力
aB.txt : Ab.txt
cd : cD : CD

560:デフォルトの名無しさん
19/03/08 04:41:32.92 JrzgN4oN.net
#!/bin/sh
infile="aB.txt Ab.txt xx cd cD CD"
for f in ${infile}; do
echo $f $(echo $f | tr [:lower:] [:upper:])
done | awk '
{ save[$2] = save[$2] " : " $1 }
END {
for (i in save) print save[i]
}' | sed 's/^ : //' | sort | awk 'NF > 1 {print}'

561:デフォルトの名無しさん
19/03/08 09:23:36.88 iTwHpxzE.net
>>547 Squeak Smalltalk
| fn |
fn := [:arr |
| groups |
groups := arr groupBy: #asLowercase having: [:group | group size > 1].
groups values collect: #asArray
].
fn value: #('aB.txt' 'Ab.txt' 'xx' 'cd' 'cD' 'CD').
"=> #(('cd' 'cD' 'CD') ('aB.txt' 'Ab.txt')) "

562:デフォルトの名無しさん
19/03/08 09:47:13.60 pv8HlopZ.net
>>547
それはWindowsとかでは試せないのでは？ディレクトリが違うならできるだろうけど。
(まあWindowsでもWSLでUbuntuとか動かせばできるが)

563:547
19/03/08 11:48:57.26 N66/0TP0.net
同一フォルダ内での、大文字小文字だけが異なるファイル名は、Windows では作れないけど、
Linux では作れてしまうので、それをチェックする目的です
Linuxでも、こういうファイル名は作らない方がよい

564:デフォルトの名無しさん
19/03/08 16:35:28.24 VhFMuL/G.net
>>551
死ね

565:デフォルトの名無しさん
19/03/08 17:12:36.80 qP6cz7Aj.net
時々死ねと言うやついるけど同じやつなのか？いい加減で大人になれ。

566:デフォルトの名無しさん
19/03/08 18:19:49.57 aY8HpC9F.net
イ㌔

567:デフォルトの名無しさん
19/03/08 18:42:00.27 eAQ60MzF.net
お題：　１＝２を証明しろ
証明出来ないは無しで

568:デフォルトの名無しさん
19/03/08 18:49:56.10 qP6cz7Aj.net
>>555 それは言語によるんじゃないの？論理的にはあり得ない。
一般的には、0がFalse でそれ以外がTrueと言うだけでは？

569:さまよえる蟻人間
19/03/08 18:58:42.07 8R2ZaOuQ.net
整数のオーバーフロー使えば楽に証明できるけど、それはもはや基礎数学の整数じゃないし。

570:デフォルトの名無しさん
19/03/08 19:14:26.55 2owB+W9f.net
>>544 octave
URLﾘﾝｸ(ideone.com)

571:デフォルトの名無しさん
19/03/08 19:17:05.52 ru9qZk5w.net
お題：
N人の人物がある部屋に出入りしています。
i番目の人は時刻a[i]に入室し、時刻b[i]に退室します。(1 <= a[i] < b[i])
すべての人は入退室時に以下の通り行動します。
・入室時に、照明がOFFならば照明をONにする。
・退室時に、室内に自分以外に誰もいなければ照明をOFFにする。
最初は照明がOFFになっていて室内には誰もいません。
複数の人物が同時に入退室することはないものとします。
照明がONになっている時間の合計を求めなさい。
a={1,3,5}
b={2,4,6}
=> 3
a={1,2}
b={5,6}
=> 5
a={100,1,2}
b={105,3,4}
=> 8

572:デフォルトの名無しさん
19/03/08 20:42:26.76 q/o0JPH8.net
>>364
brainf*ck
>++++++++++<+[,.>.<]

573:デフォルトの名無しさん
19/03/08 20:42:27.70 AweN/YnK.net
★ぁりが㌧ヾ(｡･ω･｡)ﾉぁりが㌧★

574:デフォルトの名無しさん
19/03/08 20:54:42.10 2owB+W9f.net
>>559 ruby
URLﾘﾝｸ(ideone.com)

575:デフォルトの名無しさん
19/03/08 21:22:26.01 QMcItLTV.net
>>559 Common Lisp
URLﾘﾝｸ(ideone.com)

576:デフォルトの名無しさん
19/03/08 21:55:03.73 2owB+W9f.net
>>547 ruby
URLﾘﾝｸ(ideone.com)

577:デフォルトの名無しさん
19/03/09 08:53:56.42 irV15TzB.net
>>410 J
f =: 3 : 0
　> , { ;/(,. toupper) y
)

578:562
19/03/09 09:29:27.51 8CAUa/TL.net
>>559 ruby
すこーしすっきり
f = ->a, b {a.zip(b).map {|c| (c.first...c.last).to_a}.inject(:|).size}
↓
f = ->a, b {a.zip(b).map {|c, d| [*c...d]}.inject(:|).size}

579:547
19/03/09 10:58:09.02 GVs3bbIF.net
>>564
たった2行とは、素晴らしい！
JavaScript(JS)とか、関数型プログラミングだね
f(&:upcase), f(&:chomp)
関数型でも、こういうように呼ぶ関数名が明確にわかる点では、Ruby はJS をしのぐ！
漏れが以下で作ったけど、手続き型の処理で、10行以上も掛かったw
情けない
Ruby 初心者スレッド Part 65
ｽﾚﾘﾝｸ(tech板:234番)

580:デフォルトの名無しさん
19/03/09 12:51:20.88 C6v7oEvs.net
クソみてーな恣意的な記号使いはperl譲りだな

581:デフォルトの名無しさん
19/03/09 13:17:28.26 capoU8RA.net
アンダースコア_はprologの時点であるんじゃね
それに記号なら恣意的だろ

582:デフォルトの名無しさん
19/03/09 19:25:50.03 hBO8FWAE.net
>>544
Haskell
main = mapM_ print $ newxss ++ [zipWith (+) (newxss!!0) (newxss!!1)]
xss = [[1,2,3],[4,5,6]]
newxss = map (\xs -> xs ++ [sum xs]) xss

583:デフォルトの名無しさん
19/03/09 19:49:27.50 R3sqYFdd.net
お題：文字列と数値nが与えられるのでn番目の文字とそれ以外の文字を上下にスライドさせて表示する
入力
abc 2
出力
*b*
a*c

584:デフォルトの名無しさん
19/03/09 19:57:53.65 C6v7oEvs.net
お題か出力のどっちかが間違っている
日本語勉強した方がいい

585:デフォルトの名無しさん
19/03/09 19:58:57.39 hBO8FWAE.net
>>544,570
任意の数の行列だったか。。。
修正
main = mapM_ print $ newxss ++ [lastxs]
xss = [[1,2,3],[4,5,6],[7,8,9]]
newxss = map (\xs -> xs ++ [sum xs]) xss
lastxs = map sum $ retsu newxss
retsu ([]:xs) = []
retsu xss = map head xss:retsu (map tail xss)

586:デフォルトの名無しさん
19/03/09 20:10:49.99 0OOZ8KrR.net
>>557
オーバーフローは数学ですらないだろ。こっちは数学。

宇宙を支えていたのは、驚異のたし算だった
私がこのたし算を知ったのは20歳のころでした。その衝撃は、私の運命を変えるまでの威力を持っていました。
私の大学は2年生で所属学科を決めるシステムになっており、私はアインシュタインに憧れて物理学科に進もうとしていました。
その私が出会ったのがラマヌジャン（1887-1920）です。彼が描いた2つの絵を見た瞬間、私の中で何かが変わりました。
URLﾘﾝｸ(jbpress.ismedia.jp)
URLﾘﾝｸ(jbpress.ismedia.jp)

587:さまよえる蟻人間
19/03/09 20:18:26.71 XY+I2Bbh.net
>>574
応用数学ではオーバーフローも数学の一種。

588:デフォルトの名無しさん
19/03/09 20:25:11.72 hBO8FWAE.net
>>364
Haskell
main = mapM_ (\c -> putStrLn $ c:[]) "hello"

589:デフォルトの名無しさん
19/03/09 20:38:18.94 1xJckQ5D.net
>>544
kotlin
URLﾘﾝｸ(paiza.io)
Double型でやったら出力に小数点以下が付加されたが値として間違ってるわけではないのでそのままにする。

590:デフォルトの名無しさん
19/03/10 01:41:18.58 5A3UW8N7.net
>>544 Python
import numpy as np
# 何行何列でも良い
ar =[
[1,2,3,4],
[4,5,6,7],
[7,8,9,10]
]
#縦に足して行を追加
r=np.vstack((ar,np.sum(ar,axis=0)))
#横に足して列を追加
ans=np.hstack((r,np.sum(r,axis=1).reshape((-1,1))))
print('ans=\n',ans)
'''
ans=
[[ 1 2 3 4 10]
[ 4 5 6 7 22]
[ 7 8 9 10 34]
[12 15 18 21 66]]
'''

591:デフォルトの名無しさん
19/03/10 03:08:27.84 LqrBe0vy.net
>>571 ruby
s = "abc"
n = 2
t = "*" * s.length
t[n - 1] = s[n - 1]
u = s.clone
u[n - 1] = "*"
puts(t, u)

592:デフォルトの名無しさん
19/03/10 11:41:34.27 x4ZRCWyR7
>>544,573

n = 3

xss = (take n.iterate (map (+ n))) [1..n]

もっと大きな行列渡したくて、n*nのリスト（行列）作る関数作った。
こういうのって、手続き型と宣言型で違いが顕著だと思った。

593:デフォルトの名無しさん
19/03/10 11:57:40.70 e6SI07pl.net
>>571 J
f =: 4 : 0
|: ((,. -.) (<:x) = i. # y ) {"1 '*' ,. y
)
2 f 'abc'
*b*
a*c

594:デフォルトの名無しさん
19/03/10 13:31:21.17 vqbsu7fW.net
>>571
Haskell
main = do
putStrLn $ seclet "abc" (==) 2
putStrLn $ seclet "abc" (/=) 2
seclet lst func num = seclet' lst func 1 num
where
seclet' [] _ _ _ = []
seclet' (x:xs) f n a | f n a = x: seclet' xs f (n + 1) a
seclet' (_:xs) f n a = '*': seclet' xs f (n + 1) a

595:デフォルトの名無しさん
19/03/10 13:56:33.99 vqbsu7fW.net
>>571
>>582
引数の順序入れ替えてmapM_ 使って、main部分を一行にまとめた。
main = mapM_ (putStrLn.seclet "abc" 2) [(==),(/=)]
seclet lst num func = seclet' lst 1 num func
where
seclet' [] _ _ _ = []
seclet' (x:xs) n a f | f n a = x: seclet' xs (n + 1) a f
seclet' (_:xs) n a f = '*': seclet' xs (n + 1) a f

596:デフォルトの名無しさん
19/03/10 17:19:36.82 lsf+n+kn.net
>>571　Perl5
($s, $n)= qw{abc 2};
@s = split'',$s;
@t = qw{*} x @s;
$n--;
($s[$n], $t[$n]) = ($t[$n], $s[$n]);
print @t, "\n", @s, "\n";
実行結果
~ $ perl 13_571.pl
*b*
a*c

597:デフォルトの名無しさん
19/03/10 17:47:53.28 lsf+n+kn.net
>>544 Perl5
@a = ([1, 2, 3,],
　　　　[4, 5, 6]);
use List::Util sum;
push @$_, sum(@$_) for @a;
for $i (0..$#{$a[0]}) {
　push @b, sum(map{$a[$_][$i]} 0..$#a)
}
print "@$_\n" for @a;
print "@b\n";

実行結果
~ $ perl 13_544.pl
1 2 3 6
4 5 6 15
5 7 9 21

598:デフォルトの名無しさん
19/03/10 20:48:09.83 z5UigTCL.net
>>571 octave
URLﾘﾝｸ(ideone.com)

599:デフォルトの名無しさん
19/03/10 21:12:33.92 ObNpfzdX.net
ここっておっさんが多いイメージ

600:デフォルトの名無しさん
19/03/10 21:16:39.36 KcIurEvX.net
>>559
Java
URLﾘﾝｸ(paiza.io)

601:デフォルトの名無しさん
19/03/10 21:20:18.73 z5UigTCL.net
>>571 ruby
URLﾘﾝｸ(ideone.com)
>>567
String#lines　←これの存在知らなかった
勉強になりました

次ページ