home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 35
/
Commodore_Disc_35_19xx_-_de.d64
/
hash-sort
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
442b
|
18 lines
100 d=200
110 ug=1:og=10
120 dim e%(d),a%(d),g%(og-ug)
130 fori=1tod:e%(i)=int(rnd(0)*10+1):next
140 fori=1tod:a%(i)=e%(i):next
150 at=ti:gosub210:at=ti-at
160 fori=1tod:printe%(i),a%(i):next
170 print:printat:end
180 rem ------------------------------
190 rem hash-code
200 rem ------------------------------
210 fori=0toog-ug:g%(i)=0:next
220 fori=1tod:g%(a%(i)-ug)=g%(a%(i)-ug)+1:next
230 i=0:forj=1tod
240 ifg%(i)=0theni=i+1:goto240
250 g%(i)=g%(i)-1:a%(j)=i+ug:nextj:return
260 rem ------------------------------