albert_redditt

I beat the computer

Discussion created by albert_redditt on Dec 20, 2018

'====================================================

 

'Code designed for FreeBASIC compiler  ,  FreeBASIC.net

'Geany IDE with build command set to   -gen GCC -w all -O 3

 

'====================================================

 

'My formula is faster than the computers built in MOD function...

 

screen 19

 

randomize

 

dim as double time1 , time2 , time3 , time4

 

do

   

    dim as ulongint a = rnd * 1e10

    dim as ulongint b = rnd * 1e10

    if b > a then swap b , a

   

    'computers MOD function

    dim as ulongint built_in_mod

    time1 = timer

        for x as longint = 1 to 1e6

            built_in_mod = a mod b

        next

    time2 = timer

 

    'Alberts MOD formula

    dim as ulongint Albert_mod

    time3 = timer

        for x as longint = 1 to 1e6

            Albert_mod = a - ( ( a \ b ) *b )

        next

    time4 = timer

 

    print a; " mod " ;b

    print "Built in MOD   "   ; built_in_mod , time2-time1 ,  (time2 - time1)  / 1e6

    print "Albert's MOD   "   ; Albert_mod   , time4-time3 ,  (time4 - time3)  / 1e6

    print

   

    sleep

   

loop until multikey(1)

 

sleep

end

Attachments

Outcomes