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-Pancake-sort/Transd/sorting-algorithms-pancake-sort.transd
+++ b/Task/Sorting-algorithms-Pancake-sort/Transd/sorting-algorithms-pancake-sort.transd
@ -0,0 +1,17 @@
+#lang transd
+
+MainModule: {
+    vint: [ 9, 0, 5, 10, 3, -3, -1, 8, -7, -4, -2, -6, 2, 4, 6, -10, 7, -8, -5, 1, -9],
+
+    _start: (λ (with n (- (size vint) 1) m 0
+        (textout vint "\n")
+        (while n
+            (= m (max-element-idx vint Range(0 (+ n 1))))
+            (if (neq m n)
+                (if m (reverse vint Range(0 (+ m 1))))
+                (reverse vint Range(0 (+ n 1))))
+            (-= n 1)
+        )
+        (textout vint "\n")
+    ))
+}