Re: I need sorting help

On 3/4/24 12:40, Ralph Mellor wrote:
> On Sat, Mar 2, 2024 at 6:26 AM ToddAndMargo via perl6-users
> <[email protected]> wrote:
>>
>> @Sorted_List = @Sorted_List.sort: { .comb(/ \d+ | \D+ /) .map({ .Int // .self })};
> 
> In case another answer is helpful...
> 
> First, a simplified sort that produces the same
> result as your code above:
> 
> @Sorted_List .= sort: *.match: / \d+ /;
> 
> I can explain that in a later comment if you want, but it's
> all stuff I recall you figuring out in the past, so for now I'll
> just move on to address the change you wanted.
> 
> The problem you had was that sort defaults to a string sort.
> In string sorting 1, 10, 2 are already sorted, but you instead
> want numeric order, which sorts those three into 1, 2, 10.
> 
> To do that, coerce the sort value to numeric by inserting a `+`:
> 
> @Sorted_List .= sort: +*.match: / \d+ /;
> 
> --
> love, raiph


$ raku -e '.say for <bk10 bk34 bk2 bk1>.sort(*.split(/\d+/, :kv).map({ 
(try .Numeric) // $_}).List)'
bk1
bk2
bk10
bk34

Yippee!


tony@rn6:/home/linuxutil1$ raku -e '.say for <bk10 bk34 bk2 bk1>.sort: { 
.comb(/ \d+ | \D+ /) .map({ .Int // .self })};'
bk1
bk10
bk2
bk34

Rats!  Thank for trying anyway!

-- 
love, todd