Re: I need help sorting a list

[ToddAndMargo via perl6-users]

On 2020-05-24 13:13, Tobias Boege wrote:
On Sun, 24 May 2020, ToddAndMargo via perl6-users wrote:
On 2020-05-24 02:24, Elizabeth Mattijsen wrote:
dd <a1 a2 a33 a111>.sort: { m/ \d+ $/ }

Hi Elizabeth,

This seems to work:

    $ raku -e 'dd <a5 a6 a33 a111>.sort: { m/ \d+ $/ };'
    ("a5", "a6", "a33", "a111").Seq


But I can't figure out how to get it into an array:

    $ raku -e 'my @x=<a5 a2 a123 a133 a1>.sort: { m/ \d+ $/ }; for @x { say
$_; }'
    a5
    a2
    a123
    a133
    a1


I think getting it into an array is not the problem, you did the
right thing by assigning the Seq into @x. The sort characteristic
that Liz used, { m/ \d+ $/ }, doesn't do the right thing (at least
for me). I cannot tell you why it is an apparent no-op, though.

Converting the extracted Match to an Int does work:

   $ raku -e 'my @x = <a5 a2 a123 a133 a1 a22>.sort: { +m/ \d+ $/ }; dd @x'
   Array @x = ["a1", "a2", "a5", "a22", "a123", "a133"]

Regards,
Tobias



Hi Tobias,

$ raku -e 'my @x = <a5 a2 a155 a133 a1 a22>.sort: { +m/ \d+ $/ }; dd @x; 
for @x {say $_;}'
Array @x = ["a1", "a2", "a5", "a22", "a133", "a155"]
a1
a2
a5
a22
a133
a155


Yippee!!!

Thank you!
-T