develooper Front page | perl.perl6.users | Postings from June 2018

Re: need sort help

Thread Previous | Thread Next
From:
ToddAndMargo
Date:
June 9, 2018 03:52
Subject:
Re: need sort help
Message ID:
98cfaae2-006d-5878-f1b2-7548484d9f38@zoho.com
On 06/08/2018 07:00 PM, Brent Laabs wrote:
> let me revise that
> 
> @x.sort: {
>    my $a = $^a ~~ m:g/\d+/;
>    my $b = $^b ~~ m:g/\d+/;
>    $a[6].defined cmp $b[6].defined
>    ??
>      $a[3] cmp $b[3]
>    || $a[1] cmp $b[1]
>    || $a[2] cmp $b[2]
>    || $a[4] cmp $b[4]
>    || $a[5] cmp $b[5]
>    || $a[6] cmp $b[6]
>    || $^a cmp $^b
>    !! $^a cmp $^b
> };
> 


$   ls | perl6 -e 'my @x=slurp(); @x.sort: { my $a = $^a ~~ m:g/\d+/;my 
$b = $^b ~~ m:g/\d+/;$a[6].defined cmp $b[6].defined ?? $a[3] cmp $b[3] 
|| $a[1] cmp $b[1] || $a[2] cmp $b[2] || $a[4] cmp $b[4]  || $a[5] cmp 
$b[5]  || $a[6] cmp $b[6] || $^a cmp $^b !! $^a cmp $^b a cmp $^b' $^a 
cmp $^b
===SORRY!=== Error while compiling -e
Redeclaration of symbol '$^a' as a placeholder parameter
at -e:1
------> my @x=slurp(); @x.sort: { my $a = $^a⏏ ~~ m:g/\d+/; my $b = $^b 
~~ m:g/\d+/;$a

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About