all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Sorting-algorithms-Bead-sort/Perl/sorting-algorithms-bead-sort.pl
+++ b/Task/Sorting-algorithms-Bead-sort/Perl/sorting-algorithms-bead-sort.pl
@ -0,0 +1,16 @@
+sub beadsort {
+    my @data = @_;
+
+    my @columns;
+    my @rows;
+
+    for my $datum (@data) {
+        for my $column ( 0 .. $datum-1 ) {
+            ++ $rows[ $columns[$column]++ ];
+        }
+    }
+
+    return reverse @rows;
+}
+
+beadsort 5, 7, 1, 3, 1, 1, 20;