Largest five adjacent number: Difference between revisions

Content added Content deleted
Line 379: Line 379:
<lang Mathematica>Max[FromDigits /@ Partition[RandomInteger[{0, 9}, 1000], 5, 1]]</lang>
<lang Mathematica>Max[FromDigits /@ Partition[RandomInteger[{0, 9}, 1000], 5, 1]]</lang>


{{out}}<pre>
{{out}}<pre>99954</pre>
99954
</pre>


=={{header|Nim}}==
=={{header|Nim}}==