Sorting algorithms/Cocktail sort: Difference between revisions
m
→{{header|Wren}}: Changed to Wren S/H
ReeceGoding (talk | contribs) m (→{{header|R}}: Syntax improvement.) |
m (→{{header|Wren}}: Changed to Wren S/H) |
||
(8 intermediate revisions by 5 users not shown) | |||
Line 36:
{{trans|Python}}
<
L
L(indices) ((0 .< A.len-1).step(1), (A.len-2 .. 0).step(-1))
Line 49:
V test1 = [7, 6, 5, 9, 8, 4, 3, 1, 2, 0]
cocktailSort(&test1)
print(test1)</
{{out}}
Line 59:
{{trans|PL/I}}
The program uses HLASM structured macros (DO,ENDDO,IF,ELSE,ENDIF) for readability and two ASSIST/360 macros (XDECO,XPRNT) to keep the code as short as possible.
<
COCKTSRT CSECT
USING COCKTSRT,R13 base register
Line 129:
YREGS
RI EQU 6 i
END COCKTSRT</
{{out}}
<pre>
Line 136:
=={{header|6502 Assembly}}==
Implemented in Easy6502. Output is provided below but it's best to watch this in action. Just copy and paste the code in, hit Assemble then Run. Make sure you check the Monitor box and set the address to 1200 and the length to 100. This takes about half as long as the bubble sort.
<
define z_L $00
define z_H $01
Line 226:
JMP COCKTAILSORT
doneSorting:
RTS</
{{out}}
Line 249:
=={{header|AArch64 Assembly}}==
{{works with|as|Raspberry Pi 3B version Buster 64 bits}}
<syntaxhighlight lang="aarch64 assembly">
/* ARM assembly AARCH64 Raspberry PI 3B */
/* program cocktailSort64.s */
Line 432:
.include "../includeARM64.inc"
</syntaxhighlight>
=={{header|Action!}}==
<
INT i
Line 502:
Test(c,8)
Test(d,12)
RETURN</
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Cocktail_Sort.png Screenshot from Atari 8-bit computer]
Line 528:
=={{header|ActionScript}}==
<
do {
var swapped:Boolean=false;
Line 552:
} while (swapped);
return input;
}</
=={{header|Ada}}==
<
procedure Cocktail_Sort_Test is
Line 591:
Cocktail_Sort(Data);
Put_Line(Data);
end Cocktail_Sort_Test;</
=={{header|ALGOL 60}}==
{{works with|A60}}
<
comment Sorting algorithms/Cocktail sort - Algol 60;
integer nA;
Line 651:
writetable(1,nA)
end
end </
{{out}}
<pre>
Line 659:
=={{header|ALGOL 68}}==
<
PROC swap = (REF DATA a,b)VOID:(
DATA tmp:=a; a:=b; b:=tmp
Line 691:
[32]CHAR data := "big fjords vex quick waltz nymph";
cocktail sort(data);
print(data)</
{{out}}
<pre> abcdefghiijklmnopqrstuvwxyz</pre>
Line 697:
indirectly, thus removing the need to actually swap large chunks of memory
as only addresses are swapped.
<
PROC swap = (REF DATA a,b)VOID:(
DATA tmp:=a; a:=b; b:=tmp
Line 708:
cocktail sort(ref data);
FOR i TO UPB ref data DO print(ref data[i]) OD; print(new line);
print((data))</
{{out}}<pre> abcdefghiijklmnopqrstuvwxyz
big fjords vex quick waltz nymph</pre>
The above two routines both scan the entire width of the array, in both directions, even though the first and last elements of each sweep had already reached their final destination during the previous pass. The solution is to zig-zag, but have the sweeps shorten and converge on the centre element. This reduces the number of comparisons required by about 50%.
<
FOR offset FROM 0 DO
BOOL swapped := FALSE;
Line 734:
OD;
break do od loop: SKIP
);</
=={{header|ALGOL W}}==
As noted in the ALGOL 68 sample above, the highest and lowest elements are sorted into their correct positions each time through the main loop.
This implementation optimises by reducing the number of elements to sort on each pass through the main loop.
<
% As algol W does not allow overloading, we have to have type-specific %
% sorting procedures - this coctail sorts an integer array %
Line 803:
writeData;
end test ;
end.</
{{out}}
<pre>
Line 811:
=={{header|ARM Assembly}}==
{{works with|as|Raspberry Pi}}
<syntaxhighlight lang="arm assembly">
/* ARM assembly Raspberry PI */
/* program cocktailSort.s */
Line 983:
.include "../affichage.inc"
</syntaxhighlight>
=={{header|Arturo}}==
<
if arr\[i] < arr\[i-1] [
tmp: arr\[i]
Line 1,013:
]
print cocktailSort [3 1 2 8 5 7 9 4 6]</
{{out}}
Line 1,021:
=={{header|AutoHotkey}}==
contributed by Laszlo on the ahk [http://www.autohotkey.com/forum/post-276379.html#276379 forum]
<
MsgBox % CocktailSort("xxx")
MsgBox % CocktailSort("3,2,1")
Line 1,052:
sorted .= "," . array%A_Index%
Return SubStr(sorted,2) ; drop leading comma
}</
=={{header|AWK}}==
Sort the standard input and print it to standard output
<
line[NR] = $0
}
Line 1,085:
print line[i]
}
}</
=={{header|BBC BASIC}}==
Sorting an integer array. '%' indicates integer variable in BBC BASIC
<
Start%=2
Line 1,107:
UNTIL ( ( End% * Direction% ) < ( Start% * Direction% ) )
ENDPROC</
=={{header|C}}==
<
// can be any swap function. This swap is optimized for numbers.
Line 1,148:
printf("%d ", a[i]);
return 0;
}</
'''Output''':
<syntaxhighlight lang="text">-4 -1 0 1 2 3 5 6 8 101</
===Generic version===
This version can be used with arrays of any type, like the standard library function qsort.
<
#include <stdio.h>
#include <string.h>
Line 1,219:
print(a, len);
return 0;
}</
{{out}}
Line 1,228:
=={{header|C sharp|C#}}==
<
{
bool swapped;
Line 1,263:
//if no elements have been swapped, then the list is sorted
} while (swapped);
}</
=={{header|C++}}==
<
#include <iostream>
#include <windows.h>
Line 1,347:
return 0;
}
</syntaxhighlight>
=== Alternate version ===
Uses C++11. Compile with
g++ -std=c++11 cocktail.cpp
<
#include <iostream>
#include <iterator>
Line 1,386:
copy(std::begin(a), std::end(a), std::ostream_iterator<int>(std::cout, " "));
std::cout << "\n";
}</
{{out}}
<pre>
Line 1,394:
=={{header|COBOL}}==
This is procedure division only.
<
C-000.
DISPLAY "SORT STARTING".
Line 1,431:
F-999.
EXIT.</
=={{header|Common Lisp}}==
This version works on lists and vectors alike. The vector implementation is coded directly. The list version uses an intermediate vector.
<
(labels ((scan (start step &aux swapped)
(loop for i = start then (+ i step) while (< 0 i len) do
Line 1,453:
(list (map-into sequence 'identity
(cocktail-sort-vector (coerce sequence 'vector)
predicate)))))</
=={{header|D}}==
<
module rosettaCode.sortingAlgorithms.cocktailSort;
Line 1,493:
["Alice", "Jane", "Joe", "John", "Kate", "Zerg"]);
}
</syntaxhighlight>
{{out}}
<syntaxhighlight lang="d">
import rosettaCode.sortingAlgorithms.cocktailSort;
Line 1,503:
//generate 10 sorted random numbers in [0 .. 10)
rndGen.take(10).map!(a=>a%10).array.cocktailSort.writeln();
}</
<pre>[2, 2, 3, 4, 5, 5, 7, 7, 7, 8]</pre>
Line 1,510:
Static array is an arbitrary-based array of fixed length
<
{$APPTYPE CONSOLE}
Line 1,573:
Writeln;
Readln;
end.</
{{out}}
<pre>
Line 1,581:
=={{header|E}}==
<
def cocktailSort(array) {
def swapIndexes := 0..(array.size() - 2)
Line 1,597:
}
}
}</
Note that this solution contains no repeated code to handle the forward and reverse passes.
=={{header|Eiffel}}==
<syntaxhighlight lang="eiffel">
class
Line 1,694:
end
</syntaxhighlight>
Test:
<syntaxhighlight lang="eiffel">
class
Line 1,732:
end
</syntaxhighlight>
{{out}}
<pre>
Line 1,742:
=={{header|Elena}}==
ELENA
<
import system'math;
import system'routines;
Line 1,758:
swapped := false;
for(int i := 0
{
if (list[i]>list[i+1])
Line 1,772:
swapped := false;
for(int i := list.Length - 2
{
if (list[i]>list[i+1])
Line 1,792:
console.printLine("before:", list.asEnumerable());
console.printLine("after :", list.cocktailSort().asEnumerable())
}</
{{out}}
<pre>
Line 1,800:
=={{header|Elixir}}==
<
def cocktail_sort(list) when is_list(list), do: cocktail_sort(list, [], [])
Line 1,820:
end
IO.inspect Sort.cocktail_sort([5,3,9,4,1,6,8,2,7])</
{{out}}
Line 1,828:
=={{header|Euphoria}}==
<
integer swapped, d
object temp
Line 1,852:
constant s = rand(repeat(1000,10))
? s
? cocktail_sort(s)</
{{out}}
<pre>{963,398,374,455,53,210,611,285,984,308}
Line 1,861:
===Pseudocode translation===
This is a faithful translation of the pseudocode given in the task description. It uses lexical variables.
<
:: cocktail-sort! ( seq -- seq' )
Line 1,878:
] when
] do while
seq ; ! return the sequence</
===More idiomatic===
This is perhaps a more idiomatic solution, eschewing the use of lexical variables. If we had tried to translate the pseudocode directly, we'd be dealing with a data stack that is 6+ values deep. Our main strategy against this is to factor the problem into short words that deal with only a few items at a time. When writing mutating words, we can simplify matters by writing words that return nothing, and letting the caller decide if and how to leave references on the data stack.
<
SYMBOL: swapped?
Line 1,902:
: cocktail-sort! ( seq -- seq' )
[ swapped? get ] [ (cocktail-sort!) ] do while ;</
=={{header|Forth}}==
<
\ e.g. ' < is precedes
: sort ( a n --)
Line 1,923:
-1 cells +loop
repeat then drop 2r> 2drop
;</
This is an optimized version:
<
1- cells bounds 1
begin
Line 1,936:
>r negate >r swap r@ cells + r> r>
until drop drop drop
;</
=={{header|Fortran}}==
{{works with|Fortran|90 and later}}
<
IMPLICIT NONE
Line 1,983:
END SUBROUTINE Cocktail_sort
END PROGRAM COCKTAIL</
=={{header|FreeBASIC}}==
<
' compile with: fbc -s console
' for boundry checks on array's compile with: fbc -s console -exx
Line 2,043:
Print : Print "hit any key to end program"
Sleep
End</
{{out}}
<pre>unsorted -2 -4 7 -5 -7 4 2 -1 5 -6 6 1 0 -3 3
Line 2,050:
=={{header|Gambas}}==
'''[https://gambas-playground.proko.eu/?gist=ee5467e58f0ef649373eed5a2503b988 Click this link to run this code]'''
<
Dim siCount, siRev, siProcess As Short
Dim bSorting As Boolean
Line 2,096:
Print
End</
Output:
<pre>
Line 2,113:
=={{header|Go}}==
<
import "fmt"
Line 2,148:
}
}
}</
More generic version that sorts anything that implements <code>sort.Interface</code>:
<
import (
Line 2,188:
}
}
}</
=={{header|Groovy}}==
Solution:
<
def checkSwap = { a, i, j = i+1 -> [(a[i] > a[j])].find{ it }.each { makeSwap(a, i, j) } }
Line 2,205:
}
list
}</
Test:
<
println cocktailSort([88,18,31,44,4,0,8,81,14,78,20,76,84,33,73,75,82,5,62,70,12,7,1])
println cocktailSort([ 3, 14, 1, 5, 9, 2, 6, 3 ])
println cocktailSort([ 3, 14 ])
println cocktailSort([ 33, 14 ])</
{{out}}
<pre>..............................................................................................................................................[4, 12, 14, 23, 24, 24, 31, 35, 38, 46, 51, 57, 57, 58, 76, 78, 89, 92, 95, 97, 99]
Line 2,221:
=={{header|Haskell}}==
<
cocktailSort l
| not swapped1 = l
Line 2,234:
| otherwise = swappingPass op (swapped, x1 : l) (x2 : xs)
swappingPass _ (swapped, l) [x] = (swapped, x : l)
swappingPass _ pair [] = pair</
=={{header|Ksh}}==
<
# cocktail shaker sort
Line 2,282:
done
print "( ${arr[*]} )"</
{{out}}
<pre>( 5 -1 101 -4 0 1 8 6 2 3 )
Line 2,289:
=={{header|Haxe}}==
<
@:generic
public static function sort<T>(arr:Array<T>) {
Line 2,337:
Sys.println('Sorted Strings: ' + stringArray);
}
}</
{{out}}
Line 2,350:
=={{header|Icon}} and {{header|Unicon}}==
<
demosort(cocktailsort,[3, 14, 1, 5, 9, 2, 6, 3],"qwerty")
end
Line 2,366:
X[i+1] :=: X[swapped := i]
return X
end</
Note: This example relies on [[Sorting_algorithms/Bubble_sort#Icon| the supporting procedures 'sortop', and 'demosort' in Bubble Sort]].
Line 2,379:
=={{header|Io}}==
<
cocktailSortInPlace := method(
start := 0
Line 2,409:
l := list(2, 3, 4, 5, 1)
l cocktailSortInPlace println # ==> list(1, 2, 3, 4, 5)</
=={{header|IS-BASIC}}==
<
110 RANDOMIZE
120 NUMERIC ARRAY(5 TO 24)
Line 2,438:
340 LET EN=ST:LET ST=CH-D:LET D=-1*D
350 LOOP UNTIL EN*D<ST*D
360 END DEF</
=={{header|J}}==
{{eff note|J|/:~}}
<
smallToLeft=: (([ (<. , >.) {.@]) , }.@])/
cocktailSort=: |. @: (|. @: smallToLeft @: |. @: bigToLeft ^:_)</
Test run:
<
4 6 8 6 5 8 6 6 6 9
cocktailSort ?. 10 $ 10
4 5 6 6 6 6 6 8 8 9</
As is usual with J, <code>/:~</code> is the preferred method of sorting in practice.
Line 2,455:
This algorithm sorts in place.
Call it with a copy of the array to preserve the unsorted order.
<
boolean swapped;
do {
Line 2,483:
//if no elements have been swapped, then the list is sorted
} while (swapped);
}</
=={{header|JavaScript}}==
<
// Node 5.4.1 tested implementation (ES6)
"use strict";
Line 2,520:
console.log(arr);
}</
Line 2,530:
=={{header|jq}}==
{{ works with|jq|1.4}}
<
def until(cond; next):
def _until:
if cond then . else (next|_until) end;
_until;</
<
def swap(i;j): .[i] as $t | .[i] = .[j] | .[j] = $t;
Line 2,557:
else .
end )
| .[1];</
'''Tests:'''
<
([],
Line 2,571:
[1.5, -1.5],
["cocktail", ["sort"], null, {}]
) | verify</
{{out}}
<
$</
=={{header|Julia}}==
{{works with|Julia|0.6}}
<
b = copy(a)
isordered = false
Line 2,605:
v = rand(-10:10, 10)
println("# unordered: $v\n -> ordered: ", cocktailsort(v))</
{{out}}
Line 2,612:
=={{header|Kotlin}}==
<
fun cocktailSort(a: IntArray) {
Line 2,648:
println(a.joinToString(", "))
}
}</
{{out}}
Line 2,658:
=={{header|Lua}}==
<
local swapped
repeat
Line 2,680:
until swapped==false
end</
{{out|Example}}
<
cocktailSort(list)
for i=1,#list do
print(list[i]j)
end</
=={{header|M2000 Interpreter}}==
<syntaxhighlight lang="m2000 interpreter">
Module cocktailSort {
k=(3,2,1)
Line 2,744:
}
cocktailSort
</syntaxhighlight>
{{out}}
<pre>
Line 2,756:
=={{header|Maple}}==
<
len := numelems(arr):
swap := proc(arr, a, b)
Line 2,781:
if (not swapped) then break: end if:
end do:
arr;</
{{Output|Out}}
<pre>[0,0,2,3,3,8,17,36,40,72]</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<
While[ swapped == True,
swapped=False;
Line 2,796:
For [ i= Length[A]-1, i > 0, i--,
If[ A[[i]] > A[[i+1]], A[[i;;i+1]] = A[[i+1;;i;;-1]]; swapped = True;]
]]]</
{{out|Example}}
<pre>cocktailSort[{2,1,5,3,6}]
Line 2,802:
=={{header|MATLAB}} / {{header|Octave}}==
<
%We have to do this because the do...while loop doesn't exist in MATLAB
Line 2,831:
end %for
end %while
end %cocktail sort</
{{out|Sample usage}}
<
ans =
1 2 3 4 5 6 7 8 9</
=={{header|MAXScript}}==
<
(
local swapped = true
Line 2,865:
)
return arr
)</
=={{header|NetRexx}}==
<
options replace format comments java crossref savelog symbols binary
Line 2,924:
method isFalse public constant binary returns boolean
return \isTrue</
{{out}}
<pre>
Line 2,947:
=={{header|Nim}}==
<
if a[i] < a[i-1]:
swap a[i], a[i-1]
Line 2,963:
var a = @[4, 65, 2, -31, 0, 99, 2, 83, 782]
cocktailSort a
echo a</
{{out}}
<pre>@[-31, 0, 2, 2, 4, 65, 83, 99, 782]</pre>
=={{header|Objeck}}==
<
class Cocktail {
function : Main(args : String[]) ~ Nil {
Line 3,009:
}
}
}</
=={{header|OCaml}}==
<
let tmp = a.(i) in
a.(i) <- a.(j);
Line 3,048:
Array.iter (Printf.printf " %d") a;
print_newline();
;;</
{{out}}
<pre>
Line 3,055:
=={{header|Octave}}==
<
swapped = true;
while(swapped)
Line 3,081:
endwhile
sl = l;
endfunction</
{{out|Example}}
<
1, 8, 6, 2, 3 ]);
disp(s);</
=={{header|ooRexx}}==
{{Trans|NetRexx}}
<
placesList = .array~of( -
Line 3,139:
end swaps
return A</
{{out}}
<pre>
Line 3,162:
=={{header|Oz}}==
<
proc {CocktailSort Arr}
proc {Swap I J}
Line 3,187:
in
{CocktailSort Arr}
{Inspect Arr}</
=={{header|PARI/GP}}==
<
while(1,
my(done=1);
Line 3,213:
if(done, return(v))
)
};</
=={{header|Pascal}}==
Line 3,219:
=={{header|Perl}}==
<
use warnings;
use feature 'say';
Line 3,247:
}
say join ' ', cocktail_sort( <t h e q u i c k b r o w n f o x j u m p s o v e r t h e l a z y d o g> );</
{{out}}
<pre>a b c d e e e f g h h i j k l m n o o o o p q r r s t t u u v w x y z</pre>
=={{header|Phix}}==
<!--<
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
Line 3,280:
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"original: %V\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">s</span><span style="color: #0000FF;">})</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" sorted: %V\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">cocktail_sort</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">)})</span>
<!--</
{{out}}
<pre>
Line 3,288:
=={{header|PHP}}==
<
if (is_string($arr)) $arr = str_split(preg_replace('/\s+/','',$arr));
Line 3,325:
echo implode(',',$arr) . '<br>';
echo implode(',',$arr2) . '<br>';
echo implode('',$strg) . '<br>';</
{{out}}
<pre>
Line 3,334:
=={{header|PicoLisp}}==
<
(use (Swapped L)
(loop
Line 3,352:
(on Swapped) )
(T (== Lst L)) )
(NIL Swapped Lst) ) ) )</
{{out}}
<pre>: (cocktailSort (make (do 9 (link (rand 1 999)))))
Line 3,360:
=={{header|PL/I}}==
<
declare A(*) fixed;
declare t fixed;
Line 3,376:
end;
end;
end cocktail;</
=={{header|PowerShell}}==
Based on the entry for PowerShell in [[Bubble Sort]]
<
$l = $a.Length
$m = 0
Line 3,411:
}
$l = 10; CocktailSort ( 1..$l | ForEach-Object { $Rand = New-Object Random }{ $Rand.Next( -( $l - 1 ), $l - 1 ) } )</
=={{header|Prolog}}==
<
ctail(fwrd, [A,B|T], In, Rev, unsorted) :- A > B, !,
ctail(fwrd, [B,A|T], In, Rev, _).
Line 3,432:
cocktail(In, R),
writef('-> %w\n', [R]).
</syntaxhighlight>
{{out|Example}}
<pre>?- test.
Line 3,446:
=={{header|PureBasic}}==
The following approach improves on the method in the pseudo-code by not examining indexes on either end of the array that have already been sorted by reducing the index range on each subsequent pass.
<
Procedure cocktailSort(Array a(1))
Protected index, hasChanged, low, high
Line 3,476:
low + 1
Until hasChanged = #False ;if no elements have been changed, then the array is sorted
EndProcedure</
=={{header|Python}}==
This implementation takes advantage of the identical processing of the two ''for'' loops and that a ''range'' is a first-class object in Python.
<
up = range(len(A)-1)
while True:
Line 3,490:
swapped = True
if not swapped:
return</
{{out|Usage}}
<
cocktailSort(test1)
print test1
Line 3,500:
cocktailSort(test2)
print ''.join(test2)
#>>> abcdefghiijklmnopqrstuvwxyz</
This implementation is clearer in structure to it's bubblesort origins while also being ever so slightly faster, in python 3.5.2 at least.
<
for i in range(len(a)//2):
swap = False
Line 3,518:
swap = True
if not swap:
break</
=={{header|Quackery}}==
<syntaxhighlight lang="Quackery">
[ 2dup 1+ peek dip peek > ] is compare ( [ n --> b )
[ dup 1+ unrot
2dup peek
dip
[ 2dup 1+ peek
unrot poke
swap ]
unrot poke ] is exchange ( [ n --> [ )
[ [ 0 swap
dup size 1 - times
[ dup i^ compare if
[ i^ exchange
dip 1+ ] ]
over while
dup size 1 - times
[ dup i compare if
[ i exchange
dip 1+ ] ]
over while
nip again ]
nip ] is cocktail ( [ --> [ )
randomise
[] 20 times [ 89 random 10 + join ]
dup echo cr
cocktail echo</syntaxhighlight>
{{out}}
<pre>[ 46 42 73 92 95 19 27 52 33 12 60 70 34 45 93 15 64 41 12 55 ]
[ 12 12 15 19 27 33 34 41 42 45 46 52 55 60 64 70 73 92 93 95 ]</pre>
=={{header|R}}==
The previously solution missed out on a cool R trick for swapping items. As R is 1-indexed, we have made some minor adjustments to the given pseudo-code. Otherwise, we have aimed to be faithful to it.
<
{
repeat
Line 3,552 ⟶ 3,589:
ints <- c(1, 10, 2, 5, -1, 5, -19, 4, 23, 0)
numerics <- c(1, -3.2, 5.2, 10.8, -5.7, 7.3, 3.5, 0, -4.1, -9.5)
strings <- c("We", "hold", "these", "truths", "to", "be", "self-evident", "that", "all", "men", "are", "created", "equal")</
{{out}}
Line 3,564 ⟶ 3,601:
=={{header|Racket}}==
<
#lang racket
(require (only-in srfi/43 vector-swap!))
Line 3,581 ⟶ 3,618:
[(zero? (bubble (- len 2) 0 -1)) xs]
[(loop)])))
</syntaxhighlight>
=={{header|Raku}}==
(formerly Perl 6)
<syntaxhighlight lang="raku"
my $range = 0 ..^ @a.end;
loop {
Line 3,610 ⟶ 3,647:
my @weights = (^50).map: { 100 + ( 1000.rand.Int / 10 ) };
say @weights.sort.Str eq @weights.&cocktail_sort.Str ?? 'ok' !! 'not ok';</
=={{header|REXX}}==
===version handles blanks===
This REXX version can handle array elements that may contain blanks or spaces.
<
/* bidirectional bubble sort, */
/* cocktail shaker sort, ripple sort,*/
Line 3,621 ⟶ 3,658:
/* shuffle sort, shuttle sort, or */
/* a bubble sort variation. */
call
call
call cocktailSort
call
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
cocktailSort: procedure expose
nn = items.0 - 1
do until done
done = 1
do j = 1 for
jp = j + 1
if items.j > items.jp
temp =
items.j =
end
end /*j*/
if done then leave /*No swaps done? Finished*/
do k = nn for nn by -1
kp = k + 1 /* Rexx doesn't allow "items.(k+1)", so use this instead. */
if items.k > items.kp then do
done = 0
temp = items.k
items.k = items.kp
items.kp = temp
end
end /*k*/
end /*until*/
return
/*──────────────────────────────────────────────────────────────────────────────────────*/
genitems: procedure expose items.
items.= /*assign a default value for the stem. */
items.1 ='---the 22 card tarot deck (larger deck has 56 additional cards in 4 suits)---'
items.2 ='==========symbol====================pip======================================'
items.9
items.24='the fool [often unnumbered] ◄─── XXII'
items.0 =24 /* number of entries in the array. */
return
/*──────────────────────────────────────────────────────────────────────────────────────*/
showitems: procedure expose items.
parse arg phase
width = length(items.0)
do j=1 to
say 'element' right(j, width) phase || ":" items.j
end /*j*/ /* ↑ */
/* └─────max width of any line number. */
return</syntaxhighlight>
{{out|output|text= when using the internal default inputs:}}
Line 3,730 ⟶ 3,787:
===version handles non-blanks===
This faster REXX version can handle array elements that don't contain blanks or spaces by using a simpler ''swap'' mechanism.
The REXX ''PARSE'' instruction separates an input into parts and assigns them to
variables, in a single operation. Thus
<syntaxhighlight lang="rexx">PARSE VALUE 0 items.j items.jp WITH done items.jp items.j</syntaxhighlight>
sets ''done'' to 0, ''items.jp'' to ''items.j'', and ''items.j'' to ''items.jp'', as long as none of the input
variables contain any blanks.
<syntaxhighlight lang="rexx">cocktailSort2: procedure expose items.
nn = items.0 - 1 /*N: the number of items in items.*/
do until done
done = 1
do j = 1 for
jp = j + 1
if items.j
parse value 0 items.j items.jp with done items.jp items.j /* swap items.j and items.jp, and set done to 0 */
end /*j*/
if done then leave /*Did swaps? Then we're done.*/
do k = nn for nn by -1
kp = k + 1 /* Rexx doesn't allow "items.(k+1)", so use this instead. */
if items.k > items.kp then ,
parse value 0 items.k items.kp with done items.kp items.k /* swap items.k and items.kp, and set done to 0 */
end /*k*/
end /*until*/
return</syntaxhighlight> <br><br>
=={{header|Ring}}==
<
aList = [ 5, 6, 1, 2, 9, 14, 2, 15, 6, 7, 8, 97]
flag = 0
Line 3,765 ⟶ 3,833:
next
end
</syntaxhighlight>
=={{header|Ruby}}==
<
def cocktailsort!
begin
Line 3,790 ⟶ 3,858:
self
end
end</
Another way
<
def cocktailsort!
start, finish, way = 0, size-1, 1
Line 3,809 ⟶ 3,877:
self
end
end</
Test:
<
p ary.cocktailsort!
ary = ["John", "Kate", "Zerg", "Alice", "Joe", "Jane"]
p ary.cocktailsort!</
{{out}}
Line 3,824 ⟶ 3,892:
=={{header|Run BASIC}}==
<
a(i) = rnd(0) * 100
next i
Line 3,850 ⟶ 3,918:
print i;" ";a(i)
next i
end</
=={{header|Rust}}==
<
let len = a.len();
loop {
Line 3,887 ⟶ 3,955:
cocktail_sort(&mut v);
println!("after: {:?}", v);
}</
{{out}}
Line 3,896 ⟶ 3,964:
=={{header|Scala}}==
<
def sort(arr: Array[Int]) = {
var swapped = false
Line 3,921 ⟶ 3,989:
println(sort(Array(170, 45, 75, -90, -802, 24, 2, 66)).mkString(", "))
}</
=={{header|Scilab}}==
<syntaxhighlight lang="text">function varargout=cocktailSort(list_in)
swapped = %T;
while swapped
Line 3,948 ⟶ 4,016:
endfunction
disp(cocktailSort([6 3 7 8 5 1 2 4 9]));</
{{out}}
<pre> 1. 2. 3. 4. 5. 6. 7. 8. 9.</pre>
=={{header|Seed7}}==
<
local
var boolean: swapped is FALSE;
Line 3,981 ⟶ 4,049:
end if;
until not swapped;
end func;</
Original source: [http://seed7.sourceforge.net/algorith/sorting.htm#cocktailSort]
=={{header|Sidef}}==
<
var swapped = false
func cmpsw(i) {
Line 4,001 ⟶ 4,069:
} while (swapped)
return a
}</
Test:
<
say cocktailsort(numbers)
var strs = ["John", "Kate", "Zerg", "Alice", "Joe", "Jane"]
say cocktailsort(strs)</
{{out}}
<pre>[0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
Line 4,013 ⟶ 4,081:
=={{header|Slate}}==
<
[ |swapped|
swapped: False.
Line 4,022 ⟶ 4,090:
swapped: False].
] loop
].</
{{out|Example}}
<
{-5. 0. 6. 7. 8. 9. 10}</
=={{header|Smalltalk}}==
{{works with|GNU Smalltalk}}
<
swap: indexA and: indexB [
|t|
Line 4,058 ⟶ 4,126:
^ self
]
].</
{{out|Example}}
<
=={{header|Swift}}==
<
public func cocktailSorted() -> [Element] {
var swapped = false
Line 4,098 ⟶ 4,166:
print("Before: \(arr)")
print("Cocktail sort: \(arr.cocktailSorted())")</
{{out}}
Line 4,107 ⟶ 4,175:
=={{header|Tcl}}==
{{tcllib|struct::list}}<!-- convenient element swapping only -->
<
package require struct::list
Line 4,135 ⟶ 4,203:
}
return $A
}</
{{out|Example}}
<
=={{header|uBasic/4tH}}==
<syntaxhighlight lang="text">PRINT "Cocktail sort:"
n = FUNC (_InitArray)
PROC _ShowArray (n)
Line 4,191 ⟶ 4,259:
PRINT
RETURN</
=={{header|Ursala}}==
The same function is used for the traversal in each direction, in one case parameterized by the given predicate and in the other by its negation. Lists are used rather than arrays. The fold combinator (<code>=></code>) avoids explicit recursion.
<
ctsort = ^=+ +^|(==?/~&l+ @r+ ~&x++ @x,^/~&)+ ("p". =><> ~&r?\~&C "p"?lrhPX/~&C ~&rhPlrtPCC)^~/not ~&</
test program:
<
test = ctsort(lleq) 'mdfdguldxisgbxjtqkadfkslakwkyioukdledbig'</
{{out}}
<pre>
Line 4,209 ⟶ 4,277:
=={{header|Vala}}==
{{trans|C}}
<
if (array[i1] == array[i2])
return;
Line 4,241 ⟶ 4,309:
stdout.printf("%d ", i);
}
}</
{{out}}
Line 4,249 ⟶ 4,317:
=={{header|VBA}}==
{{trans|Phix}}<
Dim swapped As Boolean
Dim f As Integer, t As Integer, d As Integer, tmp As Integer
Line 4,284 ⟶ 4,352:
Debug.Print Join(s, ", ")
Debug.Print Join(cocktail_sort(s), ", ")
End Sub</
<pre>45, 414, 862, 790, 373, 961, 871, 56, 949, 364
45, 56, 364, 373, 414, 790, 862, 871, 949, 961</pre>
Line 4,292 ⟶ 4,360:
;Implementation
<
dim swapped
dim i
Line 4,321 ⟶ 4,389:
a = b
b = tmp
end sub</
;Invocation
<
a = array( "portcullis", "redoubt", "palissade", "turret", "collins", "the parapet", "the quarterdeck")
wscript.echo join( a, ", ")
Line 4,329 ⟶ 4,397:
dim b
b = cocktailSort( a )
wscript.echo join( b, ", ")</
{{out}}
<pre>
Line 4,336 ⟶ 4,404:
</pre>
=={{header|V (Vlang)}}==
<syntaxhighlight lang="v (vlang)">fn cocktail(mut arr []int) {
input := 'Input'
output := 'Output'
Line 4,375 ⟶ 4,443:
arr = [-8, 15, 1, 4, -3, 20]
cocktail(mut arr)
}</
{{out}}
<pre>Input : [6, 9, 1, 4]
Line 4,384 ⟶ 4,452:
=={{header|Wren}}==
{{trans|Go}}
<
var last = a.count - 1
while (true) {
Line 4,415 ⟶ 4,483:
System.print("Before: %(a)")
cocktailSort.call(a)
System.print("After : %(a)")</
{{out}}
Line 4,424 ⟶ 4,492:
=={{header|XPL0}}==
<
proc CocktailSort(A, L); \Sort array A of length L
Line 4,451 ⟶ 4,519:
CocktailSort(A, 10);
for I:= 0 to 10-1 do [IntOut(0, A(I)); ChOut(0, ^ )];
]</
{{out}}
Line 4,460 ⟶ 4,528:
=={{header|zkl}}==
This has the Wikipedia optimizations.
<
swapped,begin,end:=False,-1,a.len() - 2;
do{
Line 4,474 ⟶ 4,542:
}while(swapped);
a
}</
<
x:=List(5, -1, 101, -4, 0, 1, 8, 6, 2, 3 );
cocktailSort(x).println();
x="the lazy fox jumped over the brown dog".split(" ").copy();
cocktailSort(x).println();</
{{out}}
<pre>
Line 4,489 ⟶ 4,557:
=={{header|ZX Spectrum Basic}}==
its a "cocktail" bubble sort, but the writer called it 'zigzag' since the name was unknown
<
5002 LET a$="": FOR f=1 TO 64: LET a$=a$+CHR$ (32+INT (RND*96)): NEXT f
5004 PRINT a$; AT 10,0;"ZigZag BubbleSORT"
Line 4,509 ⟶ 4,577:
5064 IF d AND i<la THEN GO TO 5020
5072 PRINT AT 12,0;a$
9000 STOP</
Next is an optimisation by using the margin value's as swop comparative aswell
so its swops inside and at the edges from the file
Line 4,515 ⟶ 4,583:
its a " Sticky (edge) Cocktail Sort"
By C. Born (freeware)
<
5002 LET a$="": FOR f=1 TO 96: LET a$=a$+CHR$ (48+INT (RND*48)): NEXT f
5004 PRINT 'a$
Line 4,547 ⟶ 4,615:
5510 IF i-1>=1 THEN IF a$(i)=a$(i-1) THEN LET i=i+1: GO TO 5500
5520 RETURN
9999 CLEAR : SAVE "JZZB" LINE 0</
{{omit from|GUISS}}
|