aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Task/Sorting-algorithms-Bubble-sort/Mathematica/sorting-algorithms-bubble-sort-1.math Normal file
View file

@ -0,0 +1,3 @@
bubbleSort[{w___, x_, y_, z___}] /; x > y := bubbleSort[{w, y, x, z}]
bubbleSort[sortedList_] := sortedList
bubbleSort[{10, 3, 7, 1, 4, 3, 8, 13, 9}]

17
Task/Sorting-algorithms-Bubble-sort/Mathematica/sorting-algorithms-bubble-sort-2.math Normal file
View file

@ -0,0 +1,17 @@
ClearAll[BubbleSort]
BubbleSort[in_List] := Module[{x = in, l = Length[in], swapped},
swapped = True;
While[swapped,
swapped = False;
Do[
If[x[[i]] > x[[i + 1]],
x[[{i, i + 1}]] //= Reverse;
swapped = True;
]
,
{i, l - 1}
];
];
x
]
BubbleSort[{1, 12, 3, 7, 2, 8, 4, 7, 6}]