|
|
|
|
|
DIM V% 4 p# = PI : REM 64-bits |V% = PI : REM 40-bits PRINT PI - p# PRINT PI - |V%
1.22514845E-16 1.2154201E-10
|
|
INSTALL @lib$+"SORTLIB" sort% = FN_sortinit(0,0) n% = 10 DIM f40arr% n%*5 PRINT "Unsorted array:" FOR V% = f40arr% TO f40arr%+(n%-1)*5 STEP 5 |V% = RND(1) PRINT |V% NEXT C% = n% CALL sort%, |f40arr% PRINT '"Sorted array:" FOR V% = f40arr% TO f40arr%+(n%-1)*5 STEP 5 PRINT |V% NEXT
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
TIME = 0 : FOR C% =1 TO 10000000 : A = PI*PI : NEXT : PRINT TIME
|
|
|
|
|