プログラミングのお題スレ Part9 [無断転載禁止]©2ch.net

**デフォルトの名無しさん** · 2016/12/01(木) 16:58:30.97

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

前スレ
プログラミングのお題スレ Part8©2ch.net
http://echo.2ch.net/test/read.cgi/tech/1444216746/

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

2 名前：デフォルトの名無しさん
　　>>1 使用言語
　　回答本文

【ソースコードが長くなったら】 (オンラインでコードを実行できる)
http://ideone.com/
http://codepad.org/
http://compileonline.com/
http://rextester.com/runcode
http://runnable.com/
http://code.hackerearth.com/
http://melpon.org/wandbox
https://paiza.io/

宿題は宿題スレがあるのでそちらへ。

**デフォルトの名無しさん** · 2016/12/02(金) 00:12:44.35

リンク開けねーし日本語意味不明だし

**デフォルトの名無しさん** · 2016/12/02(金) 00:32:31.53

二つの2^8の形で表されている実質3^8の状態を一回の256要素の配列の参照と加算で
0から6561になるべく近いユニークな数に変換するその配列を求めるって問題

for (w = 0; w < 256; w++) {
for (b = 0; b < 256; b++) {
if ((b & w) == 0) {
if (++a[base[b | w] + b] > 1)
printf ("err\n");
}
}
}
これをエラーが出ないように通す配列

**デフォルトの名無しさん** · 2016/12/06(火) 09:57:55.18

>>1おつ

**デフォルトの名無しさん** · 2016/12/07(水) 14:23:07.62

景気付けにどうぞ

お題：以下の数列を出力するプログラム
[0, 10, 1110, 110, 2110, 122110, 11222110, 2122110, 1211222110, 11122122110,...]

**デフォルトの名無しさん** · 2016/12/07(水) 18:06:29.71

法則性が分からん

**デフォルトの名無しさん** · 2016/12/07(水) 19:07:54.18

>>9 Java
http://ideone.com/SjEe5N

>>10と同じで法則性考えるのに時間がかかったわ

**デフォルトの名無しさん** · 2016/12/07(水) 19:15:52.19

>>9 Nim
https://ideone.com/WLvRqB

**デフォルトの名無しさん** · 2016/12/08(木) 00:20:55.59

>>9
・法則見つけた瞬間までがピーク
・実際書くと何一つスッキリ書けなくて悔しい
https://ideone.com/n0RoNr
↓
[

**デフォルトの名無しさん** · 2016/12/08(木) 00:21:30.57

>>9 ruby
・法則見つけた瞬間までがピーク
・実際書くと何一つスッキリ書けなくて悔しい
https://ideone.com/n0RoNr
↓
["0", "10", "1110", "110", "2110", "122110", "11222110", "2122110", "1211222110", "11122122110", "12211222110", "11222122110"]

**デフォルトの名無しさん** · 2016/12/08(木) 00:53:14.68

>>9 ruby ちょい整理
https://ideone.com/kyw9bm

**デフォルトの名無しさん** · 2016/12/08(木) 22:20:30.70

・前項の数字の1の位から順に見てって、数字が連続する数を数えていく。
・数字とその連続数を1の位から順に埋める
・3の数字は削除する

**デフォルトの名無しさん** · 2016/12/09(金) 16:43:25.82

お題: 文字列に含まれる複数のURLをHTMLのaタグで囲って出力してください。詳細な仕様はないです。
例: http://ideone.com/NY2ooA

**デフォルトの名無しさん** · 2016/12/09(金) 21:12:11.14

例に出されたURLも不正だし
>詳細な仕様はないです。
となると判別不能では

**デフォルトの名無しさん** · 2016/12/09(金) 21:52:57.66

>>9 Nim
あまりに不細工だったので書き直し
https://ideone.com/9q80v4

正規表現使うバージョン(ただしideoneは古すぎてコンパイルできない)
https://ideone.com/01ktu2

**デフォルトの名無しさん** · 2016/12/10(土) 04:17:33.77

イデオンって投稿時にURL置換するんだよな。

17 · 2016/12/10(土) 11:48:18.29

ideone.comをフィルターしてるのかと思ったらURL全般だめっぽい

**デフォルトの名無しさん** · 2016/12/11(日) 18:00:53.14

>>9 Perl
use feature qw{:5.16};
sub {
$_ = join'', @_;
exit if length > 12;
say;
@_ = ();
while (/((.)\2*)$/) {
$len = length($1);
$len = '' if $len > 2;
unshift @_, $len . $2;
$_ = $`
}
goto __SUB__;
}->(0);

無名関数の末尾再帰を使って記述してみました。

**片山博文MZ** ◆T6xkBnTXz7B0 · 2016/12/13(火) 23:58:53.18

お題：C言語に関する質問に答えられる人工知能を作れ。

**デフォルトの名無しさん** · 2016/12/14(水) 02:25:35.75

自分で作れ

**デフォルトの名無しさん** · 2016/12/17(土) 22:23:37.55

案1 Amazon Mechanical Turk を使う。
案2 知恵袋に投げて、回答を転記する。
案3 IBM Watson 使う。

**デフォルトの名無しさん** · 2016/12/17(土) 22:35:16.13

大穴　自分の脳をささげる。

**デフォルトの名無しさん** · 2016/12/19(月) 21:40:29.23

入力音声を2chのスレに書き込む
レスがあったら音声出力する
処理時間→数分〜数日

**デフォルトの名無しさん** · 2016/12/19(月) 22:14:03.89

お題：ペントミノパズルの12種類のピースを表示する

**デフォルトの名無しさん** · 2016/12/20(火) 00:24:55.91

>>28 bash
http://ideone.com/51ZjFV

端末でどうぞ

**デフォルトの名無しさん** · 2016/12/20(火) 23:33:43.23

お題：ペントミノパズルの全解を列挙する

◆QZschizo.iSO · 2016/12/31(土) 18:31:14.25

瞬速年忘れ問題
2017は素数か？素数なら何番目か？

**デフォルトの名無しさん** · 2016/12/31(土) 19:13:55.05

>>31
C
http://ideone.com/bUbh6M

**デフォルトの名無しさん** · 2016/12/31(土) 19:23:15.93

たった今一部訂正

**デフォルトの名無しさん** · 2016/12/31(土) 22:12:03.44

>>31
同じくC
みなさん今年はお世話になりました
https://paiza.io/projects/Sio8sqlqmX547VHnZkpj_Q

**デフォルトの名無しさん** · 2016/12/31(土) 22:16:03.44

ああ、2017ぐらいなら何の工夫もせず力技でごり押ししても大丈夫なのか。
そりゃそうだなw

しかし俺は大みそかに何でこんなスレ覗いてるんだw

**デフォルトの名無しさん** · 2016/12/31(土) 22:56:06.40

>>31 Emacs Lisp

(require 'cl-lib)

(defun a (x)
(cl-assert (and (integerp x) (> x 1)))
(let ((l (let ((max-lisp-eval-depth most-positive-fixnum)
(max-specpdl-size most-positive-fixnum))
(b (cl-loop for i from 2 to x collect i)))))
(when (= (car (last l)) x) (length l))))

(defun b (l)
(when l
(cons (car l) (b (cl-remove-if (lambda (x) (= (% x (car l)) 0)) (cdr l))))))

(mapcar (lambda (x) (cons x (a x))) '(2 3 4 5 2017))
((2 . 1) (3 . 2) (4) (5 . 3) (2017 . 306))

**デフォルトの名無しさん** · 2016/12/31(土) 23:05:34.75

>>32で9999991(664579番目の素数)を計算させたら
14.708sかかった
>>34では0.391s
(Athron X2 1.8GHz)

**デフォルトの名無しさん** · 2017/01/01(日) 11:09:07.28

>>31 Squeak/Pharo Smalltalk

(Integer primesUpTo: 2017+1) indexOf: 2017 "=> 306 "

**デフォルトの名無しさん** · 2017/01/01(日) 12:49:27.41

>>31 ruby2.0.0
require 'prime'
def f9031(n)
Prime.prime?(n) && Prime.each_with_index.find {|p, _| p == n}
end
p f9031(4), f9031(2), f9031(2017)
↓
false
[2, 0]
[2017, 305]

**デフォルトの名無しさん** · 2017/01/02(月) 13:41:39.67

>>31
Bash
seq 2017 | factor | awk '{happy = $1;new=0}NF==2{year++;new=1} END{
print happy,new?year "th":"no","prime"}'

**片山博文MZ** ◆T6xkBnTXz7B0 · 2017/01/02(月) 15:29:42.51

お題：与えられたクレジットカードの番号が正しいかどうか判定するプログラム。

**片山博文MZ** ◆T6xkBnTXz7B0 · 2017/01/02(月) 15:34:59.42

お題：個人情報(氏名、年齢、住所、電話番号)のダミーデータ(偽物のデータ)を大量に作成するプログラムを作れ。

**デフォルトの名無しさん** · 2017/01/02(月) 15:41:47.73

上げまして

**デフォルトの名無しさん** · 2017/01/02(月) 15:47:49.69

>>42
wget -r -l 0 URL で適当なサイトから住所のデータを持ってきてシャッフルしダミーデータを生成

**デフォルトの名無しさん** · 2017/01/02(月) 16:37:06.06

正しいかどうかはクレカ会社でないとわからない
Luhnアルゴリズムの計算だけでいいならわりと楽だけど

**片山博文MZ** ◆T6xkBnTXz7B0 · 2017/01/02(月) 17:26:44.05

>>45
正論だね。じゃあルーンのアルゴリズムだけにしましょう。

**片山博文MZ** ◆T6xkBnTXz7B0 · 2017/01/02(月) 17:28:27.34

>>44
住所と電話番号の関係についてもっとよく考えて下さい。

**デフォルトの名無しさん** · 2017/01/02(月) 17:39:17.52

ダミーだから、実在する住所、通話可能な番号は許可しないんだよな？

**片山博文MZ** ◆T6xkBnTXz7B0 · 2017/01/02(月) 18:22:02.26

>>48
それはちょっと難しいだろう。実在するかどうやって確認するのかい？

**片山博文MZ** ◆T6xkBnTXz7B0 · 2017/01/02(月) 18:27:21.29

住所や電話番号の一部を伏せ字にすれば迷惑が掛からないとは思うが。。。
ダミーデータの用途によるんだよね。データベースのテスト用とか、●●●●用とか。

**片山博文MZ** ◆T6xkBnTXz7B0 · 2017/01/02(月) 18:48:13.86

ヒント：住所テキストデータの意味の定義は郵便局が行っている。

**デフォルトの名無しさん** · 2017/01/04(水) 12:00:38.64

お題：□に自然数を入れて式を成立させる。^は、べき乗。
□^□+□^□=2017

**デフォルトの名無しさん** · 2017/01/04(水) 12:44:11.80

回答無限個あるけどいいの？

**デフォルトの名無しさん** · 2017/01/04(水) 13:15:36.49

なにわろてんねん

**デフォルトの名無しさん** · 2017/01/04(水) 18:33:26.02

http://ideone.com/BinLDz
C++??なんかへんな問題だな。

**片山博文MZ** ◆T6xkBnTXz7B0 · 2017/01/04(水) 18:36:48.39

1^X+2016^1=2017
という形の解が無数に存在する。
これに対する制限がなければ面白くない。

52 · 2017/01/04(水) 19:17:06.25

では□に入れるのを2以上の自然数に変更させてください

**デフォルトの名無しさん** · 2017/01/04(水) 23:01:48.48

>>57
C++
自然数nがa^b (a>=2,b>=2)で表せるかどうか判定する関数(isFact)の
キャストが糞だから誰かいい書き方教えてください…
http://ideone.com/cB1Ncw

**デフォルトの名無しさん** · 2017/01/04(水) 23:17:21.92

>>57
http://ideone.com/LbWS0f
C++。初期条件変更。
答えがバッサリ減った。

**デフォルトの名無しさん** · 2017/01/04(水) 23:37:14.33

>>57
C
http://ideone.com/v5btSV

**デフォルトの名無しさん** · 2017/01/04(水) 23:41:45.40

パフォーマンス改良
http://ideone.com/WDu0Ox

**デフォルトの名無しさん** · 2017/01/04(水) 23:54:08.76

>>57
http://ideone.com/uxu5Bl
C++。頑張って最適化。これ以上はアルゴリズム変えないと大変。

**デフォルトの名無しさん** · 2017/01/05(木) 00:33:24.56

>>57 Java
https://ideone.com/vRiP1c

**デフォルトの名無しさん** · 2017/01/05(木) 01:06:45.10

>>57 Java
http://ideone.com/hNhAMC

>>63の ArrayList<String>[] list = new ArrayList[n]; がすんげぇメモリの無駄に思えたので

**デフォルトの名無しさん** · 2017/01/05(木) 01:50:33.81

>>57
C++
Σ_i=1~m □^□ = nに拡張してみた
http://ideone.com/KKHS6o

**デフォルトの名無しさん** · 2017/01/05(木) 23:04:17.78

>>57
http://ideone.com/9NAHBd

ひまつぶしにやってみた。C言語。

**デフォルトの名無しさん** · 2017/01/06(金) 07:39:18.38

>>66
12^3 + 17^2 = 2017
17^2 + 12^3 = 2017
AB入れ替わりのこれはあるのに

3^4 + 44^2 = 2017
9^2 + 44^2 = 2017
がないのはなんでなんだぜ？

**デフォルトの名無しさん** · 2017/01/06(金) 08:14:14.51

ループ2が43で十分ってことになってるからかな？？

**デフォルトの名無しさん** · 2017/01/06(金) 08:20:39.24

全てのパターンを調べろっていうお題じゃないからな

**デフォルトの名無しさん** · 2017/01/06(金) 09:28:08.44

>>57 Squeak/Pharo Smalltalk

| ans |
ans := OrderedCollection new.
(2 to: 2017 sqrt) asDigitsToPower: 4 do: [:digits |
　((digits first: 2) raisedTo: (digits last: 2)) sum = 2017
　　ifTrue: [ans add: ('{1}^{3}+{2}^{4}' format: digits)]
].
^ans asStringWithCr

**デフォルトの名無しさん** · 2017/01/06(金) 21:50:55.39

>>66
コメントアウトで書いた議論をそのままコードにすればいいのに、そんなにマジックナンバー埋め込んでどうすんだ

**デフォルトの名無しさん** · 2017/01/08(日) 13:22:26.64

画面に並んでいるコントロールに左上から右下にタブ順を割り振るアルゴリズムってどう書きますか？
要するに矩形のソート方法です
綺麗に並んでるとは限りませんし重なっているものもあります
目で見た感覚的に正しくなるようにできますかね？

**デフォルトの名無しさん** · 2017/01/08(日) 14:54:28.66

>>72
(1) 重心の座標を求めて、
(2) Yでソート後Xでソート

とか。

まあ「感覚的に正しい」なんて要件はこの手の問題じゃ曖昧以外の何でもないし
どうやっても厳密な定義は無理だから、普通に左上座標で妥協してもいいんじゃないの

**デフォルトの名無しさん** · 2017/01/08(日) 15:11:05.77

ひな形作った
http://jsbin.com/doniwanoqi/edit?html,output

**デフォルトの名無しさん** · 2017/01/08(日) 17:11:20.51

完全にスレチです。
JSスレでどうぞ。

**デフォルトの名無しさん** · 2017/01/08(日) 17:17:34.30

>>72
要件が曖昧すぎる
どこを左上として、どこを右下とするのかで結果が変わるだろうし、あなたの感覚とズレが生じることもありえる
円形や一直線に並んでいる場合どこを左上とするのか、
画面右上、左下、右下を結んだ三角形（⊿のような形）に並んでいるとき、左上と呼べるようなコントロールが存在しないけど、どうするのか

**デフォルトの名無しさん** · 2017/01/08(日) 17:27:52.04

>>76
いや，逆にあいまいな要件のみ提示されていて，それに感覚的に適合する実装を示せ，というお題だろう
客は自分のしたいことを本当には知っていない

**デフォルトの名無しさん** · 2017/01/08(日) 17:33:29.68

>>77
こういう営業さんがいる会社は悲惨なことになるねw
冗談抜きで、IT業界の一部の労働環境が劣悪な理由はこういう安請け合いにある。

**デフォルトの名無しさん** · 2017/01/08(日) 17:43:37.92

>>78
あいまいな要件に対して実装を提案することは問題ないだろう？
問題はその実装をちゃぶ台返しにされないようにすることだろう？
実装の提案ができないようだと仕事にならないのでは？

**デフォルトの名無しさん** · 2017/01/08(日) 17:54:48.18

>>79
甘いと思うよ。
それ、製品の完成後にこちらの提案が「やっぱり何か違う」ってちゃぶ台返しされるリスクを
考えてないでしょ。

まあスレ違いなんでこれ以上言わないけどさ。

**デフォルトの名無しさん** · 2017/01/08(日) 18:05:19.61

これ業務じゃないんだし、自分だったらこう実装するっていうのを書いてけばええやん

**デフォルトの名無しさん** · 2017/01/08(日) 18:21:10.87

というかこの問題は順位付けに自明な定義がないところが肝です
AIなどでもそうですけど最近は曖昧かつ感覚に矛盾しない答えを求められる事が増えてきています

**デフォルトの名無しさん** · 2017/01/08(日) 22:47:32.14

で、お題ってどれ？

**デフォルトの名無しさん** · 2017/01/08(日) 23:19:01.41

左上と右下を結ぶ線が垂直軸となる座標系に変換して
上から順に拾っていくだけじゃないの？

**デフォルトの名無しさん** · 2017/01/08(日) 23:27:18.98

>>84
それだと(0, 80は(100, 0)より順番が若くなる気がするんだけどw

**デフォルトの名無しさん** · 2017/01/09(月) 00:07:13.57

>>85
何が言いたいのか分からないのでコメントしにくいけど
何かがおかしいとしたらあなたが考えた座標の変換が間違ってるんだろう

**デフォルトの名無しさん** · 2017/01/09(月) 00:12:11.15

>>86
自分で自分の言ってることが分かってないのかw

A = (0, 80)、 B = (100, 0)とすると、お前さんが言ってる座標兼では
AはBの「上」になる。

このぐらいのことそれを思いついた5秒後に分かれよほんと

**デフォルトの名無しさん** · 2017/01/09(月) 03:09:12.91

xでソートしてからyでソートだよな？
違う？

**デフォルトの名無しさん** · 2017/01/09(月) 07:01:36.39

>>88
(10,0)と(5,10000)で後者が先に選択されるのはいやだ

次のような長方形からなる集合Uを定義する：
∀a∈ U に対し,∃b∈ a.center ⊂ b or b.center ⊂ aが成立する

**デフォルトの名無しさん** · 2017/01/09(月) 07:04:25.54

ミスった

次のような長方形からなる集合Uを定義する：
∀a∈ U に対し,∃b∈Uが存在し a.center ⊂ b or b.center ⊂ aが成立する
要するに連結した長方形を集めるイメージですね
タグの順位付けしたい長方形の集合を連結した長方形の集合に分割してから

**デフォルトの名無しさん** · 2017/01/09(月) 07:08:49.40

>>90
ほんとごめんなさい
集合Uの頂点を、最も原点(0,0)と集合Uの要素の長方形との距離が最も小さくなる長方形の左上の点と定義して
集合についてソートして、集合の要素についてxでソートするのが個人的に自然な感覚かなぁ

**デフォルトの名無しさん** · 2017/01/09(月) 07:18:31.23

xでソートしたらこのケースでダメだ
http://i.imgur.com/wpFEt5J.png
集合の頂点を与える長方形を始点として中心点が近い要素順に並べるのが自然か

**デフォルトの名無しさん** · 2017/01/09(月) 08:02:40.56

>>87
> A = (0, 80)、 B = (100, 0)とすると、お前さんが言ってる座標兼では
> AはBの「上」になる。

AがBの上になるのはあなたがそう変換した(あなたが決めた)からですよ

現在の座標系と左上と右下を結ぶ線が垂直軸となる座標系との関係性には
自由度があります（1秒で気付くと思いますが）
どのような関係にするかはお題の人間の感覚的に正しく見えるような関係を
選ぶべきであって、あなたが選択した関係に従って変換された座標に対して
あなたがおかしいと思ったというだけですね

**デフォルトの名無しさん** · 2017/01/09(月) 10:48:32.68

>>93
何が言いたいのかさっぱりわからんな。
数学弱いなら無理しなくていいのに

**デフォルトの名無しさん** · 2017/01/09(月) 10:56:12.03

ああ、きっと>>93の世界では平行移動で2点間の相対的な位置関係が
変わるんだろうねw

**デフォルトの名無しさん** · 2017/01/09(月) 17:11:09.51

>>57
http://echo.2ch.net/test/read.cgi/tech/1434079972/19
やっとコンパイルが通ったよ，ママ‥

**デフォルトの名無しさん** · 2017/01/09(月) 19:58:25.90

>>52 >>57 c
https://ideone.com/KhbiRx

**デフォルトの名無しさん** · 2017/01/10(火) 18:29:09.08

>>94
自己紹介かな
座標軸の張り方次第だっつーのw

**デフォルトの名無しさん** · 2017/01/10(火) 20:42:50.38

>>98
じゃあ具体的にどういう座標系ならBがAの上になるのか言ってみろ馬鹿。
重症だな

**デフォルトの名無しさん** · 2017/01/10(火) 21:08:13.05

キチガイ降臨age

**デフォルトの名無しさん** · 2017/01/10(火) 21:19:39.42

多分アマゾンギフトの人だよ

**デフォルトの名無しさん** · 2017/01/10(火) 21:52:46.22

煽って教えてもらうメソッドか
低能って嫌だな

**デフォルトの名無しさん** · 2017/01/10(火) 22:22:58.60

どっちかっていうと消えてくれた方がありがたい

**デフォルトの名無しさん** · 2017/01/10(火) 22:34:23.43

>>102
誰に物をいってるんだ？
身の程をわきまえろ

**デフォルトの名無しさん** · 2017/01/10(火) 22:36:50.29

>>99
煽って教えてもらうメソッドか
低能って嫌だな

**デフォルトの名無しさん** · 2017/01/11(水) 12:22:04.85

教えるも糞も最初から正解は書いてある>>87

**デフォルトの名無しさん** · 2017/01/11(水) 14:49:58.96

>>104-105
uyか？Qか？

**デフォルトの名無しさん** · 2017/01/11(水) 19:39:31.27

QZ=>>96

**デフォルトの名無しさん** · 2017/01/11(水) 21:08:00.35

QZ怒りのマンガでわかる心理学

**デフォルトの名無しさん** · 2017/01/11(水) 21:11:32.29

>>86
おい！お前のせいでキチガイが増殖してるじゃねえか
責任とって全部持って帰れ

**デフォルトの名無しさん** · 2017/01/11(水) 21:13:18.42

>>106
いや何を書いたとかじゃなくてさ、
>>99
煽って教えてもらうメソッドか
低能って嫌だな

**デフォルトの名無しさん** · 2017/01/11(水) 21:14:22.15

心理学怒りのマンガでわかるQZ

**デフォルトの名無しさん** · 2017/01/11(水) 21:18:25.47

頭の中がQZでいっぱいな心理学おじさんはQ呼称で自分だけは特別な存在アピール

**デフォルトの名無しさん** · 2017/01/11(水) 23:33:02.72

感覚に頼るような変なお題出すからキチガイが湧くんだよ

**デフォルトの名無しさん** · 2017/01/12(木) 00:14:22.68

IDが出るようになったのになぜQはコテを消したのか？
とんだチキンだったのではないだろうか？

**デフォルトの名無しさん** · 2017/01/12(木) 07:39:01.18

心理学怒涛の寝ても覚めてもQZ

**デフォルトの名無しさん** · 2017/01/12(木) 13:04:44.00

>>16
ようQ

**デフォルトの名無しさん** · 2017/01/12(木) 13:06:09.71

×>>16
◯>>116
似ても焼いても一つも人の役に立てないQ

**デフォルトの名無しさん** · 2017/01/12(木) 21:59:23.34

心理学最終手段の居直りQ連呼

**デフォルトの名無しさん** · 2017/01/12(木) 22:00:27.56

心理学おじさんとQZを同じ部屋にとじこめたらどうなるの？

**デフォルトの名無しさん** · 2017/01/12(木) 22:38:03.38

ラップでも始めるんじゃね。

**デフォルトの名無しさん** · 2017/01/13(金) 18:15:01.00

QZ=>>96

**デフォルトの名無しさん** · 2017/01/13(金) 21:36:42.18

お題：平面上に四つの点を二点間の距離が二種類になるように配置する

**デフォルトの名無しさん** · 2017/01/13(金) 23:31:20.40

正三角形+中心
一辺を共有する二つの正三角形
正方形

他にあるかな？

**デフォルトの名無しさん** · 2017/01/14(土) 03:29:31.67

異なる辺の長さa,bに対して
1)a:5本, b:1本
正三角形(辺の長さa)×2の菱形のみ
2)a:4本, b:2本
2辺と対角線の長さがaの凧型
正方形(辺の長さa)
3)a:3本, b:3本
正三角形と重心

3)はまだまだありそう

**デフォルトの名無しさん** · 2017/01/18(水) 21:37:38.36

sage>>123
　●

　●

●　●
ーーー
　　●

●　　　●
　　●
ーーー
　●　　●

●　　　　●
ーーー
●　●

●　●
ーーー
　　●

　　●

●　　　●
ーーー
　　●　　　●

●　　　●

**デフォルトの名無しさん** · 2017/01/18(水) 22:19:10.68

>>126
座標で書いてくれｗ

**デフォルトの名無しさん** · 2017/01/18(水) 22:50:29.86

プログラムで書いてくれ

**デフォルトの名無しさん** · 2017/01/19(木) 12:26:45.56

>>123
平面上に3点P1、P2、P3を配置して三角形を作る時、正三角形を含む二等辺三角形でなければならない
これ以外の配置のやり方をすると辺の長さが3種類となって前提に反する

上記のように配置した3点3点P1、P2、P3に4点目P4を配置するとき、
A) 二等辺三角形P1P2P3と底辺を共有し、長さが等しい辺と同じ長さの2辺をもつ2等辺三角形となるようにP4を配置する
（底辺を共有するように二等辺三角形二つを配置する）
または
B) 三角形P1P2P3が正三角形のとき、外接円の中心と一致するようにP4を配置する

の二通りの配置の仕方がある。逆に言えば、この条件に従うように座標を決定すれば無限の配置の仕方が可能

**デフォルトの名無しさん** · 2017/01/19(木) 13:43:42.27

>>123 Javascript
http://codepen.io/anon/pen/mRRxXx?editors=1011

観測的手法で　分解能に依存するけど網羅できるはず

**デフォルトの名無しさん** · 2017/01/19(木) 14:02:27.30

って、>>123よく読んだら>>130じゃダメだ！ orz
失敬　撤回しますわ

**デフォルトの名無しさん** · 2017/02/21(火) 19:03:19.21

お題：ある数 n が与えられたとして、n の原始根の位数を求めよ
条件：原始根については https://ja.wikisource.org/wiki/%E5%88%9D%E7%AD%89%E6%95%B4%E6%95%B0%E8%AB%96%E8%AC%9B%E7%BE%A9/%E7%AC%AC1%E7%AB%A0/%E5%8E%9F%E5%A7%8B%E6%A0%B9%EF%BC%8C%E6%8C%87%E6%95%B0
を参照せよ、ただし、このテキストでは n が素数であることを前提にしているが、原始根は n が素数でなくても存在する。n が素数でない場合にも対応せよ。
原始根を、小さい数から順次位数を力技で求める方法は認めない。
n の原始根が存在しない場合にアルゴリズムが停止する必要は要請しない。

**デフォルトの名無しさん** · 2017/03/02(木) 16:39:35.38

なんでお前偉そうなの
宿題は自分でやりな

**デフォルトの名無しさん** · 2017/03/03(金) 09:55:45.90

C言語スレよりロンダリング

x面体のサイコロy個を振って得られる出目のヒストグラムを出力するプログラムを作ろう
dice.exe 6 3 (6面体のサイコロ3個) の出力例
出目出現回数出現率
---- -------- ------
　 3　　　　1　 0.46
　 4　　　　3　 1.39
　 5　　　　6　 2.78
　 6　　　 10　 4.63
　 7　　　 15　 6.94
　 8　　　 21　 9.72
　 9　　　 25　11.57
　10　　　 27　12.50
　11　　　 27　12.50
　12　　　 25　11.57
　13　　　 21　 9.72
　14　　　 15　 6.94
　15　　　 10　 4.63
　16　　　　6　 2.78
　17　　　　3　 1.39
　18　　　　1　 0.46

**デフォルトの名無しさん** · 2017/03/03(金) 18:25:27.76

厳密解を出す場合なら動的計画法で素朴にやるとO(x^2y^2)

**デフォルトの名無しさん** · 2017/03/03(金) 20:41:14.23

>>134 Java
https://ideone.com/mVatvl

**デフォルトの名無しさん** · 2017/03/03(金) 21:29:12.11

この問題のポイントはサイコロを正N面体に限定してないところだな
それと3面体なんていう指定をされたらどうするとかな

**デフォルトの名無しさん** · 2017/03/04(土) 01:08:57.14

>>136
やるなあ
パスカルの三角形のもう一段階上みたいな感じか

**デフォルトの名無しさん** · 2017/03/04(土) 04:55:45.63

>>134　C
https://ideone.com/FmyEy7

**デフォルトの名無しさん** · 2017/03/05(日) 03:05:26.21

お題: ハート・ダイヤ・クラブ・スペードを各13枚ずつもつ52枚のカードから13枚のカードが配られます.

Q1. 配られたカードの種類がもっとも均質でない(13・0・0・0)確率P1と, もっとも均質である(4・3・3・3)確率P2を求めてください.
Q2. 確率P1よりも低い確率の組み合わせが存在する場合, その組み合わせと確率を求めてください.
Q3. 確率P2よりも高い確率の組み合わせが存在する場合, その組み合わせと確率を求めてください.

**デフォルトの名無しさん** · 2017/03/05(日) 07:48:05.16

宿題は自分でやろう

**デフォルトの名無しさん** · 2017/03/05(日) 09:20:54.74

>>134 Emacs Lisp

(require 'cl-lib)

(defun dice (x y)
(let ((b '(0)))
(dotimes (i y)
(setq b (reduce (lambda (a b) (append a b)) (loop for n in (loop for i from 1 to x collect i) collect (loop for m in b collect (+ n m))))))
(pp (loop for n in (remove-duplicates b) collect (list n (count n b) (/ (float (count n b)) (length b)))))))

(dice 6 3)
((3 1 0.004629629629629629)
(4 3 0.013888888888888888)
(5 6 0.027777777777777776)
(6 10 0.046296296296296294)
(7 15 0.06944444444444445)
(8 21 0.09722222222222222)
(9 25 0.11574074074074074)
(10 27 0.125)
(11 27 0.125)
(12 25 0.11574074074074074)
(13 21 0.09722222222222222)
(14 15 0.06944444444444445)
(15 10 0.046296296296296294)
(16 6 0.027777777777777776)
(17 3 0.013888888888888888)
(18 1 0.004629629629629629))

**デフォルトの名無しさん** · 2017/03/05(日) 11:59:20.94

>>134 Squeak/Pharo Smalltalk

| dice |
dice := [:x :y |
　| bag |
　bag := Bag new.
　(1 to: x) asDigitsToPower: y do: [:ary | bag add: ary sum].
　bag sortedElements collect: [:kv | {kv key. kv value. kv value / bag size * 100s2}]
].

dice value: 6 value: 3

"=> {
　{3 . 1 . 0.46s2}.
　{4 . 3 . 1.38s2}.
　{5 . 6 . 2.77s2}.
　{6 . 10 . 4.62s2}.
　{7 . 15 . 6.94s2}.
　{8 . 21 . 9.72s2}.
　{9 . 25 . 11.57s2}.
　{10 27 12.50s2}.
　{11 27 12.50s2}.
　{12 . 25 . 11.57s2}.
　{13 . 21 . 9.72s2}.
　{14 . 15 . 6.94s2}.
　{15 . 10 . 4.62s2}.
　{16 . 6 . 2.77s2}.
　{17 . 3 . 1.38s2}.
　{18 . 1 . 0.46s2}
} "

**デフォルトの名無しさん** · 2017/03/05(日) 15:38:00.05

プログラミングする意味のないお題ばっか

**デフォルトの名無しさん** · 2017/03/05(日) 17:57:56.52

>>144
プログラミングする意味のあるお題作ってくれよ

**デフォルトの名無しさん** · 2017/03/05(日) 18:17:30.28

>>134 ocaml
https://ideone.com/SWZRyZ

**デフォルトの名無しさん** · 2017/03/05(日) 20:12:40.81

いや>>134は10面体10個を10秒以内で計算するとかの条件付けるとプログラミングの意味あるぞ

>>136はよく出来てるとオモタ

**デフォルトの名無しさん** · 2017/03/07(火) 18:28:24.63

>>144
そんなこといわずに >>132 を解いてくれよぅ
原始根の存在定理を素数以外に拡張していいのかどうか、いまいち確信がもてないんだ…

**140** · 2017/03/12(日) 13:40:16.63

乱数を使用して10億回試行してみたところ,4・3・3・3の出現回数は105357474 (10.5%), 13・0・0・0は0(12・1・0・0は3)でした.
4・3・3・3よりも出現回数の多い組み合わせは以下の4通りでした.

4・4・3・2 215505541回 (21.6%)
5・3・3・2 155167267回 (15.5%)
5・4・3・1 129327030回 (12.9%)
5・4・2・2 105786216回 (10.6%)

このお題はHAKMEM MIT AI Memo 239 ITEM 46 (Schroeppel)を参考にしました.
http://www.inwap.com/pdp10/hbaker/hakmem/number.html#item46

**デフォルトの名無しさん** · 2017/03/24(金) 16:34:29.50

A+B+C+D+E+F+G+H+I+J+K=170
A-B=－2
A>B>C>D>E>F>G>H>I>J>K
A>0のとき
この式を満たすA～Kを全て求めよ

**デフォルトの名無しさん** · 2017/03/24(金) 16:44:02.34

A-B=－2
A>B
この二つを同時に満たせません

**デフォルトの名無しさん** · 2017/03/24(金) 19:36:54.08

済みません間違えてました
A-B=2でした

**デフォルトの名無しさん** · 2017/03/24(金) 19:49:23.03

そっちを直すのか

**デフォルトの名無しさん** · 2017/03/24(金) 19:50:50.29

修正がA>B>C...→A<B<C...じゃなくてA-B=-2→A-B=2だと無数に求められるから全て求めるのは無理じゃないかな？

**デフォルトの名無しさん** · 2017/03/24(金) 19:57:24.58

例えばこんなん
int A=68,B=66,C=8,D=7,E=6,F=5,G=4,H=3,I=2,J=1,K=0;
while(true) {
A++; B++; K-=2;
}

**デフォルトの名無しさん** · 2017/03/24(金) 22:00:38.98

こういうお題を書きたいのなら制約条件を良く考えないと

A+B+C+D+E+F+G+H+I+J+K=170
A>B>C>D>E>F>G>H>I>J>K
A～Kは全て自然数とする

こういうのとかな

**デフォルトの名無しさん** · 2017/03/25(土) 07:43:46.30

>>150
http://ideone.com/ZXck7T
C++。ちょっと自信ないけど、一応できた。
頑張って最適化した。

**デフォルトの名無しさん** · 2017/03/25(土) 07:59:35.07

あれ？条件おかしいな。俺ってせっかちさん！

**デフォルトの名無しさん** · 2017/03/25(土) 08:00:35.83

と思ったら専ブラの安価化けてた。

**デフォルトの名無しさん** · 2017/03/25(土) 13:31:35.87

https://www.hackerrank.com/sinapusu2002-1
ハッカーランクという競技プログラミングサイトで出題中の問題。
オリジナル問題6問。
ハッカーランクに登録して解いてくれ。
スレ違いだろうか？
２つの三角形の共有面積はかなりマゾいのでお勧め。
一応競技プログラミング界の重鎮で東大で数学してる人にも解いてもらったりはしたけど。
挑戦者数が増えないのが悩みの種。
ただいま次回コンテストに向けて3/6問作成済み、3問作成予定。

**デフォルトの名無しさん** · 2017/03/25(土) 13:58:45.28

レジストするのめんどいのと頭悪いので無理～～。

**デフォルトの名無しさん** · 2017/03/25(土) 14:01:32.89

挑戦者数が増えないのは問題が悪いからだろ。
良問をだしてれば自然と挑戦者は増えるはず。
宣伝してズルした時点でお前の人間性の低さがわかるんだよ

**デフォルトの名無しさん** · 2017/03/25(土) 14:02:58.32

んんん？どうした？

**デフォルトの名無しさん** · 2017/03/25(土) 14:13:46.85

頭悪いって俺のこと行ってるんだが。すまんな！

**デフォルトの名無しさん** · 2017/03/25(土) 15:30:57.12

>>160
東大生に解いてもらっても屑な問題はクズだ。
そんなもので東大のブランド志向に思ってる奴を釣ろうとしている
お前も同じ穴の貉だよ。
俺はそいういうやつは軽蔑するな。

**デフォルトの名無しさん** · 2017/03/25(土) 18:47:23.24

まあ完全にスレチだから無視すれば？

**デフォルトの名無しさん** · 2017/03/28(火) 09:57:58.96

お題：格子点を1個だけ含む面積4の凸多角形を求める

**デフォルトの名無しさん** · 2017/03/28(火) 13:00:05.06

>>167
斜めってる正方形とか、無限にできるんでないの？

**デフォルトの名無しさん** · 2017/03/29(水) 00:52:34.65

>>167
xが0.9未満なら
(0,0)(x,0)(0.1,4/x)(0.1+x,4/x)
の平行四辺形でいいよね

**デフォルトの名無しさん** · 2017/04/01(土) 19:39:48.39

>>167
(0,0)-(0.8,0)-(9.8,10)

◆QZaw55cn4c · 2017/04/08(土) 18:54:06.32

[1] 授業単元：線形代数

[2] 問題文
与えられたn字正方行列の逆行列を求めよ。
求めた行列は、与えられた行列を掛けて n　次単位行列となることを確認せよ。
以下のCプログラムを元に実装されていない部分を補完せよ。C 以外の言語で記述する場合は、この C プラグラムの対応する部分も記述すること。
https://ideone.com/k996I1
逆行列が存在しない場合は適切に処理してよい。

[3] 環境
　[3.1] OS：問わない
　[3.2] コンパイラ名とバージョン：問わない
　[3.3] 言語： C または任意の言語

[4] 期限： ([2017年4月15日23:59まで]
[5] その他の制限：お題です。

**デフォルトの名無しさん** · 2017/04/08(土) 21:30:20.69

QZのひとか。ここは宿題スレじゃないよ。

**デフォルトの名無しさん** · 2017/04/08(土) 21:43:02.82

お題ですぅ‥

**デフォルトの名無しさん** · 2017/04/09(日) 20:50:45.75

お題：
辺の長さが100より小さい既約のピタゴラス三角形をすべて求めう。
出力の順序は問わない。

**デフォルトの名無しさん** · 2017/04/09(日) 23:51:51.14

>>171
これ、宿題の解答にならないようなプログラムにするのは結構難問かも。

**デフォルトの名無しさん** · 2017/04/10(月) 23:26:39.47

>>174 Java
https://ideone.com/g3K6Z8

**デフォルトの名無しさん** · 2017/04/11(火) 01:24:52.99

>>174
Ruby
N=100
(1..N).step(2){|a|(a+2..N/a).step(2){|b|c=b*b-a*a>>1;a.gcd(b)<2&&c<N&&p([a*b,c,c+a*a])}}

**デフォルトの名無しさん** · 2017/04/11(火) 21:44:43.48

お題：フランス語で1から100まで数える

**デフォルトの名無しさん** · 2017/04/11(火) 21:50:23.26

1（フランス語　・・・　100（フランス語

**デフォルトの名無しさん** · 2017/04/11(火) 22:35:16.36

お題：
トランプの札のリストが文字列で与えられるので
同じマークor同じ数字のペアが最大何組できるか求めよ

D：ダイヤ、H：ハート、S：スペード、C：クラブ、
A：エース、2～9：数字の2～9、T：10、J：ジャック、Q：クイーン、K：キング

例：
"DAD2HAH3" -> 2
"DAD3D8D9DJH5H8HKSASKCAC5C8CK" -> 7
"SAS2S3S4S5S6S7S8S9C2C3C4C5C6C7C8C9CT" -> 9

**デフォルトの名無しさん** · 2017/04/13(木) 22:19:39.85

>>180
知らんけどNP完全とかそういうやつ？
違ったらスマソ

**デフォルトの名無しさん** · 2017/04/14(金) 01:20:45.82

>>180
http://ideone.com/UgHgtz
C++。多分間違ってる。数字も合わないしな。
i7-6700でリリースビルドで40秒くらいかかる。

見てる感じ塩基配列だよなこれ。

**デフォルトの名無しさん** · 2017/04/14(金) 02:38:04.01

>>180
c++ http://ideone.com/WK9LQi

問題文には明記なかったが、ユニークな52枚(4*13)1セットだけだとして解いた。

計算量は 1問 14^4*6 くらいになるのだろう。
(最初は14^5*6でやったが、ひとつ計算量落とした。
この数値じゃ、意味なかったけど)

**デフォルトの名無しさん** · 2017/04/14(金) 06:35:41.46

動的計画法はよくわからん。
書けもしない。Orz

◆QZaw55cn4c · 2017/04/14(金) 18:11:30.73

>>171 人気がないね…ループの知識だけあればOKでループの構成を考える腕力が多少あればそれなりに楽しめるお題と思ったんだけれども
新規性がないのが弱点なのかな？
次のお題を考えることにしようか

**デフォルトの名無しさん** · 2017/04/14(金) 22:18:00.95

http://ideone.com/Et54St
意味ないけど最適化したら現実的な時間で終わるようになった。
今暇なので、いい暇つぶしになったなぁ。意味ないけど。

**デフォルトの名無しさん** · 2017/04/15(土) 10:54:03.85

>>186
＞DAD2HAH3:4,2
＞DAD3D8D9DJH5H8HKSASKCAC5C8CK:394,38
＞SAS2S3S4S5S6S7S8S9C2C3C4C5C6C7C8C9CT:1972800,16

どういうこと？？？
組み合わせの数がカードの枚数すら超えてるの？？？

**デフォルトの名無しさん** · 2017/04/15(土) 11:05:02.69

そいつのコード見てないから分からんが多分、最初の例なら
1)DAHA
2)DAD2
3)HAH3
4)DAD2,HAH3
みたいにカウントされちゃってるんじゃないか？

**デフォルトの名無しさん** · 2017/04/15(土) 17:04:06.01

>>180
最後のは9じゃなくて8組だろ

同じマーク　S：4組、C：4組、合計8組
同じ数字　2,3,4,5,6,7,8,9の各ペアで合計8組
最大組数は8組

**デフォルトの名無しさん** · 2017/04/15(土) 17:17:26.54

>>180　C
http://ideone.com/vD1JHy

**デフォルトの名無しさん** · 2017/04/15(土) 17:40:29.91

俺も間違ってたので修正した
http://ideone.com/vD1JHy

答えは2組,6組,8組じゃないの？

**デフォルトの名無しさん** · 2017/04/15(土) 19:29:06.55

>>189
反例

数字で(S2=C2)で1ペア、
残り8枚ずつで同スートのペアを8つくる
合計 9ペア

数字で(S2=C2, S3=C3, S4=C4) 3ペア
残りは6枚ずつになるので、6ペアできる
合計9ペア

その他数字のペアを奇数個つくれれば、9を作れる

**デフォルトの名無しさん** · 2017/04/15(土) 20:24:00.89

>>192
意味がわかった

**デフォルトの名無しさん** · 2017/04/15(土) 21:12:03.91

8bitの整数を一つ引数として与え、
上位4bitと下位4bit を符号なし整数として掛け算した結果の8bitを返す関数を
論理演算子のみで実装したもののうち、
もっとも実行時間が短いものを挙げよ。
論理演算は全て１命令１サイクルとする。

**デフォルトの名無しさん** · 2017/04/15(土) 21:23:09.15

表引きで１クロックとかは無しね。

**デフォルトの名無しさん** · 2017/04/15(土) 22:10:36.10

最も実行時間が短いかどうかの判定ってＮＰ完全っぽそう

**デフォルトの名無しさん** · 2017/04/15(土) 23:11:44.46

8bitなら力技で解けないかな？

**デフォルトの名無しさん** · 2017/04/16(日) 03:52:44.93

http://ideone.com/QNbwWa
C++。えーん終わらないよ～。
デバッグ覗いたら早い段階で答え出てるんだけど打ち切り方がわからない。

>>186などは題意を把握してなかった。

**デフォルトの名無しさん** · 2017/04/16(日) 05:47:25.03

ふえぇーん。1時間半回してもおわらないよー。
動的計画法すごい。

**デフォルトの名無しさん** · 2017/04/16(日) 08:35:26.85

>>180 Java
http://ideone.com/ABj7QB

**デフォルトの名無しさん** · 2017/04/16(日) 14:11:29.20

お題
これ
http://www.mext.go.jp/programin/
に相当するアプリケーションを
非Ｗｅｂ環境でも使えるような仕様で
単一の言語でコーディングしろ

**デフォルトの名無しさん** · 2017/04/16(日) 14:13:03.29

>>180　C
http://ideone.com/CH5bY4

**デフォルトの名無しさん** · 2017/04/16(日) 16:14:29.58

>>201 Squeak Smalltalk で
https://scratch.mit.edu/scratch_1.4/

**デフォルトの名無しさん** · 2017/04/20(木) 11:21:43.08

>>201 Pharo Smalltalk のもあった
http://www.phratch.com/