Largest five adjacent number: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
|||
| Line 375: | Line 375: | ||
julia> println("Maximum is $m at position $pos.") |
julia> println("Maximum is $m at position $pos.") |
||
Maximum is 99999 at position 763. |
Maximum is 99999 at position 763. |
||
</pre> |
|||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
|||
<lang Mathematica>Max[FromDigits /@ Partition[RandomInteger[{0, 9}, 1000], 5, 1]]</lang> |
|||
{{out}}<pre> |
|||
99954 |
|||
</pre> |
</pre> |
||