Re: Simple bubble sort


more useful options
	PerlMonks

Re: Simple bubble sort

by clintp (Curate)

on Sep 20, 2001 at 05:45 UTC ( [id://113512]=note: print w/replies, xml )

Need Help??

in reply to Simple bubble sort

I'll let the others lecture you about bubble sorts. Lemme take this opportunity to show you something cool in Perl. See this code of yours:

     my $temp = @$array[$index + 1];
     @$array[$index + 1] = @$array[$index];
     @$array[$index] = $temp;
[download]

Things that follow the form:

     t=a;
     a=b;
     b=t;
[download]

Can be reduced in Perl to:

     (a,b)=(b,a);
[download]

So shorten that block of code to:

 ($array->[$i+1],$array->[$i])=
         ($array->[$i],$array->[$i+1]);
[download]

Comment on Re: Simple bubble sort Select or Download Code

Replies are listed 'Best First'.

Re: Re: Simple bubble sort
by blakem (Monsignor) on Sep 20, 2001 at 09:22 UTC

@$array[$i,$i+1] = @$array[$i+1,$i];
[download]

#!/usr/bin/perl -wT
use strict;

my $arrayref = ['A','B','C','D'];
print "Before: ", join(' ',@$arrayref), "\n";

@$arrayref[1,2] = @$arrayref[2,1];         # assign into an array slic
+e

print "After : ", join(' ',@$arrayref), "\n";

=output
Before: A B C D
After : A C B D
[download]

-Blake

[reply]
[d/l]
[select]

In Section Cool Uses for Perl