7 lines
247 B
Text
7 lines
247 B
Text
#import std
|
|
|
|
rule = case~&l\~&l {`H: `t!, `t: `.!,`.: @r ==`H*~; {'H','HH'}?</`H! `.!}
|
|
|
|
neighborhoods = ~&thth3hthhttPCPthPTPTX**K7S+ swin3**+ swin3@hNSPiCihNCT+ --<0>*+ 0-*
|
|
|
|
evolve "n" = @iNC ~&x+ rep"n" ^C\~& rule**+ neighborhoods@h
|