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