コードゴルフ：コンウェイの人生ゲーム

Question

課題：John H. ConwayのGame of Lifeセルオートマトンを実装する最短のプログラムを記述します。 [ リンク ]

編集：約1週間の競争の後、私は勝利者を選びました：pdehaan、Perlでone文字でMatlabソリューションを打ち負かすために管理します。

Game of Lifeを聞いたことがない人は、正方形のセルのグリッド（理想的には無限）を取ります。セルは生きている（塗りつぶされている）か、死んでいる（空）のいずれかです。次のルールを適用して、次の時間のステップで生存しているセルを特定します。

人口が少ないために発生したかのように、生存細胞が2つ未満の生存細胞は死にます。
過密状態のように、3つ以上の隣接セルを持つライブセルはすべて死にます。
2つまたは3つの生きている隣人を持つ生きている細胞は、次の世代まで生き続けます。
ちょうど3つの生きている隣人がいる死んだ細胞は、まるで生殖のように生きている細胞になります。

プログラムは、コマンドライン引数として指定された40x80文字のASCIIテキストファイルと、実行する反復回数（N）を読み取ります。最後に、N回の反復後のシステムの状態をASCIIファイルout.txtに出力します。

次に、関連ファイルを使用して実行した例を示します。

in.txt：

................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ..................................XX............................................ ..................................X............................................. .......................................X........................................ ................................XXXXXX.X........................................ ................................X............................................... .................................XX.XX...XX..................................... ..................................X.X....X.X.................................... ..................................X.X......X.................................... ...................................X.......XX................................... ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................

100回繰り返す：

Q:\>life in.txt 100

結果の出力（out.txt）

................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ..................................XX............................................ ..................................X.X........................................... ....................................X........................................... ................................XXXXX.XX........................................ ................................X.....X......................................... .................................XX.XX...XX..................................... ..................................X.X....X.X.................................... ..................................X.X......X.................................... ...................................X.......XX................................... ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................ ................................................................................

ルール：

ファイルを読み書きするには、ファイルI/Oを使用する必要があります。
入力ファイルと反復回数を引数として受け入れる必要があります
指定された形式でout.txt（存在する場合は上書き）を生成する必要があります
あなたはボードのエッジ（ラップアラウンド、無限グリッドなど）を処理する必要はありません
編集：あなたdoは、出力ファイルに改行を含める必要があります。

勝者は文字数によって決定されます。

幸運を！

pdehaan · Accepted Answer

Perl、127 129 135 チャー

いくつかの文字を取り除くことができました...

$/=pop;@b=split'',<>;map{$n=-1;@b=map{++$n;/ /?$_:($t=grep/X/,@b[map{$n+$_,$n-$_}1,80..82])==3|$t+/X/==3?X:'.'}@b}1..$/;print@b

Dr. belisarius · Answer

Mathematica- 179 163 154 151文字

 a = {2, 2, 2}; s = Export["out.txt", CellularAutomaton[{224, {2, {a, {2, 1, 2}, a}}, {1,1}}, (ReadList[#1, Byte, RecordLists → 2>1] - 46)/ 42, #2]〚#2〛 /. {0 → ".", 1 → "X"}, "Table"] &

で呼び出す

 s["c:\life.txt", 100]

アニメーション：

alt text

時間の経過に伴う平均母集団のグラフを取得することもできます。

alt text

グライダーを生成するための素晴らしいパターン Wikipedia

AFAIK Mathematicaはセルラーオートマトンを使用して乱数を生成しますルール30を使用

gnovice · Answer

MATLAB 7.8.0（R2009a）- 174 171 161 150 138 131 128 124文字

関数構文：（124文字）

次に、読みやすいバージョンを示します（書式設定を改善するために不要な改行と空白が追加されています）。

function l(f,N), b=char(importdata(f))>46; for c=1:N, b=~fix(filter2(ones(3),b)-b/2-3); end; dlmwrite('out.txt',char(b*42+46),'')

そして、これがプログラムがMATLABコマンドウィンドウから実行される方法です：

l('in.txt',100)

コマンド構文：（130文字）

コマンド構文で関数を呼び出すことについてのコメントの後、私は少し深く掘り下げて、MATLAB関数canが実際にはコマンドラインで呼び出されることを発見しました形式（いくつかの制限あり）。あなたは毎日何か新しいことを学びます！

function l(f,N), b=char(importdata(f))>46; for c=1:eval(N), b=~fix(filter2(ones(3),b)-b/2-3); end; dlmwrite('out.txt',char(b*42+46),'')

そして、これがプログラムがMATLABコマンドウィンドウから実行される方法です：

l in.txt 100

追加の課題：ツイート可能なGIFメーカー-136文字

楽しみのために、文字数を140（つまり、「トゥイータブル」）未満に保ちながら、出力をテキストファイルではなくGIFファイルにダンプできるかどうかを確認しました。うまくフォーマットされたコードは次のとおりです。

function l(f,N), b=char(importdata(f))>46; k=ones(3); for c=1:N+1, a(:,:,:,c)=kron(b,k); b=~fix(filter2(k,b)-b/2-3); end; imwrite(~a,'out.gif')

[〜＃〜] imwrite [〜＃〜] はデフォルトで無限にループするGIFを作成することになっていますが、私のGIFは1回しかループしません。おそらく、これは新しいバージョンのMATLABで修正されたバグです。そのため、アニメーションを長持ちさせ、進化のステップを見やすくするために、フレーム遅延をデフォルト値（約0.5秒のようです）のままにしました。 Gosper Glider Gun パターンを使用したGIF出力は次のとおりです。

alt text

改善点

Update 1：マトリックスbを論理（つまり「ブール」）型から数値型に変更して、いくつかの変換を取り除きました。
Update 2：ファイルをロードするためのコードを短縮し、関数 [〜＃〜] magic [〜＃〜] を畳み込みを作成するトリックとして使用しましたより少ない文字のカーネル。
Update 3：インデックス作成ロジックを簡略化し、~~b+0をb/42に置き換え、'same'を's'に引数として置き換えました- CONV2 （そして驚くべきことにそれでも動作しました！）.
更新4： Loren The MathWorksからゴルフとライフゲームについてのブログなので、最初にオンラインで検索するべきだったと思います。今年初め。そこで議論したいくつかの手法を組み込んだため、bを論理行列に戻す必要がありました。
Update 5： A 上記のブログ投稿のAslak Grinstedからのコメントは、ロジックと（関数を使用して）畳み込みを実行するためのさらに短いアルゴリズムを示唆しています FILTER2 ）なので、私は彼の提案を「組み込んだ」（「コピーした」と読みます）。 ;）
Update 6： bの初期化から2文字をトリミングし、ループ内のロジックを作り直して、さらに1文字を保存しました。
Update 7： Eric Sampsonが電子メールでcell2matをcharに置き換えて4文字節約できると指摘しました。エリック、ありがとう！

Mladen Jablanović · Answer

Ruby 1.9- 189 178 159 155 153文字

f,n=$* c=IO.read f n.to_i.times{i=0;c=c.chars.map{|v|i+=1 v<?.?v:('...X'+v)[[83,2,-79].map{|j|c[i-j,3]}.to_s.count ?X]||?.}*''} File.new('out.txt',?w)<<c

編集： 4文字以下の改行を処理します。
さらに7個削除できます（v<?.?v:）生細胞が端に達したときに改行を上書きできるようにする場合。

John La Rooy · Answer

Python-282文字

ボールを転がすのもいいかもしれません...

import sys _,I,N=sys.argv;R=range(3e3);B=open(I).read();B=set(k for k in R if'A'<B[k]) for k in R*int(N): if k<1:b,B=B,set() c=sum(len(set((k+o,k-o))&b)for o in(1,80,81,82)) if(c==3)+(c==2)*(k in b):B.add(k) open('out.txt','w').write(''.join('.X
'[(k in B)-(k%81<1)]for k in R))

P Daddy · Answer

Python 2.x-210/234文字

さて、210文字のコードは不正行為のようなものです。

#coding:l1 exec'xÚ=ŽA
Â@E÷sŠº1ƒÆscS‰ØL™Æª··âî¿GÈÿÜ´1iÖ½;Sçu.~H®J×Þ-‰Ñ%ª.wê,šÖ§J®dê˜²>cÉZË¢Vä€»Eîa¿,vKAËÀåÌƒ<»Gce‚ÿ‡ábUt¹)G%£êŠ…óbÒüíÚ¯GÔ/n×Xši&Ä‡:})äðtÏÄJÎòDˆÐÿG¶'.decode('Zip')

このコードをコピーして貼り付けて機能させることはできないでしょう。それはLatin-1（ISO-8859-1）であるはずですが、途中でWindows-1252に変換されたと思います。また、ブラウザによっては、ASCII以外の文字の一部が飲み込まれる場合があります。

したがって、それが機能しない場合は、従来の7ビット文字からファイルを生成できます。

s = """ 23 63 6F 64 69 6E 67 3A 6C 31 0A 65 78 65 63 27 78 DA 3D 8E 41 5C 6E C2 40 0C 45 F7 73 8A BA 31 13 AD 83 15 11 11 C6 73 08 63 17 05 53 89 D8 4C 99 C6 AA B7 B7 AD E2 EE BF 47 C8 FF DC B4 31 69 D6 BD 3B 53 E7 75 2E 7E 48 AE 4A D7 DE 90 8F 2D 89 AD D1 25 AA 2E 77 16 EA 2C 9A D6 A7 4A AE 64 EA 98 B2 3E 63 C9 5A CB A2 56 10 0F E4 03 80 BB 45 16 0B EE 04 61 BF 2C 76 0B 4B 41 CB C0 E5 CC 83 03 3C 1E BB 47 63 65 82 FF 87 E1 62 55 1C 74 B9 29 47 25 A3 EA 03 0F 8A 07 85 F3 62 D2 FC ED DA AF 11 47 D4 2F 6E D7 58 9A 69 26 C4 87 3A 7D 29 E4 F0 04 74 CF C4 4A 16 CE F2 1B 44 88 1F D0 FF 47 B6 27 2E 64 65 63 6F 64 65 28 27 7A 69 70 27 29 """ with open('life.py', 'wb') as f: f.write(''.join(chr(int(i, 16)) for i in s.split()))

これの結果は、有効な210文字のPythonソースファイルです。ここで行ったのは、元のPythonソースコードにZip圧縮を使用することです。実際のチートは、結果の文字列で非ASCII文字を使用していることです。これはまだ有効なコードであり、扱いにくいだけです。

非圧縮バージョンは234文字の重さですが、それでも立派なものだと思います。

import sys f,f,n=sys.argv e=open(f).readlines() p=range for v in p(int(n)):e=[''.join('.X'[8+16*(e[t][i]!='.')>>sum(n!='.'for v in e[t-1:t+2]for n in v[i-1:i+2])&1]for i in p(80))for t in p(40)] open('out.txt','w').write('
'.join(e))

横スクロールについては申し訳ありませんが、上記の改行はすべて必須であり、改行はそれぞれ1文字として数えています。

ゴルフしたコードを読み取ろうとはしません。最適な圧縮を実現するために、変数名はランダムに選択されます。そうです。私は本気です。より適切にフォーマットされコメント化されたバージョンは次のとおりです。

# get command-line arguments: infile and count import sys ignored, infile, count = sys.argv # read the input into a list (each input line is a string in the list) data = open(infile).readlines() # loop the number of times requested on the command line for loop in range(int(count)): # this monstrosity applies the rules for each iteration, replacing # the cell data with the next generation data = [''.join( # choose the next generation's cell from '.' for # dead, or 'X' for alive '.X'[ # here, we build a simple bitmask that implements # the generational rules. A bit from this integer # will be chosen by the count of live cells in # the 3x3 grid surrounding the current cell. # # if the current cell is dead, this bitmask will # be 8 (0b0000001000). Since only bit 3 is set, # the next-generation cell will only be alive if # there are exactly 3 living neighbors in this # generation. # # if the current cell is alive, the bitmask will # be 24 (8 + 16, 0b0000011000). Since both bits # 3 and 4 are set, this cell will survive if there # are either 3 or 4 living cells in its neighborhood, # including itself 8 + 16 * (data[y][x] != '.') # shift the relevant bit into position >> # by the count of living cells in the 3x3 grid sum(character != '.' # booleans will convert to 0 or 1 for row in data[y - 1 : y + 2] for character in row[x - 1 : x + 2] ) # select the relevant bit & 1 ] # for each column and row for x in range(80) ) for y in range(40) ] # write the results out open('out.txt','w').write('
'.join(data))

申し訳ありませんが、CっぽいブラケットのフォーマットについてはPythonistasですが、各ブラケットが閉じていることを明確にしようとしていました。

Alexander Konstantinov · Answer

Haskell- 284 272 232文字

import System main=do f:n:_<-getArgs;s<-readFile f;writeFile"out.txt"$t s$read n p '
'_='
' p 'X'2='X' p _ 3='X' p _ _='.' t r 0=r t r n=t[p(r!!m)$sum[1|d<-1:[80..82],s<-[1,-1],-m<=d*s,m+d*s<3240,'X'==r!!(m+d*s)]|m<-[0..3239]]$n-1

Molehill · Answer

Java、 441 ... 346

pdate 1醜い場合は内部を削除
pdate 2バグを修正し、キャラクターを獲得した
pdate境界の問題を無視しながら、より多くのメモリと配列を使用します。おそらくいくつかの文字を保存できます。
pdate 4いくつかの文字を保存しました。 BalusCに感謝します。
pdate 5 400を下回るようにいくつかのマイナーな変更を行い、それをさらに少し醜くします。
pdate 6ハードコードされているため、一度に正確な量を読み取ることができます。さらにいくつかの節約。
pdate 7ファイルへの書き込みをチェーンして、charを保存します。プラス奇数ビット。

BalusCのソリューションで遊んでみてください。評判が限られているということは、私は彼にコメントとして何も追加できなかったことを意味します。

class M{public static void main(String[]a)throws Exception{int t=3240,j=t,i=new Integer(a[1])*t+t;char[]b=new char[i+t],p={1,80,81,82};for(new Java.io.FileReader(a[0]).read(b,t,t);j<i;){char c=b[j],l=0;for(int n:p)l+=b[j+n]/88+b[j-n]/88;b[j+++t]=c>10?(l==3|l+c==90?88:'.'):c;}new Java.io.FileWriter("out.txt").append(new String(b,j,t)).close();}}

より読みやすい（？）バージョン：

class M{ public static void main(String[]a)throws Exception{ int t=3240,j=t,i=new Integer(a[1])*t+t; char[]b=new char[i+t],p={1,80,81,82}; for(new Java.io.FileReader(a[0]).read(b,t,t);j<i;){ char c=b[j],l=0; for(int n:p)l+=b[j+n]/88+b[j-n]/88; b[j+++t]=c>10?(l==3|l+c==90?88:'.'):c; } new Java.io.FileWriter("out.txt").append(new String(b,j,t)).close(); } }

Brian · Answer

F＃、496

私はこれをかなり減らすことができましたが、それはまだ球場にあり、かなり読みやすいので、私はこれが好きです。

open System.IO let mutable a:_[,]=null let N y x= [-1,-1;-1,0;-1,1;0,-1;0,1;1,-1;1,0;1,1] |>Seq.sumBy(fun(i,j)->try if a.[y+i,x+j]='X' then 1 else 0 with _->0) [<EntryPoint>] let M(r)= let b=File.ReadAllLines(r.[0]) a<-Array2D.init 40 80(fun y x->b.[y].[x]) for i=1 to int r.[1] do a<-Array2D.init 40 80(fun y x-> match N y x with|3->'X'|2 when a.[y,x]='X'->'X'|_->'.') File.WriteAllLines("out.txt",Array.init 40(fun y-> System.String(Array.init 80(fun x->a.[y,x])))) 0

編集

428

リクエストにより、これが私の次のスタブです：

open System let mutable a,k=null,Array2D.init 40 80 [<EntryPoint>] let M r= a<-k(fun y x->IO.File.ReadAllLines(r.[0]).[y].[x]) for i=1 to int r.[1] do a<-k(fun y x->match Seq.sumBy(fun(i,j)->try if a.[y+i,x+j]='X'then 1 else 0 with _->0)[-1,-1;-1,0;-1,1;0,-1;0,1;1,-1;1,0;1,1]with|3->'X'|2 when a.[y,x]='X'->'X'|_->'.') IO.File.WriteAllLines("out.txt",Array.init 40(fun y->String(Array.init 80(fun x->a.[y,x])))) 0

基本的なゴルフで14％削減されます。 1D配列ではなく2D-array/String-of-stringsを使用することに負けていると感じざるを得ませんが、今はそのような変換を行う気になりません。配列を初期化するためにファイルをエレガントに3200回読み取ったことに注意してください。

AShelly · Answer

Ruby 1.8： ~~178~~ 175文字

f,n=$*;b=IO.read f n.to_i.times{s=b.dup s.size.times{|i|t=([82,1,-80].map{|o|b[i-o,3]||''}*'').count 'X' s[i]=t==3||b[i]-t==?T??X:?.if s[i]>13};b=s} File.new('out.txt','w')<<b

改行は重要です（ただし、すべてセミコロンで置き換えることができます）。

編集：改行の問題を修正し、3文字をトリミングしました。

Landei · Answer

スカラ- ~~467~~ ~~364~~ 339文字

object G{def main(a:Array[String]){val l=io.Source.fromFile(new Java.io.File(a(0)))getLines("\n")map(_.toSeq)toSeq val f=new Java.io.FileWriter("out.txt") f.write((1 to a(1).toInt).foldLeft(l){(t,_)=>(for(y<-0 to 39)yield(for(x<-0 to 79)yield{if(x%79==0|y%39==0)'.'else{val m=t(y-1) val p=t(y+1);val s=Seq(m(x-1),m(x),m(x+1),t(y)(x-1),t(y)(x+1),p(x-1),p(x),p(x+1)).count('X'==_) if(s==3|(s==2&t(y)(x)=='X'))'X'else'.'}})toSeq)toSeq}map(_.mkString)mkString("\n")) f.close}}

まだまだ改善の余地があると思います...

[[編集]はい、そうです：

object G{def main(a:Array[String]){var l=io.Source.fromFile(new Java.io.File(a(0))).mkString val f=new Java.io.FileWriter("out.txt") var i=a(1).toInt while(i>0){l=l.zipWithIndex.map{case(c,n)=>if(c=='\n')'\n'else{val s=Seq(-83,-82,-81,-1,1,81,82,83).map(_+n).filter(k=>k>=0&k<l.size).count(l(_)=='X') if(s==3|(s==2&c=='X'))'X'else'.'}}.mkString i-=1} f.write(l) f.close}}

[[編集]そして、私にはまだ絞り出す余地があると感じています...

object G{def main(a:Array[String]){val f=new Java.io.FileWriter("out.txt") f.write(((1 to a(1).toInt):\(io.Source.fromFile(new Java.io.File(a(0))).mkString)){(_,m)=>m.zipWithIndex.map{case(c,n)=> val s=Seq(-83,-82,-81,-1,1,81,82,83)count(k=>k+n>=0&k+n<m.size&&m(k+n)=='X') if(c=='\n')c else if(s==3|s==2&c=='X')'X'else'.'}.mkString}) f.close}}

Adrian Grigore · Answer

次の解決策では、NULLと呼んでいる独自のカスタムドメイン固有のプログラミング言語を使用しています。

これがどのように機能するのか不思議に思っている場合：私の言語は、プログラムごとに1つのステートメントのみで構成されています。このステートメントは、コードゴルフスレッドに属するStackOverflowスレッドIDを表します。私のコンパイラーはこれを（SO APIを使用して）最良のJavaScriptソリューションを探すプログラムにコンパイルし、それをダウンロードしてWebブラウザーで実行します。

ランタイムは新しいスレッドの方が良いかもしれません（最初の投票されたJavaScriptの回答が表示されるまでに時間がかかる場合があります）が、上手くいくとコーディングスキルはほとんど必要ありません。

Molehill · Answer

C-300

私のJavaソリューションがCでどれほど小さくて醜いかを疑問に思っただけです。プリプロセッサビットの改行を含めて300に削減されます。メモリをOSに解放したままにします！ OSもファイルを閉じてフラッシュします。

#include<stdio.h> #include<stdlib.h> #define A(N)j[-N]/88+j[N]/88 int main(int l,char**a){ int t=3240,i=atoi(a[2])*t+t; char*b=malloc(i+t),*j; FILE*f; fread(j=b+t,1,t,fopen(a[1],"r")); for(;j-b-i;j++[t]=*j>10?l==3|l+*j==90?88:46:10) l=A(1)+A(80)+A(81)+A(82); fwrite(j,1,t,f=fopen("out.txt","w")); fclose(f); }

MooGoo · Answer

Javascript/Node.js-233 236 キャラクター

a=process.argv f=require('fs') m=46 t=f.readFileSync(a[2]) while(a[3]--)t=[].map.call(t,function(c,i){for(n=g=0;e=[-82,-81,-80,-1,1,80,81,82][g++];)t[i+e]>m&&n++ return c<m?c:c==m&&n==3||c>m&&n>1&&n<4?88:m}) f.writeFile('out.txt',t)

Clayton · Answer

MUMPS：314文字

L(F,N,R=40,C=80) N (F,N,R,C) O F:"RS" U F D C F .F I=1:1:R R L F J=1:1:C S G(0,I,J)=($E(L,J)="X") F A=0:1:N-1 F I=1:1:R F J=1:1:C D S G(A+1,I,J)=$S(X=2:G(A,I,J),X=3:1,1:0) .S X=0 F i=-1:1:1 F j=-1:1:1 I i!j S X=X+$G(G(A,I+i,J+j)) S F="OUT.TXT" O F:"WNS" U F D C F .F I=1:1:R F J=1:1:C W $S(G(N,I,J):"X",1:".") W:J=C ! Q

BalusC · Answer

Java、 556 532 517 496 472 433 428 420 418 381文字

pdate 1：1つ目のStringBufferをAppendableに、2つ目を_char[]_に置き換えました。 24文字を節約しました。
pdate 2：ファイルを_char[]_に読み込むための短い方法が見つかりました。 15文字節約しました。
pdate 3： _if/else_を_?:_に置き換え、_char[]_およびint宣言をマージしました。 21文字を節約しました。
pdate 4： _(int)f.length()_および_c.length_をsに置き換えました。 24文字を節約しました。
pdate 5： Molehillのヒントに従って改善を行いました。メジャーなのは、Fileを取り除くことができるようにcharの長さをハードコーディングすることでした。 39文字を節約しました。
アップデート6：マイナーなリファクタリング。 6文字節約しました。
pdate 7： Integer#valueOf()をnew Integer()に置き換え、ループ用にリファクタリングしました。 8文字を節約しました。
pdate 8：近傍計算の改善。 2文字節約しました。
pdate 9：ファイルの長さがすでにハードコードされているため、最適化されたファイルの読み取り。 37文字を節約しました。

_ import Java.io.*;class L{public static void main(String[]a)throws Exception{int i=new Integer(a[1]),j,l,s=3240;int[]p={-82,-81,-80,-1,1,80,81,82};char[]o,c=new char[s];for(new FileReader(a[0]).read(c);i-->0;c=o)for(o=new char[j=s];j-->0;){l=0;for(int n:p)l+=n+j>-1&n+j<s?c[n+j]/88:0;o[j]=c[j]>13?l==3|l+c[j]==90?88:'.':10;}Writer w=new FileWriter("out.txt");w.write(c);w.close();}} _

より読みやすいバージョン：

_import Java.io.*; class L{ public static void main(String[]a)throws Exception{ int i=new Integer(a[1]),j,l,s=3240; int[]p={-82,-81,-80,-1,1,80,81,82}; char[]o,c=new char[s]; for(new FileReader(a[0]).read(c);i-->0;c=o)for(o=new char[j=s];j-->0;){ l=0;for(int n:p)l+=n+j>-1&n+j<s?c[n+j]/88:0; o[j]=c[j]>10?l==3|l+c[j]==90?88:'.':10; } Writer w=new FileWriter("out.txt");w.write(c);w.close(); } } _

書き込み後のクローズは絶対に必須です。それ以外の場合、ファイルは空のままになります。それ以外の場合は、さらに21文字節約されます。

さらに、_46_の代わりに_'.'_を使用すると、さらに1文字を節約できますが、javacとEclipseの両方がコンパイルエラーでジャークし、精度が失われる可能性があります。奇妙なもの。

注：これは、Windowsがデフォルトで使用する__ではなく__改行を含む入力ファイルを想定しています！

Nathan · Answer

PHP- 365 328 322文字。

list(,$n,$l) = $_SERVER["argv"]; $f = file( $n ); for($j=0;$j<$l;$j++){ foreach($f as $k=>$v){ $a[$k]=""; for($i=0;$i < strlen( $v );$i++ ){ $t = 0; for($m=-1;$m<2;$m++){ for($h=-1;$h<2;$h++){ $t+=ord($f[$k + $m][$i + $h]); } } $t-=ord($v[$i]); $a[$k] .= ( $t == 494 || ($t == 452 && ord($v[$i])==88)) ? "X" : "." ; } } $f = $a; } file_put_contents("out.txt", implode("
", $a ));

これは改善できると確信していますが、PHPでそれがどのように見えるか知りたいと思っていました。たぶん、これはもう少しコードゴルフの経験がある人を刺激するでしょう。

更新両方の引数に$ var = $ _SERVER ["argv"]ではなくlist（）を使用します。 ニースワンドン
更新済み + =と-=これは私に/ facepalmを作りました
更新済み file_put_contents（）を使用するためのファイル出力Donによる別の優れたキャッチ
更新使用されていなかった変数$ qおよび$ wの初期化を削除

Inverse · Answer

c ++- 492 454 386

私の最初のコードゴルフ;）

#include<fstream> #define B(i,j)(b[i][j]=='X') int main(int i,char**v){for(int n=0;n<atoi(v[2]);++n){std::ifstream f(v[1]);v[1]="out.txt";char b[40][83];for(i=0;i<40;++i)f.getline(b[i],83);std::ofstream g("out.txt");g<<b[0]<<'
';for(i=1;i<39;++i){g<<'.';for(int j=1;j<79;++j){int k=B(i-1,j)+B(i+1,j)+B(i,j-1)+B(i,j+1)+B(i-1,j-1)+B(i+1,j+1)+B(i+1,j-1)+B(i-1,j+1);(B(i,j)&&(k<2||k>3))?g<<'.':(!B(i,j)&&k==3)?g<<'X':g<<b[i][j];}g<<".
";}g<<b[0]<<'
';}}

いくらか改訂されたバージョンで、ロジックの一部をテーブルルックアップといくつかの他のマイナーなトリックに置き換えます。

#include<fstream> #define B(x,y)(b[i+x][j+y]=='X') int main(int i,char**v){for(int n=0;n<atoi(v[2]);++n){std::ifstream f(v[1]);*v="out.txt";char b[40][83], O[]="...X.....";for(i=0;i<40;++i)f>>b[i];std::ofstream g(*v);g<<b[0]<<'
';for(i=1;i<39;++i){g<<'.';for(int j=1;j<79;++j){O[2]=b[i][j];g<<O[B(-1,0)+B(1,0)+B(0,-1)+B(0,1)+B(-1,-1)+B(1,1)+B(1,-1)+B(-1,1)];}g<<".
";}g<<b[0]<<'
';}}

PaulHurleyuk · Answer

R 340文字

cgc<-function(i="in.txt",x=100){ require(simecol) z<-file("in.txt", "rb") y<-matrix(data=NA,nrow=40,ncol=80) for(i in seq(40)){ for(j in seq(80)){ y[i,j]<-ifelse(readChar(z,1) == "X",1,0) } readChar(z,3) } close(z) init(conway) <- y times(conway)<-1:x o<-as.data.frame(out(sim(conway))[[100]]) write.table(o, "out.txt", sep="", row.names=FALSE, col.names=FALSE) } cgc()

実際のオートマトンを実行するアドインパッケージを使用するのは少しごまかしだと思いますが、1の代わりに「X」を使用してファイルを読み取るために、マトリックスやスタッフを使ってスラッシュしなければなりませんでした。

これは私の最初の「コードゴルフ」です、面白い...

Bogdev · Answer

Perl – 214文字

まだ、Perlエントリはまだありませんか？

$i=pop;@c=<>;@c=map{$r=$_;$u='';for(0..79) {$K=$_-1;$R=$r-1;$u.=((&N.(&N^"\0\W\0").&N)=~y/X// |(substr$c[$r],$_,1)eq'X')==3?'X':'.';}$u}keys@c for(1..$i); sub N{substr$c[$R++],$K,3}open P,'>','out.txt';$,=$/;print P@c

次で実行：

conway.pl infile #times

Robert · Answer

別のJava試行、361文字

class L{public static void main(final String[]a)throws Exception{new Java.io.RandomAccessFile("out.txt","rw"){{int e=88,p[]={-1,1,-80,80,-81,81,-82,82},s=3240,l=0,i=new Byte(a[1])*s+s,c;char[]b=new char[s];for(new Java.io.FileReader(a[0]).read(b);i>0;seek(l=++l%s),i--){c=b[l];for(int n:p)c+=l+n>=0&l+n<s?b[l+n]/e:0;write(c>13?(c==49|(c|1)==91?e:46):10);}}};}}

そしてもう少し読みやすい

class L { public static void main(final String[]a) throws Exception { new Java.io.RandomAccessFile("out.txt","rw"){{ int e=88, p[]={-1,1,-80,80,-81,81,-82,82},s=3240,l=0,i=new Byte(a[1])*s+s,c; char[] b = new char[s]; for (new Java.io.FileReader(a[0]).read(b);i>0;seek(l=++l%s),i--) { c=b[l]; for (int n:p) c+=l+n>=0&l+n<s?b[l+n]/e:0; write(c>13?(c==49|(c|1)==91?e:46):10); } }}; } }

Molehillのバージョンとよく似ています。別のFileWriterを使用して、追加の変数なしでセルの隣接セルをカウントしようとしました。残念ながら、RandomAccessFileはかなり長い名前であり、ファイルアクセスモードを渡す必要があります。

OlivierH · Answer

Rust-469文字ここに投稿する必要があるかどうかわからない（この投稿は3歳です）とにかく、これを試してみるRust（ 0.9）：

use std::io::fs::File;fn main(){ let mut c=File::open(&Path::new(std::os::args()[1])).read_to_end(); for _ in range(0,from_str::<int>(std::os::args()[2]).unwrap()){ let mut b=c.clone();for y in range(0,40){for x in range(0,80){let mut s=0; for z in range(x-1,x+2){for t in range(y-1,y+2){ if z>=0&&t>=0&&z<80&&t<40&&(x !=z||y !=t)&&c[t*81+z]==88u8{s +=1;}}} b[y*81+x]=if s==3||(s==2&&c[y*81+x]==88u8){88u8} else {46u8};}}c = b;} File::create(&Path::new("out.txt")).write(c);}

興味がある人のために、これはいくつかの積極的なゴルフの前のコードです：

use std::io::fs::File; fn main() { let f = std::os::args()[1]; let mut c = File::open(&Path::new(f)).read_to_end(); let n = from_str::<int>(std::os::args()[2]).unwrap(); for _ in range(0,n) { let mut new = c.clone(); for y in range(0,40) { for x in range(0,80) { let mut sum = 0; for xx in range(x-1,x+2){ for yy in range(y-1,y+2) { if xx >= 0 && yy >= 0 && xx <80 && yy <40 && (x != xx || y != yy) && c[yy*81+xx] == 88u8 { sum = sum + 1; } } } new[y*81+x] = if sum == 3 || (sum == 2 && c[y*81+x] == 88u8) {88u8} else {46u8}; } } c = new; } File::create(&Path::new("out.txt")).write(c); }

redestructa · Answer

このhtmlファイルを使用することをお勧めします。ファイル入力はありませんが、仕事をするテキストエリアです！いくつかのhtmlと初期化および変数もあります。メインルーチンは235文字のみです。これはJSを手で縮小したものです。

<!DOCTYPE html> <html><body><textarea id="t" style="width:600px;height:600px;font-family:Courier"> </textarea></body><script type="text/javascript">var o,c,m=new Array(3200), k=new Array(3200),y,v,l,p;o=document.getElementById("t");for(y=0;y<3200;y++) {m[y]=Math.random()<0.5;}setInterval(function(){p="";for(y=0;y<3200;y++){c=0; for(v=-1;v<2;v+=2){c+=m[y-1*v]?1:0;for(l=79;l<82;l++)c+=m[y-l*v]?1:0;} k[y]=c==3||m[y]&&c==2;}p="";for(y=0;y<3200;y++){p+=(y>0&&y%80==0)?"
":""; m[y]=k[y];p+=(m[y]?"O":"-");}o.innerHTML=p;},100);</script></html>

dbasnett · Answer

古典的なパターンの1つ

*** ..* .*

私のアバターは、次のパターンとルールを使用して、私のバージョンのGame of Lifeを使用して作成されました（23/3ではないことに注意してください）。

#D Thanks to my daughter Natalie #D Try at cell size of 1 #R 8/1 #P -29 -29 .********************************************************* *.*******************************************************.* **.*****************************************************.** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** ****************************.*.**************************** *********************************************************** ****************************.*.**************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** *********************************************************** **.*****************************************************.** *.*******************************************************.* .*********************************************************

私見-私がコンウェイの人生ゲームを学んだように、トリックは短いコードを書くのではなく、複雑な生命体をすばやく実行できるコードでした。上記の古典的なパターンと594,441セルのラップされた世界を使用して、私が今までにできることは約1,000世代/秒でした。

別の単純なパターン

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

そしてグライダー

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

コードゴルフ：コンウェイの人生ゲーム

Perl、127 129 135 チャー

Mathematica- 179163154 151文字

MATLAB 7.8.0（R2009a）- 174171161150138131128 124文字

追加の課題：ツイート可能なGIFメーカー-136文字

改善点

Ruby 1.9- 189178159155 153文字

Python-282文字

Python 2.x-210/234文字

Haskell- 284272 232文字

Java、 441 ... 346

F＃、496

428

C-300

Javascript/Node.js-233 236 キャラクター

Java、 556532517496472433428420418 381文字

PHP- 365328 322文字。

c ++- 492454 386

Perl – 214文字