Path: utzoo!utgpu!jarvis.csri.toronto.edu!clyde.concordia.ca!uunet!willett!ForthNet
From: ForthNet@willett.UUCP (ForthNet articles from GEnie)
Newsgroups: comp.lang.forth
Subject: All Sorts of Sorts
Message-ID: <428.UUL1.3#5129@willett.UUCP>
Date: 9 Feb 90 00:41:56 GMT
Organization: Latest link in the ForthNet chain.  (Pgh, PA)
Lines: 61


 Date: 02-07-90 (17:50)              Number: 2872 (Echo)
   To: ALL                           Refer#: NONE
 From: ZAFAR ESSAK                     Read: (N/A)
 Subj: LEARN TO SORT                 Status: PUBLIC MESSAGE

 \ SORTS.FLY     Part 3 - Testing the Sort Methods 

 \ Test the cell sort 

 INCLUDE \FORTH\RANDOM.TXT   \ Random number generator 

 100 DATA.MAX# ! 

 CELL.SORT               \ Initialize Sort Function Variables 

 CREATE testdata ( --adr) DATA.MAX# @ DATA.WIDTH @ * ALLOT 

 testdata startdata ! 

 : printdata ( --) 
     CR DATA.MAX# @ 0 
         ?DO ENOUGH? IF LEAVE THEN I 2* testdata + @ . LOOP ; 

 : BTEST ( --) 
     DATA.MAX# @ 0 ?DO random I 2* testdata + ! LOOP 
     printdata CR 
     ." Go " CR 
     BUBBLE 
     printdata CR ; 

 : STEST ( --) 
     DATA.MAX# @ 0 ?DO random I 2* testdata + ! LOOP 
     printdata CR 
     ." Go " CR 
     SHELL.SORT 
     printdata CR ; 

 : QTEST ( --) 
     DATA.MAX# @ 0 ?DO random I 2* testdata + ! LOOP 
     printdata CR 
     ." Go " CR 
     QSORT 
     printdata CR ; 

 (( 
 Test times: 
             BTEST = 9.76 secs on Turbo XT 
             STEST = 5.16 secs on Turbo XT 
             QTEST = 2.68 secs on Turbo XT 

 )) 

 \ SORTS.FLY   The End. 
 ---
  * Via Qwikmail 2.01

 NET/Mail : British Columbia Forth Board - Burnaby BC - (604)434-5886   
-----
This message came from GEnie via willett through a semi-automated process.
Report problems to: 'uunet!willett!dwp' or 'willett!dwp@gateway.sei.cmu.edu'