Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re: Quicksort problem

by BrowserUk (Pope)
on Nov 22, 2011 at 05:49 UTC ( #939370=note: print w/ replies, xml ) Need Help??

in reply to Quicksort problem

If you add print "@_"; to the top of your sub, you'll see the problem.

Even when @less, @great and $pivot are empty, you still recurse.

Changing your first line to: my $pivot=pop // return; will allow the recursion to terminate.

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
Comment on Re: Quicksort problem
Select or Download Code
Replies are listed 'Best First'.
Re^2: Quicksort problem
by JediMasterT (Sexton) on Nov 22, 2011 at 13:49 UTC

    how does the // part work?

      See perlop. The // operator essentially is a special or operator where it is testing the left hand side for definedness. I am pretty sure this became available in perl 5.10 four years ago but you can check perlhist and perldelta if you want to be sure.

      Cheers - L~R

      If the left part is not defined, the right is returned, otherwise the left one is. See perlop.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://939370]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2016-05-30 08:05 GMT
Find Nodes?
    Voting Booth?