De Bruijn sequences: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 1,711: | Line 1,711: | ||
PIN number 8145 missing</pre> |
PIN number 8145 missing</pre> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica>seq = DeBruijnSequence[Range[0, 9], 4]; |
<lang Mathematica>seq = DeBruijnSequence[Range[0, 9], 4]; |
||
seq = seq~Join~Take[seq, 3]; |
seq = seq~Join~Take[seq, 3]; |