プログラミングのお題スレ Part16

**デフォルトの名無しさん** · 2019/11/17(日) 09:00:22.10

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

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

2 名前：デフォルトの名無しさん
　　>>1 使用言語
　　回答本文
　　結果がある場合はそれも

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

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

※前スレ
プログラミングのお題スレ Part15
http://mevius.5ch.net/test/read.cgi/tech/1564310397/

**デフォルトの名無しさん** · 2019/11/30(土) 18:08:13.55

>>44
今更だけど3行目の説明間違えてた
2*2*2より3*3が大きい
なので結果的に解は3がたくさん並んで後ろで足りない分を2、もしくは4つける形になる

**デフォルトの名無しさん** · 2019/11/30(土) 18:12:03.75

>>26
https://ideone.com/nqON70
C++。理屈が良くわからんけど、これが俺の限界。
2で欠けたほうが普通はいいんだけど、3の倍数は2引くと1余るのでそういうところでコスト取られるのでしょうかねぇ？？
プリミティブ触ったほうが詰め込めるというのは普遍的にあると思うのだけどね。。。
もしかしたら、どっかの素数がスイートスポットになってて変な切り方しないとうまくないってこともあるかもしれない。

**デフォルトの名無しさん** · 2019/11/30(土) 18:18:01.40

屁理屈だけど、2と3の組み合わせで表せる数字は多いということかなぁ？？

**デフォルトの名無しさん** · 2019/11/30(土) 18:18:52.60

2の倍数で且つ3の倍数の時は2を使うのがいいのか3を使うのがいいのか解らない。

**デフォルトの名無しさん** · 2019/11/30(土) 18:25:54.08

>>55も若干間違ってるなぁ。
2と3の倍数を兼ねる数字はその数字単体によって切り方を変えないといけないんだと思う。
なんかゲーム的。

**デフォルトの名無しさん** · 2019/11/30(土) 18:26:46.97

うーん。わけ　わか　らん　。。

**デフォルトの名無しさん** · 2019/11/30(土) 18:43:15.79

https://ideone.com/U2TQGy
オマケ・鼻から悪魔かいな。。。

**デフォルトの名無しさん** · 2019/11/30(土) 19:36:20.16

https://ideone.com/EmXq6G
うがー、おまけのオマケ。>>60はオレのバグだった。。。Orz

**デフォルトの名無しさん** · 2019/11/30(土) 19:40:07.22

>>35で終わり
はい次

**デフォルトの名無しさん** · 2019/11/30(土) 19:54:08.36

>>62
なるほど。一応そこにはたどり着いたが、迷いの中だ。。。

**デフォルトの名無しさん** · 2019/11/30(土) 20:15:09.44

>>26の出題者です。>>32で正解ですが、お題の指示通りに自然数の組み合わせを
出力してもらいたかったな。こういう綺麗な三角形ができるから。

1: [1]
2: [2]
3: [3]
4: [4]
4: [2, 2]
5: [2, 3]
6: [3, 3]
7: [3, 4]
7: [2, 2, 3]
8: [2, 3, 3]
9: [3, 3, 3]
10: [3, 3, 4]
10: [2, 2, 3, 3]
11: [2, 3, 3, 3]
12: [3, 3, 3, 3]
13: [3, 3, 3, 4]
13: [2, 2, 3, 3, 3]
14: [2, 3, 3, 3, 3]
15: [3, 3, 3, 3, 3]
16: [3, 3, 3, 3, 4]
16: [2, 2, 3, 3, 3, 3]
17: [2, 3, 3, 3, 3, 3]
18: [3, 3, 3, 3, 3, 3]
19: [3, 3, 3, 3, 3, 4]
19: [2, 2, 3, 3, 3, 3, 3]
20: [2, 3, 3, 3, 3, 3, 3]
21: [3, 3, 3, 3, 3, 3, 3]
22: [3, 3, 3, 3, 3, 3, 4]
(以下略)

**デフォルトの名無しさん** · 2019/11/30(土) 20:17:08.99

1から9までの行頭の半角空白が消えちゃったな。

**デフォルトの名無しさん** · 2019/11/30(土) 22:34:49.11

並び替えは無視？

**デフォルトの名無しさん** · 2019/12/01(日) 01:13:31.67

「ループを使わずに1から100を順に出力するコードは書けますか」

**デフォルトの名無しさん** · 2019/12/01(日) 01:22:27.49

>>67
C
https://ideone.com/WWuamo

**デフォルトの名無しさん** · 2019/12/01(日) 01:55:41.13

seq 100

**デフォルトの名無しさん** · 2019/12/01(日) 02:00:13.95

>>67
void Array.from({length:100}, (_, i) => {
console.log(i + 1);
});
とか
let counter = 0;
void function count() {
if (counter++ < 100) {
console.log(counter);
count();
}
}();
とか。js

**デフォルトの名無しさん** · 2019/12/01(日) 06:08:36.21

>>67 Ruby アイデアは前スレの誰かのパクリ

p 10**303 / 999**2
# => 10020030040050060070080090100110120130140150160170180190200210220230240250260270
28029030031032033034035036037038039040041042043044045046047048049050051052053054
05505605705805906006106206306406506606706806907007107207307407507607707807908008
1082083084085086087088089090091092093094095096097098099100

**デフォルトの名無しさん** · 2019/12/01(日) 09:04:24.78

>>67 julia
println.(1:100)

**デフォルトの名無しさん** · 2019/12/01(日) 17:27:50.28

>>67 GNU Smalltalk

(1 to: 100) asArray display

https://ideone.com/Ec2oby

**デフォルトの名無しさん** · 2019/12/01(日) 18:17:04.86

>>67
Kotlin script

(1..100).forEach(::println)

今スマホから書いてて試せないんだが多分これでできる。
forEachはループだというならこれではダメだが(確かに中ではループしていると思う)。

**デフォルトの名無しさん** · 2019/12/01(日) 18:51:37.83

>>67
PowerShell
1..100

**デフォルトの名無しさん** · 2019/12/01(日) 19:26:37.77

>>71
これが日本のIT産業。

**デフォルトの名無しさん** · 2019/12/01(日) 21:21:54.10

お題: アルファベットの文字列の大文字と小文字の対応を反転させて表示しろ

in < Hello, World!
out > hELLO, wORLD!

**デフォルトの名無しさん** · 2019/12/01(日) 21:48:29.67

>>77 Ruby
puts 'Hello, World!'.swapcase # => hELLO, wORLD!

**デフォルトの名無しさん** · 2019/12/01(日) 22:32:24.47

vim 的には ~ 一発

**デフォルトの名無しさん** · 2019/12/01(日) 23:10:18.94

>>77 Common Lisp
(defun string-invert-case (string)
(map 'string
(lambda (c)
(if (lower-case-p c)
(char-upcase c)
(char-downcase c)))
string))

(write-line (string-invert-case "Hello, World!"))

**デフォルトの名無しさん** · 2019/12/02(月) 02:15:21.91

>>77
tr コマンド

tr a-zA-Z A-Za-z

実際に実行するとこうなる。
https://paiza.io/projects/s3D3AA0kePkEOELdCTfFqw

**デフォルトの名無しさん** · 2019/12/02(月) 08:36:45.67

>>67 PHP

<?=implode(range(1,100)," ")?>

**デフォルトの名無しさん** · 2019/12/02(月) 15:32:31.35

お題: コンビニでタバコ（マルボロ）を買いたい
喫煙者がコンビニでタバコを購入して喫煙するまでの疑似コードを書け
詳細にかつ現実的で、エラー/例外に可能な限り対応していれば高得点とする

例:
person.walk_to(conbini)
if conbini.has(person) {
employee = conbini.get_current_employee()
tobacco = person.request_to(employee, "マルボロ")
person.smoke(tobacco)
}

**デフォルトの名無しさん** · 2019/12/02(月) 16:09:21.37

ヤニカスはしね

**デフォルトの名無しさん** · 2019/12/02(月) 17:33:22.44

1,マルボロ吸いてー。
2,そうだコンビニへ行こう
3,財布を確認
4,どうやって行こうか
5,準備して家を出る
6,道中色々
7,コンビニ到着
8,コンビニ物色
9,予備で買わなければいいけないモノを示唆
10,カゴ買うモノを入れる
11,レジに行く
12,レジでタバコの番号を「N個クレ」という。
13,ホットスナックを示唆する
14,会計が出る
15,ポイントカードを出す
16,お金を払う
17,品物を受け取る
18,コンビニをでる
19,喫煙スポット検索
20,喫煙スポットへいく
21,道中色々
22,到着
23,タバコを開けて一本取り出す
24,ライターで火をつける
25,吸う
26ぷれじゅあぁあああああああああああ

**デフォルトの名無しさん** · 2019/12/02(月) 17:39:36.73

タバコに火をつける時は、咥えて軽くチューブを吸わないとつかないのDA!!

**デフォルトの名無しさん** · 2019/12/02(月) 21:58:19.49

>>67 Pxthon

print(*range(1,101))

**デフォルトの名無しさん** · 2019/12/02(月) 22:05:34.98

>>87
すいません Python です

**デフォルトの名無しさん** · 2019/12/02(月) 22:07:19.69

>>76
どゆ意味？

**デフォルトの名無しさん** · 2019/12/02(月) 22:09:31.28

示唆　ってナニ

**デフォルトの名無しさん** · 2019/12/03(火) 01:47:20.32

令和元年（2019年）8月25日（日）・（再）9月1日（日）
テーマ：未来につながる力を学ぶ　プログラミング教育
内容： 2020年度から小学校で始まる「プログラミング教育」。
一体どんな授業が行われるのか？番組では一足先に
プログラミングを取り入れた授業を行っている小学校を取材。
そこには生き生きと楽しく学ぶ子供たちの姿が。さらに、
実際に授業で使われている教材で、徳光さんがプログラミングに初挑戦！
今回は文部科学省プログラミング教育戦略マネージャーの中川哲さんと共に、
進化する学び、「プログラミング教育」に迫ります。
　　https://www.gov-online.go.jp/pr/media/tv/shiritai/movie/20190825.html
動画は上のURLにある

**デフォルトの名無しさん** · 2019/12/03(火) 17:02:12.57

>>67 jq

range(1;101)

**デフォルトの名無しさん** · 2019/12/03(火) 19:25:09.89

>>67
perl5
perl -e 'print join "\n", 1..100'

**デフォルトの名無しさん** · 2019/12/03(火) 20:10:35.90

>>67
Prel5 ってまだ出てないよね？

print join(' ', 1..100) . "\n";

**デフォルトの名無しさん** · 2019/12/04(水) 09:18:44.13

永久に出ないんじゃないかなPrel5なんて

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

プレル・ふぁいぶ　ならショウガナイ

**デフォルトの名無しさん** · 2019/12/04(水) 12:58:50.91

print(isletter(c)

**デフォルトの名無しさん** · 2019/12/04(水) 13:07:17.16

>>97
すいません。ブロックされて書き込みができないのでいろいろテスト中。

**デフォルトの名無しさん** · 2019/12/04(水) 17:21:06.21

>>95>>96
打ちまつがえた。
そしてリロードしてなくて書いた直後に上にPerl5の書き込みが出現orz

**デフォルトの名無しさん** · 2019/12/04(水) 22:22:08.38

>>67 Perl5

print "@{[1..100]}\n";

**デフォルトの名無しさん** · 2019/12/04(水) 23:37:13.25

お題: 1~100までの数列の和を計算する

**デフォルトの名無しさん** · 2019/12/04(水) 23:58:51.63

>>101 Ruby

$><<101.times.sum # => 5050

**デフォルトの名無しさん** · 2019/12/05(木) 00:15:30.27

>>101 julia

print(sum(1:100))

**デフォルトの名無しさん** · 2019/12/05(木) 06:49:18.13

return 100*101/2;

**デフォルトの名無しさん** · 2019/12/05(木) 07:16:44.06

>>104
なぜ return 5050; でないのか小一時間ほど問い詰めたい

**デフォルトの名無しさん** · 2019/12/05(木) 07:38:40.50

自分で計算したくないから

**デフォルトの名無しさん** · 2019/12/05(木) 07:40:32.01

最適化されるから一緒
意図がわからない
変数に置き換えて汎用化できない

一時間しゃべってみろよおい

**デフォルトの名無しさん** · 2019/12/05(木) 07:43:45.56

>>105に対する>>104の利点

(比較的)変数に置き換えやすい
計算式がわかる
自分で計算しなくて良い

**デフォルトの名無しさん** · 2019/12/05(木) 07:46:36.80

>>104 に対する >>105 の利点は何？

**デフォルトの名無しさん** · 2019/12/05(木) 07:47:29.56

5文字少ない

だけかな？

**デフォルトの名無しさん** · 2019/12/05(木) 10:43:44.48

>>108
そういうことを言うならせめて
return 100*(100+1)/2;
って書けよ

**デフォルトの名無しさん** · 2019/12/05(木) 13:14:45.51

+1
は手計算の手間もないし見ればわかる
非常に利点が少なく
文字入力の手間が相対的に大きくなる

**デフォルトの名無しさん** · 2019/12/05(木) 13:17:19.85

どっちでも大差無いけど

**デフォルトの名無しさん** · 2019/12/05(木) 13:21:01.46

次は>>105の利点を語ってくれよ
小一時間

**デフォルトの名無しさん** · 2019/12/05(木) 14:27:21.66

>>101
Kotlin script

println((1..100).sum())

**デフォルトの名無しさん** · 2019/12/05(木) 14:31:48.40

ま、しかし、昔々算数で四角を描いて 100 * (100 + 1) / 2 で出来ると習ったような気がするので馬鹿正直に1から100まで足す必要はないな。

**デフォルトの名無しさん** · 2019/12/05(木) 15:17:30.85

工夫出来るところは工夫する
>>105は間違った工夫の例

**デフォルトの名無しさん** · 2019/12/05(木) 18:32:49.00

>>105が小一時間いったい何を問い詰めるつもりだったのか気になる

**デフォルトの名無しさん** · 2019/12/05(木) 18:59:48.69

おっすおら小一時間！
これからの議論におらわくわくすっぞ！

**デフォルトの名無しさん** · 2019/12/05(木) 20:44:21.68

>>101
Cの冗談
https://ideone.com/5VLdfV

**デフォルトの名無しさん** · 2019/12/05(木) 21:05:41.72

決まり文句のネタレスにえらく執着すんねｗ

**デフォルトの名無しさん** · 2019/12/05(木) 21:06:33.94

1個目の関数で値だけ返すほうが簡単じゃ？

**デフォルトの名無しさん** · 2019/12/05(木) 21:35:53.74

>>118
お前のアホさとか、多分一時間じゃ足りないw

**デフォルトの名無しさん** · 2019/12/05(木) 21:36:32.26

>>117
中途半端な工夫ならしないほうがマシ

**デフォルトの名無しさん** · 2019/12/05(木) 21:55:42.81

出て来れないと思ったのに
面の皮厚いね

**デフォルトの名無しさん** · 2019/12/05(木) 22:09:17.41

>>111にレスできないアホがなにか言ってるなw

**デフォルトの名無しさん** · 2019/12/05(木) 22:40:10.86

小一時間とかサムいフレーズでウケると思ってるからウザがられんだよ

**デフォルトの名無しさん** · 2019/12/05(木) 23:12:12.53

俺は別にうざがってないぞ
なに全員がうざがってるみたいなまとめ方するんだよ

**デフォルトの名無しさん** · 2019/12/05(木) 23:23:32.05

いいからおまえはどっかで2GEtしてこい

**デフォルトの名無しさん** · 2019/12/05(木) 23:25:08.31

小一時間問い詰めるとか
具体的に想像すると陰湿極まりないパワハラが思い浮かぶ

**デフォルトの名無しさん** · 2019/12/05(木) 23:35:21.46

5ch初心者かよw

**デフォルトの名無しさん** · 2019/12/05(木) 23:39:56.44

５ｃｈのプロかよ

**デフォルトの名無しさん** · 2019/12/05(木) 23:56:23.39

こんな煽り合い久々に見たｗ

**デフォルトの名無しさん** · 2019/12/06(金) 00:22:47.16

初心者じゃない奴が全員プロだとでも思ってるのかなぁw
まあとりあえずこれ読んどけ
https://netyougo.com/2ch/2535.html

**デフォルトの名無しさん** · 2019/12/06(金) 01:10:21.76

用語とか以前に粘着っぷりがやばい

**デフォルトの名無しさん** · 2019/12/06(金) 02:06:00.29

背筋がサムくなるからもうやめてくれないかな

**デフォルトの名無しさん** · 2019/12/06(金) 03:33:54.64

ものすごい速度で羊を数えてください
1 sheep two sheep three sheep four sheep ...........

**デフォルトの名無しさん** · 2019/12/06(金) 05:57:24.96

>>137
とりあえずお題なの？
曖昧すぎてわからん

**デフォルトの名無しさん** · 2019/12/06(金) 06:42:40.11

>>136
>>135

**デフォルトの名無しさん** · 2019/12/06(金) 14:03:18.53

>>101 julia
f(a,b)=(a+b)*(b-a+1)÷2
f(1,100) #-> 5050
f(50,80) #-> 2015

**デフォルトの名無しさん** · 2019/12/06(金) 22:43:04.72

>>101 Perl5

use feature current_sub;
print sub {$_[0] and $_[0] + __SUB__->($_[0] - 1)}->(100);

**デフォルトの名無しさん** · 2019/12/06(金) 22:53:13.95

>>101 Perl5

sub Y_combinator { my $f = shift;
　sub { my $x = shift; $x->($x) }->(
　　sub { my $y = shift;
　　　　　$f->(sub {$y->($y)(@_)}) }
　)
}
my $series = sub {my $f = shift;
　sub { my $n = shift; $n and $n + $f->($n - 1) }
};
print Y_combinator($series)->(100);

**蟻人間** ◆T6xkBnTXz7B0 · 2019/12/06(金) 23:19:56.34

お題: 丸カッコと空白の並びで構成される入力文字列がある。丸カッコは入れ子になっていてそれぞれペアになっている。入力文字列は奇数文字数である。
プレーヤー1は、最初に入力文字列の一番左端に居る。プレーヤー2は最初に入力文字列の一番右端に居る。各プレーヤーは一回のアクションで次のいずれかの動作が可能。

(あ) カッコを飛び越えずにひとつ左か右に移動する。ただし、入力文字列の外側には移動できない。
(い) プレーヤーXがカッコAの外側に居て、AとXが隣接しているとき、XがカッコAに対応する別のカッコBの外側の端に移動する。
(う) カッコをひとつまたいでひとつ左か右に移動する。

入力文字列に対してプレーヤー1と2を何度もターン制でアクションをさせてプレーヤーの位置が衝突するまで鬼ごっこをさせよ。
動かすのはランダムでも知能つきでも構わない。アクションごとに位置を表示せよ。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/12/06(金) 23:33:56.47

知能戦略の例)
鬼はなるべく近くなる方を選ぶ。
子どもは鬼からなるべく遠ざかるように動く。

**デフォルトの名無しさん** · 2019/12/07(土) 00:07:48.78

動き方がわかりません

１文字右が ( の場合

(あ)１文字右に動く
(い)右の ( に対応する ) の右の文字に動く
(う)２文字右に動く
のいずれかが出来る

ただし、(い) (う) の移動先が文字列の外になる場合は移動出来ない

でいい？

**デフォルトの名無しさん** · 2019/12/07(土) 00:25:15.68

あとうは合わせられないか？

**デフォルトの名無しさん** · 2019/12/07(土) 00:25:52.72

>>101 Perl5

no warnings 'experimental::signatures';
use feature qw(say signatures);

sub f($n) {$n and $n + f($n - 1)};
say f(100);

sub Y($f) { sub {$f->(Y($f))->(@_)} }
say Y(sub($f) { sub($n) { $n and $n + $f->($n - 1) } })->(100);

**デフォルトの名無しさん** · 2019/12/07(土) 00:44:47.39

>>101 Perl5

no warnings 'experimental::signatures';
use feature qw(say signatures);

sub Y($f) { sub {$f->(Y($f))->(@_)} } # Y combinator w/ recursive
$s = sub ($n) {$n and $n + $s->($n - 1)}; # calc series recursive
say Y(sub ($f) { $s })->(100);

**デフォルトの名無しさん** · 2019/12/07(土) 01:33:07.92

>>101 Perl5

use List::Util 'sum';
print sum 1..100;

**デフォルトの名無しさん** · 2019/12/07(土) 03:39:00.62

お題

1以上、20以下の整数がランダムに10個与えられます。

与えられた整数の集合から1つ以上の整数を抜き出し、残った整数の集合からまた1つ以上の整数を抜き出します。

この時2つの抜き出した整数の集合のそれぞれの和が同値であり、かつ最小のものを出力して下さい。

例
与えられた整数の集合 : 2 3 4 5 6 7 8 9 10 11
期待される出力 : 5
この場合、与えられた整数の集合から
「2,3」「5」の整数を抜き出しています。

**デフォルトの名無しさん** · 2019/12/07(土) 03:47:40.06

元ネタ
http://itest.5ch.net/test/read.cgi/news4vip/1574130342/18

**デフォルトの名無しさん** · 2019/12/07(土) 04:00:27.84

・「同値」の意味が謎

・解がない時の処理が謎(e.g. input: 9 10 11 12 13 14 15 16 17 18

・同値の使い方が間違っているのでそもそも「集合」の元が重複しないものとしてよいものか悩ましい

**デフォルトの名無しさん** · 2019/12/07(土) 04:23:11.90

>>152
同値は単に同じ(等しい)値という意味で使っています。

解が存在しない場合は「ないよー」と出力して下さい。

与えられる整数は重複する可能性があります。

**デフォルトの名無しさん** · 2019/12/07(土) 05:16:02.53

ならば結局こういうことでよいのかね.
もとのスレを見ても出題者本人の主張が不明瞭なうえに二転三転していて気持ち悪いが.

与えられた数列を {a_n} に対して,
{a_n} の異なる項からなる任意の部分列の内それぞれの和が等しくなるものを {b_n}, {c_n} として
Σb_n (= Σc_n) が最小となる {b_n}, {c_n} を求めよ.

そして今回は b, c の項数をそれぞれ 2, 1 に限るものとすると.