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

**701** · 2019/07/05(金) 07:27:15.34

>>695 ruby 13ターンで全滅 (>>701 bit演算化)
life = '.*...**.*.***..'
bord = life.tr('.*','01').to_i(2)
mask = 2 ** life.size - 1
fmt = "%%0%db" % life.size
100.times{|gene|
puts "%5d %s" % [gene+1, (fmt % bord).tr('01','.*')]
bord2 = ((bord<<1)^(bord>>1)) & mask # rule 1, 2, 3, 4
break if bord == bord2
bord = bord2
}

**695** · 2019/07/05(金) 12:37:23.14

>>706
>1. 両隣が生きていれば、暑苦しいので死ぬ
これを変形して、

1a. 自マスが生きている場合、両隣が生きていれば、暑苦しいので死ぬ
1b. 自マスが死んでいる場合、両隣が生きていれば、生きる(新たに誕生する)

1c. ただし、両端の2つのマスについては、1a, 1b を適用せず、ルール4 で良い。
4. 両端の2つについては、隣が生きていれば生きるし、隣が死んでいれば死ぬ

つまり、両端の2つについては、そのマスの両隣の内、
存在しないマスを死んでいるものとして扱うと、常に、1a, 1bには該当しない

興味があれば、この変形ルールでも、やってみてください！
ただし、漏れは、どうなるのか知りませんがw

>>707
確かに、ルール90 と同じです

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

【7ピンN枚の河内塔の最短手順問題】

初期状態では帽子はピン0
にあり、ピン6にすべて移す
までの最小手順の回数を求める

例:
N=3 5回
0->4
0->5
0->6
5->6
4->6

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

>>716 ruby 63ターン以降２周期ループ(62,63,62,63,,,)
life = '.*...**.*.***..'
bord = life.tr('.*','01').to_i(2)
mask = 2 ** life.size - 1
fmt = "%%0%db" % life.size
bords = {bord=>true}
100.times{|gene|
puts "%5d %s" % [gene+1, (fmt % bord).tr('01','.*')]
bord2 = (bord<<1 ^ bord>>1 | bord<<1 & bord>>1 & ~bord) & mask # rule >>706, >>716
break if bords[bord2]
bord = bord2
bords[bord] = true
}

**695** · 2019/07/05(金) 17:47:06.08

>>718
循環しましたか？

循環を発見するには、すべてのターンを記録して照合しないといけないから、大変！

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

>>716
3a、3b は？

**695** · 2019/07/05(金) 19:42:34.54

>>720
3. 両隣の内、片方だけが生きていれば、生きる

元々、生きるには、誕生する事も含むから、3a, 3b は、必要ない

ただ、
>>706
の提案で、1a, 1b の所だけを変えてみたのが、
>>716

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

https://ideone.com/VOwT7u
C++版改。5ターンで止まった。
ライフゲームは、ダブルバッファリング以外で作れる気がしない。

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

#>>716 ruby # Rule を配列化。 (L C R) 3bit 0..7 の状態 >>659なら [0,1,0,1,1,0,1,0]
Rule = [0,1,0,1,1,1,1,0] # rule >>706, >>716
life = '.*...**.*.***..'
lifeBit = life.size
bord = life.tr('.*','01').to_i(2)
fmt = "%%0%db" % lifeBit
bords = {bord=>true}
100.times{|gene|
puts "%5d %s" % [gene+1, (fmt % bord).tr('01','.*')]
bord <<= 1
bord2 = 0
lifeBit.times{|bit|
bord2 |= Rule[bord & 7] << bit
bord >>= 1
}
bord = bord2
break if bords[bord]
bords[bord] = true
}

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

>>716 Pharo/Squeak Smalltalk

| map next seq start |
map := '.*...**.*.***..' asArray collect: [:x | (x = $*) asBit].
seq := OrderedCollection with: map.
next := [ | acc |
acc := map + (map allButFirst, {0}) + ({0}, map allButLast).
((#(1 2) collect: [:x | acc collect: [:elem | (elem = x) asBit]]) * {map negated + 1. 1}) sum
].
[(start := seq indexOf: (map := next value)) > 0 or: [seq size >= 100]] whileFalse: [seq add: map].
(start = 0 or: [start = seq size]) ifTrue: [seq size] ifFalse: [start to: seq size]

"=> (62 to: 63) "

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

>>723
s/>>659なら/>>695なら/

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

>>722だけど間違ってたら、教えて。
今みんな何やってるのか把握してない。

**デフォルトの名無しさん** · 2019/07/06(土) 15:56:23.82

>>716 Perl5、5で止まる。>>720>>721の解釈違い？それともｵﾚのBug?

%s = qw(. 0 * 1);
@a = map{$s{$_}} split '', '.*...**.*.***..';
$t = 1;
%h = ("@a" => $t);
printf "%2d: @a\n", $t;
for ($t = 2; $t <= 100; $t++) {
　@b=($a[1] ? $a[0] : 0,
　　　(map{
　　　　($a[$_-1] xor $a[$_+1]) ? $a[$_] :
　　　　　(($a[$_-1] and $a[$_+1]) ? ($a[$_]?0:1) : 0)
　　　} 1..$#a-1),
　　　$a[-2] ? $a[-1] : 0
　　 );
　printf "%2d: @b\n", $t;
　@a = @b;
　$t--, last if exists $h{"@a"};
　$h{"@a"} = $t;
}
@c = map{$_ ? '*' : '.'} @a;
printf "%d => @c\n", $t;

実行結果
~ $ perl 14_716.pl
1: 0 1 0 0 0 1 1 0 1 0 1 1 1 0 0
2: 0 0 0 0 0 1 1 1 0 1 1 0 1 0 0
3: 0 0 0 0 0 1 0 1 1 1 1 1 0 0 0
4: 0 0 0 0 0 0 1 1 0 0 0 1 0 0 0
5: 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0
6: 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0
5 => . . . . . . * * . . . . . . .

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

>>727
おぉ、同志。（一方通行

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

>>717
問題がわからない。
河内塔って何？

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

もしかしてハノイの塔かな

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

(- (expt 2 n) 1) ぐらいの手数増加がやばいやつか
たった64枚で移し終えると世界が滅びるらしいぞｗ

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

>>730
色々ググっている内に中国語で書かれたサイトで「河内塔」が見つかった。
中国語がよくわからないので何とも言えないがどうやらハノイの塔のようだ。
「河内塔(Tower of Hanoi)」と書いてある個所があり下の方にある画像は正にその説明になっている。
https://blog.csdn.net/jon_me/article/details/41986461

**デフォルトの名無しさん** · 2019/07/06(土) 17:04:45.14

>>726-727
>>695の3.が適用されてないんじゃ？

>>726はこんな感じ？ https://ideone.com/1VOW38

**デフォルトの名無しさん** · 2019/07/06(土) 17:10:17.77

ベトナム語で「河内」って書いて「ハノイ」と読むんだな。ベトナムでは今は漢字使ってないけど。
https://ja.wikipedia.org/wiki/%E3%83%8F%E3%83%8E%E3%82%A4

**デフォルトの名無しさん** · 2019/07/06(土) 17:31:45.90

>>733
えーっと、そのこーどだけど、死んでるセルの隣に生きてるセルがいたら生まれてるんだけどあってる？

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

>>733
示唆してくれてありがとう。言い忘れてた。

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

>>727

>>716
>確かに、ルール90 と同じです
wikipediaのルール90 を確認してみて

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

うん。リンクあったら一発で書けないこともなかった。というわがまま言ってみる。
まぁ、>>733に書いてあるから、俺のタスクはないなぁ。

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#ルール90

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

>>733 ご指摘ありがとう。 >>721 の

> 3. 両隣の内、片方だけが生きていれば、生きる
> 元々、生きるには、誕生する事も含むから、3a, 3b は、必要ない

を、「3.自マスが死んでいる場合、両隣の何れかでも生きていれば、生まれる。」
と言う意味と捕らえなおして、>>713を書き換えたら、63でloopしたよ。

>>716 に

>1b. 自マスが死んでいる場合、両隣が生きていれば、生きる(新たに誕生する)

と誕生条件が書いてあったので、3の条件は「生まれる」条件も含むとは考えず、

「3.両隣の内、片方だけが生きていれば、自ﾏｽが生きていれば生きる(し、死んでいれば死んだまま)。」
と解釈して >>713 を作ったのが63でloopしなかった原因だと分かった。

**デフォルトの名無しさん** · 2019/07/06(土) 18:25:42.01

>>716,721 Perl5

%s = qw(. 0 * 1);
@a = @a = map{$s{$_}} split '', '.*...**.*.***..';
$t = 1;
%h = ("@a" => $t);
@h = ("@a");
for ($t = 2; $t <= 100; $t++) {
　@b=($a[1] ? 1 : 0,
　　　(map{
　　　　($a[$_-1] xor $a[$_+1]) ? 1 :
　　　　　(($a[$_-1] and $a[$_+1]) ? ($a[$_]?0:1) : 0)
　　　} 1..$#a-1),
　　　$a[-2] ? 1 : 0
　　 );
　@a = @b;
　push @h, "@a";
　$t--, last if exists $h{"@a"};
　$h{"@a"} = $t;
}
$i = $h{"@a"};
print $_ - 1, ": $h[$_-1]\n" for $i..@h;

実行結果
~ $ perl 14_716_721.pl
61: 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1
62: 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0
63: 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1

**デフォルトの名無しさん** · 2019/07/06(土) 18:44:26.01

>>716,721 Perl5、ｺﾞﾒﾝ、結果は0 1じゃなくて.*のstringで表示すべきだったので修正させていただきます

@a = split '', '.*...**.*.***..';
@h = ("@a");
@a = map{'*' eq $_ ? 1 : 0} @a;
$t = 1;
%h = ("@a" => $t);
for ($t = 2; $t <= 100; $t++) {
　@b=($a[1] ? 1 : 0,
　　　(map{
　　　　($a[$_-1] xor $a[$_+1]) ? 1 :
　　　　　(($a[$_-1] and $a[$_+1]) ? ($a[$_]?0:1) : 0)
　　　} 1..$#a-1),
　　　$a[-2] ? 1 : 0
　　 );
　push @h, join'',map {$_ ? '*' : '.'} @b;
　@a = @b;
　$t--, last if exists $h{"@a"};
　$h{"@a"} = $t;
}
$i = $h{"@a"};
print $_ - 1, ": $h[$_-1]\n" for $i..@h;

実行結果
~ $ perl 14_716_721.pl
61: *.*.*.*.*.*.*.*
62: .*.*.*.*.*.*.*.
63: *.*.*.*.*.*.*.*

◆QZaw55cn4c · 2019/07/06(土) 19:13:43.46

お題と回答
>>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/07/06(土) 19:14:04.22

>>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 691
>>615,626 :
>>632 : 637 640 645 649 650 687 689-690

◆QZaw55cn4c · 2019/07/06(土) 19:14:20.27

>>651 : 654 657 662 679 682
>>655 :
>>661 :
>>683 : 685
>>695,704,716,721 : 696 697 701 703 711 713 714 715 718 722 723 724 727 740-741
>>708 : 714
>>717 :

**デフォルトの名無しさん** · 2019/07/06(土) 19:37:09.81

消えろ

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

ログ汚染が酷い

**695** · 2019/07/07(日) 08:03:43.59

だから、誕生という概念を作ると、説明が難しいから、「生死」の状態だけにした。
生死だけなら、前の状態に関係ない、前の状態と切れているから

誕生という概念を使うと、
a. 前の状態が死んでいる時と、
b. 前の状態が生きている時で、

処理が変わってくるから複雑になって、勘違いする人も出てくるから

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

>>747
その「だから」は何につながってるのか読めない。

**デフォルトの名無しさん** · 2019/07/07(日) 17:48:05.53

>>747
状態が関係ないと実装の工夫のしどころが失われて面白みが半減すると思うよ

最初の何ターンかを例として示せば済むはなしだし
手元で実装を試していればなおさら何の苦もないことかと

細かい事を言うと、本当に実装を試さずに出題しているのならそれはルール違反なんだよね
（チューリングの泥沼問題回避や宿題の丸投げ防止）

◆QZaw55cn4c · 2019/07/07(日) 19:42:47.11

>>749
出題者が実装をひとつは持っておく、というのは努力目標でいいんじゃないかな？お題が面白ければ私は許容しますね
まあ自分のお題は面白くないので実装をひとつくらいは持つようにしていますが…

**デフォルトの名無しさん** · 2019/07/07(日) 19:55:58.86

たしかにくだらないクソ問ばかりだね。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/07/07(日) 21:06:25.36

お題: 生徒の氏名、身長、体重の３つからなる複数のレコードが与えられる。氏名とBMIを左揃えのテキストの表にせよ。
単位はMKS単位系、テキストはASCIIおよび等幅フォントが使われると仮定してよい。

Tanaka Naoki 15kg 2m
Inoue Ken 280g 32cm
Akai Ryusei 1mg 3km

**蟻人間** ◆T6xkBnTXz7B0 · 2019/07/07(日) 21:26:21.37

お題: MKS単位系の単位を変換する関数またはクラスを作れ。

1kg:g
→1000g

2m:cm
→200cm

**蟻人間** ◆T6xkBnTXz7B0 · 2019/07/07(日) 21:28:22.26

名前はテキトーに思いついたのを書いただけです。

**デフォルトの名無しさん** · 2019/07/07(日) 21:28:35.00

>>753
C++なら、ユーザー定義リテラルで横着できるんだけど、入力解析が嫌な感じだ。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/07/07(日) 21:44:56.12

物理シミュレーションが人間の手から離れて自由自在にならなければ、火星への仮想移住もできない。MKS単位系の計算術は重要だ。

**デフォルトの名無しさん** · 2019/07/07(日) 21:50:29.52

トリップ付きは大学の教養課程の知識すらない阿呆しかいないのかね

**蟻人間** ◆T6xkBnTXz7B0 · 2019/07/07(日) 22:23:37.11

常識など切り刻むのみ。

**デフォルトの名無しさん** · 2019/07/07(日) 22:41:27.22

死ねや糞コテ

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

https://ideone.com/46Q0vU
物理難しすぎた。
Wikipediaを写経しようと思ったら、わからないことが多すぎる。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/07/07(日) 23:19:20.77

長さの単位、質量の単位、そして時間の単位の３つがある。これにキロ、ミリ、マイクロなどが前に付く。
変換方法は複数あり、何から何への変換方法はデータとして与えられ、それらは追加可能でなければ不便。

◆QZaw55cn4c · 2019/07/07(日) 23:23:22.07

先生！質問です！
重さの規準は kg ですか？それとも g ですか？え？kg？おっかしーなー？kg の kって単なる接頭辞 prefix なのでは？

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

全部Jで統一しろハゲ共

**デフォルトの名無しさん** · 2019/07/08(月) 00:24:27.94

長さ1センチの鼻毛を鉛直方向に1ニュートンの力で引っ張り、抜いたときに感じる痛みは1ハナゲ

◆QZaw55cn4c · 2019/07/08(月) 00:28:17.48

>>763
質量は J に等価交換できても長さや時間は無理なのでは？

**デフォルトの名無しさん** · 2019/07/08(月) 00:58:34.40

>>765
natural unitも知らねえのか

**デフォルトの名無しさん** · 2019/07/08(月) 08:05:28.83

タブ区切りの文字列の置換リストがあって、そのとおりにテキストファイルファイルを置換したい
そういうソフトありますか?
見つからないので自作しようとおもったけどここへ書いてみた

置換リスト例

ああああうううう
aaaaa QQQQQ

**デフォルトの名無しさん** · 2019/07/08(月) 08:09:30.46

コマンドラインでGREPと置換できるソフトはあるんだけど。
DOSの文字制限と、正規表現の制限で、
置換したい文字の設定がややこしい。あと複数同時にできない。
文字を加工せずできれば便利だなと。

**デフォルトの名無しさん** · 2019/07/08(月) 08:10:59.60

>>767
スレ違い

**デフォルトの名無しさん** · 2019/07/08(月) 11:02:56.96

>>767
Perlでも使えば？文字列置換楽だよ。

**デフォルトの名無しさん** · 2019/07/08(月) 11:50:01.31

>>767
perl5 が最高だとおもうよ
もともとそういう分野に特化した言語だ

◆QZaw55cn4c · 2019/07/08(月) 18:59:50.46

>>766
時間や長さを J で統一することは自然単位系でもできませんね…

◆QZaw55cn4c · 2019/07/08(月) 19:00:41.66

>>767
仕様を正確に記述してください

**デフォルトの名無しさん** · 2019/07/08(月) 19:25:39.25

宿題に餌を与えないでください

**デフォルトの名無しさん** · 2019/07/08(月) 22:57:02.15

Ruby では変換表を使って、置換できる

hash = { 'ab' => 'あ', 'xy' => 'ん' }

p re = Regexp.union( hash.keys ) #=> /ab|xy/

p "9xy9ab9xyx".gsub( re, hash )
#=> 9ん9あ9んx

gsub(pattern, hash) -> String
文字列中の pattern にマッチした部分をキーにして、hash を引いた値で置き換える

hash = {'b'=>'B', 'c'=>'C'}
p "abcabc".gsub(/[bc]/){hash[$&]} #=> "aBCaBC"
p "abcabc".gsub(/[bc]/, hash) #=> "aBCaBC"

**デフォルトの名無しさん** · 2019/07/09(火) 00:46:29.33

rubyの宣伝とはいえ、宿題に餌やるなら、問われている事柄に応えてやったらどうかと思う。
宣伝意識が前面に出すぎて目的を忘れるなかれ、って感じ。

**デフォルトの名無しさん** · 2019/07/09(火) 00:48:43.11

　　　　|　　　　　　　　　　　　　　　　　　＼
　　　　|　　('A`)　　　　　　　　　　　ｷﾞｼｷﾞｼ
　　　／￣ﾉ( ﾍﾍ￣￣　　　　　　　　ｱﾝｱﾝ／