プログラミングのお題スレです。
【出題と回答例】
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/
宿題は宿題スレがあるのでそちらへ。
※前スレ
プログラミングのお題スレ Part17
https://mevius.5ch.net/test/read.cgi/tech/1584031367/
プログラミングのお題スレ Part18
■ このスレッドは過去ログ倉庫に格納されています
2020/07/14(火) 13:53:46.47ID:jW5p6F/e
641デフォルトの名無しさん
2020/10/10(土) 08:25:49.31ID:qt6u2bFw642デフォルトの名無しさん
2020/10/10(土) 10:53:30.16ID:nh4sk35x >>640 自分で js
const t = `
`.charCodeAt()
console.log(t + t + "" + (t + t) + t + t)
const m = "ϲ".charCodeAt()
console.log(m + m + "" + m)
const t = `
`.charCodeAt()
console.log(t + t + "" + (t + t) + t + t)
const m = "ϲ".charCodeAt()
console.log(m + m + "" + m)
643デフォルトの名無しさん
2020/10/10(土) 12:06:27.17ID:0z4oJBva644デフォルトの名無しさん
2020/10/10(土) 14:54:47.61ID:iOujIiR/645デフォルトの名無しさん
2020/10/10(土) 14:57:00.84ID:iOujIiR/646デフォルトの名無しさん
2020/10/10(土) 15:40:40.94ID:Duwb5Fsi >>645
012にOIZ使うのセンスある
012にOIZ使うのセンスある
647デフォルトの名無しさん
2020/10/10(土) 18:37:22.80ID:jNM1f0U4648デフォルトの名無しさん
2020/10/10(土) 18:54:45.98ID:V01gi3BN >>647
Windowsでもそのままでいけるのか？
Windowsでもそのままでいけるのか？
649蟻人間 ◆T6xkBnTXz7B0
2020/10/10(土) 19:24:31.52ID:c6WyhNHP お題: 振動数1000Hzの音を１秒間発振せよ。
650デフォルトの名無しさん
2020/10/10(土) 19:32:24.80ID:53GLINoh651デフォルトの名無しさん
2020/10/10(土) 19:46:18.01ID:LCYuVeVr haskell
import Data.Maybe
main = print $ product $ map ((fromJust).(flip lookup (zip ['\t'..] [1..]))) "&myC"
import Data.Maybe
main = print $ product $ map ((fromJust).(flip lookup (zip ['\t'..] [1..]))) "&myC"
652デフォルトの名無しさん
2020/10/10(土) 21:44:48.33ID:0z4oJBva >>649 js
var ctx = new window.AudioContext
var osc = ctx.createOscillator()
osc.type = 'sine'
osc.frequency.value = 1000
osc.connect(ctx.destination)
osc.start()
osc.stop(1)
var ctx = new window.AudioContext
var osc = ctx.createOscillator()
osc.type = 'sine'
osc.frequency.value = 1000
osc.connect(ctx.destination)
osc.start()
osc.stop(1)
653デフォルトの名無しさん
2020/10/10(土) 23:07:21.98ID:t1LUP7rm >>640
haskell 改良
unicode = length . tail . (enumFromTo minBound)
main = print $ product $ map unicode "ാᝇ"
haskell 改良
unicode = length . tail . (enumFromTo minBound)
main = print $ product $ map unicode "ാᝇ"
654デフォルトの名無しさん
2020/10/10(土) 23:18:40.46ID:iOujIiR/655デフォルトの名無しさん
2020/10/11(日) 00:16:06.04ID:6GsmNhIZ >>640 JavaScript
[1+1,1-1,1+1,1-1,1,1-1,1,1-1].reduce((acc,n)=>acc+n,'')
[1+1,1-1,1+1,1-1,1,1-1,1,1-1].reduce((acc,n)=>acc+n,'')
656デフォルトの名無しさん
2020/10/11(日) 01:54:01.50ID:eYi6TEVp657デフォルトの名無しさん
2020/10/11(日) 08:58:57.96ID:luIvAMCe >>640 J
smoutput ,&":/ 'amp' i. 'papamama'
smoutput ,&":/ 'amp' i. 'papamama'
658デフォルトの名無しさん
2020/10/11(日) 11:20:41.53ID:eXVrSXVr >>640 bash
aa=1; bb=$((aa-aa)); cc=$aa$bb$aa$bb; printf "%d" $((cc+cc)) $cc; echo
aa=1; bb=$((aa-aa)); cc=$aa$bb$aa$bb; printf "%d" $((cc+cc)) $cc; echo
659デフォルトの名無しさん
2020/10/11(日) 17:59:24.67ID:/6XslNRS660デフォルトの名無しさん
2020/10/11(日) 18:12:54.16ID:eYi6TEVp661デフォルトの名無しさん
2020/10/11(日) 19:16:59.76ID:/6XslNRS >>635
Kotlin
https://paiza.io/projects/O1eUwROYKRQepDq3N-VyUA
paiza.io はHTMLで出力させてブラウザに表示できるのでカラーバーも出してみました。
Kotlin
https://paiza.io/projects/O1eUwROYKRQepDq3N-VyUA
paiza.io はHTMLで出力させてブラウザに表示できるのでカラーバーも出してみました。
662デフォルトの名無しさん
2020/10/11(日) 19:36:20.38ID:eYi6TEVp これは良いこと聞いた
663デフォルトの名無しさん
2020/10/11(日) 19:48:34.94ID:ki6dTuuo664デフォルトの名無しさん
2020/10/11(日) 20:05:13.72ID:FQjAt+Dq >>663
かわいい
かわいい
665デフォルトの名無しさん
2020/10/11(日) 20:30:57.80ID:vt3DXswM667蟻人間 ◆T6xkBnTXz7B0
2020/10/11(日) 23:57:26.40ID:4cQ/GxGI お題: 整数0〜10の一様分布の乱数を百回発生させて、その統計結果を基に各整数を横軸、回数を縦軸とする棒グラフ(ヒストグラム)を描画し(棒の最大幅32字)、ほぼ一様であることを確かめなさい。
668デフォルトの名無しさん
2020/10/11(日) 23:59:14.77ID:B+MSoWxK paiza.io は、text, html, json で出力できるのか
html も、部分的なタグだけを書いても動くのか
html も、部分的なタグだけを書いても動くのか
669蟻人間 ◆T6xkBnTXz7B0
2020/10/12(月) 00:01:01.03ID:rx5xRSFU670デフォルトの名無しさん
2020/10/12(月) 01:06:07.97ID:eqKg5iqj haskell
import Data.List
import System.Random
trial records = do
x <- randomRIO (0, 1) :: IO Double
return $ (truncate $ x * 11) : records
experience = iterate (>>= trial) (return [0..10])
showrecord (x,y) = let
clsstr = id
$ reverse
$ take 2
$ ( ++ (repeat '0'))
$ reverse
$ show x
barstr = replicate y '*'
in concat [ clsstr," ", barstr,"\n"]
main = do
records <- experience !! 100
putStr $ id
$ concat
$ map showrecord
$ map (\x -> (head x, length $ tail x))
$ group
$ sort
$ records
import Data.List
import System.Random
trial records = do
x <- randomRIO (0, 1) :: IO Double
return $ (truncate $ x * 11) : records
experience = iterate (>>= trial) (return [0..10])
showrecord (x,y) = let
clsstr = id
$ reverse
$ take 2
$ ( ++ (repeat '0'))
$ reverse
$ show x
barstr = replicate y '*'
in concat [ clsstr," ", barstr,"\n"]
main = do
records <- experience !! 100
putStr $ id
$ concat
$ map showrecord
$ map (\x -> (head x, length $ tail x))
$ group
$ sort
$ records
671デフォルトの名無しさん
2020/10/12(月) 01:14:47.03ID:hVCmG980672デフォルトの名無しさん
2020/10/12(月) 08:18:41.49ID:fHHXzdlp >>667
二項分布になるんじゃないかなあ
二項分布になるんじゃないかなあ
673デフォルトの名無しさん
2020/10/14(水) 15:32:12.46ID:M1NONSBM >>649 オーディオ系はシステム依存度が高いから余りサンプルが出てこないね。 WindowsやMacOSなら簡単そうだが
1kHz の音源ファイルを使うのは違反かな？
1kHz の音源ファイルを使うのは違反かな？
674蟻人間 ◆T6xkBnTXz7B0
2020/10/14(水) 17:27:12.50ID:TNR/wFHW675デフォルトの名無しさん
2020/10/14(水) 17:57:41.59ID:qOYZdiW9 答え出てきても試しようがない
676蟻人間 ◆T6xkBnTXz7B0
2020/10/14(水) 18:19:22.34ID:TNR/wFHW677蟻人間 ◆T6xkBnTXz7B0
2020/10/14(水) 18:24:27.45ID:TNR/wFHW678デフォルトの名無しさん
2020/10/14(水) 18:36:34.21ID:Azmo5ss/ シェル経由でSoX playコマンド呼んでるだけやんけ
Pythonもmacも関係ねぇわ
Pythonもmacも関係ねぇわ
679デフォルトの名無しさん
2020/10/14(水) 19:17:28.35ID:Y0U/d7P+ OSにつく前置詞はwithじゃなくてonだろハゲ
680デフォルトの名無しさん
2020/10/14(水) 19:30:29.09ID:pZU5VHHG 試すと音が出て煩そうだから試す気になれない。
681蟻人間 ◆T6xkBnTXz7B0
2020/10/14(水) 19:50:02.82ID:TNR/wFHW682デフォルトの名無しさん
2020/10/15(木) 00:45:55.69ID:BUh584nA >>678 iOS じゃ、play コマンドがなさそうなんだよな。
683デフォルトの名無しさん
2020/10/15(木) 01:18:37.79ID:fqrOjoDi 結局このスレで盛り上がるのは環境によらず言語によらず、でも多少は骨のあるようなお題なんだよな
へぇその言語ならそんなにキレイに書けるのかとか普段自分が使ってない言語ではどうやって実現できるのか眺めたりするのが面白い
音鳴らすなんてお題として面白いわけがない
へぇその言語ならそんなにキレイに書けるのかとか普段自分が使ってない言語ではどうやって実現できるのか眺めたりするのが面白い
音鳴らすなんてお題として面白いわけがない
684デフォルトの名無しさん
2020/10/15(木) 01:40:28.46ID:S6IC+plr ヒント：出題者
685デフォルトの名無しさん
2020/10/15(木) 11:44:28.12ID:cDg3UiVL 蟻人間さんへのお題：
文字列を受け取って、RFC 5322にしたがってSubjectヘッダを出力してください(MUST、SHOULDを満たすこと)
文字コードはUTF-8、エンコーディングはBエンコードを使用してください
文字列を受け取って、RFC 5322にしたがってSubjectヘッダを出力してください(MUST、SHOULDを満たすこと)
文字コードはUTF-8、エンコーディングはBエンコードを使用してください
686蟻人間 ◆T6xkBnTXz7B0
2020/10/15(木) 13:28:00.67ID:s1gNbcw/ >>685 Python
text = 'Re: Re: This is a subject text. This is a subject text. This is a subject text.'
if text[0:4] == 'Re: ':
＿＿while text[0:4] == 'Re: ':
＿＿＿＿text = text[4:]
＿＿text = 'Re: ' + text
import base64
text = 'Subject: ' + base64.b64encode(text.encode('utf-8')).decode('ascii');
ary = []
while len(text) > 78:
＿＿ary.append(text[0:78])
＿＿text = text[78:]
ary.append(text)
import platform
if platform.system() == 'Windows':
＿＿for item in ary:
＿＿＿＿print(item)
else:
＿＿for item in ary:
＿＿＿＿print(item, end="\r\n")
text = 'Re: Re: This is a subject text. This is a subject text. This is a subject text.'
if text[0:4] == 'Re: ':
＿＿while text[0:4] == 'Re: ':
＿＿＿＿text = text[4:]
＿＿text = 'Re: ' + text
import base64
text = 'Subject: ' + base64.b64encode(text.encode('utf-8')).decode('ascii');
ary = []
while len(text) > 78:
＿＿ary.append(text[0:78])
＿＿text = text[78:]
ary.append(text)
import platform
if platform.system() == 'Windows':
＿＿for item in ary:
＿＿＿＿print(item)
else:
＿＿for item in ary:
＿＿＿＿print(item, end="\r\n")
687蟻人間 ◆T6xkBnTXz7B0
2020/10/15(木) 13:49:36.74ID:IXtC9lOP688デフォルトの名無しさん
2020/10/15(木) 14:30:46.93ID:cDg3UiVL >>686
いろいろ違うので・・・メールのソース眺めたが良いです
いろいろ違うので・・・メールのソース眺めたが良いです
689デフォルトの名無しさん
2020/10/15(木) 19:14:52.90ID:QzXinxJa 頭の悪いお題を連投してるやつはやっぱり頭悪いんだな
690デフォルトの名無しさん
2020/10/15(木) 19:22:03.88ID:cDg3UiVL そんなことないと思うけどな
あまり他人の悪口言わない方が良いよ
あまり他人の悪口言わない方が良いよ
691デフォルトの名無しさん
2020/10/15(木) 19:28:33.00ID:QzXinxJa くっそみたいなお題延々と出し続けてウザいじゃん
692デフォルトの名無しさん
2020/10/15(木) 19:29:59.48ID:MTvivIgb >>629なんかはいいと思うんだけどな
eval使えないHaskellerにはいい練習問題になってる
eval使えないHaskellerにはいい練習問題になってる
693デフォルトの名無しさん
2020/10/15(木) 19:38:14.90ID:QzXinxJa ウェブアプリつくれだのGUIアプリつくれだの酷い事散々言いまくってるじゃん
◆QZaw55cn4cの方がまだマシ
◆QZaw55cn4cの方がまだマシ
694デフォルトの名無しさん
2020/10/15(木) 19:40:03.02ID:MTvivIgb まぁ音出せとかカラーバー出せとかはクソお題だな
695デフォルトの名無しさん
2020/10/16(金) 19:48:26.76ID:2tllxc0n お題
自然数nを 2進数にした時、 1が連続する個数の最大値を求める。
例
20201016 -> 5
自然数nを 2進数にした時、 1が連続する個数の最大値を求める。
例
20201016 -> 5
696デフォルトの名無しさん
2020/10/16(金) 20:25:28.88ID:YQH8/KbW haskell
import Data.List
maxConsOne = maximum . map length . filter ((==1).head) . group . unfoldr (\n ->if n == 0 then Nothing else Just (mod n 2, div n 2))
main = print $ maxConsOne $ 20201016
----
5
import Data.List
maxConsOne = maximum . map length . filter ((==1).head) . group . unfoldr (\n ->if n == 0 then Nothing else Just (mod n 2, div n 2))
main = print $ maxConsOne $ 20201016
----
5
697デフォルトの名無しさん
2020/10/16(金) 21:03:20.03ID:a9PKFHNt >>695 ruby
f = ->(n) {n.to_s(2).chars.chunk(&:itself).map {|k, a| k == '1' ? a.size : 0}.max}
f = ->(n) {n.to_s(2).chars.chunk(&:itself).map {|k, a| k == '1' ? a.size : 0}.max}
698デフォルトの名無しさん
2020/10/16(金) 21:35:06.98ID:XtprH8ZD >>695 JavaScript
const f = (n = 0) => Math.max(...(n.toString(2).match(/1+/g) ?? ['']).map(m => m.length))
console.log(f(20201016)) //=> 5
const f = (n = 0) => Math.max(...(n.toString(2).match(/1+/g) ?? ['']).map(m => m.length))
console.log(f(20201016)) //=> 5
699253
2020/10/16(金) 23:46:14.30ID:5gS0lg4h >>695 Perl5
use List::Util max;
print max map{length} sprintf('%b', 20201016) =~ /(1+)/g;
実行結果
$ perl 18_695_bin1.pl
5
use List::Util max;
print max map{length} sprintf('%b', 20201016) =~ /(1+)/g;
実行結果
$ perl 18_695_bin1.pl
5
700デフォルトの名無しさん
2020/10/17(土) 00:12:43.05ID:7ct7R1y+701デフォルトの名無しさん
2020/10/17(土) 00:24:53.85ID:u2s9P3C4 haskell
無名関数というインチキ使ってしまったので再挑戦バージョン
import Data.List
main = print $ maximum . map sum . group . map (flip mod 2) . takeWhile (/=0) . iterate (flip div 2) $ 20201016
無名関数というインチキ使ってしまったので再挑戦バージョン
import Data.List
main = print $ maximum . map sum . group . map (flip mod 2) . takeWhile (/=0) . iterate (flip div 2) $ 20201016
703デフォルトの名無しさん
2020/10/17(土) 01:58:38.41ID:S6LboNFt >>695 Ruby
n = 20201016
nl = 0
while n > 0
nl = ((nc = (n.odd?)? nc + 1 : 0) > nl)? nc : nl
n >>= 1
end
puts nl
n = 20201016
nl = 0
while n > 0
nl = ((nc = (n.odd?)? nc + 1 : 0) > nl)? nc : nl
n >>= 1
end
puts nl
704デフォルトの名無しさん
2020/10/17(土) 01:59:32.64ID:u2s9P3C4 >>702
125の時1になった
125の時1になった
705デフォルトの名無しさん
2020/10/17(土) 02:41:53.51ID:AbkDXvLA これだからQZ
708デフォルトの名無しさん
2020/10/17(土) 12:19:37.13ID:a+zi+w45709デフォルトの名無しさん
2020/10/17(土) 13:46:27.15ID:eBu6AjRf710デフォルトの名無しさん
2020/10/17(土) 18:57:16.23ID:S6LboNFt711デフォルトの名無しさん
2020/10/17(土) 19:11:03.54ID:wXdm0x1E >>710
うまいやり方だな。それには気付かなかった。
うまいやり方だな。それには気付かなかった。
712デフォルトの名無しさん
2020/10/17(土) 19:29:10.40ID:wXdm0x1E >>695
Kotlin script
2進数文字列に変換してから 0 を区切り文字にして分割してその中の一番長い文字列の長さを出すというやり方。
fun max1(n: Int) = n.toString(2).split('0').map { it.length }.max()
println(max1(20201016))
これで 5 が出る。
同じやり方を perl5 で(特にモジュール使わずに)やるとこんな感じ。
perl -e '$n=20201016; $m = (sort { $b <=> $a } map { length($_) } (split /0+/, sprintf("%b", $n)))[0]; print "$m\n"'
同じく5が出る。
Kotlin script
2進数文字列に変換してから 0 を区切り文字にして分割してその中の一番長い文字列の長さを出すというやり方。
fun max1(n: Int) = n.toString(2).split('0').map { it.length }.max()
println(max1(20201016))
これで 5 が出る。
同じやり方を perl5 で(特にモジュール使わずに)やるとこんな感じ。
perl -e '$n=20201016; $m = (sort { $b <=> $a } map { length($_) } (split /0+/, sprintf("%b", $n)))[0]; print "$m\n"'
同じく5が出る。
713デフォルトの名無しさん
2020/10/17(土) 20:05:12.33ID:vimxgZ9f >>695 JavaScript
let num = 20201016
let ans = num.toString(2).split`0`.sort().pop().length
console.log(ans) //=> 5
let num = 20201016
let ans = num.toString(2).split`0`.sort().pop().length
console.log(ans) //=> 5
714デフォルトの名無しさん
2020/10/17(土) 20:50:55.84ID:w8j3NnhR >>695 octave
https://ideone.com/dO1WZp
f = @(n) max(cellfun(@numel, strsplit(dec2bin(n), '0')));
f(20201016)
https://ideone.com/dO1WZp
f = @(n) max(cellfun(@numel, strsplit(dec2bin(n), '0')));
f(20201016)
715デフォルトの名無しさん
2020/10/17(土) 20:54:06.81ID:frzgm+pU716デフォルトの名無しさん
2020/10/17(土) 23:22:21.08ID:P3PLPttw いつもRubyの人からなにかしら学ぶことがある
717デフォルトの名無しさん
2020/10/18(日) 00:42:32.49ID:nYmbGZmV ハトにエサを与えないで下さい
718デフォルトの名無しさん
2020/10/18(日) 01:06:12.01ID:qT62bbHa QZは自分の頭が悪いのをわざわざ周知してもらうためにクソコードを晒すのか
ドMだな
ドMだな
719デフォルトの名無しさん
2020/10/18(日) 03:42:01.18ID:DpwMGaW+720デフォルトの名無しさん
2020/10/18(日) 04:21:53.35ID:xWXtsYNK >>700 のほうが速いと思うが
721デフォルトの名無しさん
2020/10/18(日) 04:36:21.54ID:F/EhVBet rubyよく分からないけど>>710の方が100倍くらいは速そうに思える
722デフォルトの名無しさん
2020/10/18(日) 05:53:44.51ID:28u9FaXE うん。速そうだね。数値計算しかしてないし。
723デフォルトの名無しさん
2020/10/18(日) 10:06:25.57ID:ARbR7jXS 20201016みたいに桁数が少ないならそうだけど桁数が増えるとルーブが答え×桁数回だからアルゴリズムそのものは遅い
桁数が少ないうちは内部関数しか使ってない利点で早いとは思うけど
桁数が少ないうちは内部関数しか使ってない利点で早いとは思うけど
724デフォルトの名無しさん
2020/10/18(日) 12:07:22.14ID:GUbLWvo/ >>723
>>700,710 をベンチマークで比較してみた
https://ideone.com/t0ZYLg
https://ideone.com/DUEWmC
20201016 では 5~6倍
巨大な数だと 7000倍以上
>>700,710 をベンチマークで比較してみた
https://ideone.com/t0ZYLg
https://ideone.com/DUEWmC
20201016 では 5~6倍
巨大な数だと 7000倍以上
>>693
残念ながら、私の出題もイマイチ人気がありませんでした‥‥
残念ながら、私の出題もイマイチ人気がありませんでした‥‥
726デフォルトの名無しさん
2020/10/18(日) 21:20:25.30ID:wanN/5Zd727デフォルトの名無しさん
2020/10/18(日) 21:43:52.67ID:wanN/5Zd728デフォルトの名無しさん
2020/10/18(日) 22:06:12.69ID:wanN/5Zd729デフォルトの名無しさん
2020/10/18(日) 22:14:01.64ID:wanN/5Zd730デフォルトの名無しさん
2020/10/18(日) 22:45:56.62ID:F/EhVBet >>724
x = n
while x != 0
x &= x << 1
i += 1
end
ruby知らないから適当に書いたけど
こんな感じにしないと二回目以降nが0でやってるっぽい
こうすると22倍くらいの差だった
x = n
while x != 0
x &= x << 1
i += 1
end
ruby知らないから適当に書いたけど
こんな感じにしないと二回目以降nが0でやってるっぽい
こうすると22倍くらいの差だった
731デフォルトの名無しさん
2020/10/18(日) 22:54:22.98ID:F/EhVBet 連続してるビット数が多いときはこの方が速くなったけど
すごいごちゃごちゃになった
i = 0
s = 1
x = n
while x != 0
t = x & (x << s)
if t == 0 then
if s == 1 then
i += 1
break
end
s = 1
else
x = t
i += s
s = (s << 1)
end
end
すごいごちゃごちゃになった
i = 0
s = 1
x = n
while x != 0
t = x & (x << s)
if t == 0 then
if s == 1 then
i += 1
break
end
s = 1
else
x = t
i += s
s = (s << 1)
end
end
732デフォルトの名無しさん
2020/10/18(日) 22:56:30.98ID:QW0aA1Hz >>724
GJ
GJ
733デフォルトの名無しさん
2020/10/19(月) 06:30:07.92ID:8QFJcUQW >>695
echo "obase=2; 20201016" | bc | sed 's/./&\n/g' | uniq -c | perl -lane 'if ($M < $F[0]) {$M = $F[0]}; END{print $M}'
5
echo "obase=2; 20201016" | bc | sed 's/./&\n/g' | uniq -c | perl -lane 'if ($M < $F[0]) {$M = $F[0]}; END{print $M}'
5
734724
2020/10/19(月) 15:26:08.35ID:u+lqDWSF735デフォルトの名無しさん
2020/10/19(月) 17:41:48.20ID:Sd7Rn+fr お題
2^(1/3)を百桁表示せよ
出力
1.2599210498948731647672106072782283505702514647015079800819751121552996765139594837293965624362550941543102560356156652593990240
参考
a(n+3) = 3*a(n+2) + 3*a(n+1) + an
a(1) = 3, a(2)=3, a(3)=15
で決まる数列について
min (a(n)/a(n+1), a(n+1)/a(n+2), a(n+3)/a(n+3) )
. < 2^(1/3)-1
. max (a(n)/a(n+1), a(n+1)/a(n+2), a(n+2)/a(n+3) )
で lim a(n)/a(n+1) = 2^(1/3)-1となる
2^(1/3)を百桁表示せよ
出力
1.2599210498948731647672106072782283505702514647015079800819751121552996765139594837293965624362550941543102560356156652593990240
参考
a(n+3) = 3*a(n+2) + 3*a(n+1) + an
a(1) = 3, a(2)=3, a(3)=15
で決まる数列について
min (a(n)/a(n+1), a(n+1)/a(n+2), a(n+3)/a(n+3) )
. < 2^(1/3)-1
. max (a(n)/a(n+1), a(n+1)/a(n+2), a(n+2)/a(n+3) )
で lim a(n)/a(n+1) = 2^(1/3)-1となる
736デフォルトの名無しさん
2020/10/19(月) 21:36:44.38ID:gq9726ze737デフォルトの名無しさん
2020/10/19(月) 22:00:17.27ID:gq9726ze >>735 Bash
$ echo "scale=100;e(l(2) / 3)" | bc -l
1.25992104989487316476721060727822835057025146470150
79800819751121552996765139594837293965624362550940
$ echo "scale=100;e(l(2) / 3)" | bc -l
1.25992104989487316476721060727822835057025146470150
79800819751121552996765139594837293965624362550940
738デフォルトの名無しさん
2020/10/19(月) 22:30:56.87ID:14xSvmON >>735 dc
dcには平方根の演算子はあるが立方根はないので
c^(1/3) = sqrt(c/sqrt(c/sqrt(c/...)))
と変形して適当に反復
100k[2z333>av/]dsaxp
1.2599210498948731647672106072782283505702514647015079800819751121552\
996765139594837293965624362550941
dcには平方根の演算子はあるが立方根はないので
c^(1/3) = sqrt(c/sqrt(c/sqrt(c/...)))
と変形して適当に反復
100k[2z333>av/]dsaxp
1.2599210498948731647672106072782283505702514647015079800819751121552\
996765139594837293965624362550941
739デフォルトの名無しさん
2020/10/19(月) 23:54:32.40ID:mPlPc+C9 >>735
参考を誰も参考にしてくれないのにワロタ
参考を元に作ったコード
Haskell
https://ideone.com/ywJPjx
ちなみにrubyのpi.rbが同じテクニック使ってます
そっちは定数係数でない三項間関係の漸化式パージョン
参考を誰も参考にしてくれないのにワロタ
参考を元に作ったコード
Haskell
https://ideone.com/ywJPjx
ちなみにrubyのpi.rbが同じテクニック使ってます
そっちは定数係数でない三項間関係の漸化式パージョン
740デフォルトの名無しさん
2020/10/20(火) 02:36:31.61ID:gFGmv7lM >>736
たしかに
たしかに
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 高市首相答弁を“引き出した”立民・岡田克也氏が改めて説明「なぜ慎重な答弁をされなかったのか。非常に残念に思っている」 ★10 [ぐれ★]
- トランプ氏「台湾侵攻すれば北京爆撃」“過激予告発言”報道がＸで再燃「高市氏の１億倍やばい」 [七波羅探題★]
- 【維新国会議員が800万円超の公金を使用】藤田文武共同代表が印刷代569万円を維新市議の「身内企業に支出」していた！ [ぐれ★]
- 【ペルソナ・ノン・グラータ】中国総領事の早期国外退去を首相に要請へ 自民・保守系グループ「日本の尊厳と国益を護（まも）る会」 [ぐれ★]
- 「母の部屋に安倍氏が表紙の機関誌が」「(安倍氏が被害者なのは)不思議に思いませんでした」山上被告の妹が証言 ★2 [おっさん友の会★]
- 【（・(ｪ)・）】収穫前のリンゴ2トン！丸々と太ったクマがリンゴ畑に連日現れ…一晩中居座る「こんなに食べられたのは初めて」長野・上田 [ぐれ★]
- 安倍晋三さん、完全にチェックアウトしてしまう…「母の部屋に安倍元首相が表紙の旧統一教会の機関誌があった」 [405019576]
- 中国報道、高市首相を「毒苗」と中傷😡 [399259198]
- 【朗報】国民民主と公明、企業団体献金規制法案提出WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
- 【高市悲報】🇨🇳中国「日本への報復措置？ 他にいくらでも方法はある。 まだまだやめないよ」 😨😱 [485983549]
- 【悲報】日本、パンダ0にwwwwwwwwwwww高市さんありがとう🐼 [271912485]
- 高市早苗、約1ヶ月でドル円・10円円安を達成 [256556981]