プログラミングのお題スレ 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/17(月) 14:19:11.19

https://ideone.com/yqze0k
>>388 >>397
総当たり（予定）
概算書いてあるから簡単かと思ったら、リリースでも終わらないでござる。
よく考えたら、15ビットの10乗だったので死ぬわ。でござる。

**デフォルトの名無しさん** · 2019/06/17(月) 14:44:54.54

https://ideone.com/LROfLu
>>404　の　おまけ。
ハッシュにしてみたら、面倒なチェック落とせるんじゃね？と思い、物故んでみたところ。
メモリ限界に達して死にました。南無。

**デフォルトの名無しさん** · 2019/06/17(月) 17:11:31.48

>>368 Squeak/Pharo Smalltalk

| m scores turn cards mask print |
m := 3.
scores := #(0 0).
cards := ((1 to: m), (1 to: m)) shuffled.
Transcript open; clear.
(print := [:val | Transcript cr; show: val]) value: cards * (mask := Array new: m*2 withAll: 0).
turn := 1.
[mask includes: 0] whileTrue: [
| player choice prevMask pair |
player := turn - 1 \\ 2 + 1.
choice := (mask negated + 1 * (1 to: m * 2) copyWithout: 0) shuffled first: 2.
prevMask := mask copy.
pair := choice collect: [:pos | mask at: pos put: 1. cards at: pos].
print value: 'プレーヤー', player asString, 'が開きました。'; value: cards * mask.
pair asSet size caseOf: {
[2] -> [print value: '不一致。閉じます。'; value: (mask := prevMask) * cards. turn := turn + 1].
[1] -> [print value: ('一致。プレーヤー{1}は計{2}枚獲得。' format: {player. scores at: player incrementBy: 2})]
}
].
print value: (scores asSet size = 1
ifTrue: ['引き分け。']
ifFalse: ['プレーヤー', (scores indexOf: scores max) asString, 'の勝ち。'])

**デフォルトの名無しさん** · 2019/06/17(月) 18:07:12.55

>>397 >>388
お、なんか簡単に出来なさそうだから、やってみるかな。たまたま記号計算の勉強中だから、やってみるがそっちの勉強の方が難しすぎて答えまでたどり着けるかどうかわからんが、良い練習問題になる。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/17(月) 18:27:18.50

お題: あなたは完全予約制の映画館の運営責任者だ。映画館にある10x10席について予約アプリを作ることになった。

仕様:
２桁の座席番号で空いてる席を予約できる。
「おまかせ」ボタンで席を決めてくれる。
席が決まったら、整理券を発券する。
「印刷」ボタンで予約状況を印刷できる。
「売上」ボタンで売上を計算できる。

◆QZaw55cn4c · 2019/06/17(月) 18:52:34.71

>>402
問題文が悪いようですね、ごめんなさい
言いたいことは
任意の正の整数 a, b, の三乗差 a^3 - b^3 で表される整数について、これが 5 通りの三乗差で表現できる最小の整数を求めよ
のつもりだったのです

4通りの三乗差で表現できる最小の数は
165^3-93^3=162^3-111^3=178^3-63^3=678^3-3^3=4118877
です。

>>403
最悪 (10進4桁)^3 でなんとかなると思っていましたが…

◆QZaw55cn4c · 2019/06/17(月) 20:32:11.25

>>409
こちらで書いた試行プログラムにバグが見つかりました

4通りの三乗差で表現できる最小数は
165^3-72^3=162^3-51^3=178^3-115^3=678^3-675^3=4118877

20年ぶりにバグ出ししてしまった…てへぺろ

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

いっっっつも問題修正してるじゃん。
雑なんだよ。センスも能力も無いのでは？

◆QZaw55cn4c · 2019/06/17(月) 20:45:27.57

>>411
はい、能力もセンスもありませんので、こちらで胸を借りようかと（宿題スレもあわせて）10年くらい書き続けてこの様だったりするのです…

◆QZaw55cn4c · 2019/06/17(月) 21:59:24.42

>>411
あれ？
直前の私のお題は
https://mevius.5ch.net/test/read.cgi/tech/1524570314/795,796
https://mevius.5ch.net/test/read.cgi/tech/1480579110/891
でしたが、「いっつも」と言われるほど問題を修正しまくっていましたっけ？

**デフォルトの名無しさん** · 2019/06/17(月) 23:25:47.26

>>362 なでしこ

(6 の乱数) + 1 を表示

**デフォルトの名無しさん** · 2019/06/18(火) 01:58:28.56

>>408
なんのアプリ？

**デフォルトの名無しさん** · 2019/06/18(火) 06:13:34.61

プログラム板にキチガイ降臨中！botに一晩も反応する異常さ
一般人(学校恩師)に殺害予告をしているのでスレ建て通報してください。
https://mevius.5ch.net/test/read.cgi/tech/1559872586/

142 名前：a4 ◆700L1Efzuv 投稿日：2019/06/18(火) 05:29:55 ID://qVkzO
>>141
名古屋の人な　俺ね、君の問題を大橋先生と混ぜないことにする。つまりね、
片桐孝洋のことをボコろうと思う。普通に顎の骨を折る。これくらいで警察来るか？
一般市民とかさ、普通にさ、俺らの秘密なんだけどさ、日本人なんて復活ねーから。

**デフォルトの名無しさん** · 2019/06/18(火) 10:36:11.03

お題：あからさまなループ（再帰、goto等も含む）を使わずに1から100までを表示するコードを書いてください。

参考（ネタバレ注意）
https://www.quora.com/How-can-I-print-1-to-100-in-C%2B%2B-without-a-loop-goto-or-recursion

**デフォルトの名無しさん** · 2019/06/18(火) 14:41:48.42

>>417 Squeak/Pharo Smalltalk

1000 / 999 squared asScaledDecimal: 300

"=> 0.001002003004005006007008009010
011012013014015016017018019020
<snip>
081082083084085086087088089090
091092093094095096097098099100s300 "

**デフォルトの名無しさん** · 2019/06/18(火) 17:18:04.54

>>417
Kotlin スクリプト
こういうのアリか？

println((1..100).joinToString())

**デフォルトの名無しさん** · 2019/06/18(火) 17:25:13.33

>>417
pythonなら超簡単に書けそう。
俺は書かないけど。

**デフォルトの名無しさん** · 2019/06/18(火) 17:31:24.32

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

**デフォルトの名無しさん** · 2019/06/18(火) 23:24:46.27

>>417 そもそもなんのためにこんな小汚いコーディングしてるのか理解不能。 >>417 の出題者の目的はなんだ？

Python for loop 無しというルールがわからん
これはループしてないだろ？

print( [i for i in range(1,101) ] )

**デフォルトの名無しさん** · 2019/06/18(火) 23:31:47.74

パズルとか頓智とかゴルフとかそういう系統でしょ
あなたにはおそらく今後５年間は理解できそうにないからわざわざ首を突っ込まなくていいんじゃない？
それとそのコードだとforを使ってることになるからダメだよ
「なんでダメなの？」と聞かれてもその手の遊びを本当に理解できない物体がいるのでコミュニケーション不可能だから答える必要はない

**デフォルトの名無しさん** · 2019/06/18(火) 23:38:20.95

printで1から100まで出力したらダメですかｗ

**デフォルトの名無しさん** · 2019/06/19(水) 00:18:45.19

>>424
別にいいけど、受けないとわかってるギャグを言う時と同じくらい恥ずかしいと感じるんじゃないかな

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

>>423 ま、いいけどさ、for という言葉が嫌いなら

>>417 Python

print(list(range(1,101)))
結果
[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/19(水) 00:26:59.96

rangeもダメです

**デフォルトの名無しさん** · 2019/06/19(水) 00:29:09.75

>>397
2分46秒で答えが出た。このくらいで答えが出るはいいお題。

**デフォルトの名無しさん** · 2019/06/19(水) 00:29:30.92

>>427 何なら良いんだよ。まさかgoto 文以外はダメだとか言わないだろうな。
もう一度聞くが、for と range 以外なら良いのか？

**デフォルトの名無しさん** · 2019/06/19(水) 00:31:10.59

>>429
じゃあrangeは良いです

**デフォルトの名無しさん** · 2019/06/19(水) 01:07:24.29

>>417 >>427 >>419 kotlin と、>>421 commonLisp もダメなんだな？

とにかく自動生成される数列は許さないんだろ？
かつループも、再帰コールも、goto も使うなと。

やーめた。

**デフォルトの名無しさん** · 2019/06/19(水) 01:35:17.48

>>417 Perl5

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

実行結果
$ perl 14_417.pl
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/19(水) 01:47:16.78

https://ideone.com/sjWw95
>>417
見よ、この土方力を。
趣旨からしてこういうことだよね。
汎用性つらぽよ。

**デフォルトの名無しさん** · 2019/06/19(水) 01:57:49.22

言い訳するんやったら、ループじゃなくて、掛け算です。

と、言ってみる。

**デフォルトの名無しさん** · 2019/06/19(水) 03:30:31.24

>>431
ダメってことはないけど「お！」って思わせる意外さや面白さはないよね？

>>417は「およそ誰もが最初に思いつく方法（つまりループ等）以外で
1から100までを表示するコードをひねくり出してみてください」
という知性やユーモアを問うゲーム

**デフォルトの名無しさん** · 2019/06/19(水) 05:20:19.54

>>417 R
cat(1:100)

**デフォルトの名無しさん** · 2019/06/19(水) 09:45:26.08

クソ問出しといて面白い回答でオレ様を感心させろとか言う厚顔無恥なクズ

**デフォルトの名無しさん** · 2019/06/19(水) 10:47:05.36

>>417
bash

echo {1..100}

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

だから言ったじゃん
その手のユーモアを全く理解できない物体がいて、そいつらとはコミュニケーション不可能だ、って
わざわざ首を突っ込んできてクソ呼ばわり、害悪そのものだ

「理解不可能」「出題者の目的」「ルールが分からん」と三拍子揃ってるからコミュニケーション不可能の異質な生物だと思った方がいい
for rangeのを出して来て「ループしてないだろ？」と聞く時点でもはやコミュニケーション不可能、価値感が根本から違う
表面だけは人間の姿形をしてるが中身は全然違う物体で、そいつらとはコミュニケーションや意志疎通は出来ない
絶望的に話が合わないし価値感も全く違うので、人語を解するコミュニケーション不可能な人型生物、程度に見ておいた方がいい

**デフォルトの名無しさん** · 2019/06/19(水) 14:20:18.59

おだいじに

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/19(水) 14:21:10.78

>>415
好きな端末でいいよ。

**デフォルトの名無しさん** · 2019/06/19(水) 16:12:40.53

>>417 Brainfuck
https://ideone.com/AOy5TP
あからさまなコピペ

**デフォルトの名無しさん** · 2019/06/19(水) 17:16:09.66

>>417 javascript
console.log(Array.from({length:100},(_,i)=>i+1).join`\n`)

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

>>408
一席いくら？

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/19(水) 19:56:34.95

>>444
200円(税込)

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

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

**デフォルトの名無しさん** · 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

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

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