代码高尔夫:康威人生游戏
-
29-09-2019 - |
题
挑战: 编写实施John H. Conway的最短程序 生活游戏 蜂窝自动机。 [[关联]
编辑: 经过大约一周的比赛,我选择了一个胜利者: Pdehaan, ,通过设法击败MATLAB解决方案 一 带有perl的角色。
对于那些尚未听说过生活游戏的人,您可以使用广场细胞的网格(理想情况下)。细胞可以活着(填充)或死亡(空)。我们通过应用以下规则在下一步确定哪些单元格还活着:
- 任何少于两个现场邻居的活细胞死亡,就好像人口不足所致。
- 任何具有三个以上邻居的活细胞死亡,好像人满为患。
- 任何具有两个或三个活的邻居的活细胞都活在下一代。
- 任何恰好三个活的邻居的死细胞都会成为一个活细胞,好像是通过繁殖。
您的程序将在指定为命令行参数的40x80字符ASCII文本文件以及要执行的迭代次数(n)中读取。最后,它将输出到ASCII文件。
这是一个带有相关文件的示例:
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(如果存在的话,则覆盖)
- 你 别 需要处理董事会的边缘(环绕,无限网格.ETC)
- 编辑:你 做 需要在输出文件中使用新线。
获胜者将通过角色数来确定。
祝你好运!
解决方案
佩尔,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
其他提示
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]
动画片:
您还可以随着时间的推移获得平均人群的图表:
从 维基百科
AFAIK Mathematica使用蜂窝自动机生成随机数 使用 规则30。
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函数 能够 实际上是 使用命令行格式调用 (有一些限制)。你每天学习新的东西!
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个字符
我以为是为了娱乐,我会看看是否可以将输出转移到GIF文件而不是文本文件中,同时仍将角色计数保持在140以下(即“可推特”)。这是形成良好的代码:
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只是循环一次。也许这是一个已固定在MATLAB的新版本中的错误。因此,为了使动画持续更长的时间并使演变步骤更容易看到,我将帧延迟留在默认值(似乎大约是半秒之左)。这是使用GIF输出 gosper滑翔机枪 图案:
改进
- 更新1: 更改了矩阵
b
从逻辑(即“布尔值”)到数值,以摆脱一些转换。 - 更新2: 缩短了加载文件的代码并使用了功能 魔法 作为以更少的字符创建卷积内核的诀窍。
- 更新3: 简化了索引逻辑,替换
~~b+0
和b/42
, ,然后更换'same'
和's'
作为争论 conv2 (而且令人惊讶的是仍然有效!)。 - 更新4: 我想我应该先在网上搜索,因为 洛伦 来自数学 博客关于打高尔夫球和生活游戏 今年早些时候。我合并了那里讨论的一些技术,这些技术需要我更改
b
返回逻辑矩阵。 - 更新5: 一种 来自Aslak Grinsted的评论 在上面提到的博客文章中,建议逻辑和执行卷积的更短的算法(使用功能 过滤器2),所以我“合并”(读为“复制”)他的建议。 )
- 更新6: 从初始化中修剪了两个字符
b
并在循环中重新设计逻辑以节省1个其他字符。 - 更新7: 埃里克·桑普森(Eric Sampson)在电子邮件中指出我可以替换
cell2mat
和char
, ,保存4个字符。谢谢埃里克!
红宝石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:
)如果您允许它在实时细胞到达边缘时驶向新线。
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\n'[(k in B)-(k%81<1)]for k in R))
Python 2.x -210/234字符
好的,210个字符的代码有点作弊。
#coding:l1
exec'xÚ=ŽA\nÂ@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('\n'.join(e))
对不起水平滚动,但是上述所有新线都是必需的,我将它们视为一个字符。
我不会尝试阅读高尔夫代码。随机选择变量名称以达到最佳压缩。是的,我是认真的。一个更好的版本和评论版本如下:
# 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('\n'.join(data))
抱歉,毕曲尼斯塔斯(Pythonistas)的c式支架格式,但我试图清楚地说明每个支架正在关闭。
哈斯克尔 - 284 272 232个字符
import System
main=do f:n:_<-getArgs;s<-readFile f;writeFile"out.txt"$t s$read n
p '\n'_='\n'
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
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%。我忍不住感觉到我通过使用2D阵列/串线而不是1D数组而失去了我的失败,但现在不想做到这一点。请注意我如何优雅地阅读文件3200次以初始化我的数组:)
红宝石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
新线很重要(尽管可以将所有内容都替换为Semicolons。)
编辑: 修复了Newline问题,并修剪了3个字符。
爪哇, 441... 346
- 更新1 删除了内在的话,更丑陋
- 更新2 修复了一个错误并获得了角色
- 更新3 在忽略一些边界问题的同时,使用更多的内存和数组。大概可以保存一些字符。
- 更新4 保存了几个字符。感谢Balusc。
- 更新5 一些较小的更改要低于400,并使其变得更加丑陋。
- 更新6 现在,事情是如此的硬编码,也可以一口气地读取确切的数量。加上更多节省。
- 更新7 将写作链接到文件以保存字符。加上一些奇数。
只是玩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();
}
}
Scala- 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}}
以下解决方案使用我自己的自定义域特异性编程语言,我称之为null:
3499538
如果您想知道这是如何工作的:我的语言仅包含每个程序的陈述。该语句代表属于代码高尔夫线程的堆叠线线程ID。我的编译器将其编译成一个程序,该程序查找最佳的JavaScript解决方案(使用SO API),将其下载并在Web浏览器中运行。
对于新线程来说,运行时可能会更好(首先投票的JavaScript答案可能需要一些时间),但是从好的方面来说,它仅需很少的编码技能即可。
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)
C -300
只是想知道我的Java解决方案可以在C中较小和丑陋,包括预处理器零件的新线,还可以减少300个。离开记忆到操作系统!可以通过假设操作系统也可以关闭并冲洗文件来节省约20。
#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);
}
腮腺炎: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
爪哇, 556 532 517 496 472 433 428 420 418 381个字符
更新1: :替换第一
StringBuffer
经过Appendable
和第二char[]
. 。保存了24个字符。更新2: 找到了一种较短的读取文件的方法
char[]
. 。保存了15个字符。更新3: 替换一个
if/else
经过?:
并合并char[]
和int
声明。保存了21个字符。更新4: 更换
(int)f.length()
和c.length
经过s
. 。保存了24个字符。更新5: 根据Molehill的提示进行了改进。少校正在硬编码炭长度,以便我可以摆脱
File
. 。保存了39个字符。更新6: 小重构。保存了6个字符。
更新7: 更换
Integer#valueOf()
经过new Integer()
并重构进行循环。保存了8个字符。更新8: 改进的邻居计算。保存了2个字符。
更新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
代替 '.'
, ,但是Javac和Eclipse抽搐的汇编错误 可能失去精度. 。怪异的东西。
注意:这期望一个输入文件 \n
新线,不是 \r\n
默认使用Windows!
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("\n", $a ));
我敢肯定,这可以改善,但我很好奇PHP的外观。也许这会激发有更多代码高尔夫体验的人。
- 更新 使用list()而不是$ var = $ _server [“ argv”]。 很好的唐
- 更新 += and - =这让我 /facepalm heh不能相信我错过了
- 更新 文件输出用于使用file_put_contents() 唐的另一个好接球
- 更新 删除了vars $ q和$ w的初始化,它们没有被使用
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()
我觉得有一个添加的软件包为您提供实际的自动机是有些作弊的,但是我继续使用它,我仍然不得不使用矩阵和东西来敲打文件中的“ x”,而不是1。
这是我的第一个“代码高尔夫球”,很有趣。
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]<<'\n';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<<".\n";}g<<b[0]<<'\n';}}
一个有些修订版的版本,用表格查找+其他一些小技巧代替某些逻辑:
#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]<<'\n';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<<".\n";}g<<b[0]<<'\n';}}
PERL - 214个chars
什么,还没有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
另一次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的版本非常相似。我尝试使用其他文件作者,并在没有其他变量的情况下计算单元格的邻居。很遗憾, RandomAccessFile
是一个很长的名称,需要通过文件访问模式。
生锈 - 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);
}
étvoilà您可能想使用此HTML文件。没有文件输入,而是一个可以完成工作的文本!还有一些HTML和启动和VAR。主要例程只有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)?"\n":"";
m[y]=k[y];p+=(m[y]?"O":"-");}o.innerHTML=p;},100);</script></html>
经典模式之一
***
..*
.*
我的头像是使用我使用此模式和规则的生活游戏版本创建的(请注意,它不是23/3):
#D Thanks to my daughter Natalie
#D Try at cell size of 1
#R 8/1
#P -29 -29
.*********************************************************
*.*******************************************************.*
**.*****************************************************.**
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
****************************.*.****************************
***********************************************************
****************************.*.****************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
***********************************************************
**.*****************************************************.**
*.*******************************************************.*
.*********************************************************
恕我直言 - 当我学会了康威的生活游戏时,技巧不是编写简短的代码,而是可以快速制作复杂生活形式的代码。使用上面的经典图案和594,441个细胞包裹的世界,我能做的最好的方法是大约1000代 /秒。
另一个简单的模式
**********
.
................*
.................**
................**.......**********
和滑翔机
........................*...........
......................*.*...........
............**......**............**
...........*...*....**............**
**........*.....*...**..............
**........*...*.**....*.*...........
..........*.....*.......*...........
...........*...*....................
............**......................