プログラミングのお題スレ 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/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)
揚げ足取りはおいておいて、プログラミングで説く問題じゃないよね

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

>>658
python

今回は必要ないかもだけど桁数増えた場合を考え再帰で
https://ideone.com/WC8Ksm

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

>>671
まあ自明な解はさておき、その他は見つからないのが不思議です

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

>>673
カタラン予想ですでに存在しないことが証明されているのに何が不思議なのかね

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

>>673
その問題は数学的に解くものではないかな?
まあ、コンピュータなら力業でかなりの値を n, m に入れて計算して確認できるけどさ。

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

>>674
カタラン予想というのがあるんですね、ありがとうございます！
https://en.wikipedia.org/wiki/Catalan%27s_conjecture

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

>>658
#!/bin/sh
seq 999|grep -v 0

**668** · 2017/11/24(金) 06:21:36.98

>>658
Kotlin数値判定版。こんな風にも書けるなと後で気づいた。

fun f(n: Int): Boolean {
　var m = n;
　while (m != 0) {
　　if (m % 10 == 0)
　　　return false
　　m = m / 10
　}
　return true
}

fun main(args: Array<String>) {
　(1..999).filter(::f).forEach(::println)
}

**デフォルトの名無しさん** · 2017/11/24(金) 07:42:25.55

存在するしないをプログラミングで証明するのはお題として良くない

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

log 2 を2進数表記した時の小数点第 n 位から n + 9 位までを求めよ． (1 ≦ n ≦ 10^10)
cf. log 2 = 0.10110001...

*Sample input*
1
11
10000
31415926
314159265

*Sample output*
1011000101
1100100001
0010110110
1001010110
0111101001

**デフォルトの名無しさん** · 2017/11/24(金) 23:31:00.22

>>680
c++で書いたけど小数第100億位を計算するのに5時間くらいかかりそうorz

◆QZaw55cn4c · 2017/11/25(土) 00:04:03.20

>>681
もう初手に届くとは劇速ですね

**デフォルトの名無しさん** · 2017/11/25(土) 06:53:37.62

無条件でlogって書いたら普通自然対数だろ

**デフォルトの名無しさん** · 2017/11/25(土) 07:01:13.88

ライブラリを使えばほとんど何も書かなくて良いけど
どこから書くことを求められてるの？

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

>>679
「良くない」じゃなくて「出来ない」でしょ

**デフォルトの名無しさん** · 2017/11/25(土) 07:16:55.64

>>684
と思ったけど、普通に全桁計算したら終わらないな

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

Σ { 1 / (2^i × i) }
を使って10^10項位までを42bitくらいだけ計算すれば出来るかな？
1/nの周期性を考えないと計算量的に無理？
10^10が微妙に32bitを越えてるのがイヤだねえ

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

>>687
ダメだ
ざっと計算量を見積もったらとても5時間じゃ終わらない

**デフォルトの名無しさん** · 2017/11/25(土) 13:10:34.24

>>375
xxx@xxx-VirtualBox:~/casl$ casl -s -e -i stdlib.casl -i bigint.casl fact.casl
1
1
2
6
24
120
720
5040
40320
362880
　　　　　　　　　　途　中　省　略
1405006117752879898543142606244511569936384000000000
60415263063373835637355132068513997507264512000000000
2658271574788448768043625811014615890319638528000000000
119622220865480194561963161495657715064383733760000000000
5502622159812088949850305428800254892961651752960000000000
258623241511168180642964355153611979969197632389120000000000
12413915592536072670862289047373375038521486354677760000000000
608281864034267560872252163321295376887552831379210240000000000
30414093201713378043612608166064768844377641568960512000000000000

暇つぶしに書いてみたけど足算掛算割算しかできない
引算は難しすぎるんで諦めた

**デフォルトの名無しさん** · 2017/11/25(土) 16:35:37.76

バイナリ法で最適化した結果なんとか1時間あれば10^10位は計算できるようになったがまだ縮められるかな

◆QZaw55cn4c · 2017/11/25(土) 16:41:37.19

備忘メモ
http://rio2016.2ch.net/test/read.cgi/math/1510671832/890
ちゃんとお題にして出題しなおします

◆QZaw55cn4c · 2017/11/25(土) 21:49:51.82

>>680
指数関数のマクローリン展開で試してみたのですが、これは収束が遅すぎますね、それに収束半径を超えてるし…
なにか収束の早いよい方法はないものか…

◆QZaw55cn4c · 2017/11/25(土) 21:54:37.24

>>692
×指数関数
○対数関数