/ wolfram boolean hexagonal automaton / coxe and reiter, http://www.vector.org.uk/v193/cons193.htm pad:{1!(2#,&2+*|^x),0,'x,'0} U:+|100 pad/,,1 \l gbox adj:{(r'r@;r'l@;l'r@;l'l@;l';r';r:-1!;l:1!)@\:x} alt:{@[x;!4;*;(::;::;~:;~:)@\:(!(^x)1)!2]} next:{x|1=+/alt adj x} double:2(+,/(2#,:)')/ shift:{((#x)#&2#2)!'x} N:10 G:0 Next:"do[N;U:next U];G+:N" Next..c:`button A..d:"gbox U" A..c:`plot A..l:"Snowflake" .k..c:`form .k..l..d:"$.k.G" .k..a:,`Next`N `show$`A; `show$`.k;