Initial data commit

Task/Priority-queue/Perl/priority-queue-1.pl

@@ -0,0 +1,15 @@
+use strict;
+use warnings;
+use feature 'say';
+use Heap::Priority;
+
+my $h = Heap::Priority->new;
+
+$h->highest_first(); # higher or lower number is more important
+$h->add(@$_) for ["Clear drains",   3],
+     ["Feed cat",     4],
+     ["Make tea",     5],
+     ["Solve RC tasks", 1],
+     ["Tax return",     2];
+
+say while ($_ = $h->pop);

Task/Priority-queue/Perl/priority-queue-2.pl

@@ -0,0 +1,31 @@
+use strict;
+use warnings; # in homage to IBM card sorters :)
+
+my $data = <<END;
+Priority    Task
+  3        Clear drains
+  4        Feed cat
+  5        Make tea
+  1        Solve RC tasks
+  2        Tax return
+  4        Feed dog
+END
+
+insert( $1, $2 ) while $data =~ /(\d+)\h+(.*)/g; # insert all data
+
+while( my $item = top_item_removal() ) # get in priority order
+  {
+  print "$item\n";
+  }
+
+######################################################################
+
+my @bins; # priorities limited to small (<1e6 maybe?) non-negative integers
+
+sub insert { push @{ $bins[shift] }, pop }        # O(1)
+
+sub top_item_removal                              # O(1) (sort of, maybe?)
+  {
+  delete $bins[-1] while @bins and @{ $bins[-1] // [] } == 0;
+  shift @{ $bins[-1] // [] };
+  }