Largest five adjacent number: Difference between revisions
Content added Content deleted
| Line 377: | Line 377: | ||
</pre> |
</pre> |
||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
||
<lang Mathematica> |
<lang Mathematica>MinMax[FromDigits /@ Partition[RandomInteger[{0, 9}, 1000], 5, 1]]</lang> |
||
{{out}}<pre> |
{{out}}<pre>{104,99984}</pre> |
||
=={{header|Nim}}== |
=={{header|Nim}}== |
||