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-Permutation-sort/Arturo/sorting-algorithms-permutation-sort.arturo
+++ b/Task/Sorting-algorithms-Permutation-sort/Arturo/sorting-algorithms-permutation-sort.arturo
@ -0,0 +1,17 @@
+sorted?: function [arr][
+    previous: first arr
+
+    loop slice arr 1 (size arr)-1 'item [
+        if not? item > previous -> return false
+        previous: item
+    ]
+    return true
+]
+
+permutationSort: function [items][
+    loop permutate items 'perm [
+        if sorted? perm -> return perm
+    ]
+]
+
+print permutationSort [3 1 2 8 5 7 9 4 6]