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

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

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

1(7): 2019/05/18(土)17:33 ID:BWmpW4IF(1) AAS
プログラミングのお題スレです。

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

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

【ソースコードが長くなったら】 (オンラインでコードを実行できる)
外部ﾘﾝｸ:ideone.com
省10

903(1): 2019/07/23(火)16:42 ID:0hlsR1TA(1) AAS
Sは左上、Eは右下、盤面は正方形で良いのか？それともそれ以外のパターンも考慮しなきゃいけないのか

904: 836 2019/07/23(火)17:53 ID:5GIBUFQK(3/4) AAS
>>903
正方形ではなく、長方形だね

マスの座標は、行列の順で、開始点は( 行0, 列0 )

漏れは、盤面の周囲に、番兵を置いて、考えてます

905: 896 2019/07/23(火)18:05 ID:GpNXeX+q(1/2) AAS
>>901
うん、ぼけてた
コスト20やなｗ

問2で盤面サイズが奇数x偶数とかの場合はゴールはどう考えればいいの？　同時移動だとすれ違っちゃうが
Sが常に先に動く (Eが居るところで合流)
Eが常に先に動く (Sが居るところで合流)
SとE好きな方が先に動く (コストが低いマスの方で合流)
SとEが同時に動く (すれ違って合流できない？中間点で合流？その場合のコストは？)

たとえば S12E とかの場合

906(1): 836 2019/07/23(火)20:32 ID:5GIBUFQK(4/4) AAS
盤面のサイズが偶数では、問2 は無理

必ず、奇数×奇数

908(1): 2019/07/23(火)22:05 ID:GpNXeX+q(2/2) AAS
>>906
偶数×偶数も行けるやろ
偶数×奇数、奇数×偶数は無理だが

909(1): 2019/07/24(水)14:07 ID:i9YSslum(1) AAS
目の前で出会うことが目的じゃないの？

910(7): 2019/07/25(木)16:00 ID:JLY47fmQ(1) AAS
任意の整数を引数に取り、フィボナッチ数か判別するisfib関数を作れ。
なお、フィボナッチ数では無い場合任意の整数と-1の組(Cなどは代わりの物)を、
フィボナッチ数ならフィボナッチ数=任意の整数とそれがフィボナッチ数列の何番めかを表す数の組を返す事。

例:
isfib 0 = (0,1)
isfib 1 = (1,2)
isfib 2 = (2,4)
isfib 3 = (3,5)
isfib 4 = (4,-1)
isfib 5 = (5,6)

911: 2019/07/25(木)18:03 ID:D8pzUtDE(1) AAS
>>910
Common Lisp
外部ﾘﾝｸ:pastebin.com

出力
(loop for i from 0 to 6 do (isfib i))
(0 . 1)
(1 . 2)
(2 . 4)
(3 . 5)
(4 . -1)
省2

912: 2019/07/26(金)01:20 ID:E/v28Z/A(1) AAS
>>910 Perl5

sub isfib {
　$v = shift;
　%h = map{$_ => $_} @s = (0,1);
　do {
　　$f = $s[-2] + $s[-1];
　　push @s, $f;
　　$h{$f} //= @s;
　} while $f < $v;
　($v, $h{$v} // -1);
省10

913(1): 2019/07/26(金)06:33 ID:NUjZudpe(1) AAS
>>910 Lua
function isFib(n)
　　local a, b, c = 0, 1, 1
　　while a < n do
　　　　a, b, c = b, a + b, c + 1
　　end
　　if a ~= n then c = -1 end
　　return n, c
end

914: 836 2019/07/26(金)09:34 ID:54Ib42km(1) AAS
>>908-909
確かに、偶数×偶数は、
同じターンで、同じマスに入れますね！

S1
2E

S12
34E

915: 2019/07/26(金)09:50 ID:rMhs1i6l(1) AAS
>>910
戻り値がbooleanじゃないのが気持ち悪い

916(1): 2019/07/26(金)21:09 ID:D2C6zjmj(1) AAS
>>913
4のとき
isfib 4 = (5,-1)
にならない?

917(1): 2019/07/26(金)22:09 ID:wMkqv1Wf(1) AAS
「何番目かを返す」ってのが地味に難しいな
そこまでの全てのフィボナッチ数を求めないと無理じゃね？

918: 2019/07/26(金)22:53 ID:XK3Q7RTy(1/3) AAS
>>916 勘違いした
isfib 4 = (4,-1)
になる。合っている。

919: 2019/07/26(金)23:11 ID:PBeJ5BeU(1/2) AAS
キャッシュ層込みの問題だな

920(3): 蟻人間 ◆T6xkBnTXz7B0 2019/07/26(金)23:31 ID:HmAxaouE(1/4) AAS
お題: 水素原子、酸素原子、炭素原子からなる分子の化学式が与えられる。原子の種類と個数から考えられる分子構造をデータ構造で表現し、コンソール画面に可能なかぎり表示しなさい。

(例)
H2O --> H - O - H
CO2 --> O = C = O
CH4 -->
　 H
　|
H- C - H
　　|
　　H

921(1): 蟻人間 ◆T6xkBnTXz7B0 2019/07/26(金)23:39 ID:HmAxaouE(2/4) AAS
(例2) 図式化が難しければ、データ構造だけでもいい。

CO2 → (C, O, O), ((0, 1), (0, 2)).
H2O → (H, H, O), ((0, 2), (1, 2)).
CH4 → (C, H, H, H), ((0, 1), (0, 2), (0, 3)).

922: 2019/07/26(金)23:40 ID:XK3Q7RTy(2/3) AAS
>>920
サンプル回答ｷﾎﾞﾝﾇ

923: 蟻人間 ◆T6xkBnTXz7B0 2019/07/26(金)23:42 ID:HmAxaouE(3/4) AAS
>>921
訂正。
CH4 → (C, H, H, H, H), ((0, 1), (0, 2), (0, 3), (0, 4)).

924: 2019/07/26(金)23:45 ID:PBeJ5BeU(2/2) AAS
>>920
ベンゼン寒とかシクロヘキサン
3、5つあたりも鬼門か？

925: 蟻人間 ◆T6xkBnTXz7B0 2019/07/26(金)23:47 ID:HmAxaouE(4/4) AAS
図式化は不可能に近いようだ。データ構造だけでOK.

926: 2019/07/26(金)23:48 ID:XK3Q7RTy(3/3) AAS
そいうこと考えてから出題ヨロ

927: 蟻人間 ◆T6xkBnTXz7B0 2019/07/27(土)00:19 ID:P0VdsVRX(1/3) AAS
備考。

ここでは単純のために「結合の手」を使ったモデルで考える。
原子によって結合の手の個数は決まっている(Cは4個、Oは2個、Hは1個)。
結合の手が余らないような分子構造のみを考える(一酸化炭素COのような構造は除外する)。

928: 蟻人間 ◆T6xkBnTXz7B0 2019/07/27(土)00:22 ID:P0VdsVRX(2/3) AAS
電荷を持たない分子だけを対象とする。イオンではない。

929: 2019/07/27(土)00:24 ID:A58wSpEe(1) AAS
ヨーク考えて、出題するレベルに練りあがってから出直したらどうですか

930(1): 2019/07/27(土)03:29 ID:IOXz7NXW(1) AAS
うわーおQZってまだ生きてたのか
昔NG推奨にしてスレ立てたような気がしたんだが

931: 2019/07/27(土)06:20 ID:vbPXi5Ru(1) AAS
>>930
以下のレスのように、相変わらず身勝手なレスを繰り返してるよ

2chｽﾚ:tech

932(2): 2019/07/27(土)06:23 ID:Okexx4cI(1/7) AAS
>>917
一般項 f(n) = (φ^n - (-φ)^(-n)) / sqrt(5) はnに対して狭義単調増加なので逆写像 fi(n) が存在して当然 fi・f(n) = n が成り立つ。
従って「そこまでの全てのフィボナッチ数を求めないと無理」は偽である。

933: 2019/07/27(土)06:26 ID:Okexx4cI(2/7) AAS
>>920
化学式と分子構造は一対一対応してねえよ
そんなの今日日高校生ですら理解してるわ
二度と書き込むな

934(5): 2019/07/27(土)10:14 ID:yKuZ7Tou(1) AAS
お題
非負整数m, nに対し、
f(m, n)= n+1 if m==0
f(m, n) = f(m-1, 1) if n == 0
f(m, n) = f(m-1, f(m, n-1)) otherwise
なるf(m, n)の値を求めよ

f(2, 1) = ?
f(4, 1) = ?

935: 2019/07/27(土)10:45 ID:aB6NIKG8(1/16) AAS
>>910
外部ﾘﾝｸ:ideone.com
C++。どや！

936: 2019/07/27(土)10:56 ID:aB6NIKG8(2/16) AAS
>>934
外部ﾘﾝｸ:ideone.com
C++。2個目がスタックオーバーフローだと思う。

937(1): 2019/07/27(土)11:08 ID:tV8GDyIW(1) AAS
>>932
あのさ、簡単に言うけどその逆関数は複素関数になるぞ
そこまで言うなら逆関数を使ってnを求めるプログラムを書いてみろ
ここはム板だ

938: 2019/07/27(土)11:11 ID:1cAkezH+(1/4) AAS
>>934
perl5
外部ﾘﾝｸ:pastebin.com

f(4,1) はPCが帰ってこなくなったからやらない
f(2,1) は5だった

939: 2019/07/27(土)11:57 ID:g91Bo5NE(1) AAS
>>934
C++
外部ﾘﾝｸ:ideone.com

940: 2019/07/27(土)12:10 ID:aB6NIKG8(3/16) AAS
え？メモ化したら解けるの？？
ガーン。

941(1): ◆QZaw55cn4c 2019/07/27(土)12:26 ID:BeYdmmLD(1/3) AAS
お題と回答
5 : 6 10 32 36 44
9 : 15 34 35 79
11=575 : 48 (78) 138-139 (140) 142 146 151 154
19 :
50, 2chｽﾚ:tech : 4 85 89
2chｽﾚ:tech == 164 : 59 61 167 169 189 192 201 202
90 : 95 96
99 :
200 : 214 219
省20

942(1): ◆QZaw55cn4c 2019/07/27(土)12:27 ID:BeYdmmLD(2/3) AAS
655 :
661 :
683 : 685
695,704,716,721 : 696 697 701 703 711 713 714 715 718 722 723 724 727 740-741
708 : 714
717 :
752 :
753 : (760)
767 : 775
778 : 779 788 (792) 794
省9

943: 2019/07/27(土)12:28 ID:aB6NIKG8(4/16) AAS
外部ﾘﾝｸ:ideone.com
C++。constexprでもダメだったよ。

944: 2019/07/27(土)12:36 ID:1cAkezH+(2/4) AAS
ああまただよ(笑)

945: 2019/07/27(土)12:37 ID:aB6NIKG8(5/16) AAS
d　-_-　b

946: 2019/07/27(土)13:05 ID:hLAGzHLQ(1) AAS
>>941-942
統合失調症患者はどっか逝け

947: 2019/07/27(土)14:28 ID:eTs80TG9(1) AAS
お題: cpu温度を表示せよ

948(2): 2019/07/27(土)15:01 ID:Okexx4cI(3/7) AAS
>>937
論点ずらすな
「〜は無理」って言ってるからそれを否定しただけ
ただ 1 <= n <= 2 で狭義単調増加じゃないからそこだけは訂正しておくが

てかどんな頭で考えたらこの逆関数が複素関数になるんだか
可哀そうだから答え書いといてあげるけどさ
fi(x) = (log(sqrt(5) * x + sqrt(5 * x^2 - 4 * (-1)^((x + 1) % 3))) - log(2)) / log(φ)

949(1): 2019/07/27(土)15:15 ID:b5LHfPHC(1/2) AAS
>>948
CやC++で ^ はXOR演算子なんだが

950: 2019/07/27(土)15:20 ID:aB6NIKG8(6/16) AAS
ファイが何を指しているか・・・わからない・・・。
その定数5のいみがわからない。

そんな、ホラー。

951(2): 2019/07/27(土)15:23 ID:Okexx4cI(4/7) AAS
動物園かよここは……

黄金比 φ := (1 + sqrt(5)) / 2

>>949
お前は一生クワス算でもやってろ

952(1): 2019/07/27(土)15:26 ID:b5LHfPHC(2/2) AAS
>>951
そんなもん知ってるわアホ
上から目線で偉そうに

953: 2019/07/27(土)15:28 ID:Okexx4cI(5/7) AAS
>>952
意味不明すぎてくっそ笑ったｗｗｗ
自らの頭の悪さにキレててウケる

954: 2019/07/27(土)15:29 ID:IpJBqisA(1) AAS
おおかた、数学的には反論できなくて悔しくなってｃ++では〜などという難癖をつけたのだろう
これ以上はスレチだからどっかよそでやれ

955: 2019/07/27(土)15:31 ID:O5H2zazt(1) AAS
反論とかワロス
数学板でやれ

956: 蟻人間 ◆T6xkBnTXz7B0 2019/07/27(土)15:33 ID:P0VdsVRX(3/3) AAS
phi

957: 2019/07/27(土)15:35 ID:d+qHn5lK(1) AAS
数学(?)の話してんのにCやC++で ^ はXOR演算子なんだがとかいうやつ初めて見たわ
無能アピールだとしたらこれ以上ないくらいに効果出てるな

958: 2019/07/27(土)15:40 ID:z4Poa3yK(1) AAS
数学の話は数学板で

959: 2019/07/27(土)15:40 ID:7QbyGuYU(1) AAS
＞そこまで言うなら逆関数を使ってnを求めるプログラムを書いてみろ！
どうせ無理だと思ってタンカを切ったら相手にあっさり答えを書かれてしまう（ついでに自分の間違いまで指摘されてしまう）
もし俺がこいつだったら、恥ずかしくなりすぎてXOR演算子云々で話をうやむやにする気持ちもわかるぞ

960(1): 2019/07/27(土)15:48 ID:aB6NIKG8(7/16) AAS
>>951
外部ﾘﾝｸ:ideone.com
C++。コードに落としてみたけど、数学解らないから教えて。
フォークしてもいいよ。

961: 2019/07/27(土)15:51 ID:aB6NIKG8(8/16) AAS
作ってて思ったのはね。
片方の関数は、フィボナッチ数知らないと動作しないのじゃないかということ。
片方の関数は、フィボナッチ数もとめにいくんだけど。

んで、鳥と卵の問題に見えるので、どういう風に使えばよいのかわからない。

962: 2019/07/27(土)15:52 ID:3aZcsmVe(1) AAS
答え：カモノハシ

963(1): 2019/07/27(土)15:57 ID:Okexx4cI(6/7) AAS
>>960
Fiの分子が微妙に違ったので訂正しておいたよ
外部ﾘﾝｸ:ideone.com

964(1): 2019/07/27(土)16:04 ID:f7WK2xYd(1) AAS
炎上学習法か
例の頭のおかしな人かな？

965: 2019/07/27(土)16:04 ID:1cAkezH+(3/4) AAS
あの逆関数？を単純に放りこんだら解けなかった
一筋縄じゃいかないね

Solve[(Log(Sqrt(5) * x + Sqrt(5 * x^2 - 4 * (-1)^((x + 1) % 3))) - Log(2)) *2/(1 + Sqrt(5)) ==5,x]
Solve::nsmet: This system cannot be solved with the methods available to Solve.

966: 2019/07/27(土)16:07 ID:1cAkezH+(4/4) AAS
() [] に上の式を正しくなおしたがやはりだめだ

967: 2019/07/27(土)16:08 ID:7aZqje0Z(1) AAS
>>964
お前もまだいたの

968(1): 2019/07/27(土)16:08 ID:aB6NIKG8(9/16) AAS
>>963
外部ﾘﾝｸ:ideone.com
幾つかNANになったのはコンピュータの問題かなぁ？？
あんまり詳しくないんだけど。

中央値がきれいに取れてるので、境界線系のエラーもあり得る。

969: 2019/07/27(土)16:13 ID:aB6NIKG8(10/16) AAS
しかしまー、数式で可逆式まで考えられるモノなのだねぇ。感心するわ。。。

970: 2019/07/27(土)16:27 ID:aB6NIKG8(11/16) AAS
>>910　の題意からすると、こんな感じ？
外部ﾘﾝｸ:ideone.com

>>932の「有効」でエンド。

971: 2019/07/27(土)16:30 ID:aB6NIKG8(12/16) AAS
いや、「技あり」か。

972(3): 2019/07/27(土)16:48 ID:Okexx4cI(7/7) AAS
>>968
それのstd::pow(-1, 〜) が問題なので書き換えた
多少の誤差はあれどn = 2 を除いて右側の数字は0, 1, ..., 127と並んでいるよね
外部ﾘﾝｸ:ideone.com

973: 2019/07/27(土)16:51 ID:aB6NIKG8(13/16) AAS
>>972
大体、求まってるね。

あなたつよいわ〜。
ここまで出来たら、あとは見せ方。

974: 2019/07/27(土)16:54 ID:aB6NIKG8(14/16) AAS
念のため言っておくと、ideonは実行後コードと同じページにstdoutを表示する。

975: 2019/07/27(土)16:59 ID:aB6NIKG8(15/16) AAS
>>972
三項演算子は、返す型が同じじゃないとエラーを吐く。
doubleとchar[]になってる。

976: 2019/07/27(土)17:02 ID:aB6NIKG8(16/16) AAS
お、動いたか。

とりあえず、この辺で抜けるわ。
まったねー。

977(1): ◆QZaw55cn4c 2019/07/27(土)20:21 ID:BeYdmmLD(3/3) AAS
>>934
アッカーマン関数であることにやっと気がつきました…

978: 2019/07/27(土)20:47 ID:POROMEeh(1) AAS
>>977
どうてもいいけどお前は荒らすな

979(1): 2019/07/27(土)22:43 ID:JtBf7oRg(1/2) AAS
>>972
誤差ないプログラム書けよ

980(1): 2019/07/27(土)23:00 ID:JtBf7oRg(2/2) AAS
>>948
その式自分で考えた？
あと、>>934 の回答としてnが小さいときだけとか制約がある？

981(4): 2019/07/28(日)01:17 ID:+ByOW8ha(1) AAS
お題
括弧のネストの深さの最大値を求めよ
括弧の対応が取れていない場合は-1を出力せよ

"{}" => 1
"}{" => -1
"" => 0
"{{{}{}}}{}" => 3

982: 2019/07/28(日)02:35 ID:/N9EqgUo(1/3) AAS
>>981
python3
外部ﾘﾝｸ:ideone.com

983: 2019/07/28(日)04:13 ID:QWXlr9dJ(1) AAS
>>910
Pythonで素直に書くとこんな感じ。

外部ﾘﾝｸ:ideone.com

これをそのままHaskellで書くと負けるが、こっちならPythonに勝つる。

外部ﾘﾝｸ:ideone.com

984: 2019/07/28(日)06:16 ID:YNZYuVVC(1) AAS
>>981 Ruby

f = -> str {s = -str; (0..1.0/0).each{|i| s.gsub!('{}', '') || (break s.size.zero? ? i : -1)}}
['{}', '}{', '', '{{{}{}}}{}'].each{|e| puts "%p => %d" % [e, f[e]]}

# =>
"{}" => 1
"}{" => -1
"" => 0
"{{{}{}}}{}" => 3

985: 2019/07/28(日)12:26 ID:/N9EqgUo(2/3) AAS
>>981
perl5
外部ﾘﾝｸ:ideone.com

言語変えたらより見やすくなった

986: 2019/07/28(日)14:44 ID:NJaTvOic(1) AAS
>>981 Perl5

use List::Util 'max';
%h = qw({ 1 } -1);
for ('{}', '}{', '', '{{{}{}}}{}') {
　($l, $m) = (0, 0);
　for (map{$h{$_}} split'') {
　　$l += $_;
　　$m = max $l, $m;
　　last if $l < 0;
　}
省9

987: 2019/07/28(日)16:06 ID:T1A0+dDM(1) AAS
>>979-980
もともと提示されてたのは式だけだし、式自体に誤差はないじゃん。アホなの？
てかさ、(-1)^((x+1)%3)で場合分けを吸収してるところは素直に上手いなぁとは思うけど元のフィボナッチ数列の式からの変形自体は高校生レベルじゃんこれ
「自分で考えたの？」てお前アホなの？
誰が解いても上の部分以外は同じになるっつーの

「2次方程式の解の公式で解きました！」
「その公式って自分で考えたの？」
くらい間抜けでアホ馬鹿丸出し生きる価値無し短小包茎白癬菌

988: 2019/07/28(日)17:09 ID:a6lmPEp9(1) AAS
むきになって長文書くなよ
迷惑行為だぜ

989: 2019/07/28(日)17:23 ID:6a78I9O8(1) AAS
基地外だから仕方ないね

990: 蟻人間 ◆T6xkBnTXz7B0 2019/07/28(日)18:48 ID:38YML8XX(1) AAS
そろそろ次のスレ

991: [age] 2019/07/28(日)18:51 ID:vDw8KJqW(1) AAS
まだ早い

992(2): 2019/07/28(日)19:41 ID:832c/ukY(1) AAS
次スレ
2chｽﾚ:tech

993: 2019/07/28(日)19:42 ID:bnGezINl(1) AAS
>>992
おつ

994(1): ◆QZaw55cn4c 2019/07/28(日)23:35 ID:GPK25ks7(1/2) AAS
>>992
お疲れさまです…

995(1): 2019/07/28(日)23:40 ID:/N9EqgUo(3/3) AAS
>>994
書き込み禁止

996: ◆QZaw55cn4c 2019/07/28(日)23:50 ID:GPK25ks7(2/2) AAS
>>995
はいはい&hearts;

997: 2019/07/29(月)20:09 ID:p0mLxaof(1) AAS
お題: このスレッドのアンカーの数を出力せよ

998: 2019/07/29(月)20:11 ID:VkmvAKd6(1) AAS
w3m 2chｽﾚ:tech| grep -o ">>[0-9]" | wc -l
909

あれのせいだな

999: 2019/07/30(火)05:43 ID:RYwsY7rK(1/2) AAS
>>164
あまり他の言語にない redo を使う perl5
外部ﾘﾝｸ:ideone.com

1000: 2019/07/30(火)07:12 ID:RYwsY7rK(2/2) AAS
>>417
13694289/134217728
を使えば満足するだろうか？なぜなら
(rational
0.102030405060708090
10011012013014015016
01701801902002102202
30240250260270280290
30031032033034035036
03703803904004104204
省11

1001(1): 1001 ID:Thread(1/2) AAS
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 72日 13時間 39分 10秒

1002(1): 1002 ID:Thread(2/2) AAS
5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。

───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────

会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
省4

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

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙｱﾎﾞﾝOFF

ぬこの手ぬこTOP 0.202s*