Time for an 2014 update…
This commit is contained in:
Ingy döt Net
parent
372c577f83
commit
09687c4926
2520 changed files with 34227 additions and 7318 deletions
|
|
@ -1,35 +1,5 @@
|
|||
# This shows quicksort-in-place.
|
||||
quicksort = (a) ->
|
||||
swap = (i, j) ->
|
||||
return if i == j
|
||||
[a[i], a[j]] = [a[j], a[i]]
|
||||
|
||||
divide = (v, start, end) ->
|
||||
first_big = start
|
||||
j = start
|
||||
while j <= end
|
||||
if a[j] < v
|
||||
swap first_big, j
|
||||
first_big += 1
|
||||
j += 1
|
||||
first_big
|
||||
|
||||
partition = (start, end) ->
|
||||
v = a[end]
|
||||
first_big = divide v, start, end-1
|
||||
swap first_big, end
|
||||
first_big
|
||||
|
||||
qs = (start, end) ->
|
||||
return if start >= end
|
||||
m = partition start, end
|
||||
qs start, m-1
|
||||
qs m+1, end
|
||||
|
||||
qs 0, a.length - 1
|
||||
|
||||
# test
|
||||
do ->
|
||||
a = [1, 3, 5, 7, 9, 8, 6, 4, 2, 0, 3.5]
|
||||
quicksort(a)
|
||||
console.log a # [ 0, 1, 2, 3, 3.5, 4, 5, 6, 7, 8, 9 ]
|
||||
quicksort = ([x, xs...]) ->
|
||||
return [] unless x?
|
||||
smallerOrEqual = (a for a in xs when a <= x)
|
||||
larger = (a for a in xs when a > x)
|
||||
(quicksort smallerOrEqual).concat(x).concat(quicksort larger)
|
||||
|
|
|
|||
|
|
@ -1,2 +1,2 @@
|
|||
qsort [] = []
|
||||
qsort [] = []
|
||||
qsort (x:xs) = qsort [y | y <- xs, y < x] ++ [x] ++ qsort [y | y <- xs, y >= x]
|
||||
|
|
|
|||
|
|
@ -0,0 +1,8 @@
|
|||
from random import *
|
||||
|
||||
def qSort(a):
|
||||
if len(a) <= 1:
|
||||
return a
|
||||
else:
|
||||
q = choice(a)
|
||||
return qSort([elem for elem in a if elem < q]) + [q] * a.count(q) + qSort([elem for elem in a if elem > q])
|
||||
|
|
@ -0,0 +1,15 @@
|
|||
def quickSort(a):
|
||||
if len(a) <= 1:
|
||||
return a
|
||||
else:
|
||||
less = []
|
||||
more = []
|
||||
pivot = choice(a)
|
||||
for i in a:
|
||||
if i < pivot:
|
||||
less.append(i)
|
||||
if i > pivot:
|
||||
more.append(i)
|
||||
less = quickSort(less)
|
||||
more = quickSort(more)
|
||||
return less + [pivot] * a.count(pivot) + more
|
||||
|
|
@ -9,7 +9,7 @@ quickSort: procedure expose @. /*access the caller's local var. */
|
|||
a.1=1; b.1=arg(1); $=1
|
||||
|
||||
do while $\==0; l=a.$; t=b.$; $=$-1
|
||||
if t<2 then iterate
|
||||
if t<2 then iterate
|
||||
h=l+t-1
|
||||
?=l+t%2
|
||||
if @.h<@.l then if @.?<@.h then do; p=@.h; @.h=@.l; end
|
||||
|
|
@ -23,86 +23,86 @@ a.1=1; b.1=arg(1); $=1
|
|||
do forever
|
||||
do j=j while j<=k & @.j<=p; end /*a tinie-tiny loop*/
|
||||
do k=k by -1 while j <k & @.k>=p; end /*another tiny loop*/
|
||||
if j>=k then leave
|
||||
if j>=k then leave
|
||||
_=@.j; @.j=@.k; @.k=_
|
||||
end /*forever*/
|
||||
|
||||
k=j-1; @.l=@.k; @.k=p
|
||||
$=$+1
|
||||
if j<=? then do; a.$=j; b.$=h-j+1; $=$+1; a.$=l; b.$=k-l; end
|
||||
else do; a.$=l; b.$=k-l; $=$+1; a.$=j; b.$=h-j+1; end
|
||||
if j<=? then do; a.$=j; b.$=h-j+1; $=$+1; a.$=l; b.$=k-l; end
|
||||
else do; a.$=l; b.$=k-l; $=$+1; a.$=j; b.$=h-j+1; end
|
||||
end /*while $\==0*/
|
||||
|
||||
return
|
||||
/*──────────────────────────────────GEN@ subroutine─────────────────────*/
|
||||
gen@: @.=''; maxL=0 /*assign default value. */
|
||||
@.1 =" Rivers that form part of a state's (USA) border "
|
||||
@.2 ='='
|
||||
@.3 ="Chattahoochee River: Alabama, Georgia"
|
||||
@.4 ="Colorado River: Arizona, Nevada, California, Baja California (Mexico)"
|
||||
@.5 ="St. Francis River: Arkansas, Missouri"
|
||||
@.6 ="Poteau River: Arkansas, Oklahoma"
|
||||
@.7 ="Byram River: Connecticut, New York"
|
||||
@.8 ="Pawcatuck River: Connecticut, Rhode Island"
|
||||
@.9 ="Perdido River: Florida, Alabama"
|
||||
@.10="St. Marys River: Florida, Georgia"
|
||||
@.11="Chattooga River: Georgia, South Carolina"
|
||||
@.12="Tugaloo River: Georgia, South Carolina"
|
||||
@.13="Snake River: Idaho, Washington, Oregon"
|
||||
@.14="Wabash River: Illinois, Indiana"
|
||||
@.15="Ohio River: Illinois, Indiana, Ohio, Kentucky, West Virginia"
|
||||
@.16="Des Moines River: Iowa, Missouri"
|
||||
@.17="Tennessee River: Kentucky, Tennessee, Mississippi, Alabama"
|
||||
@.18="Big Sandy River: Kentucky, West Virginia"
|
||||
@.19="Tug Fork River: Kentucky, West Virginia, Virginia"
|
||||
@.20="Monument Creek: Maine, New Brunswick (Canda)"
|
||||
@.21="St. Croix River: Maine, New Brunswick (Canda)"
|
||||
@.22="Piscataqua River: Maine, New Hampshire"
|
||||
@.23="St. Francis River: Maine, Quebec (Canada)"
|
||||
@.24="St. John River: Maine, Quebec (Canada)"
|
||||
@.25="Pocomoke River: Maryland, Virginia"
|
||||
@.26="Potomac River: Maryland, Virginia, city of Washington (District of Columbia), West Virginia"
|
||||
@.27="Montreal River: Michigan (upper peninsula ), Wisconsin"
|
||||
@.28="Detroit River: Michigan, Ontario (Canada)"
|
||||
@.29="St. Clair River: Michigan, Ontario (Canada)"
|
||||
@.30="St. Marys River: Michigan, Ontario (Canada)"
|
||||
@.31="Brule River: Michigan, Wisconsin"
|
||||
@.32="Menominee River: Michigan, Wisconsin"
|
||||
@.33="Pigeon River: Minnesota, Ontario (Canada)"
|
||||
@.34="Rainy River: Minnesota, Ontario (Canada)"
|
||||
@.35="St. Croix River: Minnesota, Wisconsin"
|
||||
@.36="St. Louis River: Minnesota, Wisconsin"
|
||||
@.37="Mississippi River: Minnesota, Wisconsin, Iowa, Illinois, Missouri, Kentucky, Tennesse, Arkansas, Mississippi, Louisiana"
|
||||
@.38="Pearl River: Mississippi, Louisiana"
|
||||
@.39="Halls Stream: New Hampshire, Canada"
|
||||
@.40="Salmon Falls River: New Hampshire, Maine"
|
||||
@.41="Connecticut River: New Hampshire, Vermont"
|
||||
@.42="Hudson River (lower part only): New Jersey, New York"
|
||||
@.43="Arthur Kill: New Jersey, New York (tidal strait)"
|
||||
@.44="Kill Van Kull: New Jersey, New York (tidal strait)"
|
||||
@.45="Rio Grande: New Mexico, Texas, Tamaulipas (Mexico), Nuevo Leon (Mexico), Coahuila De Zaragoza (Mexico), Chihuahua (Mexico)"
|
||||
@.46="Niagara River: New York, Ontario (Canada)"
|
||||
@.47="St. Lawrence River: New York, Ontario (Canada)"
|
||||
@.48="Delaware River: New York, Pennsylvania, New Jersey, Delaware"
|
||||
@.49="Catawba River: North Carolina, South Carolina"
|
||||
@.50="Red River of the North: North Dakota, Minnesota"
|
||||
@.51="Great Miami River (mouth only): Ohio, Indiana"
|
||||
@.52="Arkansas River: Oklahoma, Arkansas"
|
||||
@.53="Palmer River: Rhode Island, Massachusetts"
|
||||
@.54="Runnins River: Rhode Island, Massachusetts"
|
||||
@.55="Savannah River: South Carolina, Georgia"
|
||||
@.56="Big Sioux River: South Dakota, Iowa"
|
||||
@.57="Bois de Sioux River: South Dakota, Minnesota, North Dakota"
|
||||
@.58="Missouri River: South Dakota, Nebraska, Iowa, Missouri, Kansas"
|
||||
@.59="Sabine River: Texas, Louisiana"
|
||||
@.60="Red River (Mississippi watershed): Texas, Oklahoma, Arkansas"
|
||||
@.61="Poultney River: Vermont, New York"
|
||||
@.62="Blackwater River: Virginia, North Carolina"
|
||||
@.63="Columbia River: Washington, Oregon"
|
||||
gen@: @.=; maxL=0 /*assign default value for array.*/
|
||||
@.1 =" Rivers that form part of a state's (USA) border " /*adj. later,*/
|
||||
@.2 ='=' /*this value is expanded later. */
|
||||
@.3 ="Perdido River: Alabama, Florida"
|
||||
@.4 ="Chattahoochee River: Alabama, Georgia"
|
||||
@.5 ="Tennessee River: Alabama, Kentucky, Mississippi, Tennessee"
|
||||
@.6 ="Colorado River: Arizona, California, Nevada, Baja California (Mexico)"
|
||||
@.7 ="Mississippi River: Arkansas, Illinois, Iowa, Kentucky, Minnesota, Mississippi, Missouri, Tennesse, Louisiana, Wisconsin"
|
||||
@.8 ="St. Francis River: Arkansas, Missouri"
|
||||
@.9 ="Poteau River: Arkansas, Oklahoma"
|
||||
@.10="Arkansas River: Arkansas, Oklahoma"
|
||||
@.11="Red River (Mississippi watershed): Arkansas, Oklahoma, Texas"
|
||||
@.12="Byram River: Connecticut, New York"
|
||||
@.13="Pawcatuck River: Connecticut, Rhode Island"
|
||||
@.14="Delaware River: Delaware, New Jersey, New York, Pennsylvania"
|
||||
@.15="Potomac River: District of Columbia, Maryland, Virginia, West Virginia"
|
||||
@.16="St. Marys River: Florida, Georgia"
|
||||
@.17="Chattooga River: Georgia, South Carolina"
|
||||
@.18="Tugaloo River: Georgia, South Carolina"
|
||||
@.19="Savannah River: Georgia, South Carolina"
|
||||
@.20="Snake River: Idaho, Oregon, Washington"
|
||||
@.21="Wabash River: Illinois, Indiana"
|
||||
@.22="Ohio River: Illinois, Indiana, Kentucky, Ohio, West Virginia"
|
||||
@.23="Great Miami River (mouth only): Indiana, Ohio"
|
||||
@.24="Des Moines River: Iowa, Missouri"
|
||||
@.25="Big Sioux River: Iowa, South Dakota"
|
||||
@.26="Missouri River: Kansas, Iowa, Missouri, Nebraska, South Dakota"
|
||||
@.27="Tug Fork River: Kentucky, Virginia, West Virginia"
|
||||
@.28="Big Sandy River: Kentucky, West Virginia"
|
||||
@.29="Pearl River: Louisiana, Mississippi"
|
||||
@.30="Sabine River: Louisiana, Texas"
|
||||
@.31="Monument Creek: Maine, New Brunswick (Canda)"
|
||||
@.32="St. Croix River: Maine, New Brunswick (Canda)"
|
||||
@.33="Piscataqua River: Maine, New Hampshire"
|
||||
@.34="St. Francis River: Maine, Quebec (Canada)"
|
||||
@.35="St. John River: Maine, Quebec (Canada)"
|
||||
@.36="Pocomoke River: Maryland, Virginia"
|
||||
@.37="Palmer River: Massachusetts, Rhode Island"
|
||||
@.38="Runnins River: Massachusetts, Rhode Island"
|
||||
@.39="Montreal River: Michigan (upper peninsula), Wisconsin"
|
||||
@.40="Detroit River: Michigan, Ontario (Canada)"
|
||||
@.41="St. Clair River: Michigan, Ontario (Canada)"
|
||||
@.42="St. Marys River: Michigan, Ontario (Canada)"
|
||||
@.43="Brule River: Michigan, Wisconsin"
|
||||
@.44="Menominee River: Michigan, Wisconsin"
|
||||
@.45="Red River of the North: Minnesota, North Dakota"
|
||||
@.46="Bois de Sioux River: Minnesota, North Dakota, South Dakota"
|
||||
@.47="Pigeon River: Minnesota, Ontario (Canada)"
|
||||
@.48="Rainy River: Minnesota, Ontario (Canada)"
|
||||
@.49="St. Croix River: Minnesota, Wisconsin"
|
||||
@.50="St. Louis River: Minnesota, Wisconsin"
|
||||
@.51="Halls Stream: New Hampshire, Canada"
|
||||
@.52="Salmon Falls River: New Hampshire, Maine"
|
||||
@.53="Connecticut River: New Hampshire, Vermont"
|
||||
@.54="Arthur Kill: New Jersey, New York (tidal strait)"
|
||||
@.55="Kill Van Kull: New Jersey, New York (tidal strait)"
|
||||
@.56="Hudson River (lower part only): New Jersey, New York"
|
||||
@.57="Rio Grande: New Mexico, Texas, Tamaulipas (Mexico), Nuevo Leon (Mexico), Coahuila De Zaragoza (Mexico), Chihuahua (Mexico)"
|
||||
@.58="Niagara River: New York, Ontario (Canada)"
|
||||
@.59="St. Lawrence River: New York, Ontario (Canada)"
|
||||
@.60="Poultney River: New York, Vermont"
|
||||
@.61="Catawba River: North Carolina, South Carolina"
|
||||
@.62="Blackwater River: North Carolina, Virginia"
|
||||
@.63="Columbia River: Oregon, Washington"
|
||||
|
||||
do highItem=1 while @.highItem\=='' /*find how many entries, and also*/
|
||||
do highItem=1 while @.highItem\=='' /*find how many entries, and also*/
|
||||
maxL=max(maxL,length(@.highItem)) /* find the maximum width entry.*/
|
||||
end
|
||||
end /*highItem*/
|
||||
|
||||
highItem=highItem-1 /*adjust highItem slightly. */
|
||||
@.1=centre(@.1,maxL,'-') /*adjust the header information. */
|
||||
|
|
@ -111,9 +111,9 @@ return
|
|||
/*──────────────────────────────────SHOW@ subroutine────────────────────*/
|
||||
show@: widthH=length(highItem) /*maximum width of any line. */
|
||||
|
||||
do j=1 for highItem /*show each array item.*/
|
||||
say 'element' right(j,widthH) arg(1)':' @.j
|
||||
end
|
||||
do j=1 for highItem /*display each item in the array.*/
|
||||
say 'element' right(j,widthH) arg(1)':' @.j
|
||||
end /*j*/
|
||||
|
||||
say copies('█',maxL+widthH+22) /*show a separator line. */
|
||||
say copies('█',maxL+widthH+22) /*display a separator line. */
|
||||
return
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
class Array
|
||||
def quick_sort
|
||||
return self if length <= 1
|
||||
pivot = self[length / 2]
|
||||
pivot = sample
|
||||
find_all { |i| i < pivot }.quick_sort +
|
||||
find_all { |i| i == pivot } +
|
||||
find_all { |i| i > pivot }.quick_sort
|
||||
|
|
|
|||
|
|
@ -3,8 +3,6 @@ class Array
|
|||
return self if length <= 1
|
||||
pivot = self[0]
|
||||
less, greatereq = self[1..-1].partition { |x| x < pivot }
|
||||
less.quick_sort +
|
||||
[pivot] +
|
||||
greatereq.quick_sort
|
||||
less.quick_sort + [pivot] + greatereq.quick_sort
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -0,0 +1,9 @@
|
|||
class Array
|
||||
def quick_sort
|
||||
return self if length <= 1
|
||||
pivot = sample
|
||||
group = group_by{ |x| x <=> pivot }
|
||||
group.default = []
|
||||
group[-1].quick_sort + group[0] + group[1].quick_sort
|
||||
end
|
||||
end
|
||||
Loading…
Add table
Add a link
Reference in a new issue