September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Sorting-algorithms-Bubble-sort/Elena/sorting-algorithms-bubble-sort.elena
+++ b/Task/Sorting-algorithms-Bubble-sort/Elena/sorting-algorithms-bubble-sort.elena
@ -0,0 +1,34 @@
+import system'routines.
+import extensions.
+
+extension $op
+{
+    bubbleSort
+    [
+        var list := self clone.
+
+        bool madeChanges := true.
+        int itemCount := list length.
+        while (madeChanges)
+        [
+            madeChanges := false.
+            itemCount -= 1.
+            0 till:itemCount do(:i)
+            [
+                if (list[i] > list[i + 1])
+                [
+                    list exchange(i,i+1).
+                    madeChanges := true.
+                ]
+            ]
+        ].
+
+        ^ list
+    ]
+}
+
+program =
+[
+    var list := (3, 7, 3, 2, 1, -4, 10, 12, 4).
+    console printLine(list bubbleSort).
+].