Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 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;