Largest five adjacent number: Difference between revisions
Content added Content deleted
No edit summary |
(add RPL) |
||
Line 782: | Line 782: | ||
The smallest number is: |
The smallest number is: |
||
00118 |
00118 |
||
</pre> |
|||
=={{header|RPL}}== |
|||
RPL can not handle 1000-digit numbers, so we use a 1000-digit string. |
|||
≪ "" |
|||
1 1000 '''START''' RAND 9 * 0 RND →STR + '''NEXT''' |
|||
{ -99999 0 } |
|||
1 3 PICK SIZE 4 - '''FOR''' j |
|||
OVER j DUP 4 + SUB |
|||
STR→ NEG LASTARG 2 →LIST MAX |
|||
'''NEXT''' ABS |
|||
≫ '<span style="color:blue>TASK</span>' STO |
|||
{{out}} |
|||
<pre> |
|||
2: "46725324552811522… |
|||
1: { 198 99886 } |
|||
</pre> |
</pre> |
||