Data update
This commit is contained in:
Ingy döt Net
parent
72eb4943cb
commit
4d5544505c
2347 changed files with 62432 additions and 16731 deletions
|
|
@ -1,4 +1,4 @@
|
|||
proc sort . d[] .
|
||||
proc sort &d[] .
|
||||
n = len d[]
|
||||
# make heap
|
||||
for i = 2 to n
|
||||
|
|
@ -17,12 +17,8 @@ proc sort . d[] .
|
|||
j = 1
|
||||
ind = 2
|
||||
while ind < i
|
||||
if ind + 1 < i and d[ind + 1] > d[ind]
|
||||
ind += 1
|
||||
.
|
||||
if d[j] < d[ind]
|
||||
swap d[j] d[ind]
|
||||
.
|
||||
if ind + 1 < i and d[ind + 1] > d[ind] : ind += 1
|
||||
if d[j] < d[ind] : swap d[j] d[ind]
|
||||
j = ind
|
||||
ind = 2 * j
|
||||
.
|
||||
|
|
|
|||
|
|
@ -1,22 +1,72 @@
|
|||
/*REXX pgm sorts an array (names of epichoric Greek letters) using a heapsort algorithm.*/
|
||||
parse arg x; call init /*use args or default, define @ array.*/
|
||||
call show "before sort:" /*#: the number of elements in array*/
|
||||
call heapSort #; say copies('▒', 40) /*sort; then after sort, show separator*/
|
||||
call show " after sort:"
|
||||
exit /*stick a fork in it, we're all done. */
|
||||
/*──────────────────────────────────────────────────────────────────────────────────────*/
|
||||
init: _= 'alpha beta gamma delta digamma epsilon zeta eta theta iota kappa lambda mu nu' ,
|
||||
"xi omicron pi san qoppa rho sigma tau upsilon phi chi psi omega"
|
||||
if x='' then x= _; #= words(x) /*#: number of words in X*/
|
||||
do j=1 for #; @.j= word(x, j); end; return /*assign letters to array*/
|
||||
/*──────────────────────────────────────────────────────────────────────────────────────*/
|
||||
heapSort: procedure expose @.; arg n; do j=n%2 by -1 to 1; call shuffle j,n; end /*j*/
|
||||
do n=n by -1 to 2; _= @.1; @.1= @.n; @.n= _; call heapSuff 1,n-1
|
||||
end /*n*/; return /* [↑] swap two elements; and shuffle.*/
|
||||
/*──────────────────────────────────────────────────────────────────────────────────────*/
|
||||
heapSuff: procedure expose @.; parse arg i,n; $= @.i /*obtain parent.*/
|
||||
do while i+i<=n; j= i+i; k= j+1; if k<=n then if @.k>@.j then j= k
|
||||
if $>=@.j then leave; @.i= @.j; i= j
|
||||
end /*while*/; @.i= $; return /*define lowest.*/
|
||||
/*──────────────────────────────────────────────────────────────────────────────────────*/
|
||||
show: do s=1 for #; say ' element' right(s, length(#)) arg(1) @.s; end; return
|
||||
/* REXX ***************************************************************
|
||||
* Translated from PL/I
|
||||
* 27.07.2013 Walter Pachl
|
||||
**********************************************************************/
|
||||
list='---letters of the modern Greek Alphabet---|'||,
|
||||
'==========================================|'||,
|
||||
'alpha|beta|gamma|delta|epsilon|zeta|eta|theta|'||,
|
||||
'iota|kappa|lambda|mu|nu|xi|omicron|pi|'||,
|
||||
'rho|sigma|tau|upsilon|phi|chi|psi|omega'
|
||||
Do i=0 By 1 While list<>''
|
||||
Parse Var list a.i '|' list
|
||||
End
|
||||
n=i-1
|
||||
|
||||
Call showa 'before sort'
|
||||
Call heapsort n
|
||||
Call showa ' after sort'
|
||||
Exit
|
||||
|
||||
heapSort: Procedure Expose a.
|
||||
Parse Arg count
|
||||
Call heapify count
|
||||
end=count-1
|
||||
do while end>0
|
||||
Call swap end,0
|
||||
end=end-1
|
||||
Call siftDown 0,end
|
||||
End
|
||||
Return
|
||||
|
||||
heapify: Procedure Expose a.
|
||||
Parse Arg count
|
||||
start=(count-2)%2
|
||||
Do while start>=0
|
||||
Call siftDown start,count-1
|
||||
start=start-1
|
||||
End
|
||||
Return
|
||||
|
||||
siftDown: Procedure Expose a.
|
||||
Parse Arg start,end
|
||||
root=start
|
||||
Do while root*2+1<= end
|
||||
child=root*2+1
|
||||
sw=root
|
||||
if a.sw<a.child Then
|
||||
sw=child
|
||||
child_1=child+1
|
||||
if child+1<=end & a.sw<a.child_1 Then
|
||||
sw=child+1
|
||||
if sw<>root Then Do
|
||||
Call swap root,sw
|
||||
root=sw
|
||||
End
|
||||
else
|
||||
return
|
||||
End
|
||||
Return
|
||||
|
||||
swap: Procedure Expose a.
|
||||
Parse arg x,y
|
||||
temp=a.x
|
||||
a.x=a.y
|
||||
a.y=temp
|
||||
Return
|
||||
|
||||
showa: Procedure Expose a. n
|
||||
Parse Arg txt
|
||||
Do j=0 To n-1
|
||||
Say 'element' format(j,2) txt a.j
|
||||
End
|
||||
Return
|
||||
|
|
|
|||
|
|
@ -1,72 +1,62 @@
|
|||
/* REXX ***************************************************************
|
||||
* Translated from PL/I
|
||||
* 27.07.2013 Walter Pachl
|
||||
**********************************************************************/
|
||||
list='---letters of the modern Greek Alphabet---|'||,
|
||||
'==========================================|'||,
|
||||
'alpha|beta|gamma|delta|epsilon|zeta|eta|theta|'||,
|
||||
'iota|kappa|lambda|mu|nu|xi|omicron|pi|'||,
|
||||
'rho|sigma|tau|upsilon|phi|chi|psi|omega'
|
||||
Do i=0 By 1 While list<>''
|
||||
Parse Var list a.i '|' list
|
||||
End
|
||||
n=i-1
|
||||
include Settings
|
||||
|
||||
Call showa 'before sort'
|
||||
Call heapsort n
|
||||
Call showa ' after sort'
|
||||
Exit
|
||||
say 'HEAPSORT - 4 Mar 2025'
|
||||
say version
|
||||
say
|
||||
call Generate
|
||||
call Show
|
||||
call Heapsort
|
||||
call Show
|
||||
exit
|
||||
|
||||
heapSort: Procedure Expose a.
|
||||
Parse Arg count
|
||||
Call heapify count
|
||||
end=count-1
|
||||
do while end>0
|
||||
Call swap end,0
|
||||
end=end-1
|
||||
Call siftDown 0,end
|
||||
End
|
||||
Return
|
||||
Generate:
|
||||
call Random,,12345
|
||||
n = 10
|
||||
do i = 1 to n
|
||||
stem.i = Random()
|
||||
end
|
||||
stem.0 = n
|
||||
return
|
||||
|
||||
heapify: Procedure Expose a.
|
||||
Parse Arg count
|
||||
start=(count-2)%2
|
||||
Do while start>=0
|
||||
Call siftDown start,count-1
|
||||
start=start-1
|
||||
End
|
||||
Return
|
||||
Show:
|
||||
do i = 1 to n
|
||||
say right(i,2) right(stem.i,3)
|
||||
end
|
||||
say
|
||||
return
|
||||
|
||||
siftDown: Procedure Expose a.
|
||||
Parse Arg start,end
|
||||
root=start
|
||||
Do while root*2+1<= end
|
||||
child=root*2+1
|
||||
sw=root
|
||||
if a.sw<a.child Then
|
||||
sw=child
|
||||
child_1=child+1
|
||||
if child+1<=end & a.sw<a.child_1 Then
|
||||
sw=child+1
|
||||
if sw<>root Then Do
|
||||
Call swap root,sw
|
||||
root=sw
|
||||
End
|
||||
else
|
||||
return
|
||||
End
|
||||
Return
|
||||
HeapSort:
|
||||
procedure expose stem.
|
||||
n = stem.0
|
||||
if n < 2 then
|
||||
return
|
||||
n = stem.0; l = (n%2)+1; s = n
|
||||
do while 1
|
||||
if l > 1 then do
|
||||
l = l-1; r = stem.l
|
||||
end
|
||||
else do
|
||||
r = stem.s; stem.s = stem.1; s = s-1
|
||||
if s = 1 then do
|
||||
stem.1 = r
|
||||
leave
|
||||
end
|
||||
end
|
||||
i = l; j = l*2
|
||||
do while j <= s
|
||||
if j < s then do
|
||||
k = j+1
|
||||
if stem.j < stem.k then
|
||||
j = j+1
|
||||
end
|
||||
if r < stem.j then do
|
||||
stem.i = stem.j; i = j; j = j+i
|
||||
end
|
||||
else
|
||||
j = s+1
|
||||
end
|
||||
stem.i = r
|
||||
end
|
||||
return
|
||||
|
||||
swap: Procedure Expose a.
|
||||
Parse arg x,y
|
||||
temp=a.x
|
||||
a.x=a.y
|
||||
a.y=temp
|
||||
Return
|
||||
|
||||
showa: Procedure Expose a. n
|
||||
Parse Arg txt
|
||||
Do j=0 To n-1
|
||||
Say 'element' format(j,2) txt a.j
|
||||
End
|
||||
Return
|
||||
include Abend
|
||||
|
|
|
|||
|
|
@ -1,56 +0,0 @@
|
|||
Main:
|
||||
call Generate
|
||||
call Show
|
||||
call Heapsort
|
||||
call Show
|
||||
exit
|
||||
|
||||
Generate:
|
||||
call Random,,12345
|
||||
n = 10
|
||||
do i = 1 to n
|
||||
stem.i = Random()
|
||||
end
|
||||
stem.0 = n
|
||||
return
|
||||
|
||||
Show:
|
||||
do i = 1 to n
|
||||
say right(i,2) right(stem.i,3)
|
||||
end
|
||||
say
|
||||
return
|
||||
|
||||
HeapSort:
|
||||
procedure expose stem.
|
||||
n = stem.0
|
||||
if n < 2 then
|
||||
return
|
||||
n = stem.0; l = (n%2)+1; s = n
|
||||
do while 1
|
||||
if l > 1 then do
|
||||
l = l-1; r = stem.l
|
||||
end
|
||||
else do
|
||||
r = stem.s; stem.s = stem.1; s = s-1
|
||||
if s = 1 then do
|
||||
stem.1 = r
|
||||
leave
|
||||
end
|
||||
end
|
||||
i = l; j = l*2
|
||||
do while j <= s
|
||||
if j < s then do
|
||||
k = j+1
|
||||
if stem.j < stem.k then
|
||||
j = j+1
|
||||
end
|
||||
if r < stem.j then do
|
||||
stem.i = stem.j; i = j; j = j+i
|
||||
end
|
||||
else
|
||||
j = s+1
|
||||
end
|
||||
stem.i = r
|
||||
end
|
||||
return
|
||||
Loading…
Add table
Add a link
Reference in a new issue