Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
bubble_sort
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use DDP { deparse => 1 };
my @seeds;
for (1..100){
push(@seeds, int(rand(100)));
}
p @seeds;
my @endpoints = reverse(1..(scalar @seeds - 2));
for my $i (@endpoints){
for my $j (0..$i){
my $f = $seeds[$j];
my $s = $seeds[$j + 1];
if ($f > $s){
$seeds[$j] = $s;
$seeds[$j + 1] = $f;
}
}
}
p @seeds;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.