Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
|
|
@ -0,0 +1,17 @@
|
|||
DEF PROC_GnomeSort1(Size%)
|
||||
I%=2
|
||||
J%=2
|
||||
REPEAT
|
||||
IF data%(J%-1) <=data%(J%) THEN
|
||||
I%+=1
|
||||
J%=I%
|
||||
ELSE
|
||||
SWAP data%(J%-1),data%(J%)
|
||||
J%-=1
|
||||
IF J%=1 THEN
|
||||
I%+=1
|
||||
J%=I%
|
||||
ENDIF
|
||||
ENDIF
|
||||
UNTIL I%>Size%
|
||||
ENDPROC
|
||||
Loading…
Add table
Add a link
Reference in a new issue