プログラミングのお題スレ 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/

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

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

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

こういうのに瞬時に回答できるようになるまでどのくらいの時間がかかるものなの？

**デフォルトの名無しさん** · 2017/04/22(土) 21:31:15.12

お題：　くまモンをかく

**デフォルトの名無しさん** · 2017/04/23(日) 10:45:10.81

くまモン

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

>>205
一瞬

**デフォルトの名無しさん** · 2017/04/23(日) 20:24:02.53

とんちかよw

**デフォルトの名無しさん** · 2017/04/23(日) 20:37:32.86

ああ、やっと意味が分かったｗ

**デフォルトの名無しさん** · 2017/04/24(月) 05:27:50.71

>>206
http://light.dotup.org/uploda/light.dotup.org437888.png
http://ideone.com/eJ2xul
C++。あー大変だった。
以前ラウム螺旋作った時の流用したけど、タートルグラフィックはGUI無いとキツイなぁ。
似てないとか苦情は受け付けません。あしからず。

**sage** · 2017/04/24(月) 05:36:47.92

>>206 glsl
http://glslsandbox.com/e#40107.0

似てないなぁ……

>>211 GJ! 先越されたー

**デフォルトの名無しさん** · 2017/04/24(月) 05:43:14.19

>>212
時代は3Dか・・・。
ロートルにはできん芸当だ。GJ。

**デフォルトの名無しさん** · 2017/04/24(月) 11:57:42.03

>>212
へーこんなところあるんだ知らんかった

**デフォルトの名無しさん** · 2017/04/24(月) 21:55:43.67

すみません。何言ってるかわからないだろうけど、
12桁の数字が並ぶ羅列は何を表しているのでしょうか？？？
/021/000/000/000
とか

**デフォルトの名無しさん** · 2017/04/24(月) 22:16:03.57

最初の3つが市外局番　次が区番号　残りが個人識別子だよ

**デフォルトの名無しさん** · 2017/04/25(火) 05:30:26.30

12桁くらいの数字を使う規格ってそれなりにありそうだけどな。

**デフォルトの名無しさん** · 2017/04/25(火) 23:23:31.83

お題：自然数nのヤング図形をもとめる

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

>>218
ギブアップ。うぃきぺ見ても意味わかんない。頭爆発しそう。

**デフォルトの名無しさん** · 2017/04/26(水) 07:24:25.57

数字の入ったヤング盤じゃなくて、図形だけでいいの？
nのヤング図形を全部求めるってこと？

**デフォルトの名無しさん** · 2017/04/26(水) 12:59:54.54

>>218 Nim
https://wandbox.org/permlink/cNfdZ0908tcbQhod

**221** · 2017/04/26(水) 16:03:33.34

>>221は1行目が「× Yaund」「○ Young」という恥ずかしい間違いから始まり
N <= 0の時のチェック漏れやら
長方形のパターン(N=10の時の[5,5]や[2,2,2,2,2])が抜けてるなど
ミスしまくってました　orz てことで、修正します

>>218 Nim
https://wandbox.org/permlink/RUf5B0SVg0MozD25

**デフォルトの名無しさん** · 2017/04/26(水) 16:07:13.33

なーんだそれでいいのか。
それならなんとか組めるかも。

**デフォルトの名無しさん** · 2017/04/26(水) 19:19:14.42

>>218
http://ideone.com/6PRt5z
C++。こういうこと？やっぱりよくわからん。

**デフォルトの名無しさん** · 2017/04/27(木) 10:01:02.40

問題の想定解と合ってるのかな?
出題者のコメントが欲しいところ

**デフォルトの名無しさん** · 2017/05/05(金) 08:45:57.67

素人の言語処理100本ノック:まとめ
http://qiita.com/segavvy/items/fb50ba8097d59475f760

**デフォルトの名無しさん** · 2017/05/24(水) 21:48:00.75

お題：以下を出力
857142
714285
571428
428571
285714
142857

**デフォルトの名無しさん** · 2017/05/24(水) 22:07:09.20

>>227
とりあえずPythonでやってみた
https://ideone.com/UCpMVm

**デフォルトの名無しさん** · 2017/05/24(水) 22:19:15.30

>>227
法則性がわからん
文字列じゃなくあくまで数値で？

**デフォルトの名無しさん** · 2017/05/24(水) 23:21:53.31

>>229
一番下の数字に1∼6を掛ければ

**デフォルトの名無しさん** · 2017/05/24(水) 23:33:01.85

>>227
C
http://ideone.com/eRLqLi

**デフォルトの名無しさん** · 2017/05/24(水) 23:48:35.88

各々n/7の循環部だね

**デフォルトの名無しさん** · 2017/05/24(水) 23:51:10.59

>>227
Ruby
6.downto(1){|i|p i*1000000/7}

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

>>227 Perl

use 5.016;
use integer;
say 857142 / $_ for 1..6;

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

>>234 間違えてたｽﾏｿ
Perl

use 5.016;
say 142857 * (7 - $_) for 1..6;

$ perl 9_227.pl
857142
714285
571428
428571
285714
142857

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

>>227 Squeak/Pharo Smalltalk

(142857 * (6 to: 1 by: -1)) asStringWithCr

=> '857142
714285
571428
428571
285714
142857'

**デフォルトの名無しさん** · 2017/05/25(木) 13:21:29.71

>>227 GNU Smalltalk

6 to: 1 by: -1 do: [:i | (142857 * i) displayNl]

http://ideone.com/yNgDeB

**デフォルトの名無しさん** · 2017/05/25(木) 18:49:32.83

>>227 common lisp
(do ((i 6 (- i 1))) ((equal i 0)) (print (floor (/ (* 1000000 i) 7))))

**デフォルトの名無しさん** · 2017/05/25(木) 19:28:46.12

お題が情報不足過ぎて何を使っていいのか悪いのかがわかんない

**デフォルトの名無しさん** · 2017/05/25(木) 21:35:24.87

>>227
@Mathematica

In[1]:=142857//
　　IntegerDigits//
　　NestList[RotateLeft,#,Length[#]-1]&//
　　Map[FromDigits,#]&//
　　Sort//
　　Reverse//
　　Map[{#}&,#]&//
　　Grid

Out[1] = 857142
　　　　 714285
　　　　 571428
　　　　 428571
　　　　 285714
　　　　 142857

**デフォルトの名無しさん** · 2017/05/25(木) 21:56:10.72

>>227 Io
a := 999999 / 7
for(i, 6 * a, a, -a, i println)

**デフォルトの名無しさん** · 2017/05/25(木) 22:10:21.35

>>227 Nim
for i in countdown(6,1): stdout.writeline i*142857

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

>>227 ruby
puts (1..6).map {|i| i * 142857}.reverse

>>227 rust
fn main() {
//println!("{}", (1..7).rev().map(|i| (142857 * i).to_string()).collect::<Vec<_>>().join("\n"));
for i in (1..7).rev() {println!("{}", 142857 * i)}
}

**デフォルトの名無しさん** · 2017/05/27(土) 20:11:30.48

227 R
write((6:1)*999999/7.",1)

**デフォルトの名無しさん** · 2017/05/28(日) 14:54:52.19

>>227 SWI-Prolog
main(N, X) :- X1 is X * N, write(X1), nl, N > 1, N1 is N - 1, main(N1, X).
:- main(6, 142857).

**プログラミングのお題** · 2017/06/01(木) 12:06:57.65

トランプ氏の謎の単語

covfefe

の謎を解明する。

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

↑
c,o,v,f,e,f,eの7文字をランダムに出力し続け、covfefeが完成するまでの文字数をカウント

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

>>247 Squeak/Pharo Smalltalk

| count covfefe buffer |
count := 0.
covfefe := 'covfefe' asOrderedCollection.
buffer := covfefe copy atAllPut: $*.
[　count := count + 1.
　Transcript nextPut: (buffer removeFirst; add: covfefe atRandom).
　(count isDivisibleBy: 1000) ifTrue: [Transcript endEntry].
　buffer = covfefe
] whileFalse.
Transcript endEntry.
^count "= 34301 "

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

>>247　効率悪いけれど…
Perl

$w='covfefe';
@l=split '',$w;
do {
$_ .= $l[int(rand(7))];
} while (!/$w/);
print index $_, $w . "\n";

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

>>249
ｺﾞﾒﾝ、これだと最初に見つかったときに0になっちゃうんで
「完成するまでの文字数」を出すためには
× print index $_, $w . "\n";
↓
○ print index($_, $w) + 7 . "\n";
に修正させてください。

**デフォルトの名無しさん** · 2017/06/02(金) 02:47:24.66

>>247 Nim

import random
const word = "covfefe"
var count, match = 0
randomize()
while match != word.len():
let ch = word[random word.len()]
stdout.write ch
match = if ch == word[match]: match + 1 else: 0
inc count
echo "\n", count

**デフォルトの名無しさん** · 2017/06/02(金) 07:41:45.64

それだとccovfefeのときとか抜け落ちるんじゃね？

**デフォルトの名無しさん** · 2017/06/02(金) 14:13:15.27

>>252
その通りですね
お題のcovfefeなら安直な修正でいいかな

- match = if ch == word[match]: match + 1 else: 0
+ match = if ch == word[match]: match + 1 elif ch == word[0]: 1 else: 0

**デフォルトの名無しさん** · 2017/06/02(金) 20:36:39.00

>>247 ruby
covf, buff = 'covfefe', ''
buff += covf.chars.sample until buff.end_with? covf
p buff.size

**片山博文MZ** ◆T6xkBnTXz7B0 · 2017/06/02(金) 21:34:10.62

お題: ２つの別々の牧場ウィンドウがあり、その中に複数の牛がうごめいている。複数の牛を選択して、別の牧場ウィンドウにドラッグ＆ドロップできるようにしなさい。

**デフォルトの名無しさん** · 2017/06/02(金) 21:43:02.00

GUIの課題ってコードも長くなりがちたから答えにくくない？

**片山博文MZ** ◆T6xkBnTXz7B0 · 2017/06/02(金) 21:46:38.91

賞金は早い者勝ちで三千円。スクリプト野郎どもにはできないだろう。へっ。

**片山博文MZ** ◆T6xkBnTXz7B0 · 2017/06/02(金) 22:03:27.70

>>256
githubがあるじゃないか。

**デフォルトの名無しさん** · 2017/06/02(金) 22:03:48.67

賞金とか誰かと思ったら片山博文MZか。

**デフォルトの名無しさん** · 2017/06/02(金) 23:44:04.74

三千円じゃ安い

**デフォルトの名無しさん** · 2017/06/03(土) 01:24:32.19

>>255
動的言語のscriptでもQt,Wxwidget,Tkinterなど色々のGUI　ｆｗが使えるから書けるよ。
でも、エッセンスがなく、会コードが無駄に長くなるお題は、作成に時間がかかるし獣よな技術はないし
趣旨を考えで出題しろよ。
すくなくとも自分で作る気になれる題を出せ

**デフォルトの名無しさん** · 2017/06/03(土) 01:26:10.05

>>261
会コードが無駄に長くなるお題は、作成に時間がかかるし獣よな技術はないし
↓
解コードが無駄に長くなるお題は、作成に時間がかかるし技術はないし

**デフォルトの名無しさん** · 2017/06/03(土) 01:50:43.99

でも、まぁ地獄の沙汰も金次第というじゃありませんか。
お見積もり30万円以上でしたらpython+tkinterで書いてお納めすｔることも
検討させていただきますよ。ﾊｲ
更にハイグレードに300万円だったらPerl+Ptkもお付けいたいます。
いかがですか?だんな
もみ手

**デフォルトの名無しさん** · 2017/06/03(土) 19:38:09.78

【問題】
アルバートとバーナードは、シェリルと友達になったばかりです。
シェリルの誕生日を2人は聞きましたが、彼女は10個の日にちを候補としてあげました。

・5月15日、5月16日、5月19日
・6月17日、6月18日
・7月14日、7月16日
・8月14日、8月15日、8月17日

それからシェリルは、アルバートに「月」だけを、バーナードに「日付」だけをそれぞれ教えました。
アルバート「僕はシェリルの誕生日を知らないけど、バーナードも知らないよ」
バーナード「僕はシェリルの誕生日を知らなかったけど、今は知ってるよ」
アルバート「それなら僕もいつだか知っているよ」
シェリルの誕生日はいつでしょうか？

プログラムを書いてプログラムに解かせること。

**デフォルトの名無しさん** · 2017/06/03(土) 20:24:51.42

Console.WriteLine("知らんがな");

**デフォルトの名無しさん** · 2017/06/03(土) 20:43:26.68

(begin (display "知らんがな")(newline))

**デフォルトの名無しさん** · 2017/06/03(土) 21:39:03.81

print("知らんがな")

**デフォルトの名無しさん** · 2017/06/03(土) 21:39:54.96

世界で初めて原爆実験が行われた日を
わざわざ答えに選んだのは何か意図があってのこと？

**デフォルトの名無しさん** · 2017/06/04(日) 02:59:00.78

2年前のログ見てみたけどそのときはここに持ちこむ奴いなかったんだな
Prologおじさんとかが嬉々としてやりそうだけど

**デフォルトの名無しさん** · 2017/06/04(日) 03:31:57.97

7月16日

**デフォルトの名無しさん** · 2017/06/04(日) 11:23:47.25

>>264 f#
http://ideone.com/cBGHxs

**デフォルトの名無しさん** · 2017/06/04(日) 12:17:11.76

>>264 Perl

@md = ([5, 15], [5, 16], [5, 19],
[6, 17], [6, 18],
[7, 14], [7, 16],
[8, 14], [8, 15], [8, 17]);
push @{$c{$$_[1]}}, $$_[0] for @md;
push @{$d{$$_[0]}}, $$_[1] for grep{1 < @{$c{$$_[1]}}} @md;
while (($m, $v) = each %d) {
print "$m/$$v[0]\n" if 1== @$v;
}

実行結果

$ perl 9_264.pl
6/17

**デフォルトの名無しさん** · 2017/06/04(日) 12:22:24.53

>>272
7月16日が正解なら解き方間を違えているのかも知れん

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

アルバート「僕はシェリルの誕生日を知らないけど、バーナードも知らないよ」
5,6月を排除

バーナード「僕はシェリルの誕生日を知らなかったけど、今は知ってるよ」
14日を排除

アルバート「それなら僕もいつだか知っているよ」
残り候補が一つの月 -> 7月16日

**デフォルトの名無しさん** · 2017/06/04(日) 15:02:32.31

>>272 の解き方で考えたこと

アルバート「僕は(「月」だけしか教えてもらっていないので)シェリルの誕生日を知らないけど、
　　　　　　(「日付」だけを教えてもらった)バーナードも知らないよ」
⇒「日付」だけ聞けば誕生日だと判明する、即ち日の登場回数が一回だけの月日、
　具体的には5月19日、6月18日は対象外とみなし除去

バーナード「僕は「日付」だけを教えてもらっても)シェリルの誕生日を知らなかったけど、
アルバートが「僕はシェリルの誕生日を知らないけど、バーナードも知らないよ」と言うのを聞いて
今は知ってるよ」
⇒日の登場回数が一回だけの19日、6月18日を除去したあと、
　登場回数が一回だけの日がバーナードの聞いた「日付」に当たり、
　誕生日だと考えられる。

⇒6/17

この考え方が違ったんだろうな…

**デフォルトの名無しさん** · 2017/06/04(日) 15:42:35.42

>>275
アルバートは月を知ってるが、バーナードも知らない事を確信できるのは、
18,19日を含まない7,8月のどちらかという事になる -> 5,6月は全削除

それを聞いてバーナードは誕生日がわかるので、7,8月両方に含まれる14日ではなく、
15,16,17日のどれかになる

それを聞いてアルバートがわかるので、候補が一つしか残ってない7月16日という事になる

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

6/17の方ぽいね

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

5,6月は全排除でしょ

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

>>278
そこがｵﾚにはよく理解できていなくてさ。
まぁ言葉にあいまいな面があるかもしれんから解釈に差が出たのかな

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

>>279
解釈の差だけが問題じゃないだろ

> ⇒日の登場回数が一回だけの19日、6月18日を除去したあと、
> 　登場回数が一回だけの日がバーナードの聞いた「日付」に当たり、
> 　誕生日だと考えられる。

18日、19日は日の登場回数が一回だけであるということは
他の日は複数回登場するということだからその論理は破綻してる

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

>>280
それは誤解というか解読不足。
5月19日、6月18日が除去されることによって、
元々複数回登場していた他の日のうち6月17日が単一の日となり
17日という日付さえ知らされれば、誕生日は6月17日と判明できる。

**デフォルトの名無しさん** · 2017/06/04(日) 17:03:26.79

>>281
客観的に見て、アルバートがバーナードも知らない事を確信できる為には、
アルバート自身が知っている月には18,19日が含まれていない必要がある
従って、アルバートが知っている月は5,6月ではないという事

**デフォルトの名無しさん** · 2017/06/04(日) 17:07:47.61

>>282
なるほど考え方は理解できた。
でも5月6月には他の日もあるからバーナードが聞かされた日がそれらで無いとはっきりしていないうちに
月ごと排除して大丈夫？

**デフォルトの名無しさん** · 2017/06/04(日) 17:11:33.29

>>281
17日は8月17日もあるから、
6月が17日だけになったからといって、
6月17日が誕生日だとするのは
アルバート、バーナードの台詞を根拠に基づく論理に
無理がないか検証不十分だという気が自分でもしてきた

**デフォルトの名無しさん** · 2017/06/04(日) 17:12:55.48

>>283
逆に最初の時点でアルバートはバーナードが知らないとは確信できない
例えばアルバートは6月と聞かされた場合、6月18日の可能性もあるので、
それだとバーナードは18日と聞かされているから知ってるかもしれない