Re: Fastest way to sort a list of integers into 0,1,2,3,-3,-2,-1

in reply to Fastest way to sort a list of integers into 0,1,2,3,-3,-2,-1

yay.. did I do this right

    td => sub {
        my @out;
        my $q     = POE::Queue::Array->new;
        my @list = ( -52, -50 .. 50, 52, 0 );
        push @out,($_,$_[2]) for $q->dequeue_next;
        Compare(\@out,\@output) or die "@out" if DO_CHECK;
    }
[download]

Comment on Re: Fastest way to sort a list of integers into 0,1,2,3,-3,-2,-1 Download Code

Replies are listed 'Best First'.
Re^2: Fastest way to sort a list of integers into 0,1,2,3,-3,-2,-1 by trippledubs (Deacon) on Feb 06, 2019 at 20:29 UTC
not quite.. I'm trying to use a priority queue and queue with the right sorting priority, but it's coming up wrong so far	[reply]

In Section Seekers of Perl Wisdom