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

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/25(火) 18:52:08.76

お題: あみだくじを解け。n本の縦線を上下に平行に引き、上から順番に二つの縦線を結ぶ形でいくつかm本の横線を引く。下側の縦線の端の一つにゴールを設定するとき、あみだくじの
ルールに従ってゴールに到達する縦線の端のスタート地点を求めよ。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/25(火) 18:58:25.64

>>614
連番でビットマップ吐けばフリーソフトでつなげられるだろよ。

**デフォルトの名無しさん** · 2019/06/25(火) 19:02:19.01

>>616
そうなるか。ふむふむ。

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

>>616 おいこら、出題ペースが早すぎるぞ。解答もほとんど出ていない状態で次のなんて出すなよ。

**デフォルトの名無しさん** · 2019/06/25(火) 19:51:46.12

>>611
日付に対する前置詞はonだぞ

**デフォルトの名無しさん** · 2019/06/25(火) 19:56:07.32

>>619
thanks

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/25(火) 20:43:10.45

面白い動画たーくさん作って早く労働者階級を卒業しよっぜ。

**デフォルトの名無しさん** · 2019/06/25(火) 23:32:34.03

>>573 Pharo Smalltalk

http://ws.stfx.eu/FWYMKVTGYK60

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/25(火) 23:47:01.47

多角形の問題は、最小包含円問題というらしい。

**デフォルトの名無しさん** · 2019/06/26(水) 01:05:18.27

>>575 >>623 それって、>>11 の入口問題だな。俺も>>11 関連で知ったが、最小包含円って言葉は、このスレで何度か出てきてるぞ、
具体的な宇宙人の足跡データが、>>11 として最小包含円を求めよとした方がより具体的だな。いくつか答えが出てるけど。

具体的なデーターを示さないと答えがバラバラになるぞ。蟻人間の問題ってあやふやなのが多いな。

**デフォルトの名無しさん** · 2019/06/26(水) 01:11:38.67

>>600 Perl5

@a = map{sprintf"2019/07/%02d",$_} 1..31;
$h{$_}{A}=1 for qw{2019/07/05 2019/07/10 2019/07/15 2019/07/20};
$h{$_}{B}=1 for qw{2019/07/08 2019/07/10 2019/07/20};
$h{$_}{C}=1 for qw{2019/07/15 2019/07/20 2019/07/25};
@b = grep{1<keys %{$h{$_}}} @a;
print "$_ @{[keys %h{$_}]}\n" for @b;

実行結果
~ $ perl 14_600.pl
keys on reference is experimental at 14_600.pl line 6.
2019/07/10 B A
2019/07/15 C A
2019/07/20 B A C

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/26(水) 01:12:45.72

>>615
n=3
m=5
として横線は
(0, 1)
(1, 2)
(1, 2)
(0, 1)
(1, 2)
としよう。

**デフォルトの名無しさん** · 2019/06/26(水) 01:16:52.13

>>625 ｽﾏｿ「keys on reference is experimental at 14_600.pl line 6.」が出ちゃってた…orz

>>600 Perl5 ﾁｮｯﾄ修正
@a = map{sprintf"2019/07/%02d",$_} 1..31;
$h{$_}{A}=1 for qw{2019/07/05 2019/07/10 2019/07/15 2019/07/20};
$h{$_}{B}=1 for qw{2019/07/08 2019/07/10 2019/07/20};
$h{$_}{C}=1 for qw{2019/07/15 2019/07/20 2019/07/25};
@b = grep{1<keys %{$h{$_}}} @a;
print "$_ @{[keys %{$h{$_}}]}\n" for @b;

実行結果
~ $ perl 14_600.pl
2019/07/10 B A
2019/07/15 A C
2019/07/20 B C A

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/26(水) 04:24:04.79

日本とゐう国は労使から朽ちていつたんだなあ。

**デフォルトの名無しさん** · 2019/06/26(水) 04:36:53.79

>>628
旧仮名なら「日本と云(い)ふ」だろボケカス

**デフォルトの名無しさん** · 2019/06/26(水) 08:13:01.09

>>555 Lua
prrint("ん")

**デフォルトの名無しさん** · 2019/06/26(水) 09:27:43.17

>>555
さて、そろそろわしの出番のようぢゃな。

#!/bin/sh

echo 'サインカーブ'

**デフォルトの名無しさん** · 2019/06/26(水) 10:05:25.43

整数が複数与えられて、そのうちの５つの積が最大になるものってどうやって選べばいいの？
絶対数でソートしても、負数が奇数個だとマイナスだし頭がこんがらがる

**デフォルトの名無しさん** · 2019/06/26(水) 10:27:17.99

正数の大きい方から5個
正数の大きい方から3個と負数の絶対数の大きい方から2個
正数の大きい方から1個と負数の絶対数の大きい方から4個
で比較すれば？

**デフォルトの名無しさん** · 2019/06/26(水) 10:35:24.88

別に正数とか負数とか気にしないでも良いか
ソートして、上から5個　上から3個と下から2個　上から1個と下から4個　の中で最大のものを選べば

**デフォルトの名無しさん** · 2019/06/26(水) 12:11:39.42

>>634
全て負の値の場合は？
それと気になるのが0。

**デフォルトの名無しさん** · 2019/06/26(水) 12:18:02.87

古典的スタートレックゲーム
言語はなんでもよし

**デフォルトの名無しさん** · 2019/06/26(水) 12:52:21.84

>>632
思考停止して全パターン出して最大値を取る。
あえて5個以下だとエラー。
対策するなら関数fで長さが5個以下か判定すれば良い。

昔、似た様な問題でリスト内包表記と再帰を組み合わせて、
スマートな方法を誰か書いてたの見たけど忘れた。

Haskell

main = f [(-1),4,(-2),1,3,2]

f xs = maximum [product [a,b,c,d,e]|
a <- xs, b <- xs, c <- xs, d <- xs, e <- xs,
a /= b, a /= c, a /= d, a /= e, b /= c, b/= d, b /= e, c /= d, c /= e, d /= e]

**デフォルトの名無しさん** · 2019/06/26(水) 15:36:37.02

>>637 おいおい、いくつの中から5個取り出すかわからないんだぞ。　100000個の中から5個取り出すと結構な時間がかかるだろ。
どんだけの組み合わせになるんだよ。

**デフォルトの名無しさん** · 2019/06/26(水) 15:53:36.43

>>638
だから思考停止っって書いてるんよ＾＾;

**デフォルトの名無しさん** · 2019/06/26(水) 16:01:02.80

>>632

Listモジュールに関数あった。。。

Haskell

import Data.List

main = print $ f [(-1),4,(-2),1,3,2]

f = maximum.map product.permutations

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

全部負なら、必ず答えも負になるんだから選ぶのは上から5個で良くないか
つまり634で合ってると思う
0も問題無いな、どこにあっても網羅されてる

**デフォルトの名無しさん** · 2019/06/27(木) 01:55:36.37

>>600
perl5 ワンライナー

perl -ne 'if(/^(.*?),(.*)$/){$d{$2}{$1}=1}END{for(sort keys%d){if(keys%{$d{$_}}>=2){print"$_ ".join(",",sort keys%{$d{$_}})."\n"}}}'

入力

A,2019/07/05
A,2019/07/10
A,2019/07/15
A,2019/07/20
B,2019/07/08
B,2019/07/10
B,2019/07/20
C,2019/07/15
C,2019/07/20
C,2019/07/25

出力

2019/07/10 A,B
2019/07/15 A,C
2019/07/20 A,B,C

**デフォルトの名無しさん** · 2019/06/27(木) 07:16:25.32

>>635
oh...全て負の場合は数値が大きい方(絶対値が小さい方)から5個だな

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

と、それは上から5個か…寝起き死んでるｗｗ

**デフォルトの名無しさん** · 2019/06/27(木) 10:12:29.88

>>637
試した限りじゃ上手く動いてる。
もっとスマートな書き方出来ないものか。。。

Haskell

import Data.List

main = (print.f) [9,(-5),3,2,1,8,(-4)]

f xs |(odd.length) b && (length.filter (<0)) xs > 1 =
promax
((map snd.f') a ++ (map snd.take (5 - (length.f') a)) b')
((map snd.take 5.abslst) xs)
where
a = (filter ((>=0).snd).take 5.abslst) xs
a' = (filter ((>=0).snd).abslst) xs
b = (filter ((< 0).snd).take 5.abslst) xs
b' = (filter ((< 0).snd).abslst) xs

f' xs |length a > length b = init xs
f' _ = (take (5 - (length.init) b)) a'
f xs = promax ((take 5.reverse.sort) xs) ((map snd.take 5.abslst) xs)

promax xs ys |product xs > product ys = xs
promax _ ys = ys

abslst xs = reverse.sort $ zip (map abs xs) xs

**デフォルトの名無しさん** · 2019/06/27(木) 10:13:36.13

promax xs ys |product xs > product ys = xs
promax _ ys = ys

abslst xs = reverse.sort $ zip (map abs xs) xs

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/27(木) 16:22:58.68

だれかあみだくじ解けない？

**デフォルトの名無しさん** · 2019/06/27(木) 16:37:32.78

I can, but I won't.

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

>>632 Sqeueak Smalltalk

| data stream selection set numNegs |
data := #(9 -5 -3 2 1 8 -4).
stream := ((data copyWithout: 0) sortBy: #abs descending) readStream.
set := Set with: (selection := (stream next: 5) asArray).
numNegs := selection count: #negative.
(numNegs > 0 and: [numNegs odd]) ifTrue: [
| nextNeg nextPos lastPosIdx lastNegIdx |
nextNeg := nextPos := nil.
lastPosIdx := selection findLast: #positive.
lastNegIdx := selection findLast: #negative.
[(nextNeg isNil or: [nextPos isNil]) and: [stream atEnd not]] whileTrue: [
| next |
next := stream next.
(lastPosIdx > 0 and: [nextNeg isNil] and: [next negative])
ifTrue: [set add: (selection copyWithoutIndex: lastPosIdx), {nextNeg := next}].
(lastNegIdx > 0 and: [nextPos isNil] and: [next positive])
ifTrue: [set add: (selection copyWithoutIndex: lastNegIdx), {nextPos :=next}]
].
].
set detectMax: [:xs | xs reduce: #*]

"=> #(9 8 -5 -4 2) "

Pharo Smalltalk版 → http://ws.stfx.eu/OK6PHG96QEY8

**デフォルトの名無しさん** · 2019/06/28(金) 01:49:16.31

>>632 haskell
import Data.List
f xs = if length xs < 5 then undefined else (maximumBy(\ x y ->compare(product x)(product y))$zipWith(++)(reverse.inits.(take 5).reverse.sort$xs)(inits.(take 5).sort$xs))

f [9,-5,-3,2,1,8,-4]
-- > [9,8,2,-5,-4]

**デフォルトの名無しさん** · 2019/06/29(土) 05:03:25.69

お題: Hello, World!が入力されるのでHelloとWorldを入れ替えて表示せよ

**デフォルトの名無しさん** · 2019/06/29(土) 07:48:16.22

あまりにも簡単すぎる問題は控えて欲しいな、たまになら休憩として良いけど。

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

printed("World, Hello!");

**デフォルトの名無しさん** · 2019/06/29(土) 11:36:54.32

>>651 Perl5 簡単だけれども、解いてみた

<>=~/(\w+)(\W+)(\w+)(\W+)/;
print "$3$2$1$4\n";

実行結果
~ $ echo 'Hello, World!' | perl 14_651.pl
World, Hello!

※英単語部は任意です

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

お題：全単射を満足する最小桁数を求める
任意の整数域(-10000..10000とか)を引数とする単調増加/減少関数f(x)に対して、
その計算結果を有効数字n桁で丸めたものをy=round(f(x), n)とする。
xとyの関係が全単射になる(異なるxに対して、同じyにならない事)
最小のnを求めよ。
ttps://ja.wikipedia.org/wiki/%E5%85%A8%E5%8D%98%E5%B0%84

xの値域及びf(x)は回答者が適切と思われるものでよい。

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

fは2^N → Rでいいの？
2^Nは自然数の冪集合ね
てか括弧内で全射が無視されてんのが謎

**デフォルトの名無しさん** · 2019/06/29(土) 14:03:41.17

echo Hello, World! | perl -pe 's/ (\w+) , \N{SPACE} (\w+) ! /$2, $1!/x'
World, Hello!

**デフォルトの名無しさん** · 2019/06/29(土) 14:38:46.06

イプシロン間際。

**655** · 2019/06/29(土) 14:50:05.50

>>656
f(x)=x/1e4+42 但し xは整数で x∈[-10000, 10000]
とかの、もっと単純なヤツです(この例だとn=6)。

f(x)=10^x
とかだと、n=1なのは自明だし、
f(x)=c 但し cは任意の実定数
とかだと解は存在しないので、これらは除外して下さい。

**デフォルトの名無しさん** · 2019/06/29(土) 14:51:20.55

>>659
任意の整数域を定義域とする関数に、なんで整数渡してんの？

**デフォルトの名無しさん** · 2019/06/29(土) 15:37:47.69

お題
与えられた画像ファイルを
適当なサイズに縮小・拡大
しモノクローム画像に変換
しアスキーアートに変換す
る

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

ss = "Hello, World!".split(', ')
print( f'{ss[1]}, {ss[0]}' )

# World!, Hello

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

split のたぐいだと ! の位置がおかしなことになるんだよな

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

>>663 おかしいかどうか知らんよ。問題が細かな事を言っていないんだから。

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

>>664 悪い悪い、問題を読み直したら、単語の入れ替えだけで記号の位置はそのままというような感じだな。

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

>>664
はあ？
> HelloとWorldを入れ替えて表示せよ
余計なことしちゃだめだろ

◆QZaw55cn4c · 2019/06/29(土) 16:36:26.20

お題と回答
>>5 : 6 10 32 36 44
>>9 : 15 34 35 79
>>11=>>575 : 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

◆QZaw55cn4c · 2019/06/29(土) 16:36:41.68

>>362 : 367 369 370 371 374 379 380 382 414
>>368 : 390
>>388 : 487 (488) 553 559
>>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 528 530 540
>>479 :
>>555 : 556 558 564 565
>>557 : 560 562 568 569
>>570 : 574 577
>>573 : 604 622
>>600 : 605 607 611 613 627
>>615,626 :
>>632 : 637 640 645 649 650

◆QZaw55cn4c · 2019/06/29(土) 16:36:57.16

>>651 : 654 657 662
>>656 :
>>661 :

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

>>669
ごめん迷惑だからそれやめて

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

>>669 安静にしてた方が良いと思うよ。反発のない世界で触れ合うのは良いと思うけど、2ch/5ch みたいなところに出てくると、傷つくのは目に見えてる。

みるのが楽しければ、みるだけにとどめるとか。

**デフォルトの名無しさん** · 2019/06/29(土) 20:21:36.23

w3m https://mevius.5ch.net/test/read.cgi/tech/1558168409/ \
|perl -ne 'if (/^1/m){++$body};if (/^ ? \d+コメント$/m){$body=0} ; print if ($body)'\
| ./select_word_and_ancher.pl お題 \
| less

perl はこれ
https://paste.fedoraproject.org/paste/6R~aAhHAd3dYBSH0R8Dfhw

出力はこんなかんじだ
お題のレスが見れて、それにアンカしたレスが続くのを1フィールドとして
全部のお題に大してループする
https://i.imgur.com/WVCFus7.jpg

**デフォルトの名無しさん** · 2019/06/29(土) 20:24:28.47

1 のテンプレを順守してればこのコードの漏れはなくなる

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

>>667
お前個人の備忘録なんてホントにチラシの裏にでも書いとけよ

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

>>651のお題は
> お題: Hello, World!が入力されるのでHelloとWorldを入れ替えて表示せよ
なので、Hello, World!以外が入力されたら無視するかエラーを出すのが正しいのでは？ｗ

◆QZaw55cn4c · 2019/06/29(土) 22:50:01.35

>>675
それは過剰な設計では？
Hello, World! 以外が入力されたときにどう振舞うべきかについて　>>651 には何らの記載がないので、何ら拘束されることがない
言い換えると、入力が Hello, World! 以外の場合には「どうふるまってもいい」と解釈するのが、論理学的に妥当…①だと思います
①：論理式「偽→真」＝真、「偽→偽」＝真からの類推です

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

>>675
>>651は>>653で答えが出ちゃったね

**デフォルトの名無しさん** · 2019/06/29(土) 23:05:06.71

>>677
> お題: Hello, World!が入力されるので
とあるから入力されるまで待つ処理がない>>653は失格

**デフォルトの名無しさん** · 2019/06/30(日) 01:26:45.54

>>677 Lua
a,b,c,d=io.read(5,2,5,1)
print (c..b..a..d)

**デフォルトの名無しさん** · 2019/06/30(日) 01:41:37.13

>>679
アンカー間違えました
>>651 Lua
でした

**デフォルトの名無しさん** · 2019/06/30(日) 01:59:36.72

>>678
アホかお前
勝手にオリジナルルール作るなよ

**デフォルトの名無しさん** · 2019/06/30(日) 02:25:30.30

>>651 Common Lisp
https://ideone.com/gR5ISR

**デフォルトの名無しさん** · 2019/06/30(日) 08:04:20.61

お題
#1234→◆gdyb21LQTc
#abcd→◆4vxxTEcn7p
#あいうえお→◆rXz1zlMT-L

左のトリップキーから右のトリップを返すアルゴリズムを探せ

**デフォルトの名無しさん** · 2019/06/30(日) 08:39:27.77

>>683
$ head text hash.sedscr
==> text <==
#1234→◆gdyb21LQTc
#abcd→◆4vxxTEcn7p
#あいうえお→◆rXz1zlMT-L

左のトリップキーから右のトリップを返すアルゴリズムを探せ

==> hash.sedscr <==
s/#1234/◆gdyb21LQTc/
s/#abcd/◆4vxxTEcn7p/
s/#あいうえお/◆rXz1zlMT-L/

$ cat text | sed -f hash.sedscr
◆gdyb21LQTc→◆gdyb21LQTc
◆4vxxTEcn7p→◆4vxxTEcn7p
◆rXz1zlMT-L→◆rXz1zlMT-L

左のトリップキーから右のトリップを返すアルゴリズムを探せ

**デフォルトの名無しさん** · 2019/06/30(日) 09:03:57.63

>>683 Java
https://ideone.com/ulBeVb

digestは一回、charsetは二回目で当たった

**デフォルトの名無しさん** · 2019/06/30(日) 09:33:15.89

>>685
Magnificent !!

**デフォルトの名無しさん** · 2019/06/30(日) 18:48:21.28

>>678 Perl5(組合せ計算のﾓｼﾞｭｰﾙはCPANにあるが言語処理系に標準で含まれるCOREﾓｼﾞｭｰﾙではないので使わずに実装した)

@a=sort{$b<=>$a} qw{9 -5 -3 2 1 8 0 -4 -1 4 -2 1 3 2};
@b=splice @a,0,5;
splice @a,0,-4;
@c=(@b, @a); # 大きい方から5個と小さい方から4個,計最長9個
sub combi { # 組合せ
　my @s;
　if (my $n = shift) {
　　while ($n <= @_) {
　　　my $t = shift;
　　　push @s, map{[$t, @$_]} combi($n - 1, @_);
　　}
　} else {
　　@s = ([]);
　}
　@s
}
@d = combi(5, @c); # 126個
use List::Util 'product';
@e = sort{$$b[0]<=>$$a[0]} map{[product(@$_), $_]} @d;
print "@{$e[0][1]} => $e[0][0]\n";

実行結果
~ $ perl 14_632.pl
9 8 4 -4 -5 => 5760

**デフォルトの名無しさん** · 2019/06/30(日) 18:49:06.96

>>684
アンカー間違えた >>632 宛だった…Orz

**デフォルトの名無しさん** · 2019/07/01(月) 01:03:55.45

>>632 Perl5 (CPANのMath::Combinatoricsﾓｼﾞｭｰﾙ使用)

use Math::Combinatorics;
use List::Util 'product';
@a=sort{$b<=>$a} qw{9 -5 -3 2 1 8 0 -4 -1 4 -2 1 3 2};
@b=splice @a,0,5;
splice @a,0,-4;
@c=(@b, @a);
@d=combine 5, @c;
@e=sort{$$b[0]<=>$$a[0]} map{[product(@$_), $_]} @d;

実行結果
~ $ perl 14_632_2.pl
9 4 8 -5 -4 => 5760

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

>>689
最後のstatement
print "@{$e[0][1]} => $e[0][0]\n";
が抜けてた…Orz

**600** · 2019/07/01(月) 12:51:23.31

>>600
Ruby で、
require 'date'

ary_A = %w(2019/07/05 2019/07/10 2019/07/15 2019/07/20)
ary_B = %w(2019/07/08 2019/07/10 2019/07/20)
ary_C = %w(2019/07/15 2019/07/20 2019/07/25)

# 文字列の配列から、ハッシュを作る。Date#jd は、ユリウス日。整数型
def make_hash( ary, name )
ary.each_with_object( { } ) {
| str, h | h[ Date.parse( str ).jd ] = [ str, name ] }
end

# ハッシュをマージする。h_1 を上書きする。slice で、位置1 から、1つだけ
def merge_hash( h_1, h_2 )
h_1.merge!( h_2 ) { |key, v_1, v_2| v_1 + v_2.slice( 1, 1 ) }
end

hash_A = make_hash( ary_A, "A" )
hash_B = make_hash( ary_B, "B" )
hash_C = make_hash( ary_C, "C" )

merge_hash( hash_A, hash_B )
merge_hash( hash_A, hash_C )

hash_A.select { |k, v| v.length >= 3 }.sort.each { |elem|
puts elem.last.join( ", " ) }

**デフォルトの名無しさん** · 2019/07/02(火) 00:55:09.45

乙

**デフォルトの名無しさん** · 2019/07/03(水) 05:29:13.40

>>570 Lua
prrint("(X)")

**デフォルトの名無しさん** · 2019/07/03(水) 13:00:21.17

>>570
exho 八

**デフォルトの名無しさん** · 2019/07/03(水) 23:21:16.00

お題
直線状の(配列を使った)ライフゲームがある。ルールは、

1. 両隣が生きていれば、暑苦しいので死ぬ
2. 両隣が死んでいれば、寂しいので死ぬ
3. 両隣の内、片方だけが生きていれば、生きる

4. 両端の2つについては、隣が生きていれば生きるし、隣が死んでいれば死ぬ
5. すべてのマスの状態の変更は、同時にすること

下の初期値(1 ターン目)から初めて、状態が変わらなくなるのは、何ターン目か？
nターン目と、( n + 1 )ターン目が同じなら、nターン目を答える

ただし、漏れは検証していないので、100ターンを超えたら、終了してくださいw
* は生、. は死を表す

.*...**.*.***..

**デフォルトの名無しさん** · 2019/07/04(木) 00:54:11.99

>>695 Pharo/Squeak Smalltalk

| map next turn |
map := '.*...**.*.***..' asArray collect: [:x | (x = $*) asBit].
next := [map allButFirst, {0} + ({0}, map allButLast) collect: [:x | (x = 1) asBit]].
turn := 1.
[map = (map := next value) or: [(turn := turn + 1) >= 100]] whileFalse.
^turn "=> 13 "

**デフォルトの名無しさん** · 2019/07/04(木) 01:48:41.98

>>695
https://ideone.com/Rj3O0W
C++。即死したんだけど、まちがてる？

**デフォルトの名無しさん** · 2019/07/04(木) 02:56:15.33

プログラムしてないけど、そういう結果になると思う。

**デフォルトの名無しさん** · 2019/07/04(木) 07:37:27.36

増える条件ナインかこれ

**デフォルトの名無しさん** · 2019/07/04(木) 08:19:44.93

LifeGameなら生まれる条件つけないと。

**デフォルトの名無しさん** · 2019/07/04(木) 08:35:23.83

>>695 ruby 13ターンで全滅
life = ' .*...**.*.***.. '
puts "%4d %s" % [1, life]
100.times{|gene|
life2 = ' ' * life.size
(life.size-2).times{|i| life2[i+1] = ((life[i] == '*') ^ (life[i+2] == '*'))? '*' : '.' } # rule 1, 2, 3, 4
break if life == life2
puts "%4d %s" % [gene+2, life2]
life = life2 # rule 5
}

**デフォルトの名無しさん** · 2019/07/04(木) 09:15:04.08

プログラム組むまでもなく3ターンで終わりなんだけど解釈間違ってんのかな

**デフォルトの名無しさん** · 2019/07/04(木) 11:47:20.51

>>695 Java
https://ideone.com/8cforf

生きるってのが誕生も含める場合13ターン >>696 >>701
生きるってのが生存のみの場合3ターン >>697
ってことだな

**695** · 2019/07/04(木) 16:13:36.89

生きるとは、新たに誕生する場合も、含めてください！

**デフォルトの名無しさん** · 2019/07/04(木) 16:51:48.26

ジョジョくさいセリフ

**デフォルトの名無しさん** · 2019/07/04(木) 17:41:32.68

居ないときは両隣が生きていれば生まれる
（生きているときは 1. に従い死ぬ）
とかの方がいいんじゃない？

**デフォルトの名無しさん** · 2019/07/04(木) 17:59:22.42

>>695,704
つまりルール90の1次元セルオートマトンってことでいいのかの？　(誕生無しの場合ルール18になる)

セル・オートマトン#1次元セル・オートマトン
https://ja.wikipedia.org/wiki/%E3%82%BB%E3%83%AB%E3%83%BB%E3%82%AA%E3%83%BC%E3%83%88%E3%83%9E%E3%83%88%E3%83%B3#1%E6%AC%A1%E5%85%83%E3%82%BB%E3%83%AB%E3%83%BB%E3%82%AA%E3%83%BC%E3%83%88%E3%83%9E%E3%83%88%E3%83%B3

**デフォルトの名無しさん** · 2019/07/04(木) 22:15:57.84

お題: コマンド「stack」を実装しなさい

stackの仕様

$ stack push hoge

で文字列hogeをスタックにプッシュする

$ stack pop
hoge

でスタックに積んだ文字列をポップする
スタックが空の場合は何も表示しない

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

ライフゲームだけど、生まれる話は聞いてないなぁ。
主が生まれる条件書いてねー気がする。

**デフォルトの名無しさん** · 2019/07/05(金) 00:22:45.10

>>702
手計算したら同じく3手だった

**デフォルトの名無しさん** · 2019/07/05(金) 00:31:50.12

>>695,704　Perl5

sub f {
　@a = map{'*' eq $_} split '', '.*...**.*.***..';
　for ($t = 2; $t <= 100; $t++) {
　　@b = $_[0]->();
　　$t--, last if "@b" eq "@a";
　　@a = @b;
　}
　@a = map{$_ ? '*' : '.'} @b;
}
f(sub{$a[1], (map{$a[$_] and ($a[$_-1] xor $a[$_+1])} 1..$#a-1), $a[$#a-1]});
print "生存のみ $t: ", @a, "\n";
f(sub{$a[1], (map{$a[$_-1] xor $a[$_+1]} 1..$#a-1), $a[$#a-1]});
print "誕生あり $t: ", @a, "\n";

実行結果
~ $ perl 14_695.pl
生存のみ 3: .....**........
誕生含む 13: ...............

**デフォルトの名無しさん** · 2019/07/05(金) 00:33:12.20

>>711 ｺﾞﾒﾝ実行結果貼り間違えた
~ $ perl 14_695.pl
生存のみ 3: .....**........
誕生あり 13: ...............

**デフォルトの名無しさん** · 2019/07/05(金) 00:41:15.13

>>711 たびたびｺﾞﾒﾝ、微妙に間違えていた、この入力の場合答えは変わらないけど
sub f {
　@a = map{'*' eq $_} split '', '.*...**.*.***..';
　for ($t = 2; $t <= 100; $t++) {
　　@b = $_[0]->();
　　$t--, last if "@b" eq "@a";
　　@a = @b;
　}
　@a = map{$_ ? '*' : '.'} @b;
}
f(sub{map{$a[$_] and ($a[$_-1] xor $a[$_+1])} 0..$#a});
print "生存のみ $t: ", @a, "\n";
f(sub{$a[1], (map{$a[$_-1] xor $a[$_+1]} 1..$#a-1), $a[$#a-1]});
print "誕生あり $t: ", @a, "\n";

~ $ perl 14_695.pl
生存のみ 3: .....**........
誕生あり 13: ...............

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

公式サイトが死んで1ヶ月ぐらい立ったけどUWSC
>>695 http://codepad.org/C46guycm
>>708 http://codepad.org/QU38TKOo