Anonymous user
Largest five adjacent number: Difference between revisions
→{{header|Wren}}
(added pascal) |
|||
Line 125:
{{out}}
<pre>99889 found as largest 5 digit number </pre>
=={{header|Perl}}==
<lang perl>#!/usr/bin/perl
use strict; # https://rosettacode.org/wiki/Largest_five_adjacent_number
use warnings;
$_ = join '', map int rand 10, 1 .. 1e3;
my @n;
$n[$1] = $1 while /(?=(\d{5}))/g;
print "$n[-1]\n";</lang>
{{out}}
<pre>
99958
</pre>
=={{header|Wren}}==
{{libheader|Wren-fmt}}
| |||