15/11/13 21:39:51.30 VcgxUV6t.net
お題：お財布軽算法
レジの買い物で財布の中身が最も軽くなるような支払い方を求めよ
条件：
・買い物の金額は999円以下
・硬貨（一円玉～五百円玉）の重さは1とし、千円札の重さは0とする
・財布の中には、各硬貨が20枚以下と、千円札がちょうど1枚入っている
（法律により同一硬貨20枚を超える支払いは店側が拒否できるらしい）
・お釣りはできるだけ価値の高い硬貨にまとめて支払われる
（例：お釣り17円→十円玉1枚、五円玉1枚、一円玉2枚）
・両替目的の余分な支払いは禁止（例えば、10円の買い物で
一円玉20枚支払ってお釣りとして十円玉1枚を受け取るのは禁止）
入力：
財布の中の各硬貨の枚数と買い物の金額が空欄区切りで順番に与えられる
（千円札は必ず1枚入っているので入力には含めない）
出力：
各硬貨および千円札の支払い枚数を空欄区切りで順番に返す
例：
0 0 0 0 0 0 1 -> 0 0 0 0 0 0 1
5 5 5 5 5 5 176 -> 1 1 2 1 1 0 0
1 2 3 4 5 6 789 -> 0 2 3 3 1 1 0
20 20 10 10 0 0 999 -> ?
128:デフォルトの名無しさん
15/11/13 22:05:01.72 lCbsoecE.net
>>125
ナップザック問題よく見るなー。
129:126
15/11/14 04:44:47.09 ruukGtIx.net
お題ボツ案
次に示すbrainf*ck亜種用のプログラムコードcode.txtを生成するプログラムを作成せよ
brainf*ck亜種の仕様
命令対応表table.txtに記載された文字列を命令ワードとしてcode.txtを解釈する
命令ワード以外の文字はコメント文字として無視して読み飛ばす
命令対応表table.txtの仕様
1行目に>に相当する命令を表す文字列がコロン区切りで並べられる
2行目に<に相当する命令を表す文字列がコロン区切りで並べられる
3行目に+、4行目に-、5行目に[、6行目に]、7行目に,、8行目に.、のが同様に示される
未定義の命令はないものとする（つまりどの命令にも必ず対応する命令ワードが与えられる）
命令ワードに使えるのは半角の英大文字・英小文字・スペースで構成される1文字以上の文字列
生成するプログラムコードcode.txtについて
(1) こちらが提示するtable.txtを命令ワードとするbrainf*ck亜種でcode.txtを実行する
この実行でcode.txtは新しい命令対応表を生成する(リダイレクトでtable2.txtに保存される)
(2) 先ほど生成されたtable2.txtを命令ワードとするbrainf*ck亜種で先ほどのcode.txtを実行する
この実行でcodetxtはこちらが指定した文字列を出力する
※つまりcode.txtは同一のファイルで2種類のbrainf*ck亜種用のプログラムコードとして解釈されるということである
※code.txtはどちらの実行でも必ず停止するようにする(無限ループさせてはならない)
code.txtのフォーマット
1文字のスペース区切りで並べられた実在する2文字以上の英単語と改行で構成される
各行2文字以上65文字以下で構成する必要がある、行末にスペースが来てはならない
※つまり人がcode.txtを開いて見た場合は英単語がでたらめに並べられているだけの文書ファイルのように見える
130:126
15/11/14 04:45:20.39 ruukGtIx.net
お題ボツ案 続き
(1)で使うtable.txt
====table.txt ここから
en:an:me
ry:ly:to
ea:ro:at
ou:is:
131:of ed:oo:we es:ee:he ff:qu ll:th ====table.txt ここまで (2)で出力する文字列 Hello の5文字 例えば road eat attacked meet seat early of he month は +++[>++<-]. と解釈される 評価ポイント ・code.txtの英大文字を英小文字に変換した状態において単語の平均出現頻度が3以下になるほど加点、逆は減点 ・code.txtに出現する単語のうち「最短の長さの単語」の長さが4以上になるほど加点、逆は減点 ・code.txtのファイルサイズ(ようは全体の文字数)が小さくなるほど加点、逆は減点 ボツになった理由 評価ポイントは俺自身が出した答えのcode.txtのファイルサイズを基準に点数付けする予定だったが 俺自身がこの課題を満足するコードを書けなかった
132:デフォルトの名無しさん
15/11/14 07:36:05.43 HECTDRcm.net
>>125
2つ目の例間違ってました
5 2 5 2 5 2 176 -> 1 1 2 1 1 0 0
133:デフォルトの名無しさん
15/11/15 01:14:20.57 iZq4VH3S.net
>>127
いくらチューリング完全とはいえ、こんな暗号何に使うんだよ。
IS関係かよ。
134:デフォルトの名無しさん
15/11/17 13:23:12.14 qzaifS3v.net
キレイにあいにいこう
135:デフォルトの名無しさん
15/11/17 22:19:23.76 qSlbRl0V.net
突っ込みどころが幾つもあるからそりゃ書けんだろ
136:デフォルトの名無しさん
15/11/18 10:07:53.97 MW0MQlR6.net
お題：以下を出力する
ABBACACBBA
CBCBBBABC
AAABBCCA
AACBACB
ABACBA
CCBAC
CACB
BBA
BC
A
137:デフォルトの名無しさん
15/11/18 11:15:42.88 4sFoEFSe.net
>>133 Squeak/Pharo Smalltalk
| str |
str := 'ABBACACBBA'.
Transcript open.
[str isEmpty] whileFalse: [
Transcript cr; show: str.
str := str overlappingPairsCollect: [:a :b |
a = b ifTrue: [a] ifFalse: [('ABC' copyWithoutAll: {a. b}) first]]]
138:デフォルトの名無しさん
15/11/18 16:23:59.84 6s10vQob.net
>>133 C
URLﾘﾝｸ(ideone.com)
139:デフォルトの名無しさん
15/11/18 18:06:15.56 D8fsp1uM.net
>>133 c
#include <stdio.h>
int main() {
char buff[] =
140:デフォルトの名無しさん
15/11/18 18:23:26.04 D8fsp1uM.net
>>133 c
URLﾘﾝｸ(ideone.com)
141:デフォルトの名無しさん
15/11/18 21:29:20.89 4nC9re2c.net
>>133 Emacs Lisp
(require 'cl-lib)
cl-lib
(defun f (l)
(while l
(let (m)
(cl-mapl (lambda (s)
(princ (car s))
(let ((s (let ((x (nth 0 s)) (y (nth 1 s)))
(and y (if (eq x y) x (car (remove x (remove y '(A B C)))))))))
(and s (push s m))))
l)
(terpri)
(setq l (reverse m)))))
f
(f '(A B B A C A C B B A))
ABBACACBBA
CBCBBBABC
AAABBCCA
AACBACB
ABACBA
CCBAC
CACB
BBA
BC
A
nil
142:デフォルトの名無しさん
15/11/18 23:42:26.25 YAZwGvpo.net
>>133 Haskell
import Data.List
main = putStr . unlines . takeWhile (/= []) $ iterate f "ABBACACBBA"
f [_] = ""
f (x:x':xs) = (if x == x' then x else head ("ABC" \\ [x, x'])) : f (x':xs)
143:デフォルトの名無しさん
15/11/19 03:34:56.68 phHpIHjD.net
よく法則性わかったな。全く分からんぞ。
144:デフォルトの名無しさん
15/11/19 22:16:34.51 uJ/1LVHK.net
隣接した文字が同じならその文字、違うならそれ以外の文字
という法則性で書いてるようだけど問題中に指定はないから同じ出力ならなんでもいい
この類の出題に対する簡単な解決法は出力例をそのままコピペすること
145:デフォルトの名無しさん
15/11/20 12:08:27.30 GuOf3/Bz.net
>>141
だよねw
それよりも長くなってしまうコードは冗長なのかも。
146:デフォルトの名無しさん
15/11/20 12:28:08.45 FQy8dcw9.net
>>141-142
短いコード…つまりこうだな
URLﾘﾝｸ(ideone.com)
147:デフォルトの名無しさん
15/11/21 01:49:25.12 HxaRKQeG.net
>>133
Rubyで。
URLﾘﾝｸ(ideone.com)
148:デフォルトの名無しさん
15/11/21 10:43:36.89 jCDsTAiM.net
>>133 ruby 2.0.0
s = 'ABBACACBBA'
s = s.tap {|s| puts s}.chars.each_cons(2).map() {|(a, b)| a == b ? a : 'ABC'.delete(a + b) }.join until s.empty?
149:デフォルトの名無しさん
15/11/24 21:57:54.41 VKmO+9+0.net
JavaScriptスレで、以下の質問をしました。
1/3=0.33333
1/2=0.5
1/4=0.25
みたいに、実数値を文字列化する時に、割り切れない時は四捨五入で小数点以下5桁で、割り切れるならその全桁数をそのまま文字列化したいんですが、一発で出来る関数や手法は有りますか？
と質問したら、曖昧で分かり辛いようだったので、もう少し詳しく、
では、桁数n (n<=30)を指定するとして、
割り切れない場合は小数点以下n+1桁目を四捨五入してn桁までを求める。
割り切れる場合は、その全部を文字列化する。ただしnを超える部分が有る場合は、四捨五入の方法を用いる。
これでいいかな？
と質問したのですが、浮動小数演算の世界では割り切れるかどうか判定できないので無理だよ、という意見なのですが、
私としては、浮動小数点演算で割り切れるかどうか判定出来なくても、プログラムは書けると思います。
それが出力する結果が数学的な意味での正しい解答になっていればいいと思うので。
でも良く分からないので、レベルの高いここで質問します。よろしく。
150:デフォルトの名無しさん
15/11/24 23:57:27.64 BzULhZcd.net
適当に10＾n倍して整数の範囲でやれ
てかJavaScriptで簡単に30桁も扱いたいなら外部ライブラリでも使えよ
151:デフォルトの名無しさん
15/11/25 00:04:10.27 O+sc6fcj.net
>>147
出来ないならレスしなくても良い
152:デフォルトの名無しさん
15/11/25 00:20:18.37 B5r/QkfM.net
俺は出来ないから禁止じゃなくてよかったわ
153:デフォルトの名無しさん
15/11/25 01:02:10.19 DvsQmrmL.net
>>147
自分も10^N思いついたわ。
泥臭いけど、正しい数字がほしかったら急がば回れだと思うわな。
154:デフォルトの名無しさん
15/11/25 02:12:43.93 DvsQmrmL.net
うーん。暇だからいじってたけど失敗した。改良案募集中。
URLﾘﾝｸ(ideone.com)
C++。指数いじってるだけなのに明確に誤差が出る。
一番楽なのはsprintfのソース嫁。だと思う。
155:デフォルトの名無しさん
15/11/25 02:34:57.37 WgXGKPIm.net
>>146
有理数が割り切れるかどうかという話なら、既約分数の形で分母に2と5以外の素因数が含まれると
循環小数になる
整数に乗る範囲なら>>147で同じことができる
156:デフォルトの名無しさん
15/11/25 03:14:52.14 DvsQmrmL.net
>>146
URLﾘﾝｸ(ideone.com)
C++。数学ムズイな。log10(0.1)が-inf返す。理屈は知らん。
基本的なことは、 URLﾘﾝｸ(okwave.jp) からパクってきた。
これ以上は俺のキャパ超えてますわ。頑張ってー。
157:デフォルトの名無しさん
15/11/25 08:08:20.28 DvsQmrmL.net
寝ようとしたらバグ思いついたのでフィックス。
URLﾘﾝｸ(ideone.com)
158:
159:デフォルトの名無しさん
15/11/25 09:36:21.17 O+sc6fcj.net
>>154
素晴らしい。完璧です。
160:デフォルトの名無しさん
15/11/25 21:34:13.25 DvsQmrmL.net
一応、最初に案だした>>147にも言っとけー。
それと何も違わんからな。
161:デフォルトの名無しさん
15/11/28 06:44:11.07 et7wKfDy.net
お題：2ビットバイナリのソートと復元。
URLﾘﾝｸ(ideone.com)
こういうコードを書きました。
不完全ですが、実用化に至ればどんなファイルも1kb程度に収まるすさまじい圧縮規格の草案デス。（妄想です）
さて、ソートと復元にパーミテーションを使っているのですがこれが超重たいです。困りました。
そこでこれを差し替えて、ソートと復元を軽くしたいと思っています。
さてなんかいい方法ありませんでしょうか。処理速度はあんまり重視していません。
その代わり序数などを用意する場合、64BIT整数の範囲に入ることが望ましいです。
自由な発想で何か思いついてください。お願いします。
ちなみに、このコードの弱点はメモリ使用量で、元バイナリの256倍メモリを消費します。
162:デフォルトの名無しさん
15/11/29 00:48:49.92 KmrpGp6z.net
>>157
その文章はネタなのかマジなのか…
URLﾘﾝｸ(ideone.com)
163:デフォルトの名無しさん
15/11/29 04:53:54.49 6OpYz5rj.net
URLﾘﾝｸ(ideone.com)
メモリ使用量を256倍から8倍に抑えた。
そしたら、>>158のコードが動かなくなった。Orz
っていうか、序数が簡単に64ビット突破してしまうなぁ。
N!をどうにかしないと。
>>158
乗ってくれてありがとう。
164:デフォルトの名無しさん
15/11/29 06:33:12.85 6OpYz5rj.net
序数なくしたい・・・。(^q^）
165:デフォルトの名無しさん
15/12/03 23:19:41.07 Wkj8zlJv.net
>>146
[実数値]は2進数の浮動小数点数で受け取るの？
それとも分母と分子の2個の整数で受け取る？
166:デフォルトの名無しさん
15/12/07 11:53:42.59 2flNGmiy.net
お題：楕円の長径と短径が与えられたとき、円周の長さを求める
167:デフォルトの名無しさん
15/12/07 22:05:37.72 OagebEri.net
>>162
それは楕円積分じゃね？
ｾｲｶﾞｸのとき勉強してうろ覚えだけど。
168:デフォルトの名無しさん
15/12/07 22:09:09.73 4dGrKabk.net
URLﾘﾝｸ(ja.wikipedia.org)
169:デフォルトの名無しさん
15/12/07 22:17:32.62 OagebEri.net
楕円の外周の計算方法- 数学 | 教えて！goo
URLﾘﾝｸ(oshiete.goo.ne.jp)
楕円の周の長さの求め方と近似公式 | 高校数学の美しい物語
URLﾘﾝｸ(mathtrain.jp)
こういった近似解法の存在を知らないと、
自力でｱﾙｺﾞﾘｽﾞﾑを発見するのは天才級の頭脳がいる問題だぜょ
セニョール
170:デフォルトの名無しさん
15/12/07 23:34:24.64 4dGrKabk.net
「天才級」は言い過ぎでしょ
171:デフォルトの名無しさん
15/12/08 04:57:10.08 3EaU/rl6.net
>>162
URLﾘﾝｸ(ideone.com)
2分法かつモンテカルロ。
数学的に正しいかは知らんけど、一応近似はしてるんじゃないかと。
数学わかんねー。積分わかんねー。
172:デフォルトの名無しさん
15/12/08 05:22:43.49 3EaU/rl6.net
あれ？各種計算サイトと数字があわね・・・。
>>165の計算法あってる？
173:デフォルトの名無しさん
15/12/08 05:44:52.78 3EaU/rl6.net
URLﾘﾝｸ(ideone.com)
と、思ったら。
俺が計算パラメータ勘違いしてるだけだった。Orz
うごごごご。すまん。
174:デフォルトの名無しさん
15/12/08 09:59:25.88 /HebolMS.net
天才現る
175:デフォルトの名無しさん
15/12/08 19:56:53.86 3EaU/rl6.net
e!?
176:デフォルトの名無しさん
15/12/08 20:17:02.87 3EaU/rl6.net
いやいやいやいやいやいや・・・・・。
式パクってきて2分法書いて、モンテカルロやっただけですぜ。
天才とかとは程遠い。っていうか無縁。
天才っていうのは式を作る人。
177:164
15/12/08 20:20:16.07 a07369ql.net
おお、モンテカルロも手だな
解析的近似ばかりじゃなく
数値計算の力技もコンピューターならではの解法だ
したがって天才はコンピューターである。
なんちゃって
178:デフォルトの名無しさん
15/12/08 20:40:17.60 3EaU/rl6.net
実際、叩かれるつもりで投稿したんだがなんか怒られる兆しがないな。
いやー、コンピュータはすごいよ。
俺がじまんしたいのはモンテカルロより綺麗にかけた2分法のほうなんだよな。
まぁそれもベースはパクってきたわけなんだけど。Orz
179:デフォルトの名無しさん
15/12/08 20:44:12.32 3EaU/rl6.net
>>173
ちょうどいいから聞きたいんだけど、
一般的に積分に限らずデルタってどっから引っ張ってくるの？
わからなかったからランダム適応したんだけど。勘で・・・。Orz
作法あるんだったら知りたい。
180:デフォルトの名無しさん
15/12/08 20:53:40.72 k5FAaYPJ.net
モンテカルロよりはマシだろ
#include <math.h>
#include <stdio.h>
#define DIV_NUM 16777216
#define PI 3.14159265358979323846
#define A 3
#define B 2
int main(){
double x0 = A;
double y0 = 0.0;
double length = 0.0;
for (int i = 0; i < DIV_NUM; i++) {
double ang = i * (PI / 2 / DIV_NUM);
double x1 = A * cos(ang);
double y1 = B * sin(ang);
double dx = x1 - x0;
double dy = y1 - y0;
length += sqrt(dx * dx + dy * dy);
x0 = x1;
y0 = y1;
}
printf("%f", length*4);
return 0;
}
181:デフォルトの名無しさん
15/12/08 20:57:35.31 k5FAaYPJ.net
なんか微妙に間違ったな
値は大体あってるけど
for (int i = 1 ; i <= DIV_NUM ; i++){
こうだね
182:デフォルトの名無しさん
15/12/08 21:14:08.51 3EaU/rl6.net
俺の悩みは一体。もっといい理屈があるじゃないか！Orz
183:デフォルトの名無しさん
15/12/08 22:02:09.84 k5FAaYPJ.net
一番原始的な積分値の求め方だよ
184:デフォルトの名無しさん
15/12/08 22:08:33.54 3EaU/rl6.net
なるほど。勉強になるわ。
185:デフォルトの名無しさん
15/12/09 02:46:42.95 WkKrcfNI.net
>>162
URLﾘﾝｸ(ideone.com)
C++。実はこれでよかったのか？
ゲーム世代だから、こう、もっと複雑なものを想像してたんだけど。
こんな感じでいいの？シンプルね。
スペシャルサンクス >>179＠積分について教えてもらった。
186:164
15/12/09 21:24:48.15 ZhIEYZLO.net
>>175
台形式による数値積分の積分幅に応じた誤差は関数の
二次微分値(曲率)に応じて変化するので、積分幅を調整することによって
誤差を抑制したければ関数の二次微分に相当する値に応じた
幅を使えばいいとおも
あるいは区間の関数自体を非直線近似によって真の値からの乖離による
誤差を減らしかつ計算量を抑えるにはシンプソンとか二次曲線近似とか
187:164
15/12/09 22:44:23.10 92NQQkZk.net
いや、でも円を等分割したときの誤差率は
完全に分割角依存で
曲率半径には依らないか
なんか間違えちゃったかもｗﾃﾍﾍﾟﾛ
188:デフォルトの名無しさん
15/12/09 22:53:48.61 EF8HxpWM.net
>>182
なんか素人が痛いからそろそろ止めた方が
板違いだし
189:デフォルトの名無しさん
15/12/10 00:24:50.66 FNI4SdQA.net
>>182-183
解説ありがと。
でも、数学わからんので数学用語がこんなに出てくると爆発しちゃうお。
190:デフォルトの名無しさん
15/12/10 20:15:14.98 qXWtOvvK.net
お題：
西暦が与えられるので
その年の十月一日から翌年の二月末日までに
平日の月曜がいくつあるか求めよ
191:デフォルトの名無しさん
15/12/10 23:05:45.07 1swodkqj.net
>>186
>>平日の月曜がいくつあるか求めよ
平日の月曜というのがよくわからないのですが、
たとえば、春分の日とか秋分の日が月曜日ならばそれを除く
ということですか。
春分や秋分の日が日曜日のときは、月曜日が振り替え休日に
なりますが、その場合も除くのでしょうか。
192:デフォルトの名無しさん
15/12/10 23:14:37.28 qXWtOvvK.net
>>187
はい、祝日と振り替え休日を除いた日数です
193:デフォルトの名無しさん
15/12/10 23:26:01.14 IEwdtYYT.net
祝日って施行された年月日の表を持たないといけないね
決め方も途中で日にち固定じゃなくなった祝日もあるし
194:デフォルトの名無しさん
15/12/11 00:00:09.46 QFhJl34b.net
江戸時代には、祝日というものは正月ぐらいしかないだろうし、
祝日も明治5年の改歴以来いろいろと変わってきているので、
西暦をインプットして求めるといったって、そういう祝日が何年から
改訂されたかの表が必要でしょうし、第一天文学的に決める春分と
秋分の日が今日では、地球の自転を一定とした力学字で計算し、そして
その力学時と世界時との差を予測して世界時に直して日にちを決めて
いるわけだから、過去の世界時と力学時との差は判っているけれど
将来の差はあくまでも予測にしか過ぎないから、将来の春分や秋分の日
を求めて、それが月曜日にあたっていないと計算ではでても、その時の
世界時と力学時との差はその年にならなければ判らないから、将来
については、厳密にいうと計算できないことになります。
西暦を与えてということだから、たとえば西暦1000年については
どのように計算すればいいのですか。その頃の祝日というのは、どうすれば
わかりますか。
195:デフォルトの名無しさん
15/12/11 00:27:12.79 eVuXsWSu.net
日本国という縛りもありませんし。
196:デフォルトの名無しさん
15/12/11 06:26:06.24 tt4EKsw8.net
これアルゴリズムとか関係なくね？
ＤＢに自分で登録するかそういうＷｅｂサービスを探して利用するしか
197:デフォルトの名無しさん
15/12/11 06:32:51.11 tt4EKsw8.net
>>189の言うように予め配列等に祝日のデータが入ってると仮定すれば答えようがあるかも
宿題や仕事で使うコードなら他人に投げるのは感心しない
198:デフォルトの名無しさん
15/12/11 06:40:36.76 kB8+oJGq.net
どこかで見た問題に適当に制約付けただけじゃね？
ちょっとでも考える能力あればこりゃ無理と分かるだろうし
199:デフォルトの名無しさん
15/12/11 09:08:34.35 eVuXsWSu.net
俺ニートだから、全部休日な。答えは0だ。
200:デフォルトの名無しさん
15/12/11 13:06:30.20 L6hqxofP.net
paiza、「プログラミングで彼女をつくる」オンラインハッカソンを開催 | マイナビニュース
エムアウトグループのギノは12月8日、IT/Webエンジニアに特化したプログラミング転職サイト「paiza」にて、恋愛プログラミングゲーム「paiza オンラインハッカソンVol.7 プログラミングで彼女をつくる」を公開したことを発表した。
開催期間は、2015年12月8日12時00分から2016年1月13日23時59分まで。
URLﾘﾝｸ(news.mynavi.jp)
URLﾘﾝｸ(news.mynavi.jp)
URLﾘﾝｸ(news.mynavi.jp)
恋愛SLG: プログラミングで彼女をつくる｜paizaオンラインハッカソン7
URLﾘﾝｸ(paiza.jp)
201:デフォルトの名無しさん
15/12/12 00:02:55.04 epBUOQqG.net
ニッポンバンザーイ！！！
202:デフォルトの名無しさん
15/12/12 01:49:09.61 g+kFVlkS.net
>>196
全部解くのに70分、水着に30分かかってもーた
203:デフォルトの名無しさん
15/12/13 07:17:29.28 O2iUJZml.net
>>162
URLﾘﾝｸ(ideone.com)
C++。意味も分からずパラメータをいじっていたらより模範解答に近づいたのでアップ。
なぜかGCCではコンパイルできない。
メルセンヌツイスタは優秀だな。さすがモンテカルロ用乱数。
204:デフォルトの名無しさん
15/12/13 07:23:54.61 O2iUJZml.net
今見て思ったんだけど、このコード乱数使ってるのにこの精度だと値がほとんど一意なんだな。
これどれくらいあってるんだろう？？
205:デフォルトの名無しさん
15/12/13 14:41:46.73 X4YbRsnm.net
お題：モンテカルロ法でドーナツから切り取った部分の体積と表面積を求めなさい
URLﾘﾝｸ(uproda.2ch-library.com)
参考：
3次元CADでは
体積 194#.##・・・
表面積 99#.##・・・
206:デフォルトの名無しさん
15/12/13 16:48:49.04 sP1yS+qf.net
>>201 C++
体積だけ
ideoneが調子悪くてせっかく書いたのが消えた
出力にはそれらしい数字が表示されてるでしょ
URLﾘﾝｸ(ideone.com)
207:201
15/12/13 16:58:32.34 sP1yS+qf.net
ついイライラしてクソ解答を書き込んでしまったが、コード書きなおした
URLﾘﾝｸ(ideone.com)
208:デフォルトの名無しさん
15/12/13 22:16:08.38 O2iUJZml.net
URLﾘﾝｸ(ideone.com)
C++。謎の係数に轟け。
209:デフォルトの名無しさん
15/12/14 02:29:21.98 eVz/xHue.net
>>201
URLﾘﾝｸ(ideone.com)
ちょい、リファレンス間違ってねーか？
詳しくはウィキペディア見てくれ。
URLﾘﾝｸ(ja.wikipedia.org)
210:デフォルトの名無しさん
15/12/14 02:30:05.61 eVz/xHue.net
あー切り取った部分だった。Orz
211:デフォルトの名無しさん
15/12/14 03:09:34.83 eVz/xHue.net
真面目に考えると結構難しいなぁ。
212:200
15/12/14 09:45:09.75 qfulNci3.net
正確な値：
体積 1946.99
表面積 992.95
（±0.5％ぐらいなら正解かな）
1937～1956
988～998
213:名無しさん＠そうだ選挙に行こう
15/12/14 14:54:41.43 0wzBU9LM.net
>>201 C++
表面積だけ
アプローチが間違ってるのでだいぶ誤差があるんだけど、正しいアプローチがわからん
URLﾘﾝｸ(ideone.com)
214:名無しさん＠そうだ選挙に行こう
15/12/14 15:51:49.07 qltyQEb4.net
（ヒント）
バナナの表面積はわからないけど
バナナの皮を剥いてミキサーにかけて
どろどろにして軽量カップに移せば体積はわかる。
バナナの皮が極めて薄ければ
（あまり薄くするとモンテカルロが不安定になるから０．１ぐらいがいいかな？）
軽量カップの体積＝バナナの表面積×皮の薄さ
よって、
バナナの表面積＝軽量カップの体積／皮の薄さ
215:デフォルトの名無しさん
15/12/14 21:26:29.60 LGdp/ous.net
>>210
おいおい，体積（と密度）を一定にしても表面積はいかようにもかえられるぞ‥
216:デフォルトの名無しさん
15/12/14 22:01:47.63 5mSwVQ2V.net
>>201
URLﾘﾝｸ(ideone.com)
まあまあかな
表面は>>210の方法じゃなくて２個に分けてみた
平面の方は簡単だけど、曲面の方はちょっと複雑
>>210じゃさすがに誤差が大きいんじゃ？
217:デフォルトの名無しさん
15/12/14 22:50:43.48 A0mNKi9L.net
>>211
表面境界の方程式がわかってるんだから
そこから薄い0.1厚範囲の体積がモンテカルロでわかれば
その体積÷0.1でほぼ表面積なんじゃないかな。
精密にするには（外側0.1厚+内側0.1厚の範囲の体積）÷0.2のほうがいいけど。
218:デフォルトの名無しさん
15/12/15 19:16:41.27 HlYC/kU7.net
薄膜に当たる率が低くて非効率すぎる
219:デフォルトの名無しさん
15/12/15 19:17:41.82 HlYC/kU7.net
面は面の率でやらないと
220:デフォルトの名無しさん
15/12/15 21:37:30.34 HlYC/kU7.net
URLﾘﾝｸ(ideone.com)
普通に積分を使ってやるとこんな感じ
>>208
CADの誤差って結構大きいね
221:デフォルトの名無しさん
15/12/15 21:51:36.86 HlYC/kU7.net
URLﾘﾝｸ(ideone.com)
薄皮方式
>>212 に比べて誤差は大して変わらなかった
222:デフォルトの名無しさん
15/12/15 21:59:12.88 HlYC/kU7.net
>>212の曲面部分の効率が悪いのが原因か
60度の範囲だけ調べれば十分だから同じ精度で3倍は早くなる
同じ時間だと誤差は1/√3に
223:デフォルトの名無しさん
15/12/16 14:09:16.90 8FwsYmi7.net
>>216
CADも高価（５０万以上ぐらい）なのは正確
Autocad体験版（７０万）で試したらは正確だった。
自分のは６万の安物
224:デフォルトの名無しさん
15/12/17 07:16:30.79 MUNBX9mT.net
>>219
正確な値はどうやって調べました？
225:デフォルトの名無しさん
15/12/19 10:37:34.32 R5LeEZzK.net
6あれば9あり
226:デフォルトの名無しさん
15/12/24 21:50:12.68 +ldhkJyO.net
お題：丸括弧を行頭か行末にしかかけないルールで整形する
227:デフォルトの名無しさん
15/12/25 00:42:27.39 uvgJJP9n.net
意味不明
228:デフォルトの名無しさん
15/12/25 23:24:49.38 zvvbCA1Y.net
与えられた文字列を適当な個所で改行して整形してください
ただし、丸括弧は必ず行頭か行末にくるようにすること
229:デフォルトの名無しさん
15/12/25 23:47:27.56 +one86k3.net
いわゆる禁則処理を実装しろって事か？
230:デフォルトの名無しさん
15/12/25 23:52:26.53 uvgJJP9n.net
>>224
URLﾘﾝｸ(ideone.com)
C++。Lispのインタプリタでも作ってるのか？
これくらいできないと先は暗いな。
231:デフォルトの名無しさん
15/12/26 00:08:45.49 V7QFceGd.net
>>226
39~40行目で改行から80文字数えてるけど、ここにも改行処理入れるつもりだったのでは…？
232:デフォルトの名無しさん
15/12/26 00:09:49.09 V7QFceGd.net
て>>227書いて、ideone更新したら改行処理入ってたｗ
233:デフォルトの名無しさん
15/12/26 00:19:55.66 JMFsFNWO.net
あぁ、すまん。
ちょっとコードに不満あったから修正してた。
ソーリー。たぶんこれでおｋ。
234:デフォルトの名無しさん
15/12/27 09:05:47.31 q7MBupA+.net
>>229
あなたGitHubやらんの？
235:デフォルトの名無しさん
15/12/28 00:06:02.54 T+sfUcIf.net
>>230
アカウントはもってるが、コマンドが不理解で使えてない。
VSでコンパイルするたびにプッシュしてほしいんだけど、
そういうことのやり方がさっぱりで諦めた。
236:デフォルトの名無しさん
15/12/28 09:36:01.27 Rf5WBlJJ.net
>>231
VSもGitはコマンドライン操作？
あなたコード書くの好きそうだしGitHubで公開した方がいいんでない
237:デフォルトの名無しさん
15/12/29 00:04:03.34 zkqY07q7.net
>>232
一応GUI統合のパッケージがあるのだけど、
使い方がVSのそれじゃない感じなので挫折したっていうね。
今は治ってるのかなぁ・・・。
まぁ、コード書くのはきらいじゃないんだけど、
タマに書くコードとかはお遊戯なので公開してもあんまりメリットないと思います。
まぁちょっと試してみるか。
238:デフォルトの名無しさん
15/12/29 01:06:22.14 zkqY07q7.net
一応、VS上からサバに送ることはできた。
しかし、鯖側が何やってるか把握してないので、頭沸騰しそうだよぉ。
すごい、怖いです。
239:デフォルトの名無しさん
15/12/29 15:27:55.80 B86ZwWUs.net
個人開発ならadd, commit, pushだけ使えればおｋじゃない
240:デフォルトの名無しさん
15/12/29 23:56:47.54 zkqY07q7.net
ググるならそれで困らないと思う。
だが、VS上では日本語なので何をやってるかさっぱりでやり直しなのだ。
勘でこういうことだろう。っていうのを類推しながら昨日やってたが、頭沸騰する。
マジ、苦行だ。
241:デフォルトの名無しさん
15/12/30 06:03:10.21 HSsTu4WU.net
Gitのプロジェクトを管理してる日本人が本出してるからお布施してみれば
242:デフォルトの名無しさん
15/12/30 08:15:12.42 BOREIzQ4.net
気が向いたらやりまっす。
243:デフォルトの名無しさん
15/12/31 00:17:22.29 1GOOzyNm.net
お題：猿から餌を守る。
動物園では猿の餌を３桁の回転ダイヤル式鍵で保管管理しています。
各桁は０～９までのどちらの方向にも回せるタイプです。
しかし猿は定期的に鍵を開けようと試みます。
猿は各桁のダイヤルをそれぞれ１操作回転させてからＵ字部を引きます。
もちろん、設定と合った場合は開錠してしまい餌を盗られてしまいます。
猿は番号を覚えたり、ダイヤルを順番に試すような知恵は無いので
常に操作は無作為です、また回転させる方向も無作為です。
しかし、この鍵は特殊で作られていて、回転の摩擦抵抗を（弱・中・強）
に設定出来るようになっています。
弱の場合は１操作で、１０～２０までのランダムなステップ数が回ります。
中の場合は１操作で、５～１０までのランダムなステップ数が回ります。
強の場合は１操作で、０(回せなかった）又は、１ステップ数が回ります。
ここで、３桁の設定をどのようにすれば、猿が最も開錠する確率が低くなるでしょうか？
３桁の順番は関係ないと思うので、例えば
（２桁を中、１桁を強）または（２桁を弱、１桁を強）などと答えてください。
244:デフォルトの名無しさん
15/12/31 00:33:02.82 kHVCdoOu.net
ドンだけランダム必要なんだ。ちょっと面倒だなぁ。
245:デフォルトの名無しさん
15/12/31 02:00:08.64 kHVCdoOu.net
>>239
URLﾘﾝｸ(ideone.com)
C++。ローカルでデバッグしたら収束しなかったので、ほとんどデバッグしてない。
なぜかイデオン上では速攻オワタ。
大丈夫かこれ？？？
246:デフォルトの名無しさん
15/12/31 02:00:55.35 kHVCdoOu.net
ところで、GITHUB公開したらメールばれするじゃないか。
そんな趣味はありませんですことよ。
247:デフォルトの名無しさん
15/12/31 02:52:11.77 kHVCdoOu.net
ちょ、誰かいない？
>>241検証できる人いませんかー。
デバッグできないので何ができるわけでもないけど。
248:デフォルトの名無しさん
15/12/31 09:45:56.04 gJy9w4AY.net
新年問題きたか
249:デフォルトの名無しさん
15/12/31 12:42:50.44 2anvHRU0.net
>>239 Java
URLﾘﾝｸ(ideone.com)
250:デフォルトの名無しさん
15/12/31 13:19:32.68 /Zl81OUL.net
数学的に解きたくなってしまうな・・・
251:デフォルトの名無しさん
16/01/01 00:32:27.90 9G3HgWpt.net
>>239
URLﾘﾝｸ(ideone.com)
C++。ちょっとバグってたの修正。０～８までしか選択できてなかった。
252:デフォルトの名無しさん
16/01/01 00:34:34.13 9G3HgWpt.net
あけましておめでとうございます。
253:デフォルトの名無しさん
16/01/01 01:02:54.81 yxxZ1kbC.net
おめでとうございます
254:デフォルトの名無しさん
16/01/01 13:06:55.68 eZmmhQ/k.net
あけましておめでとうございます。今年もよろしく。
新年最初の問題なので簡単そうで難問に挑戦してください。
お題：直角三角形ＡＢＣがあります。
∠Ｃが直角とします。
ＡＣの長さは５ｃｍです。
ＡＢの線上に点Ｐを取りました。
ＡＰの長さは２ｃｍです。
ここでＰからＣに線分を引きました。
ＰＣの長さを測るとちょうど４ｃｍでした。
この直角三角形ＡＢＣのＢＣの長さは何ｃｍでしょうか？
なるべく正確に出しなさい。
255:249
16/01/01 13:23:06.00 eZmmhQ/k.net
訂正
問題ミスです。簡単ですねｗ
256:デフォルトの名無しさん
16/01/01 14:48:21.26 BqDq7bML.net
余弦定理よりcosA=13/20
1+(tanA)^2=(1/cosA)^2 よりtanA=√31/13
BC=5tanA=5√31/13
257:249
16/01/01 20:25:54.12 eZmmhQ/k.net
訂正お題：△ＡＢＣがあります。辺ＢＣが底辺です。
（それぞれの角は９０°以上にならない普通の三角形です。）
ＢＣの長さは８ｃｍです。
ＣからＡＢの線上に垂線を下ろし点Ｐを取りました。
ＡＰの長さはちょうど１ｃｍなりました。
さらにＰからＢＣの線上に垂線を下ろし点Ｑを取りました。
ＰＱの垂線の長さはちょうど３ｃｍなりました。
さてＢＱの長さは何ｃｍでしょうか？（注意：解が１つとは限りません。）
小数点以下６桁まで出しなさい。
258:デフォルトの名無しさん
16/01/02 08:23:10.74 R8CGoUf/.net
>>239 Java
URLﾘﾝｸ(ideone.com)
5秒に収まらなかったでござる…だが精確にはなったと思う
259:249
16/01/02 16:54:58.87 qBZ4J2GA.net
どうもm(_ _)mごめんなさい、簡単そうで定規コンパスで絶対作図出来ない三角形
やっと思い出しました。（恐らくCADでも作図できない。）
お題：△ＡＢＣがあります。辺ＢＣが底辺です。
（それぞれの角は９０°以上にならない普通の三角形とします。）
三角形の高さは７ｃｍです。
ＢＣの長さは１０ｃｍです。
ＡＢの線上に点Ｐを取りました。
ＡＰの長さは１ｃｍです。
ここでＰＣの線分を引き長さを計るとちょうど８ｃｍなりました。
さてＰＢの長さは何ｃｍでしょうか？
小数点以下６桁まで出して下さい。
260:デフォルトの名無しさん
16/01/02 18:31:25.74 R8CGoUf/.net
>>255 Java
URLﾘﾝｸ(ideone.com)
よーわからんがこれでええのん？
261:デフォルトの名無しさん
16/01/02 21:36:26.87 qBZ4J2GA.net
>>256
Goodです。やはりプログラムは簡便に求まりますね。
確か、方程式にすると４次方程式だったかな。
262:デフォルトの名無しさん
16/01/02 23:12:30.77 wbcMORBx.net
6次にはなったけど、4次になる？
どうやるの？
263:デフォルトの名無しさん
16/01/02 23:57:06.31 wbcMORBx.net
6553600 x^6 -22937600 x^5 +30353664 x^4 -18575872 x^3 +5301408 x^2 -889056 x +194481 = 0
の解（の１個）に対して、
8x / (7-8x) が求める長さ
264:255
16/01/03 00:02:35.63 j2CXypF5.net
うん、さっぱりわからんｗｗ
265:デフォルトの名無しさん
16/01/03 00:10:58.01 o15FFH+r.net
普通にpyを8xと置いて方程式を立てて整理しただけ
266:デフォルトの名無しさん
16/01/03 00:35:54.90 TvE7D5Dq.net
>>255 Emacs Lisp
(require 'cl-lib)
cl-lib
(let ((Ay 7.0) (Bx 0.0) (By 0.0) (Cx 10.0) (Cy 0.0) (AP 1.0) (PC0 8.0))
(let ((Axmin Bx) (Axmax Cx) PB0)
(cl-loop
(let ((Ax (/ (+ Axmin Axmax) 2)))
(let* ((Px (let ((a (+ 1 (expt (/ Ay Ax) 2)))
(b (+ (* -2 Ax) (/ (* -2 Ay Ay) Ax)))
(c (+ (expt Ax 2) (expt Ay 2) (- AP))))
(/ (- (- b) (sqrt (- (expt b 2) (* 4 a c)))) (* 2 a))))
(Py (* (/ Ay Ax) Px)))
(let ((PB (sqrt (+ (expt (- Px Bx) 2) (expt (- Py By) 2))))
(PC (sqrt (+ (expt (- Px Cx) 2) (expt (- Py Cy) 2)))))
(and PB0 (< (abs (- PB0 PB)) 0.000001) (return (format "%f" PB)))
(setf (if (< PC0 PC) Axmin Axmax) Ax)
(setq PB0 PB)))))))
"7.959000"
267:デフォルトの名無しさん
16/01/03 02:58:05.62 o15FFH+r.net
>>249 をニュートン法で解くのが良い
100万桁くらい求められる
268:デフォルトの名無しさん
16/01/03 15:15:54.32 gIFHPruM.net
>>255 Haskell
適当にやったけどそれなりの値に収束したぞ
main = print $ f 3 1 !! 10000
f x d = x : f (x - g x * d) (d * 0.9)
g x = sqrt(1-((x^2+10^2-8^2)/(x*10*2))^2)*(x+1)-7
--
7.958400097301163
269:デフォルトの名無しさん
16/01/03 17:50:09.78 cbZEOl3j.net
249とかは、プログラミングの話題とはあんまり関係ないと思うんだが
270:デフォルトの名無しさん
16/01/04 18:16:31.23 mH8w9NDh.net
正しい値
7.958999540670207177702263965366890868924353898555
7799452182420944176743383277819472811732768796743
8318898738257814428173492288313392264554506228517
666119...
271:デフォルトの名無しさん
16/01/04 18:19:15.52 mH8w9NDh.net
>>201 の正しい値
1947.11807954634173960535758830613451914405126679271213882
533811635602148727751327773910199748046019861942974251070
215931647320721843150204685782788027005081182762594264937
472455162842376624181590647736961208708004693388297869382...
992.957114044052359738684758693502096892477144491881820261
461861302037924597815356848916173956940410685796740490976
075326082780973939688404480667490868665288270999173692699
242549879611533131497908524170290199136162010153658336901...
272:デフォルトの名無しさん
16/01/08 01:15:21.96 2qKIN/Bt.net
お題： 1~n行の文字列が入力されます。'*'の矩形で囲って出力してください
例：（出力は左詰め半角スペースでパディングしてるつもり）
in < ab
in < abc
in < a
out >
******
* ab *
* abc *
* a *
*****
以下のオプションは取捨選択自由です
a. タブ文字への対応(矩形が崩れなければおｋ)
b. 右詰め、中央詰めの選択可能な実装
c. 日本語への対応
273:デフォルトの名無しさん
16/01/08 01:21:33.67 XS9KJKDz.net
aは4タブか8タブかで宗教戦争に入るからなぁ。
bは割とできる方。
cはC++だとめちゃくちゃ大変。ウニコードコンテナ入らないと難しい。
あと、等幅フォントじゃないと難しい。
274:デフォルトの名無しさん
16/01/08 01:37:44.81 2qKIN/Bt.net
>>269
ですね。追加で
d. a.で半角スペースに変換する場合、半角スペース数の選択可能な実装
275:デフォルトの名無しさん
16/01/08 01:46:59.74 2qKIN/Bt.net
c. は確かに等幅フォントじゃないとアレですね、環境依存ですね
等幅フォント前提でおなしゃす
276:デフォルトの名無しさん
16/01/08 02:58:33.88 XS9KJKDz.net
>>268
URLﾘﾝｸ(ideone.com)
C++。" ab"は判断が分かれるので何もしなかった。
大体あってると思うが、適当に手を抜いた。かしこ。
277:デフォルトの名無しさん
16/01/18 21:17:40.87 0oN+Zp9M.net
>>268 rust 1.5
URLﾘﾝｸ(ideone.com)
278:デフォルトの名無しさん
16/01/21 23:31:52.04 XgHkIVxU.net
>>268 J
echo '*',~'*',('* ' , ,&' *')
279:デフォルトの名無しさん
16/01/21 23:42:05.32 XgHkIVxU.net
>>274 なぜか途中できれちゃったのでもう一回
>>268 J
echo '*',~'*',('* ' , ,&' *')"1,;._2 toJ stdin ''
280:デフォルトの名無しさん
16/01/22 00:43:09.92 So/btKLV.net
お題：ウラムの螺旋（素数螺旋）にて
上下左右が素数で囲まれている数（偶数なので素数でない）
の若い方から順番で１０００番目の数を求めなさい。
（参考）
１番目 ６
２番目 １２
３番目 ７２
281:デフォルトの名無しさん
16/01/22 00:57:27.35 iy9dE6+2.net
URLﾘﾝｸ(sim.okawa-denshi.jp)
こちらのサイトの
282:一番上の抵抗分圧の抵抗の組み合わせを抽出するプログラム をC言語で作りたいのですが、いまいちどういう風に作ったらいいか わかりません。 このプログラムは与えられたV1とV2からV2に近くなるR1とR2の組み合わせ抽出するというプログラムです。 抵抗分圧の公式はV2＝V1＊R2/(R1＋R2)です。 E24系列というのはRの基本値で、1, 1.2, 1.3・・という決まった値でそれの10倍値や100倍値も存在し、 MAXだと100万倍ぐらいまであります。(1MΩとか10MΩ) R1とR2の全組み合わから一度Voutを計算して、V2と一番近くなる組み合わせをだそう かと思ったのですが、Rの組み合わせが膨大で現実的ではありません。 なにかいい方法はないでしょうか？
283:デフォルトの名無しさん
16/01/22 00:58:35.84 864z2gB2.net
いつから1が素数になったんだ？
284:デフォルトの名無しさん
16/01/22 01:02:29.55 864z2gB2.net
>>277
普通に全組合せでも一瞬で終わるとおもう
R2を決めれば、理想のR1が求まって、それ以上の最小の抵抗と、それ以下の最大の抵抗をR1とすればかなり絞れる
285:デフォルトの名無しさん
16/01/22 01:12:29.69 So/btKLV.net
>>278
じゃあ
１番が１２で
286:デフォルトの名無しさん
16/01/22 01:16:09.22 864z2gB2.net
1000個以上存在することはわかってるの？
287:デフォルトの名無しさん
16/01/22 01:17:14.81 LSwKLHy0.net
>>277
例えばE24の場合、抵抗値の全パターンは１６８。
①ループ条件として、１６８個の抵抗値を順にR1とする。
②目標の比率になる理想的な抵抗値を算出する。
③それに近い前後の抵抗値を見つけ、前後で目標に近い値を候補として残す。
④前回のループで見つけた候補と比較し、より目標値に近い値を候補として残す。
ループを抜けると、「チン」と音がして、料理ができあがる。
こんな感じかな？
288:デフォルトの名無しさん
16/01/22 01:20:02.16 So/btKLV.net
>>281
わかってる。２分で計算できた。
289:デフォルトの名無しさん
16/01/22 09:42:10.08 XJFbEDkM.net
>>276 Java
URLﾘﾝｸ(ideone.com)
あってるかどうかはしらんｗ
290:デフォルトの名無しさん
16/01/22 18:37:16.70 864z2gB2.net
>>284
そのコードって答えを知ってるから書けるんであって、
それなら以下でも本質的には同じと思う
int main(){return 13833270;}
291:デフォルトの名無しさん
16/01/22 19:08:13.72 XJFbEDkM.net
>>285が何を言いたいのかがわからん
292:デフォルトの名無しさん
16/01/22 20:08:35.41 JaO9gEs7.net
上限を定めない素数生成をどうするかもポイントだろうに
16777216が上限と決めうちなのが気にくわないんだろ
293:デフォルトの名無しさん
16/01/23 01:08:51.74 POOOZq0F.net
>>285
URLﾘﾝｸ(ideone.com)
これで満足か？
294:デフォルトの名無しさん
16/01/23 09:54:57.98 ZDlTAjvh.net
君が満足ならいいんじゃない？
>>284でも
295:デフォルトの名無しさん
16/01/23 10:01:36.42 ZDlTAjvh.net
>>285で満足ならそれでも
コンパイラの最適化で>>284と>>285と>>288が同じコードになる日も来るかもしれない
ちなみに、>>276のような数が無限個ある証明は現代では誰も出来ない
（出来たら歴史に名が残るレベル）
有限個である証明はもしかしたら出来るかも
296:デフォルトの名無しさん
16/01/23 10:11:43.67 ZDlTAjvh.net
おれは出題者でも審査員でもないからな
おれの機嫌を伺う必要は無いよ
297:デフォルトの名無しさん
16/01/23 16:49:42.83 264QGEmB.net
ケチつけといて、修正したら機嫌をうかがう必要はないとかキチガイかよｗ
298:デフォルトの名無しさん
16/01/23 22:24:43.51 qXOiofIi.net
ただの感想だ
>>284で満足なら良いんじゃない？
出題者の意見は？
299:デフォルトの名無しさん
16/01/23 22:39:56.92 kmeCYvLc.net
プログラマってアスペなのか何様？って奴多いよな
300:デフォルトの名無しさん
16/01/23 22:53:14.83 vCzR1C5c.net
>>277
総当たりでやってもE192の場合でもそんなにかからず終わるよ。
301:デフォルトの名無しさん
16/01/23 23:46:05.37 2OCOgJAF.net
>>293
感想より自分のコードは？
302:デフォルトの名無しさん
16/01/24 06:47:36.82 9RGbGjss.net
URLﾘﾝｸ(ideone.com)
特に関係ないのだけど、追記型素数検出器作った。
まあ、何かに使うわけじゃないけど、一応作ったのでアップ。
暇だったんだよ。
303:デフォルトの名無しさん
16/01/24 09:45:56.17 a60MvDTP.net
>>293
>>285
304:デフォルトの名無しさん
16/01/24 15:24:29.41 lhTTumXW.net
276ですが、
総当りでやってみたのですが、プログラムが悪いせいか
結構時間がかかってしまいます。
抵抗の系列の基数をdoble型の配列にしたのがよくない上に
dobleだと誤差がでて、丸めの処理を入れないといけなくなって
さらに時間がかかってしまう状況です。
305:デフォルトの名無しさん
16/01/24 15:47:41.33 qvsZxuE5.net
>>299
E192の場合で書いてみた。これで試してみて
URLﾘﾝｸ(ideone.com)
306:デフォルトの名無しさん
16/01/24 16:09:41.53 5rhebb
307:dV.net
308:デフォルトの名無しさん
16/01/24 17:35:41.78 lhTTumXW.net
>>301
すみません。補足します。
実はCだとそんなに遅くなかったのですが、
今はjavaでも書いてまして。
doubleの誤差を丸めるためにループ分ビッグデシマルで
四捨五入したら時間かかるようになってしまったんです。
>>300
ありがとうございます。
参考にします。
309:デフォルトの名無しさん
16/01/24 17:38:57.83 qvsZxuE5.net
Javaで書いても、根幹部分は変わらないでしょ。
そんなに丸目誤差を気にするところないと思うけどな。
310:デフォルトの名無しさん
16/01/24 20:12:14.88 qvsZxuE5.net
>>302
>>277で紹介したサイトなんだけど、
例えばE24で、１０００V,と０．０１Vを指定したときの答えがおかしくないですか？
こういう回答をする内部ロジックがとても気になってきました。
311:デフォルトの名無しさん
16/01/24 20:26:12.91 lhTTumXW.net
>>303
たとえばdoubleでとったR1の配列を表示しようとしただけでも
110としてるはずなのに110.0000000001みたいに表示してしまうし、
原理的に3Ωと2.7Ωの組み合わせがOKだったら、30kと2.7kΩの
組み合わせでも誤差は同じはずなのに計算過程で小数点以下
が微妙に異なってしまい結果にでてこなくなったりしてしまいます。
312:デフォルトの名無しさん
16/01/24 20:27:23.21 lhTTumXW.net
原理的に3Ωと2.7Ωの組み合わせがOKだったら、30kと2.7kΩの
→
原理的に3Ωと2.7Ωの組み合わせがOKだったら、3KΩと2.7kΩの
に訂正します。
313:デフォルトの名無しさん
16/01/24 20:43:02.29 SFsRUuPo.net
decimal使うか丸め処理入れるか
314:デフォルトの名無しさん
16/01/24 21:14:00.89 5rhebbdV.net
誤差が嫌なら整数(を使った分数)で計算すれば？
315:デフォルトの名無しさん
16/01/24 23:02:11.31 lhTTumXW.net
276ですが、
極端に遅くなるのはバグでした。
すみません。
比較用の全リスト作成をループ毎で実行していたせいでした。
ということでデシマル使ってもそこまで遅くならないみたいです。
316:デフォルトの名無しさん
16/01/30 01:00:32.10 WeGPRoDh.net
1000 13833270
2000 36950448
3000 62765388
4000 92605770
5000 122764008
これであってる？
317:デフォルトの名無しさん
16/01/30 10:47:18.56 ClOdxYy7.net
>>310
出題者ですが1000はあってる。1000以上は計算していないが
1 12
2 72
3 1152
4 1452
5 1950
6 3672
・・・
を計算する数列なら恐らくあっている。
1000までの間隔の最小は12で最大は96360で不規則。
318:デフォルトの名無しさん
16/01/30 21:26:25.48 PJcKfdaW.net
出題者じゃありませんが、合ってます
こんな感じ
1000 13833270
2000 36950448
3000 62765388
4000 92605770
5000 122764008
10000 299498628
20000 717493758
50000 2306937132
100000 5427079830
200000 12675688842
500000 38766060522
1000000 89373316260
2000000 204583856130
5000000 606668296320
10000000 1374073119822
20000000 3099496478412
319:デフォルトの名無しさん
16/02/02 05:04:22.87 +n78UQ/o.net
定期age
320:片山博文MZ ◆T6xkBnTXz7B0
16/02/02 15:21:32.92 CI2b+eqR.net
お題：ファイルやフォルダの名前、ファイルの中身に含まれて
いる複数のタグ({{AppName}}や{{Authors}}など)を一括置換した結果の
フォルダを作成するプログラム。
文字コードは少なくともUTF-8をサポートせよ。
321:デフォルトの名無しさん
16/02/02 16:02:19.62 5quLb8ti.net
>>314
環境依存なので嫌どす。
頑張ってください。
322:デフォルトの名無しさん
16/02/23 11:02:15.31 ltvQNGjy.net
>>2
過去スレ
7 ｽﾚﾘﾝｸ(tech板)
前スレを、テンプレに追加して
323:デフォルトの名無しさん
16/02/28 07:21:11.33 052J+z1F.net
止まっちゃったなぁ。
最近はギトハブに上げてるわ。趣味プロを・・・。
324:デフォルトの名無しさん
16/02/28 09:12:07.86 i+krYFXY.net
2ch過疎ってるねぇ
325:デフォルトの名無しさん
16/02/28 12:30:35.23 Q5mbPZul.net
お題：ウラムの螺旋（続き）
ウラムの螺旋にて、素数が斜めに隣接（2と3,2と11以外は斜めしかない。）
したものを以下の図のように線分で結びます。
URLﾘﾝｸ(www.dotup.org)
なぜか、１個の非素数を囲んでる最小の ◇ 図形以外で
（ちょうど前問の上下左右が素数に囲まれた位置になります。）
複数の非素数が囲まれている閉じた図形は存在しないようです。
例えば、仮に203が素数ならば11個の非素数を囲めたことになりますし、
また例えば、仮に141が素数ならば2個の非素数を囲めたことになります。
（正確には"日"の文字が45度傾いたような図になりますが外枠だけを考えて2個囲めたと
します。）しかし、203も141も素数でないので、成立しません。
以下は約30000までの図。（中心の赤が1の位置）
URLﾘﾝｸ(www.dotup.org)
さて、複数の非素数が囲まれている閉じた図形は本当に存在しないのでしょうか？
それとも、数を多くすればどこかにあるのでしょうか？
プログラムで検証してみてください。
例えばいくつまで検証したが無かったとか、いくつで初めて出てきたとか
（その場合は囲む素数を列挙してください。）
326:デフォルトの名無しさん
16/02/28 13:38:15.98 052J+z1F.net
今手持ちのライブラリで実現できそうだから32bitmaxまでの設計を試案してみた。
しかし、今日は寝ないといけないのでまた明日やるかも。確約はしないけど。
タートルグラフィック作った�
327:ﾅすよタートルグラフィック。 それと追記型素数検出器でできるかもなーと、青写真を描いただけだけど。 ただ、メモリが足りるかわからん。
328:デフォルトの名無しさん
16/02/28 16:26:13.84 052J+z1F.net
URLﾘﾝｸ(light.dotup.org)
眠れなかったので、コード書いてた。
デバッグがてらに16ビット求めてみた。
厳密な数字は計算してないのでどこで何番が出現したかは知らない。ただ絵を生成している。
メモリ18GBも使うアプリ作ったの初めてだよ。ホラブルホラブル。
一応、仕込んで寝るけど、落ちないようにお祈りしておこうかな。
329:デフォルトの名無しさん
16/02/28 23:11:37.20 052J+z1F.net
終わらないよー。現在7時間で7000万カウント。
どんどんペース落ちてる。素数列挙重い・・・。Orz
330:デフォルトの名無しさん
16/02/29 02:54:24.43 p8lHTaCd.net
いったん止めます。
331:デフォルトの名無しさん
16/02/29 03:24:10.39 p8lHTaCd.net
レッツリトライ。アルゴリズムを見直した。
332:デフォルトの名無しさん
16/02/29 04:56:48.77 p8lHTaCd.net
さらに見直し。速度低減をなくした。
結果的に10倍ぐらい早くなった。かな？
333:デフォルトの名無しさん
16/02/29 05:17:02.90 I3HQeNlK.net
素数列挙ではダメで囲いサーチだろ。
334:デフォルトの名無しさん
16/02/29 05:36:03.42 p8lHTaCd.net
画像生成するので目で確かめようと思ってます。
ただ、それが何番かはわかりません・・・。Orz
335:デフォルトの名無しさん
16/02/29 06:39:18.63 wRRlOVxG.net
コマネチ！
336:デフォルトの名無しさん
16/02/29 18:22:11.19 p8lHTaCd.net
うぅ。13時間回して1.9億カウント１０日かかりますわ。
ソース公開するからやめていい？
337:デフォルトの名無しさん
16/02/29 18:24:23.39 p8lHTaCd.net
並列化してもうまくいって二日か・・・。
338:デフォルトの名無しさん
16/02/29 19:36:07.25 p8lHTaCd.net
26bitで再計算。こっちは２時間半で終わる予定。もーヤダー。
最新PCでも１０日とか、俺ってタコ。
339:デフォルトの名無しさん
16/02/29 21:54:34.42 gY4tu7UX.net
試しに28bitで計算させてみたけど1つも見つからなかったよ。
プログラムのバグじゃ無きゃ良いけど。
340:デフォルトの名無しさん
16/02/29 21:59:36.65 gY4tu7UX.net
コードはこんな感じ
35行目のNに対し、2N bits空間の素数について調べる。
URLﾘﾝｸ(ideone.com)
341:デフォルトの名無しさん
16/02/29 22:24:57.60 p8lHTaCd.net
生成物：URLﾘﾝｸ(www.dotup.org)
そーす：URLﾘﾝｸ(www.dotup.org)
やーっと終わった。２６ビット計算。
縁に黒いのあるのは境界線系のバグの可能性が高いので精査よろしく。
燃え尽きたぜ。
>>332-333
先越された・・・。Orz
342:デフォルトの名無しさん
16/03/01 04:48:06.87 /oGISoD7.net
>>334
中心に緑の点を打ってくれんかのう‥
343:デフォルトの名無しさん
16/03/01 07:17:18.80 iONc0Loh.net
無いってことは規則的に循環でもしてるのか？
お前らリーマン予想解いたんか？
344:332
16/03/01 09:07:57.31 fxkt5PE4.net
>>334
なんだか無駄な処理が多いように見える
素数性判定を1個1個するよりエラトステネスの篩を使うとかしようぜ。
# 32bitで見つからんかった
345:332
16/03/01 22:38:46.95 fxkt5PE4.net
36bitで見つからんかった。
もう辞めるわ。
346:デフォルトの名無しさん
16/03/02 06:33:06.17 2mV+3fZd.net
>>338
お疲れ様です。
出題者ですが、自分も無いんじゃないかなで
答えはわかりませんm(_ _)m
347:デフォルトの名無しさん
16/03/03 15:01:26.06 6dBXddTu.net
お題：以下の式の□に+または-を入れて成立する式をすべて求める。
1□2□3□4□5□6□7□8□9=1
348:デフォルトの名無しさん
16/03/03 18:29:47.32 t9z0z44u.net
>>340 Bash
URLﾘﾝｸ(ideone.com)
349:デフォルトの名無しさん
16/03/03 19:58:32.83 SkSUFtdJ.net
お題：リストを重複の多い順に並び替える
重複個数が同じ場合はリストに登場するのが早い順とする
"Hello world" -> "lllooHe wrd"
[3,1,4,1,5,9,2,6,5,3,5,8,9,7,9,3,2,3,8,4,6]
-> [3,3,3,3,5,5,5,9,9,9,1,1,4,4,2,2,6,6,8,8,7]
350:デフォルトの名無しさん
16/03/03 20:40:38.92 rLQVucBG.net
>>340 Rust 今日来る1.7を待ちながら
URLﾘﾝｸ(play.rust-lang.org)
351:デフォルトの名無しさん
16/03/03 21:43:53.21 GzhlChId.net
>>342
C++
URLﾘﾝｸ(ideone.com)
352:デフォルトの名無しさん
16/03/03 22:03:26.12 LBKN89dL.net
>>342
Python3
URLﾘﾝｸ(ideone.com)
353:デフォルトの名無しさん
16/03/03 23:17:39.49 fGqRJK5H.net
>>342
haskell
import Data.List (sortBy)
main = do
putStrLn $ s "Hello World"
print $ s [3,1,4,1,5,9,2,6,5,3,5,8,9,7,9,3,2,3,8,4,6]
s xs=concat.sortBy(\x y -> compare (length y) (length x))$gs xs
gs :: Eq a => [a] -> [[a]]
gs[]=[]
gs (x:xs)=(x:a) : gs b
where (a,b)=(filter(== x)xs,filter(/= x)xs)
354:デフォルトの名無しさん
16/03/04 15:28:38.54 7Zl+7QrX.net
お題：
配列Bを配列Aの規則順に従って整列。Aに含まれ無い物は最後尾にアルファベット順に整列。
例：
配列A ary_a=["d","b","e","f","a","c"]
配列B ary_b=["a","b","c","h","m"]
結果：["b","a","c","h","m"]
言語：
rubyかpython
355:デフォルトの名無しさん
16/03/04 15:49:17.83 DX3xeB7o.net
>>347
楽すぎない？
356:346
16/03/04 16:33:45.39 7Zl+7QrX.net
このままだったら適当でもそんなに時間がかからないから自分でもできるんですが、
配列の数が多い場合だとどんなやり方があるのと思いまして。
じゃあちょっと増やしてこのぐらいで。
答えはわかりません。
お題：
配列Bを配列Aの規則順に従って整列。Aに含まれ無い物は最後尾にアルファベット順に整列。
例：
長いのでこちら
URLﾘﾝｸ(ideone.com)
結果：？
言語：
rubyかpython
357:デフォルトの名無しさん
16/03/04 18:38:25.99 pEnisYEU.net
お前の業務？
358:デフォルトの名無しさん
16/03/04 18:46:32.50 9GjrgxFP.net
>>349
URLﾘﾝｸ(ideone.com)
359:デフォルトの名無しさん
16/03/05 19:06:23.29 CXefnPD8.net
>>342 J
f =: 3 : 0
a =. (\: +/"1 =/~ y) { y
b =. ~. a
(/:~ b i. a) { b
)
f 'Hello world'
lllooHe wrd
f 3 1 4 1 5 9 2 6 5 3 5 8 9 7 9 3 2 3 8 4 6
3 3 3 3 5 5 5 9 9 9 1 1 4 4 2 2 6 6 8 8 7
360:デフォルトの名無しさん
16/03/06 00:31:45.05 WEeJcjtE.net
>>340
haskell
main = mapM(putStrLn) [p x|x<- sequence $ [1]:[[x,-x]|x<-[2..9]],1==sum x]
p=concat.map(\x ->if x>1 then "+"++show x else show x)
361:デフォルトの名無しさん
16/03/06 15:24:05.92 /EFFTfcH.net
>>342 C
>>344 を参考に
URLﾘﾝｸ(ideone.com)
362:デフォルトの名無しさん
16/03/07 10:29:38.19 +tQLURZK.net
>>351
ありがとうございます。自分で作ったのに比べると格段にすっきりしてます。
each_with_indexもto_hもgroup_byも初めて知りました。勉強になります。
363:デフォルトの名無しさん
16/03/11 08:14:24.51 fvdAjVDF.net
あら、新規来ないと思ったら移動してたか。
>>335
ある程度起動してから気づいたから遅かった。
>>337
別の目的で作ったコードなので、これ用というわけじゃなかったのです。
追記型がほしかったので作りました。
364:デフォルトの名無しさん
16/03/11 08:17:33.24 fvdAjVDF.net
>>340
URLﾘﾝｸ(ideone.com)
C++。作ってあったコードをいじっただけなので変なコードになってます。
多分あってると思います。
365:デフォルトの名無しさん
16/03/11 08:49:31.19 fvdAjVDF.net
>>347,348
URLﾘﾝｸ(ideone.com)
C++。デバッグはほとんどしてない。手を抜いたから遅いよ。
366:デフォルトの名無しさん
16/03/11 09:16:36.16 fvdAjVDF.net
>>342
URLﾘﾝｸ(ideone.com)
C++。最近、あんまり効率考慮したコードが書けてないな～。
367:デフォルトの名無しさん
16/03/11 23:07:01.52 4PxK/ADg.net
変数A1, A2, A3, A4, A5 に整数が入っているとして、
全部同じか、そうでないかを判定したいのですが、
もっとも効率よい方法教えて下さい。
if(A1==A2&&A2==A3&&A3==A4&&A4==A5){
...
}else{
...
}
みたいなのしか思いつきません。
368:デフォルトの名無しさん
16/03/11 23:55:40.35 fvdAjVDF.net
それ以外だとSIMD使うとかになりそうな・・・。
369:デフォルトの名無しさん
16/03/14 11:38:06.21 7hslT/Gl.net
お題：平和な動物園を作ろう
URLﾘﾝｸ(www.hisenkei.net)
370:デフォルトの名無しさん
16/03/14 12:34:29.93 DTR/fUtN.net
宿題じゃね？
371:デフォルトの名無しさん
16/03/14 13:20:59.04 W5wCaIkX.net
NP困難問題とか総当りするぞ
372:デフォルトの名無しさん
16/03/14 19:24:58.74 MNFRtT1Y.net
>>362
相性度の大小が逆じゃない？相性が悪いほど相性度の数値が大きくならないと‥
373:デフォルトの名無しさん
16/03/14 22:37:30.95 DTR/fUtN.net
よーしぱぱ、ねくすとぱーみゅてーしょんつかっちゃうぞー。
374:デフォルトの名無しさん
16/03/14 23:24:37.10 DTR/fUtN.net
>>362
URLﾘﾝｸ(ideone.com)
C++。かき捨て。デバッグ一切してないのでバグってたら御免。
だって、スカイレークのリリースで11秒かかるんだもん。
375:デフォルトの名無しさん
16/03/16 00:17:53.91 a7Xs+q4N.net
不満度2160であってるんかね
376:デフォルトの名無しさん
16/03/16 00:31:47.47 a7Xs+q4N.net
>>367
Calc内のstd::vector<DType> Angryとstd::vector<DType> Lengthが毎回作られてるから遅いんじゃね？
377:デフォルトの名無しさん
16/03/16 00:40:17.12 6w3U5gAP.net
std::arrayを使ってはどうか
378:デフォルトの名無しさん
16/03/16 01:13:48.78 PW1OJjjf.net
>>368
知らんよ。適当に書き捨てただけだし。
>>370
リリースで消えてる事をただ願うだけ。2重ループ何回も起動してるから遅いもんだと・・・。
>>370
カスタマイズはご自分で。
特にこだわりはないから、MITライセンスでどうぞ。
379:デフォルトの名無しさん
16/03/16 01:14:38.03 mfi8kYDa.net
>>368
俺も(2160,[6,9,3,8,7,4,1,5,10,2])になった。
380:デフォルトの名無しさん
16/03/16 01:19:02.65 PW1OJjjf.net
あ、バグってら。たぶん。
2重ループの中ループの初期値間違ってるかも。
今、ひらめいた。
多分不満度結果の半分くらいだと思う。
まぁいいや。
381:デフォルトの名無しさん
16/03/16 01:23:09.89 a7Xs+q4N.net
URLﾘﾝｸ(ideone.com)
何も考えずにstd::vector<DType> Angryとstd::vector<DType> Lengthを外に出しただけで1.74s
382:デフォルトの名無しさん
16/03/16 01:24:01.73 PW1OJjjf.net
URLﾘﾝｸ(ideone.com)
こうかもしれん。
静的変数にしたら超絶早くなった。
383:デフォルトの名無しさん
16/03/16 01:25:15.50 PW1OJjjf.net
あいたたた・・・・。
まぁ、宿題を真面目にやる気はないんで、適当にごまかしてください。
384:デフォルトの名無しさん
16/03/16 05:12:24.47 /v9qNF/y.net
arrayにしたらかえって遅くなった
URLﾘﾝｸ(ideone.com)
385:デフォルトの名無しさん
16/03/16 07:06:29.01 PW1OJjjf.net
>>377
>>375は微妙にコード最適化してるからねぇ。
リザルト変わってるし。
一応それとしては早くなってるんじゃないかと。
386:デフォルトの名無しさん
16/03/16 11:48:35.59 j8iobkYx.net
>>362 Squeak/Pharo Smalltalk
| N animals cages ans |
N := 10.
animals := #(
(0 2 6 4 6 2 4 4 2 4) (2 0 4 2 2 2 2 2 2 6)
(6 4 0 2 6 8 8 6 4 8) (4 2 2 0 4 2 6 6 2 6)
(6 2 6 4 0 2 4 4 2 4) (2 2 8 2 2 0 6 6 6 8)
(4 2 8 6 4 6 0 6 6 4) (4 2 8 6 4 6 6 0 6 6)
(2 2 4 2 2 6 6 6 0 6) (4 6 8 6 4 8 4 6 6 0)).
cages := #(
(0 3 4 5 8 10 9 6 2 4) (3 0 4 4 7 9 9 8 5 9)
(4 4 0 2 4 7 5 4 4 8) (5 4 2 0 3 5 5 5 5 9)
(8 7 4 3 0 3 5 6 8 12) (10 9 7 5 3 0 4 7 10 14)
(9 9 5 5 5 4 0 3 8 11) (6 8 4 5 6 7 3 0 5 8)
(2 5 4 5 8 10 8 5 0 4) (4 9 8 9 12 14 11 8 4 0)).
ans := Set new -> Float infinity.
(1 to: N) permutationsDo: [:perm |
| sum |
sum := 0.
1 to: N do: [:i |
1 to: N do: [:j |
sum := ((animals at: (perm at: i)) at: (perm at: j)) * ((cages at: i) at: j) + sum]].
ans value = sum ifTrue: [ans key add: perm copy].
ans value > sum ifTrue: [ans := (Set with: perm copy) -> sum]].
^ans "=> a Set(#(6 9 3 8 7 4 5 1 10 2) #(6 9 3 8 7 4 1 5 10 2))->2160 "
387:デフォルトの名無しさん
16/03/16 13:31:34.17 NZyRjPzO.net
>>377
VSでプロファイラ取ってみたらCalcとstd::next_permutationの2つで全体の半分位
時間食ってんな
特に単純ループのCalcが全体の1/3ほど食ってる
std::next_permutationは仕方ないとしてCalcはどこか改善できんかな
配列の配列の要素取ってるから出来るだけ連続したキャッシュに乗る単なる配列の方がいいのかも
連続してないクラスの配列の配列取るもんだから、こういう単純なループがインライン展開されてないのも
原因の一つかと
388:デフォルトの名無しさん
16/03/16 15:44:17.23 NZyRjPzO.net
×インライン展開
○ループのアンロール
389:デフォルトの名無しさん
16/03/16 17:59:47.71 PW1OJjjf.net
ねくすとぱーみゅてーしょん切って動的計画法に切り替えるとかがベターかもしれん。
アッチはメモリめちゃくちゃ食うけど、早い。
しかし、俺は動的計画法を理解してないのだ・・・。Orz
390:デフォルトの名無しさん
16/03/16 18:03:36.31 VFJu78ei.net
>>362
なんか計算が微妙に合わないなと思ったら
ニシキヘビとカバの相性度が対象になってないわ
あー時間を無駄にした
391:デフォルトの名無しさん
16/03/16 18:37:37.89 PW1OJjjf.net
>>362の資料いくつか間違いがあるっぽい。
不満度も重複に計算してるし、なんか仕様表として欠陥がある。
392:デフォルトの名無しさん
16/03/20 08:30:05.20 e/Ot8AcY.net
お題：ダーツのダブルアウトの組み合わせ
問題の前にダーツのルール（501ゲーム）を簡単に説明。
1～20のマス目があって、それぞれにダブル（最外周の細い領域）と
トリプル（中間の細い領域）があり、ダブル、トリプルは得点が2倍、3倍になります。
中心の2重円は最内の円がダブルブル（50点）、その外側の円がブル（25点）。
持ち点501点から1ターン（1ラウンド）3投ずつプレイして当たった得点を減算していき、
最後残り点数がちょうど0になれば勝ち。
ただし、最後はダブルに当ててフィニッシュする必要があります（ダブルアウトという）。
例：最後5点残っていた場合は、5点は直接狙えず、1点を当ててから2点のダブル（計5点）、
あるいは3点を当てて1点のダブル（計5点）のように最後がダブルになるようにフィニッシュします。
参
393:考動画 https://www.youtube.com/watch?v=GfC17dQntFA この動画の下のスコアで、残り点数が少なくなってくると左側にT20 T18 D16のような表示が 出てきますが、これは次の3投で上がれる組み合わせの一例を示しています。 この動画だと1:45あたりで残り146点のフィニッシュの組み合わせ例として出ていますね。 （数字の頭のDはダブル Tはトリプル 20x3 + 18x3 + 16x2 = 146） 問題： １．残り点数を与えられた場合に、1ラウンド3投でフィニッシュできる全ての 組み合わせを求めてください。 例：残り4の場合は[D2][2 D1][D1 D1][1 1 D1]の4通り 例として残り10の場合を求めてみてください。 ２．1ラウンド3投以内のフィニッシュで最も組み合わせの多い残り点数を求めてください。 解答例：http://ideone.com/LWu1WM （C言語 合ってるかちょっと自信ない）
394:デフォルトの名無しさん
16/03/20 09:03:48.16 e/Ot8AcY.net
>>385
外した場合を考えてませんでした。
残り10をD5でフィニッシュする場合、1投目でフィニッシュと、1投目はずして（0点）
2投目でフィニッシュ、同じく1,2投目はずして3投目でフィニッシュがありますが、
これは全て[D5]に含むこととします。（外した分は無視）
外した分も考慮して組み合わせを考えてみても面白いかもしれません。
（上の例だと[D5][0 D5][0 0 D5]に分かれることになります）
395:デフォルトの名無しさん
16/03/23 03:54:21.46 SSV1rQef.net
お題：配列やリストの累積和を求める
90 10 54 3 6 22 77 78 75 16 -> 90 100 154 157 163 185 262 340 415 431
396:デフォルトの名無しさん
16/03/23 04:48:29.17 dWvJC0mF.net
>>387
URLﾘﾝｸ(ideone.com)
C++。適当に書いた。結構短くかけたと思う。
397:デフォルトの名無しさん
16/03/23 16:03:47.29 NkT0dmTC.net
>>387
haskell
map sum.tile.inits
398:デフォルトの名無しさん
16/03/23 19:13:26.12 l5rfZdo+.net
>>387
C++
URLﾘﾝｸ(ideone.com)
399:デフォルトの名無しさん
16/03/23 20:01:16.70 1UFsClL1.net
>>387 F#
Seq.scan (+) 0
400:デフォルトの名無しさん
16/03/23 20:59:24.58 NkT0dmTC.net
scanいいなーと思って探してみたらhaskellにもあった
しかも標準ライブラリだった。
scanl1(+)
401:デフォルトの名無しさん
16/03/23 21:07:05.34 NkT0dmTC.net
標準ライブラリじゃなくて、Preludeでした、すみません。
402:デフォルトの名無しさん
16/03/23 21:24:19.74 jwiGmJgq.net
>>387 Python3
itertools.accumulate(L)
もはや標準ライブラリの紹介、ジェネレーターを返すので煮るなり焼くなりして使う
403:デフォルトの名無しさん
16/03/24 13:07:49.70 5hctbNOo.net
>>387
C
URLﾘﾝｸ(ideone.com)
404:デフォルトの名無しさん
16/03/24 14:14:51.89 BKOgASSO.net
>>387
C++
URLﾘﾝｸ(ideone.com)
長くなり過ぎワロタ
405:デフォルトの名無しさん
16/03/25 23:54:10.03 aGSq1f0l.net
>>387
PowerShell
もっと短くできなかったものかなあ
function Accumulate() {
$t = @(); $args | % {$t += $t[-1] + $_}; $t
}
406:デフォルトの名無しさん
16/03/26 00:50:33.88 /XUmDgkC.net
>>342
PowerShell
function SortGroupByCount($o) {
$o.GetEnumerator() | group | sort Count -d | select Group | %{ Write-Host -n "$($_.Group) " }
}
> SortGroupByCount "Hello world"
l l l o o H e w r d
> SortGroupByCount 3,1,4,1,5,9,2,6,5,3,5,8,9,7,9,3,2,3,8,4,6
3 3 3 3 5 5 5 9 9 9 1 1 4 4 2 2 6 6 8 8 7
407:デフォルトの名無しさん
16/03/26 00:57:47.15 /XUmDgkC.net
>>398
よく見たらselect Groupいらんかった
function SortGroupByCount($o) {
$o.GetEnumerator() | group | sort Count -d | %{ Write-Host -n "$($_.Group) " }
}
408:デフォルトの名無しさん
16/03/26 06:52:33.07 lsHN8L8S.net
@Mathematica
In[1] := x = {90, 10, 54, 3, 6, 22, 77, 78, 75, 16};
In[2] := x//
Accumulate
Out[2] = {90, 100, 154, 157, 163, 185, 262, 340, 415, 431}
409:デフォルトの名無しさん
16/03/27 01:17:51.47 7ndxGIoM.net
>>387 Io
f := method(a,
s := 0
a map(v, s = s + v)
)
410:デフォルトの名無しさん
16/03/28 00:26:57.54 K457tFb7.net
>>387
Ruby
a=%w(90 10 54 3 6 22 77 78 75 16).map(&:to_i)
a.inject(0){|acc,e|acc+=e;p acc}
411:デフォルトの名無しさん
16/03/28 13:28:14.63 ObwLfSdF.net
>>387 Squeak/Pharo Smalltalk
| fn |
fn := [:arr | arr inject: #() into: [:a :x | a, {x + (a at: a size ifAbsent: 0)}]].
fn value: #(90 10 54 3 6 22 77 78 75 16)
"=> #(90 100 154 157 163 185 262 340 415 431) "
412:デフォルトの名無しさん
16/03/28 13:51:42.42 ObwLfSdF.net
>>342 Squeak/Pharo Smalltalk
| fn |
fn := [:seq |
| rule |
rule := [:a :b |
a key > b key or: [
a key = b key and: [(seq indexOf: a value) < (seq indexOf: b value)]]].
seq class streamContents: [:ss |
(seq asBag sortedCounts sort: rule) do: [:kv |
kv key timesRepeat: [ss nextPut: kv value]]]
].
fn value: 'Hello world'.
"=> 'lllooHe wrd' "
fn value: #(3 1 4 1 5 9 2 6 5 3 5 8 9 7 9 3 2 3 8 4 6).
"=> #(3 3 3 3 5 5 5 9 9 9 1 1 4 4 2 2 6 6 8 8 7) "
413:デフォルトの名無しさん
16/03/29 23:25:45.53 UAhYeBNf.net
sage>>402
>a.inject(0){|acc,e|acc+=e;p acc}
これって
a.inject(0){|acc,e|p acc+e}
でいいんじゃないの
414:デフォルトの名無しさん
16/03/30 02:01:04.35 00BHzwP5.net
>>342
Rubyで。
a=[3,1,4,1,5,9,2,6,5,3,5,8,9,7,9,3,2,3,8,4,6]
a=a.inject({}){|acc,e|
acc[e]||=0
acc[e]+=1
acc
}
p a
.to_a
.sort_by
.with_index{|s,i| [s[1], i] }
.reverse
.map{|e|e[0].to_s*e[1]}
.join
415:デフォルトの名無しさん
16/03/30 05:39:51.79 ij4V+9+M.net
>>>342 Python3
def f(L):
return sorted(L, key=lambda x: (-L.count(x), L.index(x)))
print("".join(f("Hello world")))
416:デフォルトの名無しさん
16/03/30 08:05:32.53 ZA7ECi0z.net
URLﾘﾝｸ(ideone.com)
どうでもいいんだけど、追記型素数検出器を書き直した。
爆速になった。イデオンで動かす感じで27ビット2.4秒。
要するにエラトステネスの篩なんだけど、思ったより早かったなぁ。
肝心の追記はまだ試してない・・・。Orz
417:デフォルトの名無しさん
16/03/30 09:35:35.02 ZA7ECi0z.net
URLﾘﾝｸ(www.dotup.org)
ウラム螺旋に移植した。一応小さい解像度では試してるがデカいのは知らん。
素数列挙は超早くなったが、画像生成がまだ重ひ。
暇な人むけ。
418:デフォルトの名無しさん
16/04/01 00:36:24.19 oZji/N9B.net
>>406
実行結果が
"333399955588662244117"
になってしまいます
419:デフォルトの名無しさん
16/04/04 21:56:44.86 w9r+G2YN.net
お題：nで始まる最小の素数を求める
n=4 -> 41
n=777 -> 77711
n=403 -> 40343
420:デフォルトの名無しさん
16/04/04 22:48:25.37 mfUNWB3k.net
>>411 Java
URLﾘﾝｸ(ideone.com)
421:デフォルトの名無しさん
16/04/05 21:02:49.40 V1X87Hw6.net
>>411 C
URLﾘﾝｸ(ideone.com)
422:デフォルトの名無しさん
16/04/05 21:05:24.30 ZlseDTbh.net
フリーセルソルバー
問題によっては１秒内で終るものもあれば３分かかったり
評価関数色々用意したがすべて1秒以内にできるようにしたいが...
423:デフォルトの名無しさん
16/04/06 01:55:40.63 HGCmMFVS.net
>>411
URLﾘﾝｸ(ideone.com)
C++。コードの半分は以前のものを流用した。
なんかランタイムエラーになってるけど、よくわからん。
答えはあってると思う。
424:デフォルトの名無しさん
16/04/06 02:00:45.11 HGCmMFVS.net
>>414
フリーセル自作しないといけないのでめんどくさい。
フリーセルってここ数年やってないなー。
425:デフォルトの名無しさん
16/04/08 13:12:03.72 opSE2XAx.net
>>411
Rubyで。
require 'prime'
def func1 n
nStr = n.to_s
nLen = nStr.length
Prime::instance.each{|e|
return e if e.to_s[0, nLen] == nStr
}
end
p func1 4
p func1 777
p func1 403
426:デフォルトの名無しさん
16/04/08 20:22:10.75 JfY7ulrA.net
>>415
20 32 51 あたりの結果がおかしいんじゃないかな？
20 -> 2003になるところが2011になってる。
427:デフォルトの名無しさん
16/04/08 20:59:33.30 OyooKXkj.net
>>411 Io
isPrime := method(n,
if(n < 2, return(false))
if(n < 4, return(true))
if(n % 2 == 0, return(true))
for(i, 3, n sqrt, 2, if(n % i == 0,return(false)))
true
)
f := method(n,
a := 1
loop(
for(i, n * a + 1, n * a + a - 1, 2,
if(isPrime(i), return(i))
)
a = a * 10
)
)
Io> list(1,777,403)map(v,f(v))
==> list(11, 77711, 40343)
428:デフォルトの名無しさん
16/04/09 00:47:11.89 8UqsZWln.net
>>418
あーそれバグですな。失礼。
ゼロ埋めは試してないのでそういう結果になってます。
思いつきもしませんでした。ごめんなさい。
どう書けばいいかちょっと妙案が思いつかないので保留。
429:デフォルトの名無しさん
16/04/09 23:01:46.01 UGeAL8lU.net
お題:各桁の数字が奇数、偶数、奇数、偶数．．．のように
最上位の桁から奇数と偶数が交互並ぶ自然数を考える。
小さい方からn番目のこのような数を求める
n=1 -> 1
n=10 -> 18
n=1000 -> ?
430:デフォルトの名無しさん
16/04/10 00:12:29.27 0xtkUQ3n.net
>>421 Java
URLﾘﾝｸ(ideone.com)
431:デフォルトの名無しさん
16/04/10 03:27:38.19 GVWrhGxP.net
>>411
>>418
URLﾘﾝｸ(ideone.com)
C++。半ば暇なのとか色々まざってぶち切れ気味に書き直した結果。
なおったかな？
手を抜いて新規構造考えたまではよかったが結局古い道を選ばざるを得なかった。
ゼロパティングなんてふつう考えないがこういうケースもあるんだな。勉強になった。
以上。
432:デフォルトの名無しさん
16/04/10 04:31:37.37 GVWrhGxP.net
>>421
URLﾘﾝｸ(ideone.com)
C++。なんかつじつまが合わないので>>422をの結果を参考にさせてもらった。
どうにも盛大に勘違いしてたようだ。
しかし、先頭が必ず奇数であるとは書いてないので混乱した。
433:デフォルトの名無しさん
16/04/10 11:04:10.71 yfpRB3fX.net
>>421
@Mathematica
URLﾘﾝｸ(ideone.com)
434:デフォルトの名無しさん
16/04/10 22:30:50.62 SKXiL2tD.net
>>421
F#
URLﾘﾝｸ(ideone.com)
お題スレ参加は半年ぶりくらい。。。
さらにF#の勉強開始して1ヶ月程度なので、ちょっとアレな感じかもしれませんが・・・
435:425
16/04/10 23:49:40.35 SKXiL2tD.net
>>421
F#
URLﾘﾝｸ(ideone.com)
たびたびスマン・・・ちょっとブラッシュアップしました
見た目がちょっとキレイになった
436:デフォルトの名無しさん
16/04/11 19:11:43.16 U9aEtrvs.net
>>411 Squeak/Pharo Smalltalk
| primeStartsWith |
primeStartsWith := [:n |
| exp min max ans |
exp := 0.
[ min := n * (10 raisedTo: exp).
max := n+1 * (10 raisedTo: exp).
ans := (Integer primesUpTo: max) detect: [:prime | prime >= min] ifNone: nil.
exp := exp + 1.
ans notNil.
] whileFalse.
ans
].
primeStartsWith value: 4. "=> 41 "
primeStartsWith value: 777. "=> 77711 "
primeStartsWith value: 403. "=> 40343 "
437:デフォルトの名無しさん
16/04/11 19:31:44.71 U9aEtrvs.net
>>421 Squeak/Pharo Smalltalk
URLﾘﾝｸ(ideone.com)
438:デフォルトの名無しさん
16/04/12 06:07:51.10 IvlGS
439:XDX.net
440:デフォルトの名無しさん
16/04/13 23:39:53.84 xdVnQQp5.net
>>387
F# 勉強中
URLﾘﾝｸ(ideone.com)
ローカル環境だとList使って実装して動いたんだけど
ideoneだと動かなくて、調べたらideoneのF#のバージョンが低いのかもしれない
Arrayを使って書き直したら動いた
441:デフォルトの名無しさん
16/04/13 23:56:54.81 49N/1I8V.net
>>421 Io
f := method(n,
a := list
while(n > 0,
n = n - 1
a = a prepend(n % 5)
n = (n / 5) floor
)
a map(i, v, v * 2 + (i + 1) % 2) join asNumber
)
442:デフォルトの名無しさん
16/04/14 22:38:40.17 hWzlQv+3.net
お題：効率は無視してコードをできるだけ単純にしたバブルソート
443:デフォルトの名無しさん
16/04/14 23:39:12.31 rplj63Da.net
>>4
F# 勉強中
URLﾘﾝｸ(ideone.com)
プログラム自体はちゃんと動いてるっぽいが、
コードがF#的になんかいろいろと間違えてるような気がする・・・
444:デフォルトの名無しさん
16/04/15 02:29:59.73 7tix3D6p.net
>>433
Ruby
def mysort a
(a.length - 1).times{|i|
if a[i] > a[i + 1]
a[i], a[i + 1] = a[i + 1], a[i]
mysort a
end
}
a
end
a = (1..10).map{rand(10000)}
p a
p mysort a
445:デフォルトの名無しさん
16/04/15 05:28:13.90 UEolzSKG.net
>>433
URLﾘﾝｸ(ideone.com)
C++。残念なコードになった。こんなコード書きたくなーい。Orz
446:デフォルトの名無しさん
16/04/15 21:30:03.75 uCMMU+7S.net
>>433 F#
let rec sort = function
| ([] | [_]) as x -> x
| l::rs ->
let r::rs = sort rs
if l < r then l::sort(r::rs) else r::sort(l::rs)
let r = System.Random()
let xs = List.init 10 <| fun _ -> r.Next 10
printfn "%A = sort %A" xs <| sort xs
447:デフォルトの名無しさん
16/04/16 01:41:35.90 8gZGJMh1.net
>>433
F# 勉強中
URLﾘﾝｸ(ideone.com)
勉強中ゆえ(?)、>>437のコードとか正直よく分からん・・・
とりあえず、自分の理解できる範囲で書いてみたら
殆ど手続き型と変わらん作りになってしまったｗ
448:デフォルトの名無しさん
16/04/16 21:13:38.41 uCxyrvwI.net
>>436
選択ソート？
449:デフォルトの名無しさん
16/04/16 23:39:51.82 LiAu7R50.net
>>439
え？バブルソートでしょ。ちょっと調べてくる。
450:デフォルトの名無しさん
16/04/16 23:43:07.03 LiAu7R50.net
URLﾘﾝｸ(ja.wikipedia.org)
これの疑似コードのちょっと悪い感じ？
シンプルにするためにオーダー悪くなってる。
451:デフォルトの名無しさん
16/04/16 23:47:56.31 LiAu7R50.net
おっとー、交換条件がおかしいか。
そんなの些細な違いよ！
452:デフォルトの名無しさん
16/04/16 23:56:43.13 8gZGJMh1.net
>>37
F# 勉強中
URLﾘﾝｸ(ideone.com)
2進⇔10進変換の復習ができてよかった
453:デフォルトの名無しさん
16/04/17 20:39:22.16 cB2Ml+fZ.net
>>433
@Mathematica
URLﾘﾝｸ(ideone.com)
454:デフォルトの名無しさん
16/04/17 20:55:49.84 cB2Ml+fZ.net
調べたらこんなのもあった。
@Mathematica
「パターンと規則を使ってバブルソートアルゴリズムを実装する」
URLﾘﾝｸ(reference.wolfram.com)
455:デフォルトの名無しさん
16/04/17 21:55:03.28 8hbCthlc.net
>>440
隣同士の要素を比較・交換するのがバブルソートだと思うけど
456:デフォルトの名無しさん
16/04/17 22:19:43.05 chPSqpJT.net
>>411
F# 勉強中
URLﾘﾝｸ(ideone.com)
素数判定はWikipediaの同名項目に書かれてるCソースの丸パクリです・・・
あと、最初に挑戦したときは>>418と全く同じ症状だったので断念・・・
なんだか、イマイチな感じなので後でコッソリとリファクタリングするかもです
457:デフォルトの名無しさん
16/04/17 22:30:35.60 DiLcHZEv.net
4×4の15パズルの、解ける盤面を作るのに、
空いているマスに、ランダムに100回ほど移動して、
盤面を作っている本を読んだが、
ランダムに盤面を作って、それが解ける問題かどうか、簡単に判別できる方法はないの？
3×3の盤面で、ランダムに盤面を作って、解ける問題かどうかを判別して。
上は解ける。下は解けない
0,1,2
3,4,5
6,7,空
0,1,2
3,4,5
7,6,空
458:デフォルトの名無しさん
16/04/18 01:55:07.16 v1FL9ptr.net
>>448
c++で適当に書いた。URLﾘﾝｸ(ideone.com)
以下を参照したが実装が少し違うのであってるかわからん
URLﾘﾝｸ(homepage2.nifty.com)
459:片山博文MZ ◆T6xkBnTXz7B0
16/04/18 14:39:50.41 6ER+VIie.net
15パズルの偶奇性
URLﾘﾝｸ(www.geocities.jp)
460:デフォルトの名無しさん
16/04/18 15:49:05.97 vrHU0PJO.net
１と４と空白を所定に合わせて
あとは偶奇性
461: ◆QZaw55cn4c
16/04/18 19:33:23.43 h2Yzyofc.net
>>441
いや，オーダーはやはりΟ(n^2)で変わらない．
どんなコードを想定していたの？
462:デフォルトの名無しさん
16/04/18 20:53:46.45 zW4NHiQV.net
>>452
デバッグなしで書くと。
for(i=0;i<size-1;i++){
for(j=i+1;j<size;j++){
if(a[i]<a[j]) swap(&a[i],&a[j]);
}}
こういうコードを初心者のころどうも発明（バグ製造）したらしくてずーっと使ってるんだけど、それの簡略版。
forの間にIssorted相当を仕込めばオーダ不安定ソートになる。
俺は長い間これをバブルソートだと思っていた。Orz
463:デフォルトの名無しさん
16/04/18 20:57:27.48 zW4NHiQV.net
バブルソートからどうやってコムソート創造したんだよ。
と長い間思っていたが、ベースから間違っていた。Orz
464:デフォルトの名無しさん
16/04/18 21:02:36.79 zW4NHiQV.net
オーダーっていうか、実行効率だな。些細なことだけど。
465:デフォルトの名無しさん
16/04/18 22:43:04.02 h2Yzyofc.net
>>455
そうそう，オーダー表現は n!, n^2(n^c), nlogn, 1 などで表現する．定数倍は無視するんだ， 正確な定義は知らないがたぶん極限が収束するかどうかで見るんだろう．
>>453 もΟ(n^2)
466:デフォルトの名無しさん
16/04/18 23:45:25.46 zW4NHiQV.net
>>456
なるほどわからん。
まぁ、そういう勘違いを積み重ねるだけの人生だった。Orz
いや、死んでないけどさ。
467:デフォルトの名無しさん
16/04/19 00:24:10.72 5fHK1dXS.net
>>456
n>cのときg(n)<d*f(n)が成り立つようなc,dが存在すれば関数g(n)=O(f(n))って感じじゃね
イメージ的に
468:デフォルトの名無しさん
16/04/19 01:07:43.67 ZMwgfCfL.net
数学で会話できる人かっこいいなー。
469:デフォルトの名無しさん
16/04/19 17:18:01.67 93zFzB0Z.net
>>458
かっこいいー
もしかして大学出ですか？
470:デフォルトの名無しさん
16/04/19 23:30:31.84 iVQa/t2n.net
>>342
F# 勉強中
URLﾘﾝｸ(ideone.com)
なんかSQLいじってる気分になった
471:デフォルトの名無しさん
16/04/20 16:20:19.87 bv/Q/2uG.net
>>433 Squeak/Pharo Smalltalk
| simpleBubble |
simpleBubble := [:arr |
| stream |
stream := arr readStream.
arr size - 1 timesRepeat: [
arr size - 1 timesRepeat: [
stream next > stream peek ifTrue: [
arr swap: stream position with: stream position + 1]].
stream reset
].
arr
].
simpleBubble value: (1 to: 10) asArray shuffled "=> #(1 2 3 4 5 6 7 8 9 10) "
472:デフォルトの名無しさん
16/04/20 20:06:02.61 ARUL8qdV.net
>>433 c
URLﾘﾝｸ(ideone.com)
473:デフォルトの名無しさん
16/04/20 22:18:59.00 +sWW+qMV.net
>>433 Io
f := method(a,
i := 0
while(i < a size,
if(a at(i) > a at(i + 1),
a swapIndices(i, i + 1)
i = 0
,
i = i + 1
)
)
a
)
474:デフォルトの名無しさん
16/04/21 13:03:18.17 5MDUs+Ed.net
>>433 Squeak Smalltalk （PositionableStream>#lastが無いのでPharoではNG。為念）
>>464 等を参考にループを >>462 よりシンプルにした版。
| simplerBubble |
simplerBubble := [:arr |
| stream |
stream := arr readStream position: 1.
[stream atEnd] whileFalse: [
stream last > stream next ifTrue: [
arr swap: stream position - 1 with: stream position.
stream position: 1
]
].
arr
].
simplerBubble value: (1 to: 10) asArray shuffled "=> #(1 2 3 4 5 6 7 8 9 10) "
475:デフォルトの名無しさん
16/04/23 01:46:03.15 3vhuTo00.net
>>433 Rust
URLﾘﾝｸ(ideone.com)
476:デフォルトの名無しさん
16/04/30 21:02:40.94 f9UktSYx.net
お題：170の階乗の先頭10桁を求める
477:デフォルトの名無しさん
16/04/30 21:05:19.27 f9UktSYx.net
お題：170の階乗の先頭10桁を求める
478:デフォルトの名無しさん
16/04/30 22:13:46.81 ih9K+Dlj.net
>>467
Rubyで
p (1..170).inject(&:*).to_s[0,10]
# 実行結果
# "7257415615"
# [Finished in 0.1s]
479:デフォルトの名無しさん
16/04/30 23:37:54.35 DWppbW2i.net
>>467
F# 勉強中
URLﾘﾝｸ(ideone.com)
少しはF#分かってきたような、そうでもないような・・・
480:デフォルトの名無しさん
16/05/01 00:25:30.55 3nNxkvii.net
>>468
FBasic
'170!
Dim i As Integer
Dim ii As Double
Dim f As Double
f= 1.0
For i= 2 To 170
ii = CDbl(i)
f = f * ii
Next
Print f
Sleep
End
7.257415615307994e+306
481:デフォルトの名無しさん
16/05/01 01:30:49.70 PVJV1HwV.net
>>467 Io
Io> a:=1;for(i,1,170,a=a*i);(a/(10**(a log10 floor-9)) )floor asString(10,0)
==> 7257415615
482:デフォルトの名無しさん
16/05/01 05:22:39.61 k8Y2io+T.net
>>467 Python3
関数を定義したり制御構文を使ったりライブラリをimportしたりするのは負けた気がするので捻った
>>> str((lambda f, n: f(f, n))((lambda g, m: m * g(g, m-1) if m > 0 else 1), 170))[:10]
'7257415615'
483:デフォルトの名無しさん
16/05/01 07:00:07.79 Jp0j1ueK.net
>>467 Squeak/Pharo Smalltalk
170 factorial asString first: 10 "=> '7257415615' "
484:デフォルトの名無しさん
16/05/01 09:24:40.00 i1tpwyoc.net
>>467
@Mathematica
170 // Factorial // ToString // StringTake[#, 10] &
485:デフォルトの名無しさん
16/05/01 09:37:49.41 tKi6j9CT.net
匿名通信（Tor、i2p等）ができるファイル共有ソフトBitComet（ビットコメット）みたいな、
BitTorrentがオープンソースで開発されています
言語は何でも大丈夫だそうなので、P2P書きたい！って人居ませんか？
Covenantの作者（Lyrise）がそういう人と話したいそうなので、よろしければツイートお願いします
URLﾘﾝｸ(twitter.com)
ちなみにオイラはCovenantの完成が待ち遠しいプログラミングできないアスペルガーｗ
The Covenant Project
概要
Covenantは、純粋P2Pのファイル共有ソフトです
目的
インターネットにおける権力による抑圧を排除することが最終的な目標です。 そのためにCovenantでは、中央に依存しない、高効率で検索能力の高いファイル共有の機能をユーザーに提供します
特徴
Covenant = Bittorrent + Abstract Network + DHT + (Search = WoT + PoW)
接続は抽象化されているので、I2P, Tor, TCP, Proxy, その他を利用可能です
DHTにはKademlia + コネクションプールを使用します
UPnPによってポートを解放することができますが、Port0でも利用可能です(接続数は少なくなります)
検索リクエスト、アップロード、ダウンロードなどのすべての通信はDHT的に分散され、特定のサーバーに依存しません
ｐ
486:デフォルトの名無しさん
16/05/01 14:28:23.75 XECCJNE2.net
>>467 F#
printfn "%s" <| (Seq.reduce (*) {1I..170I}).ToString().[..9]
487:デフォルトの名無しさん
16/05/01 21:02:15.79 PVJV1HwV.net
>>467 R
> substr(sprintf("%f",prod(1:170)),1,10)
[1] "7257415615"