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

**デフォルトの名無しさん** · 2019/05/18(土) 17:33:29.45

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

【出題と回答例】
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/

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

※前スレ
https://mevius.5ch.net/test/read.cgi/tech/1549160513/

**デフォルトの名無しさん** · 2019/06/19(水) 22:25:22.23

>>388
a^n-b^nの因数分解を眺めていたらｎが素数の時はa-bの項しかないようだ。そして項数が素数になっている。

**デフォルトの名無しさん** · 2019/06/19(水) 23:11:59.86

>>446
再帰…

**デフォルトの名無しさん** · 2019/06/20(木) 02:27:04.40

Javaって言語は、一体何のために作られたのか…

**デフォルトの名無しさん** · 2019/06/20(木) 02:37:37.28

>>433
そのコードを見て1から100までを表示するプログラムだと
仕様を解釈するのは困難、
何のためにコードを書いてるのか意義が…
ドカタから脱却しなよ

**デフォルトの名無しさん** · 2019/06/20(木) 02:52:32.60

>>417
Kotlin
https://paiza.io/projects/KZhyXLlN2KP7UUVWCPOcwA

ループはしていない。

**デフォルトの名無しさん** · 2019/06/20(木) 03:12:52.52

>>417 phi
print(oneToHundredSeparatedBySpace())

**デフォルトの名無しさん** · 2019/06/20(木) 03:22:25.03

>>417 PHP
1
0999999999988888888887777777777666666666655555555554444444444333333333322222222221111111111
0987654321098765432109876543210987654321098765432109876543210987654321098765432109876543210987654354321
縦書きなので右から左へ。

**デフォルトの名無しさん** · 2019/06/20(木) 08:15:15.24

>>450
何のためにって、お題に対して面白い解き方をするコードを挙げているのだから、コードから仕様を解釈するのが困難だなんて指摘は的外れだろうよ

**デフォルトの名無しさん** · 2019/06/20(木) 08:45:45.25

>>450
ドカタはお前やwww

**デフォルトの名無しさん** · 2019/06/20(木) 12:35:25.86

>>417
スクリプトか、それに準ずる文法持ってる言語有利やな。

Haskell

main = print [1..100]

それは1ー100のリストやろ言うなら

main = mapM print [1..100]

とか改行無しなら

main = mapM (putStr.show) [1..100]

“,”で区切れデコ助野郎言うなら

main = (putStrLn.init.concat.map ((++ ",").show)) [1..100]

**デフォルトの名無しさん** · 2019/06/20(木) 13:40:58.14

mapは実質ループ処理やろ…

**デフォルトの名無しさん** · 2019/06/20(木) 14:00:32.25

mapはダメです

**デフォルトの名無しさん** · 2019/06/20(木) 15:39:33.58

>>450
書いた人間だけど。
5個表示するのが5個あったら25個表示出来て、それを4個並べて100個！
完璧な作戦じゃないですか！！！！遂行するのが不可能ということもない。

5*5*4=100!!

**デフォルトの名無しさん** · 2019/06/20(木) 16:32:25.26

>>417 はループ禁止とか言いながら、プログラムの外でループしてるだけのプログラムじゃないか。
プログラムにループかなくて繰り返しなんてあり得ない事がわからないバカなんだろうな。

**デフォルトの名無しさん** · 2019/06/20(木) 16:35:07.14

屁理屈の応酬が見たかったんだろうけどね。

**デフォルトの名無しさん** · 2019/06/20(木) 16:43:22.80

そういう意味ではソフトから見て最小単位であるアセンブラのブロック転送命令もマイクロコードでループしてるわね。
と言う訳で、解なしが正解かな？

**デフォルトの名無しさん** · 2019/06/20(木) 17:02:57.57

あからさまなループ禁止でループ完全な禁止じゃないでしょそもそも

**デフォルトの名無しさん** · 2019/06/20(木) 17:20:12.64

こんなドカタの力仕事の訓練しても何にもならない、こんなので楽しめるなんてドM だろ。
綺麗なプログラムは許さない。できるだけ小汚いプログラムしかダメ。いかに小汚くプログラム出来るかのコンテストです。

>>463 屁理屈だな。map や range などは明らかなループじゃないだろ。明らかなループってなんだ？
1行で書かれた綺麗なプログラムは許しませんと言えよ。

**デフォルトの名無しさん** · 2019/06/20(木) 17:24:08.31

人の持つ適度さっていうのを裁量してるともとれるし。

**デフォルトの名無しさん** · 2019/06/20(木) 17:25:50.68

mapだめって言ってるのが出題者どうかもわかんねえじゃん
あと解きたくないなら解きたくないでいいしほっとけばいい
曖昧だと思うなら質問すればいい
あと訓練するためのスレでもない

**デフォルトの名無しさん** · 2019/06/20(木) 17:49:38.66

じゃあmapは良いです

**デフォルトの名無しさん** · 2019/06/20(木) 17:50:26.82

>>464
ドカタはダメです

**デフォルトの名無しさん** · 2019/06/20(木) 18:40:11.89

クソ問。

**デフォルトの名無しさん** · 2019/06/20(木) 18:42:30.38

>>466 出題者は聞いたって答えないじゃんか。ま、クソ問題でしかない。

**デフォルトの名無しさん** · 2019/06/20(木) 18:43:56.11

>>457
あからさまの定義は何？
map内部でループ使ってるからダメってなら、printf内部でループ使ってたらダメって言ってるのと一緒じゃん。

Haskell

main = sequence_ [print x | x <- [1..100]]

**デフォルトの名無しさん** · 2019/06/20(木) 18:48:20.30

>>471 1行で書けるものは嫌いなんだってさ。
[1..100] なんて大っ嫌いだってさ。自動生成される数字は全て反則だって。

**デフォルトの名無しさん** · 2019/06/20(木) 19:12:37.52

一応、どの辺がプリミティブかっていうのはあると思うぞ。
オブジェクト指向と手続き型と関数型で均質なプリミティブとはいったい・・・。

ごごご・・・...,,,

**デフォルトの名無しさん** · 2019/06/20(木) 19:44:30.14

>>417 Common Lisp
https://ideone.com/s6cgBp

こちらからの移植
http://blog.practical-scheme.net/shiro/20190620-print-100

**デフォルトの名無しさん** · 2019/06/20(木) 19:49:49.24

>>474 よう解らんけど、それらはループの塊らしいよ。
要はプログラムの中で完結してる解は、全てループが入ってるはず。

**デフォルトの名無しさん** · 2019/06/20(木) 19:51:56.16

プログラムの外でループさせろという趣旨の問題じゃないのかな？

◆QZaw55cn4c · 2019/06/20(木) 21:09:58.62

>>428
試算プログラムでは40秒でした
個人的には ideone で実行結果まで出るくらいには高速化したいと思っています、ある程度高速化した上でのこの要求はかなり厳しいです

**デフォルトの名無しさん** · 2019/06/20(木) 21:16:47.46

>>475
ん、そんなことは誰もいっとらんとおもうけど？
shiroさんの解、良いじゃないか！

rangeはさておき、rangeをmapしてたらそれはもうループ処理だろう…

**デフォルトの名無しさん** · 2019/06/20(木) 22:04:45.76

お題：犬作りましょう。(自由回答)
サンプル：https://ideone.com/jimp7B

人口無能・ドッグを作りましょう。
どこまで作りこむかはあなた次第。
なるべくビジュアライズして見せられるようにすると高得点です。

おひとついかがですか？

**デフォルトの名無しさん** · 2019/06/20(木) 22:29:29.17

>>417 JavaScript
var n=1,t=setInterval(function(){console.log(n++);if(n>100){clearInterval(t);}},0);
>>451をJavaScriptで書き換えてみたけど明らかにループでしょこれ

**デフォルトの名無しさん** · 2019/06/20(木) 23:38:45.25

>>474 がループだとか難癖つけてる土方は
このコードが何やってんのか理解出来てんの？

**デフォルトの名無しさん** · 2019/06/20(木) 23:44:11.27

>>417
Java
https://paiza.io/projects/j6GOkwedFZ350XHeow1w-w

**デフォルトの名無しさん** · 2019/06/21(金) 00:14:32.42

>>481 出題者がループの定義をしていないんだから解らんよ。
format もループといえばループだろ。繰り返しが入ってるものは全てループ。

**デフォルトの名無しさん** · 2019/06/21(金) 00:30:08.90

いやいやformatはループじゃないだろ、頭湧いてるのか

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

出題者か外野か知らないけど、ループの定義に拘ってこれはループだとかいうのはほっとけばいいんじゃないか？
そいつらの解釈なんか気にするより、他の誰かが見て感心や納得させられるような物を思い付いたら挙げてみた方が面白い。

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

>>483
やっていることを理解できているかを問われているのにそれじゃ答えになってないよ
それともformatしかわからなかったという敗北宣言？

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

>>388,397,477 Java
https://ideone.com/6VdAiU
あー、適当に分割しながら探索したらideone余裕だったわ
6通りは無理だがｗ

**デフォルトの名無しさん** · 2019/06/21(金) 07:21:50.48

>>428
制約論理プログラムやデーモン型ソルバー使うと短く書けて面白い。

QR = (CSint **)malloc(STP * sizeof(CSint *));
for(i = 0; i < STP; i++){
QR[i] = cs_createCSint(1, DMIN);
}
xcost = cs_createCSint(1, XMAX);

CSint *sub[STP/2], *add[STP/2], *add1[STP/2];
for(i = 0; i < STP/2; i++) {
sub[i] = cs_Sub(QR[2*i], QR[2*i+1]);
add[i] = cs_Add(QR[2*i], QR[2*i+1]);
add1[i] = cs_Sub(cs_Mul(add[i], add[i]), cs_Mul(QR[2*i], QR[2*i+1]));
cs_Eq(cs_Mul(sub[i], add1[i]), xcost);
cs_GT(sub[i], 0);
}
for(i = 0; i < STP/2 - 1; i++) {
cs_Gt(sub[i], sub[i+1]);
cs_Lt(add1[i], add1[i+1]);
}
cs_AllNeq(&QR[0], STP);

cs_minimize(&QR[0], STP, cs_findFreeVarNbElements, xcost, cost_printSolution);

**デフォルトの名無しさん** · 2019/06/21(金) 07:32:04.38

>>417
Java
https://paiza.io/projects/Sb2icsTDEFMvTmepiS26Iw

**デフォルトの名無しさん** · 2019/06/21(金) 07:49:55.41

>>417
書き込み制限で途中改行入れたが、もうこれが正解で良いんじゃね？

prinft("1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 "
"51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100");

**デフォルトの名無しさん** · 2019/06/21(金) 07:56:09.60

それも正解でしょ
書くのめんどくさいだけで

**デフォルトの名無しさん** · 2019/06/21(金) 08:18:08.17

>>417 Common Lisp
https://code.hackerearth.com/24a420r

**デフォルトの名無しさん** · 2019/06/21(金) 08:39:31.90

＞書くのめんどくさい
え？

**デフォルトの名無しさん** · 2019/06/21(金) 10:11:32.34

写経のように一文字一文字手で入力する事が大切なのです。

**デフォルトの名無しさん** · 2019/06/21(金) 13:49:45.38

>>417
再帰、ループ、ループ代わりに使う関数使用禁止だと、
副作用前提なのでファイルやGUI部品(テキストボックスなど)とやり取りするしかない。

Haskell

import System.Exit
import System.Process

-- Windows ver. is String "notloop"(compile source file "notloop.hs)
main = f >> system "./notloop"

f = readFile "count.txt" >>= f'
where
f' "101" = exitWith ExitSuccess
f' n | n == "1\n" = putStr n >> wf n
f' n = putStrLn n >> wf n

wf = writeFile "count.txt".show.(+1).read

ただ、そうなると外と内で相互再帰してるみたいな感覚を覚える。

main = f1 1

f1 101 = return ()
f1 n = print n >> f2 (n + 1)

f2 n = print n >> f1 (n + 1)

**デフォルトの名無しさん** · 2019/06/21(金) 14:10:09.62

モナドはダメです

**デフォルトの名無しさん** · 2019/06/21(金) 17:24:35.02

#!/bin/sh

echo '1から100まで入力してください。'
read n
echo $n

**デフォルトの名無しさん** · 2019/06/21(金) 17:40:03.54

>>417
屁理屈ではあるが、自分自身を呼び出すのでは無く、
別の関数の引数に渡しているので厳密には再帰では無い。
かと言って相互再帰でも無い。

Haskell

main = f 1

f = fa f

fa _ 101 = return ()
fa fb n = print n >> fb (n + 1)

**デフォルトの名無しさん** · 2019/06/21(金) 17:40:30.13

>>492
姑息な！（褒め

**デフォルトの名無しさん** · 2019/06/21(金) 17:56:02.69

>>498
何にしてもインクリメントしてる時点でループ的な繰り返しを期待しているわけだから
まあ負けだよね（負けでも面白くはできる。為念）

**デフォルトの名無しさん** · 2019/06/21(金) 18:33:41.38

>>500 兄ちゃん、それ言っちゃ終しめーよ。

**デフォルトの名無しさん** · 2019/06/21(金) 19:58:05.85

>>500

>>417のネタバレ見ても6個中5個はインクリメントかデクリメント使ってるんだが。。。

・再帰は使ってない

・関数faも、fa (print.even) 1とすると

1
True(2は偶数なのでTrue)

と表示して終わるだけなので、それ単体ではmapの様なループの代わりの関数では無い

・ループ命令はHaskellにそもそも無い

十分条件は充してる。

**デフォルトの名無しさん** · 2019/06/21(金) 21:26:57.88

必死だなでも負けは負けだそして何より面白さが皆無なのが致命的

厳密には再帰ではないが実質再帰と同じ効果を狙ってんだろ
それ以前に自身も屁理屈だといっちゃってる時点で、語るに落ちてるよ

**デフォルトの名無しさん** · 2019/06/22(土) 01:32:31.17

ここでは何か戦いが行われていたのか？

**デフォルトの名無しさん** · 2019/06/22(土) 01:36:06.87

日本語が読めない人との戦いが長らく続いてる

**デフォルトの名無しさん** · 2019/06/22(土) 04:13:24.85

>>417

#!/bin/sh

echo '1から100まで'

**デフォルトの名無しさん** · 2019/06/22(土) 05:24:28.98

>>506 正解

**デフォルトの名無しさん** · 2019/06/22(土) 06:01:52.56

やられた

**デフォルトの名無しさん** · 2019/06/22(土) 10:21:10.77

くだらない

**デフォルトの名無しさん** · 2019/06/22(土) 11:45:18.46

くだらない

**デフォルトの名無しさん** · 2019/06/22(土) 12:11:38.82

出題からしてくだらない

**デフォルトの名無しさん** · 2019/06/22(土) 12:27:47.34

お題：プログラミングのお題が与えられるので、それに対する解答を回答するプログラ厶を作りなさい。

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

>>512 Perl5

%h = ('プログラミングのお題' => 'それに対する解答');
while (<>) {
　chomp;
　$a = $h{$_};
　print $a ? "$a\n" : "しらんがな…(´･ω･`)ｼｮﾎﾞｰﾝ\n";
}

実行例
$ echo プログラミングのお題 | perl 14_512.pl
それに対する解答
~ $ echo たわけ | perl 14_512.pl
しらんがな…(´･ω･`)ｼｮﾎﾞｰﾝ
~ $ echo たいがいにせいよ | perl 14_512.pl
しらんがな…(´･ω･`)ｼｮﾎﾞｰﾝ
~ $

**デフォルトの名無しさん** · 2019/06/22(土) 13:03:59.60

（出題者側、回答者側のいずれに問題があるにせよ）
題意が汲み取れずくだらないお題だと思うのなら
回答せずにスルーすればいいやんというのがここのルール

回答した以上は特に題意を汲み取っていない的外れな回答の場合、
相応の批判にさらされることはある程度覚悟しないと

**デフォルトの名無しさん** · 2019/06/22(土) 13:06:05.30

しらんがな…(´･ω･`)ｼｮﾎﾞｰﾝ

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/22(土) 13:23:12.78

お題: パソコンの中で猫をひげダンスさせよ。

**デフォルトの名無しさん** · 2019/06/22(土) 14:37:40.61

>>514 出題者が質問に答えずに、出題の意味も説明できずに罵声を浴びせるだけと言う態度は問題だと思うけどな。

**デフォルトの名無しさん** · 2019/06/22(土) 15:24:12.28

出題者かどうかわからんのが問題だしトリでもつけとけばいいんちゃう

**デフォルトの名無しさん** · 2019/06/22(土) 16:06:50.97

>>516
「ひげダンス」と聞いて調べずすぐにわかる人がここに何人いるかなあ・・・

**デフォルトの名無しさん** · 2019/06/22(土) 16:19:18.36

>>507>>508
「このはし渡るべからず」を見た時の一休さんの気持ちが少しわかった。

◆QZaw55cn4c · 2019/06/22(土) 16:47:52.80

お題と回答
>>5 : 6 10 32 36 44
>>9 : 15 34 35 79
>>11 : 48 (78) 138-139 (140) 142 146 151 154
>>19 :
>>50, https://mevius.5ch.net/test/read.cgi/tech/1549160513/920 : 4 85 89
https://mevius.5ch.net/test/read.cgi/tech/1549160513/988 == >>164 : 59 61 167 169 189 192 201 202
>>90 : 95 96
>>99 :
>>200 : 214 219
>>215 : 227
>>220 : 232 240 248 256 268
>>235 : 236 237 238 239 247 249 259 342 353
>>320 : 321 323 327 330 340
>>322 : 325 328 329 331 332 339 341 358 359
>>362 : 367 369 370 371 374 379 380 382 414

◆QZaw55cn4c · 2019/06/22(土) 16:48:10.29

>>368 : 390
>>388 : 487 (488)
>>400 : 401
>>408 :
>>417 : 418 419 421 426 432 433 436 438 442 446 451 452 456 471 474 480 482 489 492 495 498
>>479 :

**デフォルトの名無しさん** · 2019/06/22(土) 22:52:07.59

>>417
#pragma INTERRUPT int00

static int i = 0;
void int00(void)
{
if( i <= 100 ){

printf("%d\n", i++ );

}

}

あとは割り込みのテーブルに登録するだけ

**デフォルトの名無しさん** · 2019/06/23(日) 01:15:49.60

>>514
> 回答せずにスルーすればいいやんというのがここのルール

勝手にルールを作るな。

**デフォルトの名無しさん** · 2019/06/23(日) 01:37:51.82

>>524
別にいいやんか

**デフォルトの名無しさん** · 2019/06/23(日) 03:01:37.82

>>524
基本的なルールも知らん新参者はしばらくロムってろとｗ

**デフォルトの名無しさん** · 2019/06/23(日) 05:03:48.13

part6くらいからこのスレ見てるけどそんな不文律知らんぞ

**デフォルトの名無しさん** · 2019/06/23(日) 07:40:02.44

>>417
数値に(+1)の代わりに次の値を求めるsuccに変えるだけじゃインクリメントと同じになるので、
文字列でインクリメント相当の処理を実現してみた。
(succ 1 = 2, succ 'a' = 'b', succ False = True)

リストが全部'9'か見るのにand関数使った方が行数減らせるが、
and関数も再帰と見做せるので使わなかった。
('9'と同じ数だけ'0'を用意する処理も、リスト内包表記やlength関数が再帰やループに当たる)

Haskell

main = f "1"

f = fa f
― f n = fa f n を部分適用で見掛け上の変数を減らした

fa _ "101" = return ()
fa fb "9" = putStrLn "9" >> fb "10"
fa fb "99" = putStrLn "99" >> fb "100"
fa fb "100" = putStrLn "100" >> fb "101"
fa fb [x,'9'] = putStrLn [x,'9'] >> fb [succ x,'0']
fa fb [x,y] = putStrLn [x,y] >> fb [x,succ y]
fa fb [y] = putStrLn [y] >> fb [succ y]

**デフォルトの名無しさん** · 2019/06/23(日) 09:44:39.54

>>527
でまかせ

**デフォルトの名無しさん** · 2019/06/23(日) 09:54:46.04

>>417
bb=1;echo $bb >/tmp/gg; watch -n 0.5 "bb=\`cat /tmp/gg\`; echo \$bb; if [ \$bb -eq 100 ]; then exit; fi; bb=\$((bb+1)); echo \$bb >/tmp/gg; "

**デフォルトの名無しさん** · 2019/06/23(日) 11:21:05.15

>>527
では君はいままで自分がわからない問題が出題されたときは
問題にケチをつけてたのかね？そういうのやめてくれないかね
ちなみに僕はPart0のころからいるいわばこのスレの主だ

**デフォルトの名無しさん** · 2019/06/23(日) 11:52:06.27

>>531 自分で無視しろと言っておいて人の投稿に難癖つけるのも同じだろ。無視してろよ。

**デフォルトの名無しさん** · 2019/06/23(日) 11:53:42.86

>>532
同じじゃないよ
何でもかんでも一緒にするんじゃない
ケツを出せお尻ペンペンだ！

**デフォルトの名無しさん** · 2019/06/23(日) 11:59:27.35

議論を整理しよう

主の意見
・問題がわからなかったら問題が悪いと言うんじゃなくて無視しよう

木偶の坊の回答者の意見
・問題がわからなかったら問題に文句言うんだ <= これがダメ

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

>>530
ループやな

**デフォルトの名無しさん** · 2019/06/23(日) 12:03:05.58

>>531
桃白白改めミスターポポ改めピラフ改めピッコロさん、いい加減にしろ

**デフォルトの名無しさん** · 2019/06/23(日) 12:03:58.87

>>535
あからさまではないからええんやで

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

いいや、あからさまや

**デフォルトの名無しさん** · 2019/06/23(日) 12:07:42.20

>>534 問題が解らなければ出題者に聞くのがまず第一だろ。そして出題者は質問に答える義務がある。

**デフォルトの名無しさん** · 2019/06/23(日) 12:25:37.87

>>537
じゃあこれはあからさま？
var n=1,t=setInterval(()=>{if(n<=100){console.log(n);n++;}else{clearInterval(t);}},0);

**デフォルトの名無しさん** · 2019/06/23(日) 12:31:57.22

>>540 どうでもいいんじゃない？自分がこれで良いと思えば良いんだよ。

誰にもあからさまと言う基準は作れない。プログラムの中のループと言えばそうなるけどな。
ただ、サンプルの中でもイベントを使う方法は載ってたからOK なんじゃないのかな。

もうどうでも良いよ。

**デフォルトの名無しさん** · 2019/06/23(日) 12:41:42.98

>>538
あからさまではないんや！！

>>540
それもあからさまにループしてない良いコードと言えます

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

>>539
義務なんてない
会話の裁量はケースバイケースや

**デフォルトの名無しさん** · 2019/06/23(日) 12:46:10.20

>>542 何で出題者でもないお前が仕切ってるんだよ。
それともお前が出題者？

**デフォルトの名無しさん** · 2019/06/23(日) 12:49:22.24

>>544
我スレの神なり

**デフォルトの名無しさん** · 2019/06/23(日) 12:50:21.23

議長として議論を執行する