Elementary cellular automaton/Random number generator: Difference between revisions
Content added Content deleted
(Added Wren) |
No edit summary |
||
Line 346: | Line 346: | ||
220 197 147 174 117 97 149 171 100 151 |
220 197 147 174 117 97 149 171 100 151 |
||
</pre> |
</pre> |
||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
|||
<lang Mathematica>FromDigits[#, 2] & /@ Partition[Flatten[CellularAutomaton[30, {{1}, 0}, {200, 0}]], 8]</lang> |
|||
{{out}} |
|||
<pre>{220, 197, 147, 174, 117, 97, 149, 171, 240, 241, 92, 18, 199, 27, 104, 8, 251, 167, 29, 112, 100, 103, 159, 129, 253}</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |