20/09/08 23:16:27.70 TMzoRSJV.net
>>511 の実行結果
~ $ cat 18_454_ex1.txt
5
5 4
2 3
3 2
3 4
4 4
~ $ cat 18_454_ex1.txt | go run 18_454_N_vztr_DP.go
4
~ $ cat 18_454_ex2.txt
11
3 2
2 3
3 4
4 4
5 4
4 7
5 7
6 7
7 7
8 7
7 10
~ $ cat 18_454_ex2.txt | go run 18_454_N_vztr_DP.go
5
522:253
20/09/09 09:03:14 GqQ7+Mc6.net
>>462 Python3
n = int(input())
a = [list(map(int, input().split())) for i in range(n)]
T = max([a[i][0] for i in range(n)])
m = [[0] * 11 for t in range(T+1)]
for i in range(n):
m[a[i][0]][a[i][1]] = 1
def v(t, p):
return m[t][p] if 0 < p and p < 11 else 0
for t in reversed(range(T)):
for p in range(1, 11):
m[t][p] += max(v(t+1, p-1), v(t+1, p), v(t+1, p+1))
print(m[0][1])
実行結果 (>>512 と同じﾃｷｽﾄﾌｧｲﾙ 18_454_ex1.txt, 18_454_ex2.txt を入力に使用)
~ $ cat 18_454_ex1.txt | python 18_454_N_vztr_DP.py
4
~ $ cat 18_454_ex2.txt | python 18_454_N_vztr_DP.py
5
523:253
20/09/09 09:34:15.87 GqQ7+Mc6.net
>>513
for p in range(1, 11):
m[t][p] += max(v(t+1, p-1), v(t+1, p), v(t+1, p+1))
を
for p in range(1, 11):
if t+1 < p: continue
m[t][p] += max(v(t+1, p-1), v(t+1, p), v(t+1, p+1))
とか書くと、右上三角の不要な計算を省けるが10^5などtが大きいと大勢に影響はないな…
524:デフォルトの名無しさん
20/09/10 01:27:25.37 8z9ZctT6.net
>>358
Java
URLﾘﾝｸ(paiza.io)
525:453
20/09/10 16:14:51.93 ypm5ktrY.net
お題
>>461
のルールに基いて、以下の3つの10進数のバイト列を、先頭(1バイト目)からチェックしていく時、
最初にルール違反となるのは、何バイト目か
129 130
120 169
240 159 146 206 184
526:デフォルトの名無しさん
20/09/10 22:23:57.36 8z9ZctT6.net
>>516
Java
URLﾘﾝｸ(paiza.io)
527:デフォルトの名無しさん
20/09/12 21:24:36.97 2KEhs3KT.net
お題：自然数nが現れる九九の表の最小サイズを求めよ
octave
URLﾘﾝｸ(ideone.com)
528:デフォルトの名無しさん
20/09/13 00:20:13.60 OR+CcCGz.net
>>518
Java
URLﾘﾝｸ(paiza.io)
529:デフォルトの名無しさん
20/09/13 00:35:46.34 42xWDo9L.net
>>518
Kotlin
URLﾘﾝｸ(paiza.io)
良いアルゴリズムが思いつかなかったのでほとんど力技。
530:蟻人間
20/09/13 22:12:25.49 p9JSm0uj.net
お題: 「ジャンケンすたじあむ オンライン」というソーシャルゲームのウェブサイト、もしくはソフトウェアパッケージを制作・運営せよ。
ジャンケンをしたい人が集まって、ひたすらジャンケンをして、勝ち数を競うというソーシャルゲーム。
ジャンケン試合は2人組になり、お互いに出す手を事前に申告し、両者が申告したところでシステムが自動で勝敗を判定する。
531:デフォルトの名無しさん
20/09/13 22:17:50.99 phcl8RYj.net
>>521
消えろ
532:デフォルトの名無しさん
20/09/13 22:22:25.86 lu6eiMc4.net
動的計画法ってちゃんと勉強しないとなかなか思いつかないよな
533:デフォルトの名無しさん
20/09/14 12:06:08.48 u8/qg5cq.net
>>518
Haskell
f x = head [ d | d <- [(ceiling $ sqrt $ fromInteger x)..], mod x d == 0]
main = mapM_ print [(x,f x) | x<-[100..130]]
534:蟻人間
20/09/14 14:12:59.44 /Fwk/gkb.net
お題: 沖縄の名物「シークワーサー」のことが書かれた記事のUTF-8日本語テキストファイル「input.txt」がある。
しかし、記事の執筆に多数の編集者が関わったため、シークワーサーの表記がぶれていることが分かった(次のリンクを参照)。
URLﾘﾝｸ(ja.m.wikipedia.org)
表記のぶれを「シークワーサー」に表記を統一したテキストファイル「output.txt」を出力せよ。
535:デフォルトの名無しさん
20/09/14 17:05:19.85 xV8mpaUY.net
エンジニアが書いてるならシークワーサだな
間違いない
536:蟻人間
20/09/14 17:29:10.23 yesAwSRz.net
>>525 input.txtの中身:
「シークヮーサーは、別名シイークワシャーと呼ばれ、シークヮーサーの香りがするシークヮーシャーのような柑橘系の果物である。シィークアーサーはアーサー王とは関係がないと思われる。」
537:デフォルトの名無しさん
20/09/14 18:00:53.92 wBiJ2Dx0.net
"/シ(?:イ?ー|ィー?)ク[アワァヮ]ー?(?:サ|シャ)ー?/シークヮーサー/g"
538:蟻人間
20/09/14 20:32:57.79 /Fwk/gkb.net
お題: お使いのプログラム言語で、COBOLに負けない最強の通貨型を設計せよ。
任意の桁数の10進整数を扱えること。
任意の有効桁数の10進小数を扱えること(10進浮動小数点数)。
加減乗除、剰余、任意桁での切り捨て・切り上げ・四捨五入が可能。
10進数表記で入出力できること。
比較的高速に演算できること。
539:蟻人間
20/09/14 20:55:28.62 /Fwk/gkb.net
1÷3をどう扱うかという問題があるようだ。
540:デフォルトの名無しさん
20/09/14 21:04:18.95 I0h6BMX6.net
割り算するときに桁数していするだけっしょ
541:デフォルトの名無しさん
20/09/14 21:07:19.27 I0h6BMX6.net
蟻人間さんにお題：銀行丸めを整数型のみを使用して実装してください
542:デフォルトの名無しさん
20/09/14 21:08:24.84 SHGAz9ig.net
>>526
草
543:デフォルトの名無しさん
20/09/14 21:24:52.09 6FD493+N.net
昔から思っているんだけど、分数で持っていて最後に一回だけ割り算するんじゃなんでいけないのかな?
544:デフォルトの名無しさん
20/09/14 21:26:17.95 6FD493+N.net
昔から思っているんだけど、分数で持っていて最後に一回だけ割り算するんじゃなんでいけないのかな?
545:デフォルトの名無しさん
20/09/14 21:49:38.28 SHGAz9ig.net
分子や分母に分数が入ってきた場合
精度の面で面倒なことになるぞ
546:蟻人間
20/09/14 23:12:41.48 yesAwSRz.net
>>532
URLﾘﾝｸ(ideone.com)
今日はここまで。
547:デフォルトの名無しさん
20/09/14 23:41:27.65 5nyvo7WN.net
>>537
一生ここまでにしろ
548:デフォルトの名無しさん
20/09/15 00:21:13.43 2J2Mo0F/.net
>>525
sed -r 's/シ([イィ]ー?|ー)ク[アァワヮ]ー?(サ|シャ)ー/シークワーサー/g'
-r は拡張正規表現を使うオプション。
これで >>527 の文を変換するとこうなる。
「シークワーサーは、別名シークワーサーと呼ばれ、シークワーサーの香りがするシークワーサーのような柑橘系の果物である。シークワーサ ーはアーサー王とは関係がないと思われる。」
549:蟻人間
20/09/15 02:31:45.89 39uvi0pE.net
現実問題では、long double型で十分な精度が出るから、独自の浮動小数点数は必要なさそう。
残りは四捨五入とか銀行丸めなどの端数処理。
550:デフォルトの名無しさん
20/09/15 09:10:08.88 gc4PCUOV.net
工ｴｴｪｪ(´д｀)ｪｪｴｴ工
551:デフォルトの名無しさん
20/09/15 14:07:27.97 2J2Mo0F/.net
bc コマンド使えば良い。
他の言語から使いたい場合はライブラリをリンクするか、またはこっそり裏で fork(), exec() してパイプで繋いで計算させるw
552:蟻人間
20/09/15 21:40:23.58 9dtbuAF3.net
>>537
URLﾘﾝｸ(github.com)
今日はここまで。足し算、引き算、掛け算を実装。
銀行丸めはもうちょっと待ってね。
553:デフォルトの名無しさん
20/09/15 21:59:54.94 ky+PawN1.net
>>543
誰も待ってないから一生滞ってろ
554:蟻人間
20/09/15 22:50:58.78 i370J0Ri.net
>>544
スレチ
555:蟻人間
20/09/15 22:54:46.37 i370J0Ri.net
>>544
とりあえずまあソースコードを読んで頂いてクレヨン。
556:デフォルトの名無しさん
20/09/15 22:56:56.50 ky+PawN1.net
ここはお前の日記帳じゃねぇっての
スレチはお前
557:デフォルトの名無しさん
20/09/16 10:06:16.52 eJDvfDFO.net
ぶぶ漬けどうぞと言われて、美味しくいただいてさらに食レポまで始めてるような状態かな
558:デフォルトの名無しさん
20/09/16 21:28:53.90 XXyygoNj.net
嫌味なことするなよ
559:デフォルトの名無しさん
20/09/17 00:07:22.39 jOQPl4C7.net
京都のおっかさんも口あんぐりやで
560:デフォルトの名無しさん
20/09/17 01:09:05.65 FJaokp+J.net
>>529 Python decimal でできるだろ。
URLﾘﾝｸ(docs.python.org)
561:デフォルトの名無しさん
20/09/17 07:37:06.63 Lu9ZyyRf.net
お題: (複数行のバックグラウンド、座標テキスト、座標）から合成テキストを返す関数を作れ
座標テキストとバックグラウンドは同じサイズ(とりあえず横4縦3とする)
background
┏┓┏┓
┃┗┛┃
┗━┛
座標テキスト
ab23
9014
8765
座標が
0なら
┏┓┏┓
┃*┛┃
┗━┛
6なら
┏┓┏┓
┃┗┛┃
┗━*┛
11なら
┏*┏┓
┃┗┛┃
┗━┛
あまり綺麗な実装が出来なかったから問題にした URLﾘﾝｸ(repl.it)
562:デフォルトの名無しさん
20/09/17 08:03:03.74 dVFtUKnH.net
>>552 Ruby
def analogClockStr( h, bg, positions )
(clockStr = bg.dup)[ positions.index( h.to_s(16) ) ] = '*'
clockStr
end
background = '
┏┓┏┓
┃┗┛┃
┗━┛
'.strip.freeze
positions = '
ab23
9014
8765
'.strip.freeze
puts analogClockStr( 0, background, positions )
puts analogClockStr( 6, background, positions )
puts analogClockStr( 11, background, positions )
563:デフォルトの名無しさん
20/09/17 08:08:23.20 Lu9ZyyRf.net
げっ確かに行ごとにreplace必要ないじゃん
何やってんだ俺
ありがとう
564:デフォルトの名無しさん
20/09/17 13:17:16.17 GTUBgTcD.net
>>552
問題の意味がわからない。
565:デフォルトの名無しさん
20/09/17 13:30:29.78 /h1W7gqa.net
>>552
くだらない質問スレか初心者質問スレ行け
566:デフォルトの名無しさん
20/09/17 13:34:08.96 Lu9ZyyRf.net
ほんとにどの問題よりもクソみたいな問題だと思っています
本当にすいませんでした
567:デフォルトの名無しさん
20/09/17 13:42:30.73 Lu9ZyyRf.net
た�
568:ｾ私は純粋にプログラミングが好きで 全く質問したかったわけじゃないのはわかってほしい 二次配列じゃないと処理できないものだと勘違いしていたのが甘いしシンプルにしすぎて問題が破綻してしまった
569:デフォルトの名無しさん
20/09/17 13:48:33.25 Lu9ZyyRf.net
純粋にここにいる人たちが解法として書くコードは好きだし
たまに驚くべき角度から解を出す人もいるしマイナーなアルゴリズムも知れて尊敬してる
今回もスマートなコードが見れるんじゃないかと純粋に期待して問題にしてみたんだ
スレも今流れ遅かったし
570:デフォルトの名無しさん
20/09/17 13:50:39.09 Lu9ZyyRf.net
しかしお前らは牙を向いた
純粋に問題作成初心者の心を無碍にして
鋭い刃のような言葉を投げつけてきた
お前らは今日から敵とみなす
あばよ😎✋絶望しな
571:
20/09/17 19:40:19.09 +AujTTfU.net
>>560
奏ちゃん「自意識過剰なんじゃないですか？」
572:デフォルトの名無しさん
20/09/17 22:33:12.99 H8Ldt8Jg.net
お題:文字列の末尾の数字をインクリメントしてください
入力
IB0AAYR8ZZcUXLxKmL1ow8RxZAAUCS1j6pYOJo9n52mwITWoimM3UArCpKAGzSRZrA1vUpAerENynuJXTYuJb9HlO9NZvHdpFvCMsThVOnxhgx3T5jCfRhanH4bJJOvjoaTMdixKg4TC90zOCwyeVKJ62KAgv47P72sfPsQaH8jaG8yWnqbwtyv0OeKZa7qISm6g2MHrOlNb8RVzt36jau1hYCqKuuUBGLGuFToYptzqjkfdAoxAqqmeQO7PVcUS
出力
IB0AAYR8ZZcUXLxKmL1ow8RxZAAUCS1j6pYOJo9n52mwITWoimM3UArCpKAGzSRZrA1vUpAerENynuJXTYuJb9HlO9NZvHdpFvCMsThVOnxhgx3T5jCfRhanH4bJJOvjoaTMdixKg4TC90zOCwyeVKJ62KAgv47P72sfPsQaH8jaG8yWnqbwtyv0OeKZa7qISm6g2MHrOlNb8RVzt36jau1hYCqKuuUBGLGuFToYptzqjkfdAoxAqqmeQO8PVcUS
573:デフォルトの名無しさん
20/09/17 22:56:25.54 ockp6LF+.net
>>562 vim
?\d<CR><C-a>
574:デフォルトの名無しさん
20/09/17 23:01:20.65 ockp6LF+.net
>>562 Ruby
$><<gets.sub(/\d+(?=\D+$)/, &:succ)
# => IB0AAYR8ZZcUXLxKmL1ow8RxZAAUCS1j6pYOJo9n52mwITWoim
M3UArCpKAGzSRZrA1vUpAerENynuJXTYuJb9HlO9NZvHdpFvCMsThVOn
xhgx3T5jCfRhanH4bJJOvjoaTMdixKg4TC90zOCwyeVKJ62KAgv47P72sfP
sQaH8jaG8yWnqbwtyv0OeKZa7qISm6g2MHrOlNb8RVzt36jau1hYCqKuu
UBGLGuFToYptzqjkfdAoxAqqmeQO8PVcUS
575:デフォルトの名無しさん
20/09/18 01:44:05.02 hhldwLbP.net
>>562
Perl
コマンドラインで以下のように入力後に標準入力から文字列を読ませると標準出力に出力される。
perl -pe 's/(\d+)(\D+)$/($1+1).$2/ge'
あるいはファイルに内容を入れておいてそのファイルを指定する。
576:デフォルトの名無しさん
20/09/18 03:22:29.90 Pz26zoiQ.net
js
window.prompt().replace(/\d(?=\D+$)/,i=>i*1+1)
577:デフォルトの名無しさん
20/09/18 06:23:31.29 QICqPxzN.net
>>565
行末が数字のときに対応できない
perl -pe 's/(\d+)(\D*)$/($1+1).$2/e'
のほうがよくないかな
578:デフォルトの名無しさん
20/09/18 06:53:31.48 5l49iFOd.net
>>520
その場合の良いアルゴリズムって
「素因数分解を早く解くアルゴリズム」
よね。
それがもし思いついたらフィールズ賞ものではw
579:デフォルトの名無しさん
20/09/18 21:10:31.47 JxxZTRpA.net
>>562
Java
URLﾘﾝｸ(paiza.io)
580:デフォルトの名無しさん
20/09/18 21:36:05.11 JxxZTRpA.net
>>553
Java
URLﾘﾝｸ(paiza.io)
581:デフォルトの名無しさん
20/09/18 21:54:28.27 WsEcPr9A.net
>>562
haskell
theStr = "B0AAYR8ZZcUXLxKmL1ow8RxZAAUCS1j6pYOJo9n52mwITWoimM3UArCpKAGzSRZrA1vUpAerENynuJXTYuJb9HlO9NZvHdpFvCMsThVOnxhgx3T5jCfRhanH4bJJOvjoaTMdixKg4TC90zOCwyeVKJ62KAgv47P72sfPsQaH8jaG8yWnqbwtyv0OeKZa7qISm6g2MHrOlNb8RVzt36jau1hYCqKuuUBGLGuFToYptzqjkfdAoxAqqmeQO7PVcUS"
f x = let
(a,b) = span (\x-> (x<'0') || (x>'9')) $ reverse x
c = show $ (+1) $ read $ return $ head b
in reverse $ a++c++(tail b)
main = do
print $ f theStr
582:デフォルトの名無しさん
20/09/18 23:21:52.09 hhldwLbP.net
>>567
そうだった。 + じゃなくて * だったな。
583:253
20/09/18 23:34:45.95 /yEGF/vF.net
>>568
素因数分解まで行かない。
素でなくてもいいので因数のうちイチバン大きいもの。
なんかいい解法見つけられないか、考えているけどいまのところ見出せていない
584:253
20/09/18 23:36:27.35 /yEGF/vF.net
いや、違うな…
因数のうちイチバン大きいものでは、ﾀﾞﾒだわ
585:デフォルトの名無しさん
20/09/19 00:05:40.30 HLFklpM8.net
>>562
C
URLﾘﾝｸ(paiza.io)
正規表現を使わずに行末から一文字づつ行頭に向かって検索してやっている。
586:デフォルトの名無しさん
20/09/19 00:59:21.89 HX0Lirqs.net
√n以上の最小の約数
587:デフォルトの名無しさん
20/09/19 12:14:05.54 iLwsU5Ay.net
初出題
数学板の問題より
５つのサイコロの1～6の面がそれぞれ赤白黄青緑にそれぞれ
["byrbwg", "yrgwbb", "gbrwwy", "gyrbww", "gbrybw"]
と塗り分けられている
この状態では1-6を天地の軸として2～5の側面にはそれぞれ
["yrbyb","rgrrr","bwwby","wbwwb"]
となっている
それぞれのサイコロを適当に回転させて全ての側面にrwybgがちょうど一回ずつとなるようにしたい
そのような回転の組み合わせは何通りか
本質的に同じものを重複して数えるのを避けるために最初のサイコロの回転は
・動かさない
・1→2,2→3,3→1,4→6,5→4,6→5
・1→3,2→1,3→2,4→5,5→6,6→4
の3つのうちどれかのみを許すとする
(出力)
["yrbgbw","gbybrw","bgwryw","bygwwr","bwrygb"]
["yrbgbw","gbybrw","wywrgb","rwgwyb","bgrywb"]
["rbywgb","gyrbbw","wwgyrb","ygbrww","brwgyb"]
["rbywgb","wybrbg","wwgyrb","wgrbwy","brwgyb"]
588:デフォルトの名無しさん
20/09/19 15:12:41.86 BWMKzapi.net
ｽﾚﾘﾝｸ(math板:133番)-
わけわからん問題文にするなよ・・・
589:デフォルトの名無しさん
20/09/19 16:07:21.18 wSOXcncc.net
全然違って草
590:デフォルトの名無しさん
20/09/19 16:29:35.90 HLFklpM8.net
>>577
君が何を言わんとしているのかが全くわからない。
591:253
20/09/19 17:15:41.66 6KnxgpBj.net
>>518 Perl5、>>576にﾋﾝﾄを貰った通り√を使ってnaiveに書くと…
use POSIX 'ceil';
for $n (81, 87, 91) {
$r = ceil sqrt $n;
for ($r..$n) {
$i = $_;
last until $n % $_;
}
print "$n => $i\n"
}
実行結果
~ $ perl 18_509_99_naive.pl
81 => 9
87 => 29
91 => 13
計算量の少ないもう少しｶｯﾁｮｲｲ方法を見出せればなぁ…
592:デフォルトの名無しさん
20/09/19 21:37:57.70 HX0Lirqs.net
>>577です
やはりちょっと伝わらないですね
>>577
は取り下げます
593:デフォルトの名無しさん
20/09/19 21:39:46.15 HX0Lirqs.net
>>581
計算量減らすなら√n以下の最大の約数d求めてn/dを出力すれば計算量は減るな
594:デフォルトの名無しさん
20/09/19 21:40:46.29 wSOXcncc.net
減るというかそもそも計算量が同じというか
595:デフォルトの名無しさん
20/09/19 21:46:21.17 HX0Lirqs.net
イヤnが素数の場合に√nから上むきに探索すると計算量はnになるけど下向きなら√nになる
√n以上の約数と√n以下の約数は同数だけど整数そのものは下側には√nしかなく、上にはn-√nあるので下向きに探していった方が速い
596:デフォルトの名無しさん
20/09/20 00:25:54.87 ZGoKBb8Y.net
ポラード・ロー法使えばもっと計算量は減る
素数判定と組み合わせればモンテカルロ法ではなくラスベガス法になるから、正当性も担保される
597:デフォルトの名無しさん
20/09/20 01:39:54.18 wHMtOvf4.net
素因数分解利用するなら素因数分解そのものが手早くできてもダメでしょ？
それを何個か使って最も√nに近いもの探すのはかなり難しいんじゃなかったっけ？
つまり素因数分解n=Πpi^eiが与えられたとして、つぎは
0≦xi≦eiを動かすときΣxi log(pi) が1/2 log(n)に最も近くなるものを決定しなければならない
コレなんか名前ついてる問題で指数オーダーのアルゴリズムしか見つかってないんじゃなかったっけ？
素因子の数はlog(n)のオーダーで増えていくから、結局exp(c log(n)) のオーダーになって、cがどれくらいに収められるか、そもそも指数オーダー必要なのかも未解決なんじゃなかったっけ？
598:デフォルトの名無しさん
20/09/20 06:22:49.81 OZ4qNDWZ.net
>>585
素数判定はそもそも計算量少ない
599:デフォルトの名無しさん
20/09/20 10:19:03.22 mk/D54YH.net
>>588
√n以上の最小の約数をdとして上むき探索に必要な時間はすうがく/d-√n\、下向き探索のそれは\√n-n/d/ (/～\と\～/はfloorとceiling)
差は/d-√n\-\√n-n/d/ =\d+n/d-2√n/はam≧gmと\～/の広義単調性から0以上で上むき探索は素数であるか否かに限らず常に計算量は同じかそれ以上
素数であるか予備検査しても結局上向きに探索したら計算量は同じ以上かかる
600:デフォルトの名無しさん
20/09/20 10:50:48.99 g28HruB5.net
あ、間違えた
上向き探索の探索量はd-/√n\+1=/d-√n+1\で/~\はceiling
下向き探索の探索量は\√n/-n/d+1=\√n-n/d+1/で\~/はfloor
まぁ常に上向きの方が計算量は増える
まぁもちろんnをまともに素因数分解して>>587みたいな方法で√nオーダーより真に早いのがあるなら上向きも下向きもないけど、もうそこまで行ったら研究者レベルの話でしかない気がする
601:デフォルトの名無しさん
20/09/20 11:23:17.24 MLu0Cj9r.net
>>559-560
短いこの間でダークサイドに堕ちてて草
602:デフォルトの名無しさん
20/09/20 11:58:05.82 FaUtZa6z.net
>>591
お詫び→弁解→言い訳→逆ギレ
冷静に書いてたつもりが書いてくうちに興奮して見事なコンボを決めたようだ
603:デフォルトの名無しさん
20/09/20 12:47:09.77 MLu0Cj9r.net
感情豊かでかわいいｗ
604:デフォルトの名無しさん
20/09/20 12:59:00.77 wHMtOvf4.net
気分を変えてまた数学板より
自然数nに対して格子点の集合{(a,b) | a,bは1～nの整数}の中の相異なる4点の組みで同一円周上に並ぶものの個数を数え上げよ
n:1～8では
[0,1,14,194,826,2491,6364,14564]
のハズ
605:デフォルトの名無しさん
20/09/20 13:05:52.02 wHMtOvf4.net
>>594
ちなみにn=3の場合の14個は
1×1の正方形:4個
2×2の正方形:1個
√2×√2の正方形:1個
2×1の長方形:4個
4辺が1,1,√2,2√2の等脚台形:4個
の14個
606:デフォルトの名無しさん
20/09/20 18:36:43.29 XyOg3AIQ.net
>>594
URLﾘﾝｸ(ideone.com)
{0,1,14,184,762,2257,5704,13040}と出たんだが
どっちが合ってる？
607:デフォルトの名無しさん
20/09/20 18:44:44.75 XyOg3AIQ.net
一直線上にある４点の組を余分に数えたところ >>594 の解と一致した
URLﾘﾝｸ(ideone.com)
608:デフォルトの名無しさん
20/09/20 18:56:48.73 wHMtOvf4.net
あ、ホントだ失礼しました
609:デフォルトの名無しさん
20/09/20 19:10:27.22 wHMtOvf4.net
[0,1,14,184,762,2257,5704,13040]
が正解ですね
URLﾘﾝｸ(ideone.com)
610:デフォルトの名無しさん
20/09/20 22:46:33.41 9sb+TTLg.net
>>594
問題がわからない。
611:デフォルトの名無しさん
20/09/21 00:11:09.46 ZXxiMs6i.net
>>600
n=3だと
●●◯ ◯●● ◯◯◯ ◯◯◯
●●◯ ◯●● ●●◯ ◯●●
◯◯◯ ◯◯◯ ●●◯ ◯●●
●◯● ◯◯◯ ●●◯ ◯●●
●◯● ●◯● ◯◯◯ ◯◯◯
◯◯◯ ●◯● ●●◯ ◯●●
●●◯ ◯●● ◯◯● ●◯◯
◯◯● ●◯◯ ◯◯● ●◯◯
◯◯● ●◯◯ ●●◯ ◯●●
●◯● ◯●◯
◯◯◯ ●◯●
612: ●◯● ◯●◯ の14通り
613:デフォルトの名無しさん
20/09/21 11:36:08.07 VFD1LGbi.net
>>594のお題は、
平面上に４点を選んだとき、その４点をすべて含む円周が存在する場合としない場合がある
xy平面上に、x,yの各座標が1～nの整数であるような、互いに異なる点を４つ選んだとき、４点すべてを含む円周が存在するものがいくつあるか？
n=1～8についてそれぞれ数え上げよ
(註:n=1のときは異なる４点を選べないので、解は０でよい)
ってことでいいかな？
614:デフォルトの名無しさん
20/09/21 13:45:14.08 tVxoOCVr.net
>>601
n=4 のときの184通り
URLﾘﾝｸ(imgur.com)
615:デフォルトの名無しさん
20/09/21 14:54:29.54 /KyZWHiy.net
>>603
正解だと思う
おそらくn=9までは
[0,1,14,184,762,2257,5704,13040,25996]
今作ってるのはC[n^2,4]を全数検査してるのでO(n^8)で計算量増えるので二桁以上はしんどいorz
616:デフォルトの名無しさん
20/09/22 00:03:46.43 jIz1rAqD.net
誰かフォルダにパスワード駆ける方法教えてくれ
617:253
20/09/22 02:15:18.79 jDcMk3G3.net
対象性を考慮する以外の計算量の削減手段はないのかねこの手の問題は
解決すべき課題は計算量の削減ばかりではないだろうけれどさ
618:デフォルトの名無しさん
20/09/22 09:28:15.64 yucbsR+t.net
まぁ何に重きを置くかですな
数学板でこの手のプログラムが必要になるのは誰も答え持ってなくて、一応答えは出てるけど確認したいときとか
その時は速度より“確実に正しい”事の方が重要になる
この場合も対称性やら、明らかに無駄な可能性を排除すれば速度は上がるけど“確実に正しい”のかは怪しくなってしまう
実務でプログラム使う人もその辺のtpoは意識してるのでは？、
コード汚くても高速な奴も募集中
619:デフォルトの名無しさん
20/09/22 11:56:55.93 LgsCAwYw.net
>>603に挙げられている184通りのうち、その3/4にあたる138通りが、直径が√10のものである
そのうち、円の中心が図の中央にあるものは、候補となる点が8個あるので、8C4 = 70 通りある。
図の中央から(±1,0)または(0,±1)ずれたものは、候補となる点が6個なので4×(6C4)=60通り
図の中央から(±2,0)または(0,±2)ずれたものが、候補となる点が4個なので4×(4C4)=4通り
図の中央から(±1,±1)ずれたものが、候補となる点が4個なので4×(4C4)=4通り
合わせて 70+60+4+4=138 通りと数え上げることができる
図の中央を基準にすることができるものばかりとは限らないところには注意が必要だが
総当たりよりは効率化が見込めると思われる。
620:253
20/09/28 22:51:28.57 mT2w1+AU.net
>>518 Python3, >>585を参考に計算量を√nに減らした解法
import math
for n in [81, 87, 91, 13]:
s = math.sqrt(n)
f = n
for i in reversed(range(2, 1 + math.floor(s))):
q, m = divmod(n, i)
if m == 0: f = q; break
print(n, '=>', f)
実行結果
~ $ python 18_509_99_rootn.py
81 => 9
87 => 29
91 => 13
13 => 13
もっとスマートな解法を考えていると双曲線を意識した解法を意識してしまうが、
簡単には解けない数学の問題に突き当たると思う
621:253
20/09/28 22:53:47.02 mT2w1+AU.net
>>609
× 意識した解法を意識してしまうが、
○ 意識した解法を思い浮かべてしまうが、
622:デフォルトの名無しさん
20/09/29 18:23:40.44 TPx3FsW2.net
お題: バブルソートを実装せよ
623:253
20/09/29 23:24:18.49 219xwwXO.net
>>611
プログラミングのお題スレ Part13
ｽﾚﾘﾝｸ(tech板:231番)
624:デフォルトの名無しさん
20/09/30 20:15:38.19 rtPyMlCZ.net
古参はここで「番兵おけやボケェ！」と言う
625:デフォルトの名無しさん
20/10/01 01:25:55.75 cJ6xF5hb.net
お題:
アッカーマン関数の引数が与えられるので、計算過程を1ステップずつ出力してください
入力:
2 1
出力:
A(2, 1)
A(1, A(2, 0))
A(1, A(1, 1))
A(1, A(0, A(1, 0)))
A(1, A(0, A(0, 1)))
A(1, A(0, 2))
A(1, 3)
A(0, A(1, 2))
A(0, A(0, A(1, 1)))
A(0, A(0, A(0, A(1, 0))))
A(0, A(0, A(0, A(0, 1))))
A(0, A(0, A(0, 2)))
A(0, A(0, 3))
A(0, 4)
5
626:デフォルトの名無しさん
20/10/01 11:20:33.49 iee67Noq.net
>>614
Haskell
astr m n = "A(" ++ m ++ "," ++ n ++ ")"
ack' 0 n = (n+1, [astr (show 0) (show n), (show $ n+1)])
ack' m 0 = let
(val, ss) = ack' (m-1) 1
in (val, (astr (show m) (show 0)) : ss)
ack' m n = let
(val1, ss1) = ack' m (n-1)
(val2, ss2) = ack' (m-1) val1
ss = [astr (show $ m-1) s | s <-ss1] ++ (tail ss2)
in (val2, (astr (show m) (show n)):ss)
ack m n = map (++"\n") $ snd $ ack' m n
main = do
[x,y]<-(return.(map read).words)=<<getLine
mapM_ putStr $ ack x y
627:デフォルトの名無しさん
20/10/01 12:09:11.51 OaA9a4hN.net
Haskellでもこんな長くなるの？
628:デフォルトの名無しさん
20/10/01 12:15:24.40 O+PWz9pR.net
>>616
いや、上手な人ならもっと上手くやるはず
アホほどライブラリがあってそれ使えば楽々のハズだけど修行中の身ではこんなもんorz
629:デフォルトの名無しさん
20/10/01 14:04:34.18 Am+nhG+G.net
>>615
ちょっとチューンナップ
達人なら***とか>>>とか意味わからん演算子使ってもっとスッキリ書くんだろうけどアホほどあって使いこなせんorz
haskell
----
astr m s = "A(" ++ (show m) ++ "," ++ s ++ ")"
ack 0 n = [astr 0 $ show n, show $ n+1]
ack m 0 = (astr m $ show 0) : ack (m-1) 1
ack m n = let
ss1 = ack m (n-1)
in [astr m $ show n]
++ (map (astr (m-1)) ss1)
++ (tail $ ack (m-1) (read $ last ss1))
main = do
[x,y]<-(return.(map read).words)=<<getLine
mapM_ ((putStr).(++"\n")) $ ack x y
630:蟻人間
20/10/02 19:50:35.06 gQLwfaGp.net
お題: 野球のボールの動きを物理シミュレートして、ピッチャーの投げてきたボールをより遠くにかっ飛ばすバッターAIを開発せよ。
631:デフォルトの名無しさん
20/10/02 20:54:50.29 tP403VLl.net
カーブやシュートも再現しろよ
632:253
20/10/02 21:41:56.95 kl4hmyt8.net
>>619
─┼─┐─┼─ ／ ,. ｀ﾞ''‐､_＼ | / ／
│ │─┼─／| _,.イ,,.ィ' ───‐‐‐ * ←>>蟻人間
│ |ツ │ | | | イン /´⌒｀ヽ ／/ | ＼
{, ﾘ） ／ ./ | ＼
＿＿ ／}从、 ﾘ（ ／ / |
,. ,. -‐=＝=‐- `つ／ ,.ｲ ’^ｿﾊﾉﾘ / ∵|：・.
〃〃〃〃 ／／ﾐノ__ /´ /∴・|∵’
ヽ_I__I__I__I__I_I __ノ_／ ／ ヽﾐ､､ .∵.；|∵’:;
ｰ{＿＿＿＿,,二二二ニ) ﾉΘ（＿＿ ) ﾞ 、∵.；|∵’,
/I I I I I I .^^^' ＼ ! ￣ﾌ ﾞ 、 |∴
ｿ / `
ノ⌒ヽ')
／ ノ/ /
/＼／ ∧/ / ',
/ ／ ﾉ./ ./ ',
ノ／ ﾍ__、 ./ /￣￣￣ヽ .',
ﾍ_'_， / ＼ ／ ',
/ ＼／ ',
ﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞ ﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞ
633:デフォルトの名無しさん
20/10/02 21:46:15.88 JDxjQVnw.net
ナイス
634:デフォルトの名無しさん
20/10/02 22:04:39.76 jsz+6t1Q.net
>>621
くっそワロタ
635:253
20/10/03 01:10:19.52 io8Ij0O0.net
>>614 Perl5
use feature qw{signatures say}; no warnings 'experimental';
sub A($m, $n, $l, $r) {
say "${l}A($m, $n)$r";
$m ? $n
? A($m-1, A($m, $n-1, "${l}A(".($m-1).', ', ")$r"), "${l}A(".$m.', ', ")$r")
: A($m-1, 1, "${l}A(".($m-1).', ', ")$r") : $n + 1;
}
say A(2, 1, '', '');
実行結果
~ $ perl 18_605_Ackermann_func.pl
A(2, 1)
A(1, A(2, 0))
A(1, A(1, A(1, 1)))
A(1, A(1, A(0, A(1, 0))))
A(1, A(1, A(0, A(0, A(0, 1)))))
A(1, A(1, A(1, A(0, 2))))
A(2, A(1, 3))
A(2, A(0, A(1, 2)))
A(2, A(0, A(0, A(1, 1))))
A(2, A(0, A(0, A(0, A(1, 0)))))
A(2, A(0, A(0, A(0, A(0, A(0, 1))))))
A(2, A(0, A(0, A(1, A(0, 2)))))
A(2, A(0, A(1, A(0, 3))))
A(2, A(1, A(0, 4)))
5
636:253
20/10/03 01:13:51.37 io8Ij0O0.net
なんかBugってる…orz
637:デフォルトの名無しさん
20/10/03 12:07:42.48 xbar0BlH.net
>>614 perl5
URLﾘﾝｸ(ideone.com)
s///e でいける
638:デフォルトの名無しさん
20/10/03 12:20:08.70 nr2+4P+J.net
perlの正規表現マジック恐ろしや
639:デフォルトの名無しさん
20/10/03 12:37:17.41 MOu6VxbM.net
>>626
すげえな
ほとんどワンライナーだ
640:デフォルトの名無しさん
20/10/03 12:46:20.34 ul2MWjNf.net
そうなのよね
入力もらって表示→ワンステップだけ展開して戻る
の繰り返しが1番楽なんだけどなぁ
641:253
20/10/03 14:01:25.06 5WkJC33J.net
>>614 Perl5、>>624 を修正。 >>626 あら正規表現で書けちゃうのかｲﾅ…
use feature qw{signatures say}; no warnings 'experimental';
sub A($m, $n) {
$m ? $n
? do{ my ($m2, $n2) = ($m-1, $n-1);
push @$l, "A($m2, "; push @$r, ')';
say @$l, "A($m, $n2)", @$r; A($m2, A($m, $n2)) }
: do{ my ($m2, $n2) = ($m-1, 1);
say @$l, "A($m2, $n2)", @$r; A($m2, $n2)}
: do{ my $s = $n + 1; say @$l, $s, @$r; pop @$l; pop @$r; $s };
}
($m, $n) = (2, 1);
say "A($m, $n)";
A($m, $n);
実行結果
$ perl 18_605_Ackermann_func.pl
A(2, 1)
A(1, A(2, 0))
A(1, A(1, 1))
A(1, A(0, A(1, 0)))
A(1, A(0, A(0, 1)))
A(1, A(0, 2))
A(1, 3)
A(0, A(1, 2))
A(0, A(0, A(1, 1)))
A(0, A(0, A(0, A(1, 0))))
A(0, A(0, A(0, A(0, 1))))
A(0, A(0, A(0, 2)))
A(0, A(0, 3))
A(0, 4)
5
642:デフォルトの名無しさん
20/10/03 18:00:38.18 WWjeAKvH.net
>>614 ocaml
URLﾘﾝｸ(ideone.com)
let (>>) f g x = g (f x)
let rec a m n p =
let () = p (Printf.sprintf "A(%d, %d)" m n) in
if m = 0 then n + 1
else if n = 0 then a (m - 1) 1 p
else a (m - 1) (a m (n - 1) (Printf.sprintf "A(%d, %s)" (m - 1) >> p)) p
let () = print_int (a 2 1 print_endline)
↓
A(2, 1)
A(1, A(2, 0))
A(1, A(1, 1))
A(1, A(0, A(1, 0)))
A(1, A(0, A(0, 1)))
A(1, A(0, 2))
A(1, 3)
A(0, A(1, 2))
A(0, A(0, A(1, 1)))
A(0, A(0, A(0, A(1, 0))))
A(0, A(0, A(0, A(0, 1))))
A(0, A(0, A(0, 2)))
A(0, A(0, 3))
A(0, 4)
5
643:デフォルトの名無しさん
20/10/07 20:33:26.90 0TsEuxhN.net
>>614 octave
URLﾘﾝｸ(ideone.com)
function c = a(m, n, p)
p(sprintf('A(%d, %d)', m, n));
if m == 0
c = n + 1;
elseif n == 0
c = a(m - 1, 1, p);
else
c = a(m - 1, a(m, n - 1, @(s) p(sprintf('A(%d, %s)', m - 1, s))), p);
end
end
disp(a(2, 1, @disp));
644:253
20/10/08 02:27:24.66 Gy7CYzaJ.net
藻前ら、なかなかやるなー
気に入った。
645:蟻人間
20/10/08 13:59:34.65 N89hoMl4.net
お題: ax**2+b*x+c==0という形の二次方程式を解き、全ての実数解と実数解の個数を表示する。
646:デフォルトの名無しさん
20/10/08 15:03:23.36 eK30Q5Ei.net
実数解はルートを含んだ形でいいのか?
あるいは小数点以下何桁まで正確に求めるのか?
647:蟻人間
20/10/08 15:04:48.84 N89hoMl4.net
>>635
浮動小数点数でいいよ。
648:デフォルトの名無しさん
20/10/08 21:36:29.64 Q4ykcHSC.net
>>633
∧＿∧ ／￣￣￣￣￣
（ ´∀｀）＜ オマエモナー
（ ） ＼＿＿＿＿＿
｜ ｜ |
（_＿）＿）
649:蟻人間
20/10/09 13:26:20.64 pUAVGuih.net
お題：計算ができる文章テンプレートを実装し、つるかめ算を自動生成せよ。
文章テンプレートの例：
「ツルとカメが合わせて{$(ツルの数)+$(カメの数)}います。
足の合計本数が{$(ツルの数)*2+$(カメの数)*4}本です。
カメは何匹いますか。」
変数は「$(変数名)」のように表し、その具体的な値は入力として与えられる。
計算式は{ }で囲って表す。
計算式は変数や定数、加減乗除の演算子、または丸カッコを含むことができる。
入力の例：「ツルの数=3, カメの数=4」
650:デフォルトの名無しさん
20/10/09 14:02:14.80 /NdRCF04.net
>>634 js
function quadraticWithCount(a, b, c) {
const inSqrt = b ** 2 - 4 * a * c
if (inSqrt < 0) return [[], 0]
const l = - b / (a * 2)
if (inSqrt === 0) return [[l], 1]
const r = Math.sqrt(inSqrt) / (a * 2)
return [[l - r, l + r], 2]
}
console.log(quadraticWithCount(3, -2, -1))
console.log(quadraticWithCount(3, 6, 3))
console.log(quadraticWithCount(1, 2, 3))
// [ [ -0.3333333333333333, 1 ], 2 ]
// [ [ -1 ], 1 ]
// [ [], 0 ]
651:蟻人間
20/10/09 14:14:06.07 LR5flFjI.net
>>638
追記: パーサーを作れない人はevalを用いても構わない。
652:デフォルトの名無しさん
20/10/09 14:14:59.57 /NdRCF04.net
>>634 js 改善
function quadratic(a, b, c) {
const rt = Math.sqrt(b ** 2 - 4 * a * c)
return [(-b + rt) / (2 * a), (-b - rt) / (2 * a)]
}
function quadraticReal(...abc) {
const ans = quadratic(...abc)
const [a1, a2] = ans
if (isNaN(a1)) return []
if (a1 === a2) return [a1]
return ans
}
const quadraticRealWithCount = (...abc) => addCount(quadraticReal(...abc))
const addCount = a => [a, a.length]
console.log(quadraticRealWithCount(3, -2, -1))
// [ [ 1, -0.3333333333333333 ], 2 ]
console.log(quadraticRealWithCount(3, 6, 3))
// [ [ -1 ], 1 ]
console.log(quadraticRealWithCount(1, 2, 3))
// [ [], 0 ]
653:デフォルトの名無しさん
20/10/09 17:52:52.10 gniylpO4.net
>>638 Ruby
ツルの数 = 3
カメの数 = 4
Template =<<_EOT_
「ツルとカメが合わせて{$(ツルの数)+$(カメの数)}います。
足の合計本数が{$(ツルの数)*2+$(カメの数)*4}本です。
カメは何匹いますか。」
_EOT_
puts Template.gsub( /\{(.*?)\}/ ){ eval $1.gsub( /\$\((.*?)\)/ ){ $1 } }
654:253
20/10/09 22:43:14.04 /QeZd0d9.net
>>638 Perl5
use utf8;
no warnings 'utf8';
$ツルの数 = 3;
$カメの数 = 4;
print <<EOF
「ツルとカメが合わせて@{[${ツルの数}+${カメの数}]}います。
足の合計本数が@{[${ツルの数}*2+${カメの数}*4]}本です。
カメは何匹いますか。」
EOF
実行結果
~ $ perl 18_633_ツルの数+カメの数.pl
「ツルとカメが合わせて7います。
足の合計本数が22本です。
カメは何匹いますか。」
655:蟻人間
20/10/09 23:14:45.18 LR5flFjI.net
お題: ２つのRGBカラーが#RRGGBB形式で与えられる（RRGGBBは六桁の十六進数とする）。
２つの中間色を#RRGGBB形式で出力せよ。
可能ならばこれら３つの色をカラーバーとして表示せよ。
656:蟻人間
20/10/09 23:26:06.11 LR5flFjI.net
>>644
入力例1: #112233, #99AAFF
入力例2: #AD03ff, #a39e75
657:デフォルトの名無しさん
20/10/09 23:55:14.23 ACx6TREf.net
>>644,645
自明な入力例だけを示しても、出力例も出さないと意味ないだろう。
2色の中間色ってのが曖昧じゃね？
単にR,G,Bそれぞれの平均を取るだけなのか、赤と紫の中間が赤紫になるように循環する色相で中間をとるのかとか。
658:デフォルトの名無しさん
20/10/10 02:56:37.74 KFXrJR76.net
問題が玉石混合だなぁ
659:デフォルトの名無しさん
20/10/10 07:06:51.16 PdovQueR.net
>>643
>変数は「$(変数名)」のように表し、
660:デフォルトの名無しさん
20/10/10 07:45:17.48 nh4sk35x.net
お題: 20201010と出力してください。ただしコードに使っていい数字は1のみです。
661:デフォルトの名無しさん
20/10/10 08:25:49.31 qt6u2bFw.net
>>649 python
a=1;b=a+a;c=a-a
print(b,c,b,c,a,c,a,c,sep='')
#出力20201010
662:デフォルトの名無しさん
20/10/10 10:53:30.16 nh4sk35x.net
>>649 自分で js
const t = `
`.charCodeAt()
console.log(t + t + "" + (t + t) + t + t)
const m = "ϲ".charCodeAt()
console.log(m + m + "" + m)
663:デフォルトの名無しさん
20/10/10 12:06:27.17 0z4oJBva.net
>>649
js本日限定
new Date().toLocaleDateString().split(/-|\//).join``
//=> "20201010"
664:デフォルトの名無しさん
20/10/10 14:54:47.61 iOujIiR/.net
>>647
×こんごう
○こんこう
665:デフォルトの名無しさん
20/10/10 14:57:00.84 iOujIiR/.net
>>649
Java
URLﾘﾝｸ(paiza.io)
666:デフォルトの名無しさん
20/10/10 15:40:40.94 Duwb5Fsi.net
>>654
012にOIZ使うのセンスある
667:デフォルトの名無しさん
20/10/10 18:37:22.80 jNM1f0U4.net
>>649 C
URLﾘﾝｸ(ideone.com)
668:デフォルトの名無しさん
20/10/10 18:54:45.98 V01gi3BN.net
>>656
Windowsでもそのままでいけるのか？
669:蟻人間
20/10/10 19:24:31.52 c6WyhNHP.net
お題: 振動数1000Hzの音を１秒間発振せよ。
670:デフォルトの名無しさん
20/10/10 19:32:24.80 53GLINoh.net
>>649 c
URLﾘﾝｸ(ideone.com)
671:デフォルトの名無しさん
20/10/10 19:46:18.01 LCYuVeVr.net
haskell
import Data.Maybe
main = print $ product $ map ((fromJust).(flip lookup (zip ['\t'..] [1..]))) "&myC"
672:デフォルトの名無しさん
20/10/10 21:44:48.33 0z4oJBva.net
>>658 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)
673:デフォルトの名無しさん
20/10/10 23:07:21.98 t1LUP7rm.net
>>649
haskell 改良
unicode = length . tail . (enumFromTo minBound)
main = print $ product $ map unicode "ാᝇ"
674:デフォルトの名無しさん
20/10/10 23:18:40.46 iOujIiR/.net
>>644
Java
URLﾘﾝｸ(paiza.io)
URLﾘﾝｸ(dotup.org)
675:デフォルトの名無しさん
20/10/11 00:16:06.04 6GsmNhIZ.net
>>649 JavaScript
[1+1,1-1,1+1,1-1,1,1-1,1,1-1].reduce((acc,n)=>acc+n,'')
676:デフォルトの名無しさん
20/10/11 01:54:01.50 eYi6TEVp.net
>>614
Java
URLﾘﾝｸ(paiza.io)
677:デフォルトの名無しさん
20/10/11 08:58:57.96 luIvAMCe.net
>>649 J
smoutput ,&":/ 'amp' i. 'papamama'
678:デフォルトの名無しさん
20/10/11 11:20:41.53 eXVrSXVr.net
>>649 bash
aa=1; bb=$((aa-aa)); cc=$aa$bb$aa$bb; printf "%d" $((cc+cc)) $cc; echo
679:デフォルトの名無しさん
20/10/11 17:59:24.67 /6XslNRS.net
>>638
Perl
URLﾘﾝｸ(paiza.io)
eval が使えて楽なので、つい。
680:デフォルトの名無しさん
20/10/11 18:12:54.16 eYi6TEVp.net
>>611
Java
URLﾘﾝｸ(paiza.io)
681:デフォルトの名無しさん
20/10/11 19:16:59.76 /6XslNRS.net
>>644
Kotlin
URLﾘﾝｸ(paiza.io)
paiza.io はHTMLで出力させてブラウザに表示できるのでカラーバーも出してみました。
682:デフォルトの名無しさん
20/10/11 19:36:20.38 eYi6TEVp.net
これは良いこと聞いた
683:デフォルトの名無しさん
20/10/11 19:48:34.94 ki6dTuuo.net
>>649 Common Lisp (SBCL, 処理系依存)
URLﾘﾝｸ(ideone.com)
684:デフォルトの名無しさん
20/10/11 20:05:13.72 FQjAt+Dq.net
>>672
かわいい
685:デフォルトの名無しさん
20/10/11 20:30:57.80 vt3DXswM.net
>>649 brainfuck
>+++++++[<+++++++>-]<+.--.++.--.+.-.+.-.
686:
20/10/11 23:30:32.44 A2vGg89g.net
>>614
C(C++) ｽﾚﾘﾝｸ(tech板:70番)
687:蟻人間
20/10/11 23:57:26.40 4cQ/GxGI.net
お題: 整数0～10の一様分布の乱数を百回発生させて、その統計結果を基に各整数を横軸、回数を縦軸とする棒グラフ(ヒストグラム)を描画し(棒の最大幅32字)、ほぼ一様であることを確かめなさい。
688:デフォルトの名無しさん
20/10/11 23:59:14.77 B+MSoWxK.net
paiza.io は、text, html, json で出力できるのか
html も、部分的なタグだけを書いても動くのか
689:蟻人間
20/10/12 00:01:01.03 rx5xRSFU.net
>>676 訂正。
(誤)各整数を横軸、回数を縦軸とする棒グラフ
(正)各整数を縦軸、回数を横軸とする棒グラフ
690:デフォルトの名無しさん
20/10/12 01:06:07.97 eqKg5iqj.net
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
691:デフォルトの名無しさん
20/10/12 01:14:47.03 hVCmG980.net
>>649
Kotlin
URLﾘﾝｸ(paiza.io)
ちょっと変わった感じにしようと思ってこうした。
692:デフォルトの名無しさん
20/10/12 08:18:41.49 fHHXzdlp.net
>>676
二項分布になるんじゃないかなあ
693:デフォルトの名無しさん
20/10/12 16:10:06.27 Wx/lfAmjI
「頭使えよ貧乏人」に思う、寝てても金入るシステムを作る人
URLﾘﾝｸ(www.youtube.com)
バカ不平多し★へつらい生きてるからリストラ対象
URLﾘﾝｸ(www.youtube.com)
勝ちは偶然、負けは必然★負けて消えた人に足りなかったものは？
URLﾘﾝｸ(www.youtube.com)
リーダー達の給料が高いのは単純労働者じゃないから
URLﾘﾝｸ(www.youtube.com)
できません、自信がありません、無理です★ボンクラにしたのは誰？
URLﾘﾝｸ(www.youtube.com)
稼げない人へ★�
694:﨣､材こそ稼げない分野が分かるhttps://www.youtube.com/watch?v=x_2nSmlx3og9割の人は、ただの作業員★自学自習こそ仕事の基本https://www.youtube.com/watch?v=vIGKDmmBJcsサラリーマン、10年経てばボンクラ説https://www.youtube.com/watch?v=QdfVJnVuLlY
695:デフォルトの名無しさん
20/10/14 15:32:12.46 M1NONSBM.net
>>658 オーディオ系はシステム依存度が高いから余りサンプルが出てこないね。 WindowsやMacOSなら簡単そうだが
1kHz の音源ファイルを使うのは違反かな？
696:蟻人間
20/10/14 17:27:12.50 TNR/wFHW.net
>>658 C/C++ with Win32
#include <windows.h>
int main(void)
{
Beep(1000, 1000);
}
697:デフォルトの名無しさん
20/10/14 17:57:41.59 qOYZdiW9.net
答え出てきても試しようがない
698:蟻人間
20/10/14 18:19:22.34 TNR/wFHW.net
>>658 Python with Windows
import winsound
winsound.Beep(1000, 1000);
699:蟻人間
20/10/14 18:24:27.45 TNR/wFHW.net
>>658 Python with Mac
import os
os.system('play -n synth 1 sin 1000');
700:デフォルトの名無しさん
20/10/14 18:36:34.21 Azmo5ss/.net
シェル経由でSoX playコマンド呼んでるだけやんけ
Pythonもmacも関係ねぇわ
701:デフォルトの名無しさん
20/10/14 19:17:28.35 Y0U/d7P+.net
OSにつく前置詞はwithじゃなくてonだろハゲ
702:デフォルトの名無しさん
20/10/14 19:30:29.09 pZU5VHHG.net
試すと音が出て煩そうだから試す気になれない。
703:蟻人間
20/10/14 19:50:02.82 TNR/wFHW.net
テレビの自主規制音と同じ音だよ。
URLﾘﾝｸ(ja.wikipedia.org)
704:デフォルトの名無しさん
20/10/15 00:45:55.69 BUh584nA.net
>>688 iOS じゃ、play コマンドがなさそうなんだよな。
705:デフォルトの名無しさん
20/10/15 01:18:37.79 fqrOjoDi.net
結局このスレで盛り上がるのは環境によらず言語によらず、でも多少は骨のあるようなお題なんだよな
へぇその言語ならそんなにキレイに書けるのかとか普段自分が使ってない言語ではどうやって実現できるのか眺めたりするのが面白い
音鳴らすなんてお題として面白いわけがない
706:デフォルトの名無しさん
20/10/15 01:40:28.46 S6IC+plr.net
ヒント：出題者
707:デフォルトの名無しさん
20/10/15 11:44:28.12 cDg3UiVL.net
蟻人間さんへのお題：
文字列を受け取って、RFC 5322にしたがってSubjectヘッダを出力してください(MUST、SHOULDを満たすこと)
文字コードはUTF-8、エンコーディングはBエンコードを使用してください
708:蟻人間
20/10/15 13:28:00.67 s1gNbcw/.net
>>695 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")
709:蟻人間
20/10/15 13:49:36.74 IXtC9lOP.net
>>696 訂正。
(誤) while len(text) > 78:
(正) while len(text) >= 78:
710:デフォルトの名無しさん
20/10/15 14:30:46.93 cDg3UiVL.net
>>696
いろいろ違うので・・・メールのソース眺めたが良いです
711:デフォルトの名無しさん
20/10/15 19:14:52.90 QzXinxJa.net
頭の悪いお題を連投してるやつはやっぱり頭悪いんだな
712:デフォルトの名無しさん
20/10/15 19:22:03.88 cDg3UiVL.net
そんなことないと思うけどな
あまり他人の悪口言わない方が良いよ
713:デフォルトの名無しさん
20/10/15 19:28:33.00 QzXinxJa.net
くっそみたいなお題延々と出し続けてウザいじゃん
714:デフォルトの名無しさん
20/10/15 19:29:59.48 MTvivIgb.net
>>638なんかはいいと思うんだけどな
eval使えないHaskellerにはいい練習問題になってる
715:デフォルトの名無しさん
20/10/15 19:38:14.90 QzXinxJa.net
ウェブアプリつくれだのGUIアプリつくれだの酷い事散々言いまくってるじゃん
◆QZaw55cn4cの方がまだマシ
716:デフォルトの名無しさん
20/10/15 19:40:03.02 MTvivIgb.net
まぁ音出せとかカラーバー出せとかはクソお題だな
717:デフォルトの名無しさん
20/10/16 19:48:26.76 2tllxc0n.net
お題
自然数nを 2進数にした時、 1が連続する個数の最大値を求める。
例
20201016 -> 5
718:デフォルトの名無しさん
20/10/16 20:25:28.88 YQH8/KbW.net
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
719:デフォルトの名無しさん
20/10/16 21:03:20.03 a9PKFHNt.net
>>705 ruby
f = ->(n) {n.to_s(2).chars.chunk(&:itself).map {|k, a| k == '1' ? a.size : 0}.max}
720:デフォルトの名無しさん
20/10/16 21:35:06.98 XtprH8ZD.net
>>705 JavaScript
const f = (n = 0) => Math.max(...(n.toString(2).match(/1+/g) ?? ['']).map(m => m.length))
console.log(f(20201016)) //=> 5
721:253
20/10/16 23:46:14.30 5gS0lg4h.net
>>705 Perl5
use List::Util max;
print max map{length} sprintf('%b', 20201016) =~ /(1+)/g;
実行結果
$ perl 18_695_bin1.pl
5
722:デフォルトの名無しさん
20/10/17 00:12:43.05 7ct7R1y+.net
>>705 Ruby
p 20201016.to_s(2).split("0").max.size
723:デフォルトの名無しさん
20/10/17 00:24:53.85 u2s9P3C4.net
haskell
無名関数というインチキ使ってしまったので再挑戦バージョン
import Data.List
main = print $ maximum . map sum . group . map (flip mod 2) . takeWhile (/=0) . iterate (flip div 2) $ 20201016
724:
20/10/17 00:46:45.25 4JRxXuyk.net
>>705
URLﾘﾝｸ(ideone.com)
725:デフォルトの名無しさん
20/10/17 01:58:38.41 S6LboNFt.net
>>705 Ruby
n = 20201016
nl = 0
while n > 0
nl = ((nc = (n.odd?)? nc + 1 : 0) > nl)? nc : nl
n >>= 1
end
puts nl
726:デフォルトの名無しさん
20/10/17 01:59:32.64 u2s9P3C4.net
>>712
125の時1になった
727:デフォルトの名無しさん
20/10/17 02:41:53.51 AbkDXvLA.net
これだからQZ
728:
20/10/17 02:53:09.41 4JRxXuyk.net
>>705
C++: URLﾘﾝｸ(ideone.com)
>>712 にはロジックに欠陥がありました
>>714
ご指摘ありがとうございます。
729:703
20/10/17 09:22:46.57 S6LboNFt.net
>>714
自分の >>713 も
- nl = 0
+ nc = nl = 0
730:デフォルトの名無しさん
20/10/17 12:19:37.13 a+zi+w45.net
>>705 C++
URLﾘﾝｸ(wandbox.org)
731:デフォルトの名無しさん
20/10/17 13:46:27.15 eBu6AjRf.net
>>705 C
URLﾘﾝｸ(ideone.com)
732:デフォルトの名無しさん
20/10/17 18:57:16.23 S6LboNFt.net
>>705 Ruby
n = 20201016
i = 0
while n != 0
n &= n << 1
i += 1
end
puts i
733:デフォルトの名無しさん
20/10/17 19:11:03.54 wXdm0x1E.net
>>720
うまいやり方だな。それには気付かなかった。
734:デフォルトの名無しさん
20/10/17 19:29:10.40 wXdm0x1E.net
>>705
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が出る。
735:デフォルトの名無しさん
20/10/17 20:05:12.33 vimxgZ9f.net
>>705 JavaScript
let num = 20201016
let ans = num.toString(2).split`0`.sort().pop().length
console.log(ans) //=> 5
736:デフォルトの名無しさん
20/10/17 20:50:55.84 w8j3NnhR.net
>>705 octave
URLﾘﾝｸ(ideone.com)
f = @(n) max(cellfun(@numel, strsplit(dec2bin(n), '0')));
f(20201016)
737:デフォルトの名無しさん
20/10/17 20:54:06.81 frzgm+pU.net
>>705
Perl
URLﾘﾝｸ(paiza.io)
738:デフォルトの名無しさん
20/10/17 23:22:21.08 P3PLPttw.net
いつもRubyの人からなにかしら学ぶことがある
739:デフォルトの名無しさん
20/10/18 00:42:32.49 nYmbGZmV.net
ハトにエサを与えないで下さい
740:デフォルトの名無しさん
20/10/18 01:06:12.01 qT62bbHa.net
QZは自分の頭が悪いのをわざわざ周知してもらうためにクソコードを晒すのか
ドMだな
741:デフォルトの名無しさん
20/10/18 03:42:01.18 DpwMGaW+.net
>>720
なるほどな、感心した
n>>1でもいいわけだな
742:デフォルトの名無しさん
20/10/18 04:21:53.35 xWXtsYNK.net
>>710 のほうが速いと思うが
743:デフォルトの名無しさん
20/10/18 04:36:21.54 F/EhVBet.net
rubyよく分からないけど>>720の方が100倍くらいは速そうに思える
744:デフォルトの名無しさん
20/10/18 05:53:44.51 28u9FaXE.net
うん。速そうだね。数値計算しかしてないし。
745:デフォルトの名無しさん
20/10/18 10:06:25.57 ARbR7jXS.net
20201016みたいに桁数が少ないならそうだけど桁数が増えるとルーブが答え×桁数回だからアルゴリズムそのものは遅い
桁数が少ないうちは内部関数しか使ってない利点で早いとは思うけど
746:デフォルトの名無しさん
20/10/18 12:07:22.14 GUbLWvo/.net
>>733
>>710,720 をベンチマークで比較してみた
URLﾘﾝｸ(ideone.com)
URLﾘﾝｸ(ideone.com)
20201016 では 5~6倍
巨大な数だと 7000倍以上
747:
20/10/18 15:53:00.51 xUpUEWAV.net
>>703
残念ながら、私の出題もイマイチ人気がありませんでした‥‥
748:デフォルトの名無しさん
20/10/18 21:20:25.30 wanN/5Zd.net
>>695
Java
URLﾘﾝｸ(paiza.io)
749:デフォルトの名無しさん
20/10/18 21:43:52.67 wanN/5Zd.net
>>678
Java
URLﾘﾝｸ(paiza.io)
750:デフォルトの名無しさん
20/10/18 22:06:12.69 wanN/5Zd.net
>>676
Java
URLﾘﾝｸ(paiza.io)
751:デフォルトの名無しさん
20/10/18 22:14:01.64 wanN/5Zd.net
>>705
Java
URLﾘﾝｸ(paiza.io)
752:デフォルトの名無しさん
20/10/18 22:45:56.62 F/EhVBet.net
>>734
x = n
while x != 0
x &= x << 1
i += 1
end
ruby知らないから適当に書いたけど
こんな感じにしないと二回目以降nが0でやってるっぽい
こうすると22倍くらいの差だった
753:デフォルトの名無しさん
20/10/18 22:54:22.98 F/EhVBet.net
連続してるビット数が多いときはこの方が速くなったけど
すごいごちゃごちゃになった
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
754:デフォルトの名無しさん
20/10/18 22:56:30.98 QW0aA1Hz.net
>>734
GJ
755:デフォルトの名無しさん
20/10/19 06:30:07.92 8QFJcUQW.net
>>705
echo "obase=2; 20201016" | bc | sed 's/./&\n/g' | uniq -c | perl -lane 'if ($M < $F[0]) {$M = $F[0]}; END{print $M}'
5
756:724
20/10/19 15:26:08.35 u+lqDWSF.net
>>740
ご指摘の通りでした
URLﾘﾝｸ(ideone.com)
を修正しました
>>720 は 1の連続が多いと弱いですね
757:デフォルトの名無しさん
20/10/19 17:41:48.20 Sd7Rn+fr.net
お題
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となる
758:デフォルトの名無しさん
20/10/19 21:36:44.38 gq9726ze.net
>>743
echo "obase=2; 20201016" | bc | sed 's/0\+/\n/g' | wc -L
でよくね？
759:デフォルトの名無しさん
20/10/19 22:00:17.27 gq9726ze.net
>>745 Bash
$ echo "scale=100;e(l(2) / 3)" | bc -l
1.25992104989487316476721060727822835057025146470150
79800819751121552996765139594837293965624362550940
760:デフォルトの名無しさん
20/10/19 22:30:56.87 14xSvmON.net
>>745 dc
dcには平方根の演算子はあるが立方根はないので
c^(1/3) = sqrt(c/sqrt(c/sqrt(c/...)))
と変形して適当に反復
100k[2z333>av/]dsaxp
1.2599210498948731647672106072782283505702514647015079800819751121552\
996765139594837293965624362550941
761:デフォルトの名無しさん
20/10/19 23:54:32.40 mPlPc+C9.net
>>745
参考を誰も参考にしてくれないのにワロタ
参考を元に作ったコード
Haskell
URLﾘﾝｸ(ideone.com)
ちなみにrubyのpi.rbが同じテクニック使ってます
そっちは定数係数でない三項間関係の漸化式パージョン
762:デフォルトの名無しさん
20/10/20 02:36:31.61 gFGmv7lM.net
>>746
たしかに
763:デフォルトの名無しさん
20/10/20 04:08:13.14 Mf7a0fdE.net
おっせえじゃん
764:デフォルトの名無しさん
20/10/20 21:07:35.93 hsuNVmIy.net
お題：ぼくがかんがえたさいきょうのちょうわへいきん
2変数調和平均 f(x, y) = 2 / (1 / x + 1 / y)
但し xまたはyがゼロの時、f(x, y) == 0
の計算を考える。
Cのdoubleに相当する精度で計算する際に、理論値(≒多倍長精度で計算したものを
double相当に丸めたもの)と一致しない割合(エラー率)をモンテカルロ法で求めよ。
x, yは、正規分布N(0, 1)の絶対値に従うものとする。
発展的なお題：
前掲の調和平均の式を変形し、エラー率の変化を調べよ。例えば、
f(x, y) = 2 * x * y / (x + y)
のエラー率は、前掲の式と比較してどうだろうか？
また、2 / (1 / x + 1 / y)よりエラー率が低い式は在るだろうか？
発展的なお題その2：
x, yがベンフォードの法則に従う場合はどうなるか。
正規分布N(0, 1)の絶対値の場合と比べて、エラー率の順位は入れ替わるだろうか？
765:デフォルトの名無しさん
20/10/22 01:17:43.95 rA+WIIWx.net
...but nobody answered
766:253
20/10/23 09:17:13.74 7L0FHKID.net
正規乱数をモンテカルロ法で算出して
doubleと多倍長浮動小数点でそれぞれ計差した2変数調和平均に
差がある率を求めれば良いの？
正規乱数なら書かなくともﾗｲﾌﾞﾗﾘにあるんだよね。
あるいは誤り率の計算そのものにモンテカルロ法を使うようなやり方なのかな
767:デフォルトの名無しさん
20/10/23 14:48:32.25 oxO2c12D.net
次のプリーズ
768:デフォルトの名無しさん
20/10/23 20:02:36.14 Vzf4XOui.net
お題
乱数を使ってシミュレーションしてください
ジョーカーを除くトランプ52枚から1枚抜き取って箱に入れました
その後、残った51枚から3枚引いて確認したら3枚ともダイヤでした
では最初に抜き取った箱の中が1枚がダイヤである確率はいくらか？
769:デフォルトの名無しさん
20/10/23 20:27:24.17 LovVc5SM.net
>>756 Ruby
DECK = [*0..51]
def hoge
a, *b = DECK.sample(4) until b&.all?{|v| v % 4 == 0}
a % 4 == 0
end
def fuga(n)
1.0 * n.times.count{hoge} / n
end
p fuga(1e6) # => 0.20414
p 10 / 59 # => 0.20408163265306123
770:デフォルトの名無しさん
20/10/23 20:46:02.34 LovVc5SM.net
途中で送信してしまった
99%信頼区間は 0.20414±0.0010382 => [0.2031018, 0.2051782]
理論値は 10/49 = 0.20408163265306123
771:デフォルトの名無しさん
20/10/23 20:49:11.91 5NWyTruo.net
確認前後での確率変動を出せ、っていうお題じゃねえのコレ
772:デフォルトの名無しさん
20/10/24 01:58:03.71 6bv42JD2.net
お題
ジョーカー除く５２枚のカードがある
スートを表すS,H,D,Cと、A,K,Q,J,X,9,8,7,6,5,4,3,2との２文字からなる文字列でカードの柄を表すこととする。
当然ながら５２枚のうちどの２枚も同じ柄でない
この一組のカードを使ってポーカーゲームをする。
すなわち、初手のカード５枚を配られたプレイヤーは、そのうち０枚以上５枚以下のカードを場に捨てて、同じ枚数のカードを残りの山札４７枚から引くことができる。
このときどのカードが選ばれるかは無作為であり、プレイヤーは選択できない。
さて、プレイヤーは、初手のカード５枚に対して、最終的に手に残る５枚のカードをポーカーのルールで評価して得られる配点の期待値が最も高くなるように捨て札を決めたい。
入力としてカード５枚が与えられたとき、そのような捨て札の組み合わせを求めるプログラムを記述せよ。
ここで、ポーカーの役と配点の対応はプログラムのパラメータとして組み込んで良い。
773:デフォルトの名無しさん
20/10/24 21:09:47.85 xQuuF55s.net
>>760
// 任意の役の配点を0とする
printf(0);
774:デフォルトの名無しさん
20/10/24 23:43:41.92 DlOr4HzX.net
>>756
Java
URLﾘﾝｸ(paiza.io)
775:デフォルトの名無しさん
20/10/25 09:27:41.37 dKQi7OF0.net
>>760 Perl5
URLﾘﾝｸ(ideone.com)
役のレートは某ゲームのものを使用
ノーペアのとき
全部変える�
776:謔�1枚残したほうが有利という結果が出てちょっと驚いてる
777:デフォルトの名無しさん
20/10/25 10:49:49.59 zd7LSfWt.net
3が1枚来てて、3が3枚残ってるなら、
・手元の3を捨てると、3が来ても何も起こらない
・手元に3を残すと、3が来るとワンペアになる
つまり、残りのカードを引けるかどうか、になる
>>756の亜種
778:デフォルトの名無しさん
20/10/25 11:44:16.63 c/nOQwtG.net
746はシミュレーションも何もただの引っ掛け問題でしょ
モンティホール問題の方が引っ掛け問としては出来が良い
779:デフォルトの名無しさん
20/10/25 12:58:23.56 vQGWPLvq.net
引っかけも何も条件付確率の初歩の初歩の問題だろ
780:デフォルトの名無しさん
20/10/25 14:14:17.31 tOCt4zCM.net
52枚トランプの束で２枚目から４枚目までがダイアであるような場合に限定してその内先頭もダイアであるような場合は全体の何バーセントかを問う問題
781:742
20/10/26 01:17:42.67 LimhPZzI.net
>>754
正規乱数自体は既存のライブラリで(Pythonならnumpy.random.randnとか)。
例えば、最初のお題(2/(1/x+1/y)で計算するやつ)は、34%位のエラー率になります。
782:253
20/10/27 00:51:04.61 uqMOOUWw.net
そうすると俺にはﾓﾝﾃｶﾙﾛ法をわざわざ使うところが
どこかよく分からないんだよね…
783:デフォルトの名無しさん
20/10/27 23:07:51.35 9NNPSda/.net
結局>>752は数学的にはどういう意味なんやろ
x,yがN(0,1)に従う独立確率変数、
ρ:R→RがDouble型に丸める関数(Doubleのレンジに入らない確率はほとんど0だから無視)、
h(x,y)=2xy/(x+y)
としたとき
P(ρ(h(ρ(x),ρ(y))) ≠ ρ(h(x,y))) ≒ 34%
って事？
784:253
20/10/28 00:01:38.74 Jno143Es.net
面白い記号だなそれ。
だが、他の人にも伝わるように書いた方が話が広がってよいよ。
どんなに数学が得意な人でも本当に優秀な人はそうすることができると思う
785:デフォルトの名無しさん
20/10/28 00:17:22.90 3yQQm3er.net
Φρズと書いてハイロウズと読みます
786:デフォルトの名無しさん
20/10/28 00:21:17.79 n11gpLQR.net
煽りでもなく素直に疑問なのだが>>770のどこら辺がわからないんだ？
正規分布の下りか？
787:253
20/10/28 00:30:53.43 Jno143Es.net
>>772
マジレスしようと思ったが、そういう問題じゃないんだよ
言葉で書きゃー2,3行のことなんだから
言葉で人に伝わるように書けばいいだろ
と、突き放しちゃ実も蓋も無いので少しマジレスすると
ρ:R→R が写像なのは分かる。
がしかしだ
P(ρ(h(ρ(x),ρ(y))) ≠ ρ(h(x,y))) ≒ 34%
って、お前の教室のホワイトボードじゃねんだぞ。
そんなんでどうっやって世の人と付き合ってんだか…
788:253
20/10/28 00:40:32.18 Jno143Es.net
大体、P()てのは何の関数だ。
どこにでもあるような関数名だが、一般的な関数か？
いや、そんなことの説明は要らない
お前の言いたいことはそんな自己流の式よりも
手短な読んで分かる日本語で書けるはずだ
いいやP()に限らない、お前のレスは一事が万事そんな感じ
一からからやり直せ
そしたら相手してやる
789:デフォルトの名無しさん
20/10/28 00:42:08.54 n11gpLQR.net
>>775
文脈から明らかにP(A)はAが起こる確率でしょうが
ちなみに俺は>>770じゃないんで
790:253
20/10/28 00:43:23.90 Jno143Es.net
>>776
それ関数じゃないだろ。何で関数として書くんだ。
どういう関数空間なんだ？
791:253
20/10/28 00:47:05.09 Jno143Es.net
簡単なことを
わざわざ難しいことのように書くのは
有能な人のすることではない
792:デフォルトの名無しさん
20/10/28 00:51:02.28 n11gpLQR.net
>>777
落ち着けよお前
P(事象A) := 事象Aが起こる確率 なんて高校数学の範疇だぞ
>>770が殊更ペダンチックには感じない
793:253
20/10/28 01:00:33.01 Jno143Es.net
>>779
別に落ち着いているけど
これか
URLﾘﾝｸ(ja.wikipedia.org)
P()が確立っていつから？
俺が大学の頃まではこういう記法は見た記憶が無いんだけど
P(ρ(h(ρ(x),ρ(y))) ≠ ρ(h(x,y))) ≒ 34%
これは言葉で書いたらもっと分かりやすくならないのか？
794:253
20/10/28 01:15:04.26 Jno143Es.net
結局 >>770 は
2 / (1 / x + 1 / y)をdoubleで計算した値と倍長精度で計算したものをdouble相当に丸めたものが一致しない割合
この一行をわざわざ他の人に分かりにくい式で再度書いているだけのこと
繰り返しだし分かりにくいし
意味(doubleで計算した値と倍長精度で計算したものをdouble相当に丸めたものが一致しない割合)
が欠落している
そういうことに気づきな
795:デフォルトの名無しさん
20/10/28 01:17:27.13 6h0Rpnv/.net
多分ですけど、あなた以外はそこまでわかりにくい表現だとは感じていないのだと思いますよ
796:253
20/10/28 01:19:14.69 Jno143Es.net
まじかｗ
そしたら回答山盛りだ
お前もさんも回答よろしくな
797:デフォルトの名無しさん
20/10/28 01:20:24.09 6h0Rpnv/.net
>>752の意味するところが数学的に自明になればおのずと回答も付くでしょう
798:253
20/10/28 01:20:47.31 Jno143Es.net
蛇足だが、あの式で意味がわかった上で
まさか回答できなかったら、単なる無能だからな
799:253
20/10/28 01:27:14.39 Jno143Es.net
>>784
参考までにあなたは今までどのような回答を投稿されましたか？
800:デフォルトの名無しさん
20/10/28 01:29:09.84 3yQQm3er.net
>>771
> 面白い記号だなそれ。
で、結局面白い記号って何だったの？
801:253
20/10/28 01:30:24.94 Jno143Es.net
ふふ、それは
ﾋ・ﾐ・ﾂ
802:デフォルトの名無しさん
20/10/28 01:43:43.54 3yQQm3er.net
教科書ないから高校数学 確率で一番上に出たやつ。
URLﾘﾝｸ(studysapuri.jp)
やっぱ高校の教科書に載ってたよなあｗｗ
仮に載ってなかったとして大学で使う書籍にもP載ってないって？ｗ
> 俺が大学の頃まではこういう記法は見た記憶が無いんだけど
803:253
20/10/28 01:56:33.39 Jno143Es.net
ゆとり以降だなそりゃ
804:デフォルトの名無しさん
20/10/28 02:11:35.07 d52OC3St.net
恥の上塗りするくらいなら黙ってればいいのに
805:253
20/10/28 02:16:39.09 FRCNqyyj.net
じゃあ何か自慢の回答でもしてよ
806:742
20/10/28 05:10:48.17 MEeLXnFm.net
>>770
2/(1/x+1/y)
を
2*x*y/(x+y)
と変形した場合だと、36%位です(100万回試行してみた)。
807:デフォルトの名無しさん
20/10/28 06:02:02.77 W3KKdO+Q.net
>>752 C
URLﾘﾝｸ(ideone.com)
2 / (1 / x + 1 / y) のエラー率は 38.5%
2 * x * y / (x + y) のエラー率は 40.4%
と出た
808:742
20/10/28 12:23:39.00 jim4KuYP.net
>>794
h0の計算は、xdやxdをlong doubleにcastする感じで！
>double h0 = ( xl == 0. || yl == 0. ? 0. : 2. / (1.L / xd + 1.L / yd));
809:742
20/10/28 13:16:35.16 jim4KuYP.net
間違えました
double h0 = ( xd == 0. || yd == 0. ? 0. : 2. / (1.L / xd + 1.L / yd));
810:デフォルトの名無しさん
20/10/29 00:16:48.93 GFOWX4AY.net
お題：言語機能のみを使い単方向リストを実装しメソッドpush
811:とpopを実装せよ pushはリスト末尾にノードをプッシュし、popはリスト末尾からノードをポップする ノードの持つ値は整数とする
812:デフォルトの名無しさん
20/10/29 00:52:01.80 wtq/xrTf.net
複数pushできるの？
popも個数指定できるの？一個ずつ？
pushの戻り値はリスト自身？入れた値？成否？
813:デフォルトの名無しさん
20/10/29 01:01:50.46 GFOWX4AY.net
>>797
>>798
pushもpopも値は1つずつ
pushの戻り値はなんでもいい
814:デフォルトの名無しさん
20/10/29 10:47:03.25 jsAu6jIB.net
>>797 js
入出力のサンプルケース書いてないやつ絶対自分はやってないだろ
class SinglyLinkedList {
push(value) {
this.head = { next: this.head, value }
}
pop() {
if (!this.head) return
this.head = this.head.next
}
str() {
let { head } = this, s = ""
while (head) {
s += head.value + ", "
head = head.next
}
return s
}
}