Skip to content

Instantly share code, notes, and snippets.

View tomcha's full-sized avatar

tomcha tomcha

11 followers · 15 following
View GitHub Profile
@tomcha
tomcha / shell_sort.pl
Created March 16, 2019 16:35
shell_sort
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use DDP { deparse => 1 };
my $time = time;
my @seeds;
@tomcha
tomcha / insert_sort.pl
Created March 16, 2019 16:34
insert_sort
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use DDP { deparse => 1 };
my @seeds;
for (1..100){
@tomcha
tomcha / bubble_sort.pl
Created March 16, 2019 16:33
bubble_sort
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use DDP { deparse => 1 };
my @seeds;
for (1..100){
@tomcha
tomcha / selection_sort.pl
Created March 16, 2019 16:32
selection_sort
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use DDP { deparse => 1 };
my @seeds;
for (1..100){
@tomcha
tomcha / min.pl
Created March 16, 2019 16:31
min
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use DDP { deparse => 1 };
my @seeds;
for (1..100){
@tomcha
tomcha / max.pl
Created March 16, 2019 16:31
max
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use DDP { deparse => 1 };
my @seeds;
for (1..100){
@tomcha
tomcha / average.pl
Created March 16, 2019 16:29
average
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use DDP { deparse => 1 };
my @seeds;
for (1..100){
@tomcha
tomcha / count.pl
Created March 16, 2019 16:29
count
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use DDP { deparse => 1 };
my @seeds;
for (1..100){
@tomcha
tomcha / sum.pl
Created March 16, 2019 16:28
sum
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use DDP { deparse => 1 };
my @seeds;
for (1..100){
@tomcha
tomcha / binrary_search.pl
Created February 25, 2019 08:28
binrary_search
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use DDP { deparse => 1 };
my @seeds;
for (1..100){