Реализации алгоритмов/Сортировка/Шелла: различия между версиями
Содержимое удалено Содержимое добавлено
Hasley (обсуждение | вклад) м Reverted 1 edit by 92.255.196.203 (talk) to last revision by 37.186.101.229. (TW) Метка: отмена |
DannyS712 (обсуждение | вклад) м <source> -> <syntaxhighlight> (phab:T237267) |
||
Строка 24:
== [[w:Си (язык программирования)|Cи]] ==
<
/* Пример из книги Герберта Шилдта */
void shell(char *items, int count)
Строка 43:
}
}
</syntaxhighlight>
== [[w:C++|C++]] ==
<
int increment(long inc[], long size) {
// inc[] массив, в который заносятся инкременты
Строка 94:
}
</syntaxhighlight>
== [[w:VBA|VBA]] ==
<
Sub Sort(Mus() As Long)
Dim i As Long, k As Long, Pos As Long
Строка 124:
Loop Until k = 1
End Sub
</syntaxhighlight>
== [[w:C Sharp|C#]] ==
<
public void SheelSorting(int[] arr)
{
Строка 146:
}
}
</syntaxhighlight>
Этот более быстрый
<
private void shellSort(int[] vector)
{
Строка 165:
}
}
</syntaxhighlight>
== [[w:Java|Java]] ==
<
void sort_shell(int[] a){
int i, j, k, h, m=0, b=a.length;
Строка 188:
}
}
</syntaxhighlight>
== [[w:Delphi (язык программирования)|Object Pascal (Delphi)]] ==
<
var
incr: array [0..23] of integer = (1, 4, 10, 23, 57, 145, 356, 911, 1968, 4711,
Строка 234:
until not (cur_inc <> -1);
end;
</syntaxhighlight>
== [[w:PHP|PHP]] ==
<
function ShellSort($elements,$length) {
$k=0;
Строка 267:
// $SortedElements=shellsort($UnsortedElements,length of list(an integer));
// e.g: $elements=shellsort($elements,10);
</syntaxhighlight>
== [[w:Python|Python]] ==
<
import numpy
def shellsort(a):
Строка 289:
a[j],a[j - increment] = a[j - increment],a[j]
return a
</syntaxhighlight>
== [[w:Ruby|Ruby]] ==
<
n = mass.size - 1
d = n/2
Строка 304:
end
puts mass
</syntaxhighlight>
== [[w:Perl|Perl]] ==
<
use warnings;
use strict;
Строка 340:
#1 2 3 3 3 4 5 5 6 7 7 9 9
</syntaxhighlight>
== [[w:Perl_v2|Perl (вариант 2)]] ==
<
use feature 'say';
Строка 357:
}
}
</syntaxhighlight>
== [[w:Perl 6|Perl 6]] ==
<
my @a = <5 3 7 9 2 1 6 5 3 7 9 3 1>;
loop (my $k = @a.elems div 2; $k > 0; $k div= 2) {
Строка 368:
}
say @a;
</syntaxhighlight>
== [[w:PL/SQL|PLSQL]] ==
<
type sort_lst is table of integer;
----------------------Шеллосортировка-----------------------------------------------
Строка 401:
end Shell_sort;
------------------------------------------------------------------------------------
</syntaxhighlight>
{{BookCat | filing = deep}}
|