| |
| |
|
p.specht
 | proc QuickSortUp11400in3sec :parameters a![]:declare n&,p&,l&,r&,s&,sl&[],sr&[],w!
declare x!,i&,j&:n&=sizeof(a![]):s&=1:sl&[1]=0:sr&[1]=n&-1
while s&>0:l&=sl&[s&]:r&=sr&[s&]:s&=s&-1:while l&<r&:i&=l&:j&=r&:p&=(l&+r&)\2
if a![l&]>a![p&]:w!=a![l&]:a![l&]=a![p&]:a![p&]=w!:endif
if a![l&]>a![r&]:w!=a![l&]:a![l&]=a![r&]:a![r&]=w!:endif
if a![p&]>a![r&]:w!=a![p&]:a![p&]=a![r&]:a![r&]=w!:endif:x!=a![p&]
while i&<=j&:while a![i&]<x!:inc i&:endwhile:while x!<a![j&]:dec j&:endwhile
if i&<=j&:w!=a![i&]:a![i&]=a![j&]:a![j&]=w!:inc i&:dec j&:endif:endwhile
if (j&-l&)<(r&-i&):if i&<r&:inc s&:sl&[s&]=i&:sr&[s&]=r&:endif:r&=j&:else
if l&<j&:inc s&:sl&[s&]=l&:sr&[s&]=j&:endif:l&=i&:endif:endwhile:endwhile
endproc
proc QuickSortDwn11000in3sec :parameters a![]:declare n&,p&,l&,r&,s&,sl&[],sr&[],w!
declare x!,i&,j&:n&=sizeof(a![]):s&=1:sl&[1]=0:sr&[1]=n&-1
while s&:l&=sl&[s&]:r&=sr&[s&]:s&=s&-1:while l&<r&:i&=l&:j&=r&:p&=(l&+r&)\2
if a![l&]>a![p&]:w!=a![l&]:a![l&]=a![p&]:a![p&]=w!:endif
if a![l&]>a![r&]:w!=a![l&]:a![l&]=a![r&]:a![r&]=w!:endif
if a![p&]>a![r&]:w!=a![p&]:a![p&]=a![r&]:a![r&]=w!:endif:x!=a![p&]
while i&<=j&:while a![i&]>x!:inc i&:endwhile:while x!>a![j&]:dec j&:endwhile
if i&<=j&:w!=a![i&]:a![i&]=a![j&]:a![j&]=w!:inc i&:dec j&:endif:endwhile
if (j&-l&)<(r&-i&):if i&<r&:inc s&:sl&[s&]=i&:sr&[s&]=r&:endif:r&=j&:else
if l&<j&:inc s&:sl&[s&]=l&:sr&[s&]=j&:endif:l&=i&:endif:endwhile:endwhile
endproc |
|
| |
| Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 15.05.2021 ▲ |
|
| |
|
(891)
Deutsch
English
Français
Español
Italia