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

**デフォルトの名無しさん** · 2021/06/19(土) 00:02:57.84

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

【出題と回答例】
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/

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

※前スレ
プログラミングのお題スレ Part19
https://mevius.5ch.net/test/read.cgi/tech/1606662245/

**デフォルトの名無しさん** · 2022/09/24(土) 09:42:29.34

>>788
問題には書かれていないけれどその式は条件によって前処理が必要
・1-2月は前年として扱う。　1年を3-14月として計算
m=1 or 2 の時 y=y-1, m=m+12

>>789
UNIXTIMEにうるう秒なんて無い

**デフォルトの名無しさん** · 2022/09/24(土) 11:33:11.17

>>790
日付に変換する過程でうるう秒考慮しないとずれるでしょう

**デフォルトの名無しさん** · 2022/09/24(土) 12:13:55.28

>>791
UNIXTIMEは「epocからの実時間の秒数」では無い
実時間から、うるう秒は加減され含まれず、1日は86400秒換算
だからそれを日時に変換しても「うるう秒の時刻を表せない」だけでズレなど発生しない

**デフォルトの名無しさん** · 2022/09/24(土) 12:34:24.41

>>792
レスありがとう。不勉強だったわ。

**デフォルトの名無しさん** · 2022/09/24(土) 16:57:05.53

>>790
出題ミスか。
これまでに作られたプログラムはその辺のことを考慮したプログラムになっていたのかな？
だったら分かってたんだからその辺の事を書いておいて欲しかったな。

**デフォルトの名無しさん** · 2022/09/24(土) 22:38:52.94

wikiにはそこまで詳しい解説はなかったけど式みたらわかったけどな
⌊(m+1)/30.6⌋
という項
⌊x/30.6⌋という関数は0,1,2,3,4となる値が
31,30,31,30,31,31,(繰り返し)‥①
と変化してコレを周期153で繰り返す
月の長さは3月から見ると
31,30,31,30,31,31,30,31,30,31,31,28(29)
となってるから①を一月分左に平行移動すれば良いとわかる
からの⌊(m+1)/30.6⌋

**デフォルトの名無しさん** · 2022/09/24(土) 22:45:27.51

>>795

間違えた
⌊m×30.6⌋という関数は0,1,2,3,4,‥の時の値が
31,31,30,31,30
の繰り返し
件の公式のmの項はコレを一月分ずらしてる

**デフォルトの名無しさん** · 2022/09/28(水) 02:17:31.98

お題：4回呼び出したらその内の1回が失敗する関数を書け
失敗した場合は「failed」と表示、成功した場合は「ok」と表示せよ

**デフォルトの名無しさん** · 2022/09/28(水) 09:47:46.29

seed変数はパラメータ渡しで良いですか

**デフォルトの名無しさん** · 2022/09/28(水) 19:05:59.31

>>797 c
https://ideone.com/PIpRmD
void f() {
static int i = 0, j, k = 4;
if (i == 0) j = rand() % k;
puts(i == j ? "failed" : "ok");
i = (i + 1) % k;
}

**デフォルトの名無しさん** · 2022/09/28(水) 22:51:23.95

>>797 Ruby
def f
$f_cnt||=0
puts$f_cnt==3||(rand(4)==~-$f_cnt+=1)?:failed: :ok
end

**デフォルトの名無しさん** · 2022/09/30(金) 04:16:06.13

>>797
Kotlin

https://paiza.io/projects/QipeLOxxfW3_GNBarDA-8w

Int型1つ分のワークエリアを呼ぶ側から与えてそこでカウントして必ず4回の内1回が失敗になる。
乱数を使うと4回の内1回失敗ではなくなる可能性があるので使っていない。

引数としてInt型の参照を渡しても中身を変えられないのでIntArray(Java なら int[] に相当)で1要素作ってIntArrayの参照を渡している。
クラスでやっても良かったが、わざわざクラス作るほどのことでもないと思ったのでこの方式にした。

**デフォルトの名無しさん** · 2022/10/01(土) 01:23:09.73

>>797
Java
https://paiza.io/projects/AOePb_OJDX44jb_jRddrsw?language=java

**デフォルトの名無しさん** · 2022/10/09(日) 17:49:59.08

お題: あみだ https://imgur.com/6XtTF0E.png
画像のようなマス目の上に直線を引いたあみだを次のように表現することにします。
N: 縦線の本数(列数)
M: 橋が架けられている行数
B: M行N-1列の二次元配列で、橋が架けられていたら1、そうでない場合は0が格納されています。
あらかじめ、あみだの入力には左から0～N-1までの整数が割り振られていることにします。また、同じ行に橋が二つ連続で隣り合うことは禁止されています。
一応の制約: 2 <= N <= 100, 1 <= M <= 100
あみだに橋が1つも存在しない場合、M=1となり、Bは1行N-1列の大きさで、すべての要素が0の2次元配列になることにします。

お題1: N, M, Bが与えられるので、あみだの出力を求めてください。(入出力のフォーマットは各自で適宜変更してもいいです。)
入力例(画像のもの):
4
4
1 0 1
0 1 0
1 0 0
0 1 0
出力例:
3 0 1 2

お題2: Nとあみだの出力が与えられるので、Mをできるだけ小さくしたあみだを求め、Mと Bの一例を表示してください。
入力例:
5
2 4 0 1 3
出力例:
3
0 1 0 1
1 0 1 0
0 1 0 0
あみだ関連のお題は過去スレで何回か見かけたがろくに相手にされていなかったのであげてみる。

**デフォルトの名無しさん** · 2022/10/10(月) 00:03:47.74

reduced expressionのまとめられる積を出来るだけまとめたものが必ず最短になるなら簡単なんだけどな

**デフォルトの名無しさん** · 2022/10/10(月) 12:25:25.51

Gapとか使えばいいんじゃね

**デフォルトの名無しさん** · 2022/10/10(月) 15:00:17.69

reduced expression の長さ自体の計算は簡単だけどこの問題は"reduced expressionの長さを求めよ"ではないからそこまで数学的に単純じゃないよ

**デフォルトの名無しさん** · 2022/10/10(月) 20:53:48.73

>>803
お題1
ttps://paiza.io/projects/tUaZay_JvtZRkIaUhjYF7Q

お題2
ttps://paiza.io/projects/1yDZy-Vx-C9Q9Z_Oc03Mtw

お題1とお題2でそれぞれ入力と出力をあわせるようにした
Mをできるだけ小さくって難しいな
これでいいのかわからん

**デフォルトの名無しさん** · 2022/10/10(月) 21:09:44.88

アルゴリズムが存在するのは明らかだしひとつ答え見つけるアルゴリズムも簡単
でもreduced expression見つけるアルゴリズムと同程度のアルゴリズムとなると途端に難しくなる

reduced expressionの場合には置換σのreduced expressionを見つけるには
(1) σ = idであるか否か判定する、σ=idなら空列を返して終了
(2) そうでない場合σ(i) > σ(i+1)であるiを見つける、見つけたiに対してτ=σ(i i+1)とおいてτほreduced expression sを求める
(3)

**デフォルトの名無しさん** · 2022/10/10(月) 21:16:09.04

(3) s ( i i+1 )を返して終了
でもとまる
ここでミソはreduced expressionの1番右は( i i+1 )と決め打ち出来ること、コレがあるから多項式時間で終わる
しかしアミダの場合1番右の初手をそんなに簡単に決定出来るかが分からん
初手の可能性は転置全部の可換な集合のうち極大であるもの全体のいずれかに最短が入る事は簡単に示せるけど、そのような極大な可換集合をどれとっても必ずうまくいくことの証明がむずかしい
多分出来るんだとは思うけど正直数学板で話題にするような話でプロ板で出すような問題じゃない気がする

**441** · 2022/10/11(火) 10:43:04.37

>>803
最近やっとpythonを学び始めたレベルだから合ってるかわからん
コメントとかもちゃんと書いたほうがいいのだろうか
暇な人添削してくれると嬉しい

お題1
https://ideone.com/uQ0lEu
お題2
https://ideone.com/IvtRj2

**デフォルトの名無しさん** · 2022/10/11(火) 12:04:38.77

しゃぶれよ

96 · 2022/10/13(木) 07:01:45.31

>>773
自分でやれ

**デフォルトの名無しさん** · 2022/10/22(土) 02:49:22.02

やってるやん

**デフォルトの名無しさん** · 2022/10/24(月) 10:24:26.56

お題
プリンタAは1分間に1ページ印刷できます
プリンタBは3分間に1ページ印刷できます
プリンタCは5分間に1ページ印刷できます

プリンタを3台同時に動かして100ページを印刷します
100ページを印刷し終わるのに何分掛かるか求めてください

**デフォルトの名無しさん** · 2022/10/24(月) 12:38:35.85

>>814
perl5
https://paiza.io/projects/6hPV0H0VMJ6oloujnOVF8w

**デフォルトの名無しさん** · 2022/10/24(月) 13:32:21.38

>>815
バグってるぞ
65分だと99枚しか印刷されない

**デフォルトの名無しさん** · 2022/10/24(月) 14:17:54.79

>>814 cmd
set /a "p=100, n=15*p/23+!!(15*p%23)"

**デフォルトの名無しさん** · 2022/10/24(月) 15:31:07.39

haskell

pages n = sum $ map ( div n ) [ 1,3,5 ]
main = print $ head [ n | n <- [1..], pages n >= 100 ]

**デフォルトの名無しさん** · 2022/10/24(月) 20:20:16.51

>>814
aow = 100
power = (1 + 1r/3 + 1r/5)
printf(aow / power) // => 65.21739130434783

**デフォルトの名無しさん** · 2022/10/24(月) 22:40:57.89

>>814 octave
https://ideone.com/BOXjxs
f = @(n) ceil(n * 15 / 23);

**デフォルトの名無しさん** · 2022/10/25(火) 01:46:09.54

>>814
Kotlin

何も考えずただカウントして求めるように書いた。

https://paiza.io/projects/8SWBhDQ_Bfr2ICXJpLmxhQ

**デフォルトの名無しさん** · 2022/10/25(火) 06:54:39.16

>>817,820
逆算はページ数によってはダメ
例えば3ページの時、3分4ページが正解だけど
(B=2/3)+(C=2/5) で1繰り上がって2分が出て来る

**デフォルトの名無しさん** · 2022/10/25(火) 07:50:54.84

A, B, Cでそれぞれ45/23, 15/23, 9/23ページ印刷すれば45/23分で3ページ印刷し終わるよ

**デフォルトの名無しさん** · 2022/10/25(火) 08:18:47.97

100ページだからセーフ

**デフォルトの名無しさん** · 2022/10/25(火) 13:35:12.41

>>814
JavaScript
https://paiza.io/projects/I8_n6kEMrNGxbh-vwbTkqQ

**デフォルトの名無しさん** · 2022/10/25(火) 20:38:44.30

甘えんな
印刷周期を一定と仮定した上で解として取りうる離散値のどれになるかを小数単位で求めるプログラムも書こうよ

**デフォルトの名無しさん** · 2022/10/25(火) 21:08:38.15

すまん、1分に3枚じゃなくて3分に1枚かorz

**デフォルトの名無しさん** · 2022/10/25(火) 22:03:54.71

>>814
Java
https://paiza.io/projects/3CptMd1jsIwuiYqU1IQYyg?language=java

**デフォルトの名無しさん** · 2022/10/25(火) 22:28:13.40

じゃあ1分に1枚、3枚、5枚のプリンターでの印刷というお題も出すか。

**デフォルトの名無しさん** · 2022/10/25(火) 22:38:49.46

>>814 octave
https://ideone.com/0V6LlD
function m = f(n, m)
if nargin == 1
m = f(n, 0);
elseif sum(idivide(m, [1 3 5])) < n
m = f(n, m + 1);
end
end

>>814 ocaml
https://ideone.com/4iPTJS
let f n =
let rec aux m =
if n <= (m + m / 3 + m / 5) then m else aux (m + 1)
in aux 0

**デフォルトの名無しさん** · 2022/10/25(火) 23:47:11.01

>>829
Java

public static void main(String[] args)
{
　var pages = 100;
　var s = IntStream.of(1, 3, 5).sum();
　System.out.println((pages + s - 1) / s);
}

**デフォルトの名無しさん** · 2022/10/26(水) 13:26:51.44

お題
オークA「ぐっふっふ…… 俺は媚薬を盛ってないぜ……」
オークB「ぐふっ…… 媚薬を盛ったやつはAかCのどちらかだぜ…」
オークC「オークBかDは嘘をついているぜ…ぐっふっふっふっ……」
オークD「ぐふふ…媚薬を盛った奴はB,Eの中にはいないぜ……ぐひっ…」
オークE「げひひっ……媚薬を盛ったやつは本当の事を言っているぞ…」
オーク達「ちなみに、お前に媚薬を盛ったのはこの中の一匹で、俺たちの中で一匹が嘘をついているぞ……」
女騎士「くうぅ…誰が嘘をついて誰が私に媚薬を盛ったんだ……！」
オーク達「ぐっふっふ……」

論理演算を用いて答えを求めてください

**デフォルトの名無しさん** · 2022/10/26(水) 13:33:52.83

オークCとオークEがめんどくさいな

**デフォルトの名無しさん** · 2022/10/26(水) 15:30:35.63

全てが媚薬を盛って全員が嘘をついている

これで全員の発言と矛盾がないと思う

**デフォルトの名無しさん** · 2022/10/26(水) 16:28:02.83

さすがに
> オーク達「ちなみに、お前に媚薬を盛ったのはこの中の一匹で、俺たちの中で一匹が嘘をついているぞ……」
は正しいと仮定しないとなんでもありありになっちゃうだろ

**デフォルトの名無しさん** · 2022/10/26(水) 18:06:43.51

さすがに
> オーク達「ちなみに、お前に媚薬を盛ったのはこの中の一匹で、俺たちの中で一匹が嘘をついているぞ……」

コレウソついてるのは一匹“だけ”つて意味だよね？
“少なくとも一匹はウソついてる”
じゃないよね？

**デフォルトの名無しさん** · 2022/10/26(水) 18:20:40.38

このタイプの論理問題ってよく見かけるな
初出ってどこなんだろうな

**デフォルトの名無しさん** · 2022/10/26(水) 19:23:29.30

>>836
> “少なくとも一匹はウソついてる”
だと、全員嘘つきでもいいからなんでもありになっちゃう気がする

**デフォルトの名無しさん** · 2022/10/26(水) 20:30:42.10

>>832
Haskell
まだ自信なし

https://ideone.com/7p50VK

**デフォルトの名無しさん** · 2022/10/26(水) 21:23:18.21

オーク達「」が真であることは、
この世界の神である出題者が保証してるわけだな？

**デフォルトの名無しさん** · 2022/10/26(水) 21:38:57.12

出題者が嘘をついていて、オークがそのような発言をしていない可能性もある

**デフォルトの名無しさん** · 2022/10/27(木) 01:22:34.18

>>832
Haskell

一ヶ所間違ってたので訂正
あとウソつきはちょうど1人という条件つけたら解一個になった

https://ideone.com/vAXrzD

**デフォルトの名無しさん** · 2022/10/27(木) 09:19:06.82

Haskell

ウソつき1人としてループを5×5に
5人しかいないので大して変わらないけど

https://ideone.com/zxaBcf

**デフォルトの名無しさん** · 2022/10/27(木) 14:26:07.23

>>832
Java
https://paiza.io/projects/VlDcOv5HhoHc1rQjRbF3dA?language=java

**デフォルトの名無しさん** · 2022/10/29(土) 19:11:19.58

お題
Kの倍数の桁の和
自然数nに対してf(n)をnの10進表示の各桁の和とします
(例 f(1024) = 1+2+4 = 7)
自然数kに対してg(k)を
g(k) = { f(n) | nはkの倍数である自然数 }
とします
入力kに対してg(k)を出力するコードを書いて下さい

**デフォルトの名無しさん** · 2022/10/29(土) 19:33:57.73

>>845
g(k)って必ずしも有限集合にならなくない？

**デフォルトの名無しさん** · 2022/10/29(土) 19:39:30.16

>>946
orz
訂正
g(k) = min{ f(n) | nはkの倍数である自然数 }

**デフォルトの名無しさん** · 2022/10/30(日) 00:28:15.63

お題
プレーヤーの前に閉じた3つのドアがあります
1つのドアの後ろには景品の新車があります
2つのドアの後ろにははずれを意味するヤギがいます
プレーヤーは新車のドアを当てると新車がもらえます
プレーヤーが1つのドアを選択したあとに司会のモンティが残りのドアのうちヤギがいるドアを開けてヤギを見せます
ここでプレーヤーは「最初に選んだドアを残っている開けられていないドアに変更してもよい」と言われます
ここでプレーヤーはドアを変更すべきだろうか？

乱数を使ったシミュレーションで答えを求めてください

**デフォルトの名無しさん** · 2022/10/30(日) 03:55:05.76

>>848
モンティ・ホール問題だな。

Kotlin
https://paiza.io/projects/8jlKawdSqlrp5JHr0uWC4w

**デフォルトの名無しさん** · 2022/10/30(日) 08:09:55.23

ドアを変更するかどうかのところはランダムにする必要無くない？
二択なので一方に決めていれば残りが逆側の確率

**デフォルトの名無しさん** · 2022/10/30(日) 10:05:48.56

まぁ
交換戦略「必ず交換する」
非交換戦略「決して交換しない」
確率交換戦略「ある分布に従って確率的に交換するかしないか決める」
で答えが変わる事を確認せよだからな
ある意味最初２つの戦略も最後の戦略の特別な場合

**デフォルトの名無しさん** · 2022/10/30(日) 11:47:05.86

お題N x Nのルービックキューブのパターン数を求めよ

**デフォルトの名無しさん** · 2022/10/30(日) 18:39:10.46

>>850
なるほど。

**デフォルトの名無しさん** · 2022/10/30(日) 18:54:42.34

モンティ・ホール問題のシミュレートのように見えて実はちょっと違う
モンキーホール問題だったのだ

**デフォルトの名無しさん** · 2022/10/30(日) 20:02:07.15

>>848 octave
https://ideone.com/LGCuAh

**デフォルトの名無しさん** · 2022/10/31(月) 00:39:33.45

お題　ジュールトムソン効果っぽいものをシミュレーションで再現せよ

**デフォルトの名無しさん** · 2022/11/04(金) 07:13:30.92

お題：1～10までの合計を求めよ
＊ただしライブラリ、ループ文を使わないこと

**デフォルトの名無しさん** · 2022/11/04(金) 07:18:56.49

>>857 PHP
55

**デフォルトの名無しさん** · 2022/11/04(金) 08:24:04.42

(1+10)*5

**デフォルトの名無しさん** · 2022/11/04(金) 12:00:50.88

>>857 cmd
set /a "A=1, B=10, (B-A+1)/2*(A+B)+(B-A+1)%2*(A+B)/2" &rem A≦B

**デフォルトの名無しさん** · 2022/11/04(金) 15:50:39.28

1+2+3+4+5+6+7+8+9+10

**デフォルトの名無しさん** · 2022/11/04(金) 15:52:05.99

>>857
$ dc -e'1 10+5*p'
55
$

**デフォルトの名無しさん** · 2022/11/04(金) 16:28:57.36

整数とは書いてないな
三角数とか実数とか何か別のものを想定してるかもしれない

**デフォルトの名無しさん** · 2022/11/04(金) 16:32:28.85

高級言語なら大抵暗黙のうちにライブラリは使ってるだろうし内部的にループも使ってるかもしれない

ループの定義も問題になるかと
gotoは？再帰は？列挙は？...

**デフォルトの名無しさん** · 2022/11/04(金) 16:36:48.58

>>863
その場合は
> 1～10までの合計
の定義を書かないとね

**デフォルトの名無しさん** · 2022/11/04(金) 16:55:47.69

「その場合」に限定する理由は無いよね？

**デフォルトの名無しさん** · 2022/11/04(金) 17:35:42.12

>>866
整数なら
> 1～10までの合計
についてほぼ合意できる定義があると思うけど？

**デフォルトの名無しさん** · 2022/11/04(金) 18:32:31.67

そう思ってない人もいる

**デフォルトの名無しさん** · 2022/11/04(金) 18:59:46.26

思ってない人は具体的にどう言う定義があるのか書けばいいんじゃね？

**デフォルトの名無しさん** · 2022/11/04(金) 19:06:50.77

ちょっと前のレスくらい読め

**デフォルトの名無しさん** · 2022/11/04(金) 19:18:35.30

ん？
ならなにを言いたいのかわからんわ

**デフォルトの名無しさん** · 2022/11/04(金) 19:20:02.13

わからないなら無理に書き込まなくていいよ

**デフォルトの名無しさん** · 2022/11/04(金) 19:54:59.56

ごめん、説明できないならいいや

**デフォルトの名無しさん** · 2022/11/05(土) 14:37:23.18

>>857 octave
https://ideone.com/1JUukk
f = @(a, b) (a + b) * (b - a + 1) / 2;

**デフォルトの名無しさん** · 2022/11/05(土) 22:37:38.99

>>857
Java
https://paiza.io/projects/qlqEQa2EzsIMTABY1ujOcg?language=java

**デフォルトの名無しさん** · 2022/11/05(土) 23:35:33.60

10*11/2

**デフォルトの名無しさん** · 2022/11/06(日) 03:33:15.03

>>857
Kotlin

https://paiza.io/projects/uWXy93c98CoNzF0o2H_wgQ

ループ文は使わず再帰でなんとかした。

(1..10).sum() や (1..10).reduce { a, n -> a + n } でも結果は出るが sum() や reduce() がライブラリにある拡張関数なので没。
10 * 11 / 2 とか 55 を直接出すのはプログラム作る意味がほとんどないような感じがするので止めた。

**デフォルトの名無しさん** · 2022/11/06(日) 04:47:10.33

お題が、正方形や三角形の面積を求めるのと
同程度に簡単な式だしなあ

**デフォルトの名無しさん** · 2022/11/06(日) 08:11:23.79

Haskell
sum [1..10]

**デフォルトの名無しさん** · 2022/11/06(日) 08:35:41.45

>>861で終了じゃん
最適化して55でも良いけど

中途半端に和の公式使ってるヤツってアホなの？

**デフォルトの名無しさん** · 2022/11/06(日) 09:08:00.03

一垓にそうは言えないのでは
ループを使わないの意味が多くの数でもすぐ答えがでそうな処理を見たいのかもしれない

**デフォルトの名無しさん** · 2022/11/06(日) 09:25:21.24

掛け算割り算だと中途半端でアホで
足し算だと利口だとおっしゃる

**デフォルトの名無しさん** · 2022/11/06(日) 09:33:05.99

和の公式を使うくらいなら55の方が良い
って話

なんで中途半端な最適化をするの？

**デフォルトの名無しさん** · 2022/11/06(日) 09:38:06.42

1^n + 2^n +・・・+(10^25)^n
n=10、　n=-17
の手段選ばすとかは?
25条はぎりふつうループでは困難かとおもえる数値を適当にいまおもいついた

**デフォルトの名無しさん** · 2022/11/06(日) 10:54:00.31

= 10+（9+1）+（8+2）+（7+3）+（4+6）+5
= 10+10+ 10+ 10+ 10+ 5
= 10 + (10 * ((10/2)-1))+5
= (10 * ((10/2)-1))+10+5
= x(0.5x-1)+1.5x

**デフォルトの名無しさん** · 2022/11/06(日) 12:06:08.03

こうどなじょうほうせん　を愉しむための問題でしょ

**デフォルトの名無しさん** · 2022/11/06(日) 15:29:02.07

と思って>>863を書いたんだけど

**デフォルトの名無しさん** · 2022/11/06(日) 15:33:43.73

1～10の合計
1から10までの合計
じゃなくて
1～10までの合計
っていうのも気になった

**デフォルトの名無しさん** · 2022/11/06(日) 17:04:56.12

1~10までの実数の合計って言ってる奴は有限の値に収束するとでも思っているか