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

**デフォルトの名無しさん** · 2019/02/03(日) 11:21:53.20

プログラミングのお題スレです。

【出題と回答例】
1 名前：デフォルトの名無しさん
　　お題：お題本文

2 名前：デフォルトの名無しさん
　　>>1 使用言語
　　回答本文
　　結果がある場合はそれも

【ソースコードが長くなったら】 (オンラインでコードを実行できる)
https://ideone.com/
http://codepad.org/
http://compileonline.com/
http://rextester.com/runcode
https://runnable.com/
https://code.hackerearth.com/
http://melpon.org/wandbox
https://paiza.io/

宿題は宿題スレがあるのでそちらへ。

※前スレ
https://mevius.2ch.net/test/read.cgi/tech/1538096947/

**デフォルトの名無しさん** · 2019/03/03(日) 17:48:01.52

>>475
分からない人は答えなくていいし黙って見ていればいいよ

**デフォルトの名無しさん** · 2019/03/03(日) 18:41:09.09

>>476
任意に対応すべきだろＪＫ

**デフォルトの名無しさん** · 2019/03/03(日) 18:55:07.69

>>476
ttps://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1263968897

このサイトは具体的な座標と半径について手計算で解いた例だけど、
座標と半径を一般化して連立二次方程式を解いて交点を求め、
三角形と円弧の面積の差を求めれば重なり合う2円弧の面積が算出できる。
小さい円の中心が大きい円の内側にある場合は、
三角形と円弧の面積の差の求め方を逆にする。
小さい円が大きい円の完全に内側にある場合は、小さい円の面積とする。

x,y座標で式を立てるより、曲座標で表して三角関数使うほうが楽かもしれない。

これをプログラム化すれば良い、筈【だと思う。

以上。

**デフォルトの名無しさん** · 2019/03/03(日) 19:21:30.98

2つの中心を通る線をX軸としてX軸と交わる点の端っこを原点して円の交点と半径で
円一個ずつ積分して面積を出して合わせるしかないだろ。

**デフォルトの名無しさん** · 2019/03/03(日) 19:28:30.68

半径と中心間の距離から円の交点間の距離（＝弦）がわかるから
正弦定理とarcsinで中心角を求めればあとはただの掛け算と引き算だろ

**デフォルトの名無しさん** · 2019/03/03(日) 19:33:55.32

>>481
二次方程式解かないで済みそうだな

**デフォルトの名無しさん** · 2019/03/03(日) 20:19:21.58

それが一番シンプルそうだな

**デフォルトの名無しさん** · 2019/03/03(日) 20:23:33.79

プログラム的には円同士の位置関係で場合分けして、あとは計算一発だから二次方程式をいやがる必要もなくない？

**デフォルトの名無しさん** · 2019/03/03(日) 21:06:33.77

>>473 C
ttps://ideone.com/trIqHx

画像も参照。
ttps://imgur.com/i2G9Ahd

**デフォルトの名無しさん** · 2019/03/03(日) 22:28:24.90

>>485
条件分岐が間違っていたので修正。おそらくあってると思う
https://ideone.com/DjZqEY
余弦定理を使う方法しか思いつかなかったから、それでやった

**デフォルトの名無しさん** · 2019/03/04(月) 01:00:55.59

乙

**デフォルトの名無しさん** · 2019/03/04(月) 07:57:27.52

お題：不等間隔で与えられる関数表から１次とか２次で補間をしなさい。

**デフォルトの名無しさん** · 2019/03/04(月) 11:04:59.42

お題：　２つの任意の英数字からなる芸術的なアスキーアートを出力しろ

**デフォルトの名無しさん** · 2019/03/04(月) 11:07:25.78

お題：　アスキーアートで芸術的な直線を出力しろ

**デフォルトの名無しさん** · 2019/03/04(月) 12:15:59.00

お題：　アスキーアートで芸術的な木のアスキーアートを出力しろ

**デフォルトの名無しさん** · 2019/03/04(月) 13:00:20.39

お題：　このバカをどうにかしろ

**デフォルトの名無しさん** · 2019/03/04(月) 13:06:53.32

>>489、>>490、>>491
どうぞ……
https://mevius.5ch.net/test/read.cgi/motenai/1546340528/

**デフォルトの名無しさん** · 2019/03/04(月) 18:59:01.31

お題全角空白区切の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

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/03/04(月) 19:01:33.11

カンマとピリオド間違えたら死ぬぞ。気を付けれ。

**デフォルトの名無しさん** · 2019/03/04(月) 19:03:32.42

>>494 間違い

データに 1,0 という間違いがあるけど問題ないだろ。
ついでに、この状態でカラム1の様にデータフォーマットが違う場合には正しくデータエラーを報告せよ。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/03/04(月) 19:10:24.71

日本やアメリカでは、ピリオドは文の終わりや小数点として使う。

カンマは文章途中の区切りや複数の項目の区切りに使う。

**デフォルトの名無しさん** · 2019/03/04(月) 19:12:27.62

>>497 問題に関係ないことを言うなよ。

**デフォルトの名無しさん** · 2019/03/04(月) 19:12:28.56

>>494
awk。-F オプションで指定しているのが全角スペースね。OSやシェルの違いによってはシングルクオーテーションではなくダブルクォーテーションにする必要がある。入力はファイル名指定するか標準入力から読ませる。

awk -F'　' 'BEGIN{getline}{n+=$3}END{print n}'

**デフォルトの名無しさん** · 2019/03/04(月) 19:15:20.56

awkはデータフォーマットがおかしくても適当に0ってことにしちゃったりしてエラーにならんのでデータ異常まで調べたいなら他の言語使った方が良いだろうな。

**デフォルトの名無しさん** · 2019/03/04(月) 19:16:48.51

>>499 カラム名を指定してよ。カラム名は指定された名前であり固定ではない。

**デフォルトの名無しさん** · 2019/03/04(月) 19:22:30.38

>>501
あー。じゃあ後で他の言語で作るか。

**デフォルトの名無しさん** · 2019/03/04(月) 19:42:58.86

お題：端末の横幅が与えられるので(*´ω｀*)を端末の中央に表示せよ

**デフォルトの名無しさん** · 2019/03/04(月) 20:14:28.23

このバカどうにかしろ
あとチンポジ代わりに直せ

**デフォルトの名無しさん** · 2019/03/04(月) 21:14:51.56

>>503 Ruby
w = 120
printf("%s%s\n", " " * ((w - 10) / 2), "(*´ω｀*)")

**デフォルトの名無しさん** · 2019/03/05(火) 01:17:51.32

茨木　保健
貴老沢　風花
鬼塚　海鈴
鬼埜　可恋
儀賀沢　一愛
嫌沢　宮子
己問　彩姫
寺沢　七彩
寿川　瑞紀
樹木山　美咲
宗田　純
女ケ沢　美優
女ケ澤　飛鳥
女鹿沢　祐奈

**デフォルトの名無しさん** · 2019/03/05(火) 03:28:01.02

>>494
Ruby で

require 'csv'

# 全角空白区切りで、ヘッダー有り
options = { :headers => true, :col_sep => "　" }

# CSV ファイルを、1行ずつ処理する
puts CSV.foreach( "input.csv", options )
.map{ |row| row[ 2 ].to_f }.inject( :+ )

**デフォルトの名無しさん** · 2019/03/05(火) 07:59:44.57

>>507 カラム名サーチが入っていないみたいだけど。
例えば ”カラム3” と言うカラム名が指定されたとして書いてみて。3列目と言うことじゃないからね。

カラム4　カラム2　カラム1　カラム3
かも知れない。

**デフォルトの名無しさん** · 2019/03/05(火) 08:10:31.80

変な流れが続いていたから、バカっぽいお題をいくつか出した後に一見まともそうなお題のふりして宿題をやってもらおうという腹かと勘ぐってしまう。

**デフォルトの名無しさん** · 2019/03/05(火) 09:08:51.84

>>509
お前の思いちゃんと伝わったよ
問題解けクズ

**デフォルトの名無しさん** · 2019/03/05(火) 09:12:40.32

>>510
宿題は自分でやれカス

**デフォルトの名無しさん** · 2019/03/05(火) 09:42:11.28

>>511
お前の宿題だが

**デフォルトの名無しさん** · 2019/03/05(火) 09:45:18.09

死ね

**デフォルトの名無しさん** · 2019/03/05(火) 11:33:12.77

だから言語制限なしで通すとやっぱネタギレじゃん

**デフォルトの名無しさん** · 2019/03/05(火) 12:09:12.75

お題１：　テトリスタイリング問題を解決しろ
ここでテトリスタイリング問とは任意の図形のアスキーアートを入力すると
全てのテトリスのブロックに隣接するブロックの種類が異なるようにタイリングしたアスキーアートを出力する
問題である

お題２：　テトリスタイリングNブロックス問題を解決しろ
ここでこの問題は上の問題でブロックの種類の数Nを最小にする問題である

例：
入力：
****
****
****

出力：
1002
1002
1122

**デフォルトの名無しさん** · 2019/03/05(火) 12:21:13.18

>>515
これじゃダメなのか?

1011
1001
1101

**デフォルトの名無しさん** · 2019/03/05(火) 12:23:52.27

>>516
それでもええで

**デフォルトの名無しさん** · 2019/03/05(火) 23:56:55.78

>>515 ボクちゃんわかんない。
何で縦の列は1とか同じ種類が許されてるの？なんか上から下へとか言う動きを前提にしてるの？

**デフォルトの名無しさん** · 2019/03/06(水) 01:19:54.96

>>518
https://upload.wikimedia.org/wikipedia/commons/9/9a/Tetrominoes_letter_oriented.png
片面テトロミノ(画像参照)を回転させて指定の形に詰め込め
ただし、同じテトロミノを隣接させてはいけない。　ってことじゃろ

515の出力例でいうと、
0は画像の水色、1は黄色、2は紫色の奴ってこと

**デフォルトの名無しさん** · 2019/03/06(水) 08:04:05.66

>>515 その出力例だと、タイルの種類は3種類じゃないの？
1と2を同じだとみなせば、同じ種類と隣接するからダメだろ？

>>516 だと完全に2種類だが。

**デフォルトの名無しさん** · 2019/03/06(水) 10:13:54.30

>>520
>>519

**デフォルトの名無しさん** · 2019/03/06(水) 11:44:29.70

>>521
だからこそ出題例>>515は3種類のブロックを使ってるんだろ？　
2種類で出来ていないから問2に対しては不正解では？

**デフォルトの名無しさん** · 2019/03/06(水) 11:58:00.89

>>522
例がお題２とお題１両方の答えになっているなんてことはどこにも書いてないだろ
例を見ればだれでもどのお題の答えかわかるだろ

**デフォルトの名無しさん** · 2019/03/06(水) 12:34:51.62

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

この場合は5個固定？
***
***
***
***
***

**デフォルトの名無しさん** · 2019/03/06(水) 12:44:07.40

>>524
釣りだろ？
本当にわからないのなら病院に行くレベルｗ

**516** · 2019/03/06(水) 12:54:30.31

>>523
分からなかった

**デフォルトの名無しさん** · 2019/03/06(水) 12:57:33.38

わかっても今のところ解く気は起きない

**デフォルトの名無しさん** · 2019/03/06(水) 12:58:29.33

>>522
あなた、前に書き込んでた中卒の人？

**デフォルトの名無しさん** · 2019/03/06(水) 13:01:54.00

>>199と>>441が理解できなかったってやつと同一人物なのは分かる

**デフォルトの名無しさん** · 2019/03/06(水) 13:08:31.07

>>524
>どうして4個固定なのか？　

テトリスってゲームがあってそれに出てくるブロックが>>519

>>515
>全てのテトリスのブロック

https://ja.wikipedia.org/wiki/%E3%83%86%E3%83%88%E3%83%AA%E3%82%B9
テトリス
>4つの正方形を組み合わせて作られた、片面型テトロミノ状のブロックピース
>（以下の7種、本作ではこれらを「テトリミノ」（Tetrimino）と呼ぶ）
>がフィールド上方からランダムに1種類ずつ落下してくる。

**デフォルトの名無しさん** · 2019/03/06(水) 13:09:30.85

>>441は分からんかった
問題を考えさせてほしい
問題文を考えさせるんじゃなく

**デフォルトの名無しさん** · 2019/03/06(水) 13:50:33.24

>>530 片面テトリミノの基本は4個だけどこれを使う前提なら、３ｘ５とか4の倍数の面積にならない図形は解けないよね。
聞いてるのは３ｘ５はどうするのと言う話。

**デフォルトの名無しさん** · 2019/03/06(水) 14:02:02.94

>>532
「解けない」でいいんだろ

**デフォルトの名無しさん** · 2019/03/06(水) 16:31:44.46

>>532
この問題は君の思ってる小学校の算数とは違うんだよ

**デフォルトの名無しさん** · 2019/03/06(水) 18:11:04.36

問題の難しさと、問題の曖昧さは関係ないけどな。
難しい問題の条件が曖昧だと鼻から解く気になれない。

**デフォルトの名無しさん** · 2019/03/06(水) 18:18:58.86

考えればわかることまでいちいち書かないのは常識
それを曖昧とは言わない

**デフォルトの名無しさん** · 2019/03/06(水) 19:39:35.98

数学者は常識人

**デフォルトの名無しさん** · 2019/03/06(水) 19:40:44.95

当たり前のことでもいちいち全部書くのがこの業界の常識だが

**デフォルトの名無しさん** · 2019/03/06(水) 19:57:47.15

仕様書をやりとりしてみれば如何に他人に解らせることが難しいか理解できると思うけどな。多分出題者は余り経験していないんだろう。

仕様をいい加減で進めても後で痛い目を見るのは自分。
(最初は完全でないのは当然、打ち合わせで抜けを詰めていけば良い話)

**デフォルトの名無しさん** · 2019/03/06(水) 20:41:28.07

>>538
テトリスがなにかなんて自分でググって調べればいいことだろ
そんなことまで面倒みれない

**デフォルトの名無しさん** · 2019/03/06(水) 20:51:34.66

お題の面白さに共感しなければ趣味だから解かない。

**デフォルトの名無しさん** · 2019/03/06(水) 21:21:50.81

そういや安かったのでPS4用のテトリスを何気なく買って連日やってたら慣れてきちゃってレベル15の40ライン消しが楽にできるようになってしまったなあ。
今さらテトリスうまくなってどうすんだ俺w

**デフォルトの名無しさん** · 2019/03/07(木) 03:21:20.86

>>494
Kotlin
https://paiza.io/projects/w5ywqyfGfQpwllH68rmt5A

入力はカラム名の行が最初にあり、次の行からはデータが続き「# カラム名」の行で終わり、
そこで指定したカラム名の列の合計値が出力される。

エラーはデータが数値として解釈できない文字列、項目数がカラム名の数と一致しない行、
同一カラム名があった場合に出る。一度エラーになると # の行まで読み飛ばされる。

**デフォルトの名無しさん** · 2019/03/07(木) 17:22:14.11

お題
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
となる

**デフォルトの名無しさん** · 2019/03/07(木) 19:35:31.07

>>544
C++
https://ideone.com/XhFw95

**デフォルトの名無しさん** · 2019/03/07(木) 23:35:37.41

>>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)
) "

**デフォルトの名無しさん** · 2019/03/08(金) 00:35:43.62

大文字小文字だけが異なる、ファイル名を見つける

入力
aB.txt
Ab.txt
xx
cd
cD
CD

出力
aB.txt : Ab.txt
cd : cD : CD

**デフォルトの名無しさん** · 2019/03/08(金) 04:41:32.92

#!/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}'

**デフォルトの名無しさん** · 2019/03/08(金) 09:23:36.88

**デフォルトの名無しさん** · 2019/03/08(金) 09:47:13.60

>>547
それはWindowsとかでは試せないのでは？ディレクトリが違うならできるだろうけど。
(まあWindowsでもWSLでUbuntuとか動かせばできるが)

**547** · 2019/03/08(金) 11:48:57.26

同一フォルダ内での、大文字小文字だけが異なるファイル名は、Windows では作れないけど、
Linux では作れてしまうので、それをチェックする目的です

Linuxでも、こういうファイル名は作らない方がよい

**デフォルトの名無しさん** · 2019/03/08(金) 16:35:28.24

>>551
死ね

**デフォルトの名無しさん** · 2019/03/08(金) 17:12:36.80

時々死ねと言うやついるけど同じやつなのか？いい加減で大人になれ。

**デフォルトの名無しさん** · 2019/03/08(金) 18:19:49.57

イ㌔

**デフォルトの名無しさん** · 2019/03/08(金) 18:42:00.27

お題：　１＝２を証明しろ
証明出来ないは無しで

**デフォルトの名無しさん** · 2019/03/08(金) 18:49:56.10

>>555 それは言語によるんじゃないの？論理的にはあり得ない。
一般的には、0がFalse でそれ以外がTrueと言うだけでは？

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/03/08(金) 18:58:42.07

整数のオーバーフロー使えば楽に証明できるけど、それはもはや基礎数学の整数じゃないし。

**デフォルトの名無しさん** · 2019/03/08(金) 19:14:26.55

>>544 octave
https://ideone.com/JoTcaP

**デフォルトの名無しさん** · 2019/03/08(金) 19:17:05.52

お題：
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

**デフォルトの名無しさん** · 2019/03/08(金) 20:42:26.76

>>364
brainf*ck
>++++++++++<+[,.>.<]

**デフォルトの名無しさん** · 2019/03/08(金) 20:42:27.70

★ぁりが㌧ヾ(｡･ω･｡)ﾉぁりが㌧★

**デフォルトの名無しさん** · 2019/03/08(金) 20:54:42.10

>>559 ruby
https://ideone.com/yo3mvc

**デフォルトの名無しさん** · 2019/03/08(金) 21:22:26.01

>>559 Common Lisp
https://ideone.com/2hHoAC

**デフォルトの名無しさん** · 2019/03/08(金) 21:55:03.73

>>547 ruby
https://ideone.com/faTKf5

**デフォルトの名無しさん** · 2019/03/09(土) 08:53:56.42

>>410 J
f =: 3 : 0
　> , { ;/(,. toupper) y
)

**562** · 2019/03/09(土) 09:29:27.51

>>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}

**547** · 2019/03/09(土) 10:58:09.02

>>564
たった2行とは、素晴らしい！
JavaScript(JS)とか、関数型プログラミングだね

f(&:upcase), f(&:chomp)
関数型でも、こういうように呼ぶ関数名が明確にわかる点では、Ruby はJS をしのぐ！

漏れが以下で作ったけど、手続き型の処理で、10行以上も掛かったw
情けない

Ruby 初心者スレッド Part 65
https://mevius.5ch.net/test/read.cgi/tech/1545421414/234

**デフォルトの名無しさん** · 2019/03/09(土) 12:51:20.88

クソみてーな恣意的な記号使いはperl譲りだな

**デフォルトの名無しさん** · 2019/03/09(土) 13:17:28.26

アンダースコア_はprologの時点であるんじゃね
それに記号なら恣意的だろ

**デフォルトの名無しさん** · 2019/03/09(土) 19:25:50.03

>>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

**デフォルトの名無しさん** · 2019/03/09(土) 19:49:27.50

お題：文字列と数値nが与えられるのでn番目の文字とそれ以外の文字を上下にスライドさせて表示する

入力
abc 2

出力
*b*
a*c

**デフォルトの名無しさん** · 2019/03/09(土) 19:57:53.65

お題か出力のどっちかが間違っている
日本語勉強した方がいい

**デフォルトの名無しさん** · 2019/03/09(土) 19:58:57.39

>>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)

**デフォルトの名無しさん** · 2019/03/09(土) 20:10:49.99

>>557
オーバーフローは数学ですらないだろ。こっちは数学。

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

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/03/09(土) 20:18:26.71

>>574
応用数学ではオーバーフローも数学の一種。

**デフォルトの名無しさん** · 2019/03/09(土) 20:25:11.72

>>364

Haskell

main = mapM_ (\c -> putStrLn $ c:[]) "hello"