Re: quicksort implementation

Did you try?

perl -e 'my $ar = join( ",",sort(1,5,2,3,4) );print "[$ar];\n";'
[download]

A lot less code and it's 100% perl!

"Well done is better than well said." - Benjamin Franklin

Comment on Re: quicksort implementation Download Code

Replies are listed 'Best First'.
Re^2: quicksort implementation by ram (Initiate) on Oct 05, 2011 at 15:18 UTC
hello flexvault I was trying to implement this one as our perl destro doesnt have in build sort thanks	[reply]
Re^3: quicksort implementation by davido (Cardinal) on Oct 05, 2011 at 17:18 UTC
What? So if you say `perl -e 'print qq/$_\n/ for sort qw/c a d b n f/'` what do you get? Dave	[reply] [d/l]
Re^4: quicksort implementation by Anonymous Monk on Oct 06, 2011 at 04:52 UTC
its a totally skewed distro i dont have sort -ram(haent logged in)	[reply]
Re^5: quicksort implementation by davido (Cardinal) on Oct 06, 2011 at 07:55 UTC
Re^5: quicksort implementation by choroba (Cardinal) on Oct 06, 2011 at 07:23 UTC
Re^3: quicksort implementation by choroba (Cardinal) on Oct 05, 2011 at 16:02 UTC
What kind of Perl do you have?!	[reply]