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

**デフォルトの名無しさん** · 2019/05/18(土) 17:33:29.45

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

【出題と回答例】
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.5ch.net/test/read.cgi/tech/1549160513/

**デフォルトの名無しさん** · 2019/07/27(土) 16:04:59.65

あの逆関数？を単純に放りこんだら解けなかった
一筋縄じゃいかないね

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.

**デフォルトの名無しさん** · 2019/07/27(土) 16:07:23.94

() [] に上の式を正しくなおしたがやはりだめだ

**デフォルトの名無しさん** · 2019/07/27(土) 16:08:06.87

>>964
お前もまだいたの

**デフォルトの名無しさん** · 2019/07/27(土) 16:08:36.42

>>963
https://ideone.com/qN8CCx
幾つかNANになったのはコンピュータの問題かなぁ？？
あんまり詳しくないんだけど。

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

**デフォルトの名無しさん** · 2019/07/27(土) 16:13:46.18

しかしまー、数式で可逆式まで考えられるモノなのだねぇ。感心するわ。。。

**デフォルトの名無しさん** · 2019/07/27(土) 16:27:26.01

>>910　の題意からすると、こんな感じ？
https://ideone.com/WLv6dA

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

**デフォルトの名無しさん** · 2019/07/27(土) 16:30:29.90

いや、「技あり」か。

**デフォルトの名無しさん** · 2019/07/27(土) 16:48:31.50

>>968
それのstd::pow(-1, ～) が問題なので書き換えた
多少の誤差はあれどn = 2 を除いて右側の数字は0, 1, ..., 127と並んでいるよね
https://ideone.com/X7WSxR

**デフォルトの名無しさん** · 2019/07/27(土) 16:51:51.51

>>972
大体、求まってるね。

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

**デフォルトの名無しさん** · 2019/07/27(土) 16:54:46.18

念のため言っておくと、ideonは実行後コードと同じページにstdoutを表示する。

**デフォルトの名無しさん** · 2019/07/27(土) 16:59:41.70

>>972
三項演算子は、返す型が同じじゃないとエラーを吐く。
doubleとchar[]になってる。

**デフォルトの名無しさん** · 2019/07/27(土) 17:02:12.84

お、動いたか。

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

◆QZaw55cn4c · 2019/07/27(土) 20:21:38.01

>>934
アッカーマン関数であることにやっと気がつきました…

**デフォルトの名無しさん** · 2019/07/27(土) 20:47:31.60

>>977
どうてもいいけどお前は荒らすな

**デフォルトの名無しさん** · 2019/07/27(土) 22:43:52.75

>>972
誤差ないプログラム書けよ

**デフォルトの名無しさん** · 2019/07/27(土) 23:00:24.26

>>948
その式自分で考えた？
あと、>>934 の回答としてnが小さいときだけとか制約がある？

**デフォルトの名無しさん** · 2019/07/28(日) 01:17:00.04

お題
括弧のネストの深さの最大値を求めよ
括弧の対応が取れていない場合は-1を出力せよ

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

**デフォルトの名無しさん** · 2019/07/28(日) 02:35:31.10

>>981
python3
http://ideone.com/Nuqjvc

**デフォルトの名無しさん** · 2019/07/28(日) 04:13:25.02

>>910
Pythonで素直に書くとこんな感じ。

http://ideone.com/3HvxyP

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

http://ideone.com/iwLONj

**デフォルトの名無しさん** · 2019/07/28(日) 06:16:51.79

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

**デフォルトの名無しさん** · 2019/07/28(日) 12:26:21.14

>>981
perl5
http://ideone.com/HOpSCt

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

**デフォルトの名無しさん** · 2019/07/28(日) 14:44:03.09

>>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;
　}
　$m = -1 if $l;
　print "'$_' => $m\n";
}

実行結果
$ perl 14_981.pl
'{}' => 1
'}{' => -1
'' => 0
'{{{}{}}}{}' => 3

**デフォルトの名無しさん** · 2019/07/28(日) 16:06:00.72

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

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

**デフォルトの名無しさん** · 2019/07/28(日) 17:09:34.39

むきになって長文書くなよ
迷惑行為だぜ

**デフォルトの名無しさん** · 2019/07/28(日) 17:23:37.85

基地外だから仕方ないね

**蟻人間** ◆T6xkBnTXz7B0 · 2019/07/28(日) 18:48:49.76

そろそろ次のスレ

**デフォルトの名無しさん** · 2019/07/28(日) 18:51:08.82

まだ早い

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

次スレ
http://mevius.5ch.net/test/read.cgi/tech/1564310397/

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

>>992
おつ

◆QZaw55cn4c · 2019/07/28(日) 23:35:47.94

>>992
お疲れさまです…

**デフォルトの名無しさん** · 2019/07/28(日) 23:40:41.46

>>994
書き込み禁止

◆QZaw55cn4c · 2019/07/28(日) 23:50:56.98

>>995
はいはい&hearts;

**デフォルトの名無しさん** · 2019/07/29(月) 20:09:26.82

お題: このスレッドのアンカーの数を出力せよ

**デフォルトの名無しさん** · 2019/07/29(月) 20:11:57.84

w3m https://mevius.5ch.net/test/read.cgi/tech/1558168409/| grep -o ">>[0-9]" | wc -l
909

あれのせいだな

**デフォルトの名無しさん** · 2019/07/30(火) 05:43:03.94

>>164
あまり他の言語にない redo を使う perl5
http://ideone.com/46mcQl

**デフォルトの名無しさん** · 2019/07/30(火) 07:12:39.03

>>417
13694289/134217728
を使えば満足するだろうか？なぜなら
(rational
0.102030405060708090
10011012013014015016
01701801902002102202
30240250260270280290
30031032033034035036
03703803904004104204
30440450460470480490
50051052053054055056
05705805906006106206
30640650660670680690
70071072073074075076
07707807908008108208
30840850860870880890
90091092093094095096
0970980990100
)
13694289/134217728

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 72日 13時間 39分 10秒