Initial data commit

Task/Sorting-algorithms-Patience-sort/Sidef/sorting-algorithms-patience-sort.sidef

@@ -0,0 +1,23 @@
+func patience(deck) {
+  var stacks = [];
+  deck.each { |card|
+    given (stacks.first { card < .last }) { |stack|
+      case (defined stack) {
+        stack << card
+      }
+      default {
+        stacks << [card]
+      }
+    }
+  }
+
+  gather {
+    while (stacks) {
+      take stacks.min_by { .last }.pop
+      stacks.grep!{ !.is_empty }
+    }
+  }
+}
+
+var a = [4, 65, 2, -31, 0, 99, 83, 782, 1]
+say patience(a)