http://www.perlmonks.org?node_id=904022


in reply to Find Length Of Longest Ascending/Descending Sequence

My Perl 6 contribution: 
my $seq = "82665409266027476709324472";
my $diff = join "", map { ($^b - $^a) % 10 },
                        ($seq.comb Z $seq.comb.rotate);
my $longest = $diff.comb(/9+ | 1+/, :match).max({.to - .from});
say $seq.substr($longest.from, $longest.to - $longest.from + 1); # 654

[download]

In Section Seekers of Perl Wisdom