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

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

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

>>571
https://ideone.com/pjZbOc
C++。デバッグ難しくてやる気がしないのでバグってるかも。
カーソルキー取るの面倒だからASキーにしておいた。
こんな感じでいいのか？

何のシミュレータかしらんけどめんどくせーな。

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

あ、それと、文字列で計算するのめんどくさかったから、数字でやった。
そっち事情なんか知ったこっちゃない。

**デフォルトの名無しさん** · 2017/10/23(月) 05:46:30.69

%%%%1000%%%%

000-[HUM%58*73.1\%]/2I/3NM/61.3SNMK%?%3%51.22222222222221%
001-[[[%6/4$17.6135412α3]]]]+DOM+SIL+7%
002-UML7%[61.2[31.5[!%32∂LM17.36%!16.3!%<<<%!HSTOL7%!Q!S!=3m=<2TOL<3Q9A<2.1GHz%,DOK,HAOARA,
003-[[[HEMLOT47[<\41.2%Q,===>[MLS<DPNO<\2.3>#ESOLA!5%!3MLA!>LTOSA>7TONSA>%>%end

**デフォルトの名無しさん** · 2017/10/23(月) 17:28:50.67

>>574
全く読めねぇｗ

**デフォルトの名無しさん** · 2017/10/23(月) 20:53:32.54

ランダムの分布は指定なし？

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

いろんなところでたまに見かけるけど、>>547　ってPGなの？

**デフォルトの名無しさん** · 2017/10/24(火) 06:49:36.20

PGとは？

**デフォルトの名無しさん** · 2017/10/24(火) 07:14:59.91

プロパンガス

**デフォルトの名無しさん** · 2017/10/24(火) 08:55:25.49

パーフェクトグレイド

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

>>575>>577
>>574はvbsウィルスの一部だよ
つまりワクチンソフトに引っかかるとこのログが検疫されるので注意

**デフォルトの名無しさん** · 2017/10/24(火) 21:14:43.61

>>581
さんくす。

**デフォルトの名無しさん** · 2017/10/25(水) 20:13:14.36

お題
())())のように括弧のみからなる文字列が与えられるので
すべての括弧が正しく対応付けされるためには
最低で何箇所の括弧を逆向きに変更すればよいか求めよ
例えば上の例では2文字目か3文字目を変更すればよいので1を出力せよ
何文字変更しても正しく対応付けできない場合は-1を出力せよ

) -> -1
())()) -> 1
)()()( -> 2
)))((( -> 4
(())())((())(()( -> 3
())((())()))()(((()))()((((((((()()(())) -> ?

**デフォルトの名無しさん** · 2017/10/25(水) 21:21:26.00

>>583 Java
https://ideone.com/Oca2HR

**デフォルトの名無しさん** · 2017/10/26(木) 00:42:38.67

>>583
Ruby
https://ideone.com/wQA5TN

**デフォルトの名無しさん** · 2017/10/26(木) 07:09:40.17

>>583
https://ideone.com/OkCwgQ
C++。効率とかショートコーディングとかそういうものをかなぐり捨ててべた書き。
あってるかな？

**デフォルトの名無しさん** · 2017/10/26(木) 08:33:36.44

おむ

**デフォルトの名無しさん** · 2017/10/26(木) 08:35:57.56

誤爆
>>583 Ruby

def calc str
return -1 if str.size.odd?
ary = optimise str.scan(/(?=.)($*)($*)/).map{|a, b| a.size - b.size}
(-ary[0] + ary[1].to_i).abs/2 + ary[0]%2
end

def optimise ary
a = ary.reject(&:zero?).chunk(&:positive?).to_a.transpose[1].map(&:sum)
return a if a.size < 3
a.unshift(0) if a[0] < 0
optimise a.each_slice(2).map(&:sum)
end

STR = %w{
)
())())
)()()(
)))(((
(())())((())(()(
())((())()))()(((()))()((((((((()()(()))
}

STR.each{|s| puts "%s -> %d"%[s, calc(s)]} #=>
) -> -1
())()) -> 1
)()()( -> 2
)))((( -> 4
(())())((())(()( -> 3
())((())()))()(((()))()((((((((()()(())) -> 5

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

>>583 ruby
https://ideone.com/jGTfL3

**デフォルトの名無しさん** · 2017/10/27(金) 22:31:59.57

>>583
@Mathematica

https://ideone.com/19n4r2

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

Quineの派生ということで、コードそれ自身を反転させたものを出力せよ
反転とは文字列"abc\ndef"を"fed\ncba"にすること

**デフォルトの名無しさん** · 2017/11/04(土) 01:52:41.37

数列 6,66,666,6666,66666.....
これをダミアン数列と呼ぶことにしましょう

nを自然数としたときn^n（^はべき乗）の桁数（１０進数で）が
ダミアン数列のどれかになることはあるか？
初歩的な計算で7^7=823543が6桁になることがわかります

問　このような不吉な数は
　　　　7のみである
　　　　有限個存在する
　　　　無限に存在する

ここまで書いてみたけどこの問題だとプログラミングのお題じゃないね
数論で解けるのかなあ？

改めてお題
ダミアン数列の最初の10項につながる不吉な自然数はあるか、あるとすれば
その数はいくつか

力技では時間が掛かりすぎると思うので工夫してみてください

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

意味不明

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

>>591
https://ideone.com/1bQnxO
C++。VCオンリー。
ウニコード対応しようと思って色々やってたけど、なんかうまくいかねー。
一応VCではうまくいってるっぽいけど、GCCと共通のコードはまだ規格的にきつそうだ。
うへー。大変だったわ。やっぱ、文字列は鬼門。

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

>>592 Java
https://ideone.com/furdsD

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

>>591 Squeak/Pharo Smalltalk

thisContext method getSource reversed allButLast: 8

"=> '8 :tsaLtuBlla desrever ecruoSteg dohtem txetnoCsiht' "

**デフォルトの名無しさん** · 2017/11/04(土) 10:09:48.41

>>591 ruby
https://ideone.com/k9nGSp

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

>>597 ruby
d="]esrever.d,d[%'d=p%;s%' stup";puts '%s;%p=d'%[d,d.reverse]
#=> ]esrever.d,d[%'d=p%;s%' stup;"puts '%s;%p=d'%[d,d.reverse]"=d

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

安価ミスったorz

**デフォルトの名無しさん** · 2017/11/05(日) 22:47:04.05

>>595
2で割らずにシフトしてたり芸が細かいですな

**片山博文MZ** ◆T6xkBnTXz7B0 · 2017/11/07(火) 23:38:24.35

お題。ツイッターのフォロワーを使ってお金を稼ぐ具体的な方法を思い付く限り列挙せよ。

**デフォルトの名無しさん** · 2017/11/07(火) 23:48:06.18

やだ。

**デフォルトの名無しさん** · 2017/11/08(水) 00:39:27.61

プログラミングに関係ないお題は却下

**デフォルトの名無しさん** · 2017/11/08(水) 20:48:53.00

片山博文MZってコジキなのか？

**デフォルトの名無しさん** · 2017/11/13(月) 00:48:07.30

コジキっていうか、頭の弱い子

**デフォルトの名無しさん** · 2017/11/14(火) 21:49:31.73

コード中でa-zA-Z0-9の文字を一切使わずに
Hello World!!
と出力せよ。
"!"の後ろの改行の有無は問わない。

**デフォルトの名無しさん** · 2017/11/14(火) 22:13:39.71

>>606 whitespace

**デフォルトの名無しさん** · 2017/11/15(水) 00:12:32.03

前にも見たなぁ。

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

>>606
それじゃプログラム組めないと思うんだが、記号だけの言語みたいなの使えってこと？

**デフォルトの名無しさん** · 2017/11/15(水) 00:30:14.08

>>606 bhnjdsbkjdsb
_

**デフォルトの名無しさん** · 2017/11/15(水) 00:31:44.60

iostreamがすでにアウト。

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

>>606

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

>>606 Ruby
https://ideone.com/z4vm4F
perlとjavascriptでも殆ど同じことができる

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

今日は七五三ということで
7,5,3,+,-,×,÷,(),^2を使った式（ただし7,5,3は一個しか使えない）で1から連続でいくつまで数を作れるか

1=3+5-7
2=5-3
3=3
4=(5-3)^2
5=5
6=(7-5)×3
…

**デフォルトの名無しさん** · 2017/11/15(水) 06:25:11.32

^2 もありですか

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

>>613
回答見てもわからない
どういうこと?

**デフォルトの名無しさん** · 2017/11/15(水) 11:36:08.43

>>606
Ruby で、

unpacked = "Hello World!!".unpack("c*")
p unpacked
#=> [72, 101, 108, 108, 111, 32, 87, 111, 114, 108, 100, 33, 33]

packed = unpacked.pack('c*')
puts packed
#=> Hello World!!

**デフォルトの名無しさん** · 2017/11/15(水) 11:46:46.76

>>616
特殊変数$$から1を作ってそれをもとに2, 4, 8, 16などを作る
"%c"を繰り返したものをあらかじめ作っておき
そこに上記の数字で作った"Hello World!!"の文字コードをsprintフォーマットする
標準出力を表す特殊変数$>に<<メソッドでできた文字列を出力する

あとは「"" << 文字コード」で「文字コード.chr」と同様の結果が得られるので適宜利用すると便利

**デフォルトの名無しさん** · 2017/11/15(水) 12:14:35.50

>>617の間抜けさ加減に草

**デフォルトの名無しさん** · 2017/11/15(水) 13:25:57.72

>>614
^2 は
int sqr(int n){return n*n;}
みたいな関数が使えるって意味だよね

つまり、
x^2^2 とかは (x^2)^2 の意味で使うなら可能ってことだよね

**デフォルトの名無しさん** · 2017/11/15(水) 13:32:50.33

>>618
記号で1を作って、数値、文字コード、文字列としてくのか
いろんな省略記法も知らないとできないな
解説ありがとう

**デフォルトの名無しさん** · 2017/11/15(水) 19:03:12.96

>>614
5と3を繋げて53にするようなこともしていいの？

**デフォルトの名無しさん** · 2017/11/16(木) 00:18:43.09

計算部は書いたけど、元の表記で何算してるか表記するのが面倒だ。
あと、遅い・・・。

**デフォルトの名無しさん** · 2017/11/16(木) 00:24:47.24

73/5=14とかは駄目だよね？

**デフォルトの名無しさん** · 2017/11/16(木) 01:59:04.45

>>614
https://ideone.com/k7hAtB
C++。
それとなく書いてみたけど、誤差でまくり。割り算鬼門すぎる。
多分バグってる。あと、題意理解してない可能性が微レ存。

**デフォルトの名無しさん** · 2017/11/16(木) 02:00:39.12

あ、そうだ。
カッコの処理がバグバグだったからカッコ使わなかった。

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

うーむ・・・。なんていうか。。。
ギブアップだ。Orz

**デフォルトの名無しさん** · 2017/11/16(木) 11:38:12.54

>>625
「題意理解してない可能性が微レ存」どころじゃねえだろこれｗｗ

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

整数の範囲でも有理数の範囲でも答えが変わらないからつまらん

一旦非整数を経由しないと作れないのがないとやっぱり...

**デフォルトの名無しさん** · 2017/11/16(木) 15:03:27.99

>>628
可笑しいところ教えて！

**デフォルトの名無しさん** · 2017/11/16(木) 15:46:11.61

(3^2)^2 = 3^4
((3^2)^2)^2 = 3^8
だから、3^(2*3) とかやっちゃダメだろ

あと、
3×5÷7 = 15÷7 ≠ 2

**デフォルトの名無しさん** · 2017/11/16(木) 15:59:11.96

>>631
あー、俺がタコでした。
まぁ、前段は表示系の問題だと思うお。
後者は割り算が全部悪い。
浮動小数で比較したくないんだよなぁ。悩ましい。

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

有理数クラスを作るのだ

**デフォルトの名無しさん** · 2017/11/16(木) 17:43:36.30

有理数の法則がよくわかってないし、デカイ。
ままならんなー。

**デフォルトの名無しさん** · 2017/11/16(木) 18:03:35.37

(a/b) + (c/d) = (ad + bc) / bd
(a/b) - (c/d) = (ad - bc) / bd
(a/b) * (c/d) = ac / bd
(a/b) / (c/d) = ad / bc
(a/b) = (c/d) <===> ad = bc

分子 : 整数
分母 : 0以外の整数

**デフォルトの名無しさん** · 2017/11/16(木) 21:25:39.77

数学ムズイ。。。
PGも算数で解いてるからな。

**デフォルトの名無しさん** · 2017/11/17(金) 00:16:40.63

紙とペンで考えてみたところ
0以外の任意の整数なら3,5,7で表わせるから問題として不適なのでは？

**デフォルトの名無しさん** · 2017/11/17(金) 00:20:03.76

**デフォルトの名無しさん** · 2017/11/17(金) 10:03:52.61

>>637
3,5,7は１回までって回数制限があるから
表せる数は限られるよ。

**デフォルトの名無しさん** · 2017/11/17(金) 10:44:12.02

17が出来ない

**デフォルトの名無しさん** · 2017/11/17(金) 19:35:00.15

ああ、本当だ。17はどうやっても作れないね
しかしこれをどうやってコードで計算すんだろう
^2があるから全探査はできないし
自分は「+または-」をいくつ使うかで場合分けして一個一個可能性を消していったんだけれども

**デフォルトの名無しさん** · 2017/11/17(金) 20:04:40.56

コードはアップしないけど出来たよ

**デフォルトの名無しさん** · 2017/11/17(金) 20:07:16.14

独自有理数クラス

演算回数を1回ずつ増やしていって、
出来た値に対応するフラグをセット

**デフォルトの名無しさん** · 2017/11/17(金) 20:09:06.68

数値をstd::multisetで保持
演算n回目のmultisetをstd::setで保持

**デフォルトの名無しさん** · 2017/11/18(土) 17:51:34.79

ABC4D
-E3FG
-----
77777

A～G は、1～9 の異なる数字。
ただし、3, 4 ではない

**デフォルトの名無しさん** · 2017/11/18(土) 17:56:36.72

はい、そうですか。

**デフォルトの名無しさん** · 2017/11/18(土) 19:08:28.21

>>645 Java
2年前の問題と俺の回答
http://peace.2ch.net/test/read.cgi/tech/1429195275/451

を改造したもの (50-54行目と標準入力)
https://ideone.com/2chU62

**デフォルトの名無しさん** · 2017/11/18(土) 19:44:36.57

>>645 Ruby
f = ->a, b, c, d, e, f, g{10000*a + 1000*b + 100*c + d - (1000*e + 10*f + g) == 78037}
[1, 2, 5, 6, 7, 8, 9].permutation{|a| puts "%d%d%d4%d - %d3%d%d == 77777" % a if f[*a]}
#=>87142 - 9365 == 77777

**デフォルトの名無しさん** · 2017/11/18(土) 20:40:01.77

>>647
何も、そこまで作り込まなくても良いだろw

色々な覆面算に対応するため、汎用的に書いたのか

**デフォルトの名無しさん** · 2017/11/19(日) 22:39:02.74

500, 100, 50, 10, 5, 1円のすべての種類の硬貨を、1枚以上使って、
合計15枚で750円にする時、10円硬貨は何枚になるか？

A～E の5人のランナーが走った結果、
完走したのは、1着とべべの2人で、残りの3人は、途中で棄権した

ここで、完走した2人は、必ず真実を言い、
棄権した3人は、必ず嘘をつくものとする
(つまり、事実に対して、真偽値を取る)

A: D は棄権した
B: A は、べべだった
C: E は棄権した
D: C は、べべだった
E: B は完走した

A～Eがこのように答えた時、1着は誰か？

**デフォルトの名無しさん** · 2017/11/20(月) 01:25:03.39

先に答えやそれに至る式がわかっててコードに書き直すだけになっちゃうから
数学的に道筋立てて答えが出せるものはあんまりおもしろくないんだよな

**デフォルトの名無しさん** · 2017/11/20(月) 03:34:46.27

アルゴリズムとは、数式の完全コピー

最初に、数式を考えて、その数式が間違っていれば、
撃墜モードでは、そこを突かれて撃墜される

結局、数式の証明が大事。
証明に、勘違いが無いかどうか

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

べべってなんぞ？

**デフォルトの名無しさん** · 2017/11/20(月) 11:38:36.82

>>653
たぶんこの場合は大阪の方言

**デフォルトの名無しさん** · 2017/11/20(月) 11:45:30.45

俺地方の人間だからわかんない。

**デフォルトの名無しさん** · 2017/11/20(月) 18:24:16.80

べべって最下位のことじゃないか
どべ

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

>>645
こんなのどうかな。Kotlin で作った。
https://paiza.io/projects/ObrsYN_Z7G44yy-pOlZh_Q

**デフォルトの名無しさん** · 2017/11/23(木) 10:05:44.85

お題
1から99を表示する
お題：1から999を出力する

ただし0を含む数は除く

**デフォルトの名無しさん** · 2017/11/23(木) 10:11:40.40

>>658
1000.times{|i|p i unless i.to_s[?0]}

**デフォルトの名無しさん** · 2017/11/23(木) 12:15:31.91

>>658 GNU Smalltalk

1 to: 999 do: [:n | (n asString includes: $0) ifFalse: [n displayNl]]

**デフォルトの名無しさん** · 2017/11/23(木) 12:38:42.26

>>658 F#

let () = seq { 1..999 } |> Seq.iter (printfn "%d")

**デフォルトの名無しさん** · 2017/11/23(木) 12:40:24.86

>>661
すまん、問題よく読んでなかった･･･

**デフォルトの名無しさん** · 2017/11/23(木) 13:30:23.43

>>658
https://ideone.com/unKY2z
C++。ほかの言語だと一行で書けるんだけどなぁ。
まぁ過去に比べれば大分短くなったけど。

**デフォルトの名無しさん** · 2017/11/23(木) 15:45:02.09

>>658
文字も数もその場に合わせて適当に解釈してくれる言語だと楽だね。
perl だとこれでできる。

for(1..999){print"$_\n"unless(/0/)}

**デフォルトの名無しさん** · 2017/11/23(木) 16:16:10.88

>>658
@Mathematica

nListWithoutZero[n_]:=n//
　Range[1,#]&//
　Map[ToString,#]&//
　StringCases[#,RegularExpression["^(?!.*0).*$"]]&//
　Flatten;

In[1] := nListWithoutZero[999]
Out[1] = (略)

**デフォルトの名無しさん** · 2017/11/23(木) 16:34:54.15

>>658
ダメだお題の意味がわからん
降参

**デフォルトの名無しさん** · 2017/11/23(木) 16:42:00.54

>>658 rust
https://ideone.com/NFrvi7
fn main() {
println!("{:?}", (1..1000).filter(|i| !i.to_string().contains("0")).collect::<Vec<_>>())
}

**デフォルトの名無しさん** · 2017/11/23(木) 16:46:25.38

>>658
Kotlin で文字列変換してやる場合

fun main(args: Array<String>) {
　for (i in 1..999)
　　if (! i.toString().contains('0', false))
　　　println(i)
}

数値のままやる場合

fun main(args: Array<String>) {
　for (i in 1..999)
　　if (i % 10 != 0
　　　　 && (i < 10 || i / 10 % 10 != 0)
　　　　 && (i < 100 || i / 100 % 10 != 0))
　　　　println(i)
}

**デフォルトの名無しさん** · 2017/11/23(木) 17:05:13.53

>>658
>>668 同じく数値のままやる場合
https://ideone.com/xySZgM

**デフォルトの名無しさん** · 2017/11/23(木) 17:08:37.18

http://rio2016.2ch.net/test/read.cgi/math/1510671832/722
お題：
n^2-1 = m^5
を満たす自然数 n, m は存在するか？

存在するという人と存在しないという人の両方が存在します

**デフォルトの名無しさん** · 2017/11/23(木) 17:18:38.32

>>670
(n, m) = (1, 0)
揚げ足取りはおいておいて、プログラミングで説く問題じゃないよね