tasks a-s

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

@@ -0,0 +1,14 @@
+use 5.10.0;
+use strict;
+use Heap::Priority;
+
+my $h = new Heap::Priority;
+
+$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,5 @@
+Make tea
+Feed cat
+Clear drains
+Tax return
+Solve RC tasks