Recent Posts

Pages: 1 ... 8 9 [10]
91
Open Forum / Re: RaspberryBASIC.org Forum
« Last post by AIR on December 07, 2019, 02:50:51 PM »
Based on the BaCon results, it looks like my RPi 4B runs twice as fast.

Could be the OS; I'm running DietPi which is supposed to be an optimized Raspbian but I'm beginning to wonder....even overclocking had no impact (I have a case with a fan, overclocking to 1900Mhz the temp went up only 2 degrees F in stress test).
92
Open Forum / Re: RaspberryBASIC.org Forum
« Last post by John on December 07, 2019, 02:00:12 PM »
It seems the PHP .= works like the ScriptBasic &=. Post and table updated.

93
Open Forum / Re: RaspberryBASIC.org Forum
« Last post by John on December 07, 2019, 12:05:53 PM »
Since the APT UPDATE/UPGRADE and installing Nautilus/ gEdit and the suprising switch to Raspbian LXDE desktop, it seem to run faster than when I started.

Based on the BaCon results, it looks like my RPi 4B runs twice as fast.
94
Open Forum / Re: RaspberryBASIC.org Forum
« Last post by AIR on December 07, 2019, 11:34:55 AM »
Yours are better
95
Open Forum / Re: RaspberryBASIC.org Forum
« Last post by John on December 07, 2019, 10:12:56 AM »
Are my times better or worse than what you are seeing on you new RPI 4B?
96
Open Forum / Re: RaspberryBASIC.org Forum
« Last post by AIR on December 07, 2019, 10:06:48 AM »
Run it on your machine, there is a difference in the timing I'm getting vs yours on the other tests.  That's why I asked which OS you're running before.
97
Open Forum / Re: RaspberryBASIC.org Forum
« Last post by John on December 07, 2019, 10:04:28 AM »
I'll update post and chart.

Expect a HUG from Peter.  :)
98
Open Forum / Re: RaspberryBASIC.org Forum
« Last post by AIR on December 07, 2019, 10:00:48 AM »
Bacon, using open_memstream:

Code: Text
  1. ' BaCon - 1mil3.bac
  2.  
  3. OPTION PARSE FALSE
  4.  
  5. s$ = ""
  6. t$ = ""
  7.  
  8. DECLARE a[1000001] TYPE NUMBER
  9. DECLARE len TYPE uint
  10. DECLARE *stream TYPE FILE
  11.  
  12. stream = open_memstream(&t$,&len)
  13.  
  14. FOR x = 1 TO 1000000
  15.   s$ = s$ & CHR$(MOD((x - 1), 26) + 65)
  16.   a[x] = x
  17.   IF LEN(s$) = 26 THEN
  18.     fprintf(stream,s$)
  19.     s$ = ""
  20.   END IF
  21. NEXT
  22. CLOSE FILE stream
  23.  
  24. r$ = REVERSE$(t$)
  25. FREE t$
  26. PRINT "r LEN: ",len
  27. PRINT "Front: ",LEFT$(r$, 26)
  28. PRINT "Back:  ",RIGHT$(r$, 26)
  29. PRINT "UBVal: ",a[1000000]

riveraa@rpi:~/Projects/Bacon $ /usr/bin/time ./mil
r LEN: 999986
Front: ZYXWVUTSRQPONMLKJIHGFEDCBA
Back:  ZYXWVUTSRQPONMLKJIHGFEDCBA
UBVal: 1000000
0.94user 0.05system 0:01.00elapsed 99%CPU (0avgtext+0avgdata 8024maxresident)k
0inputs+0outputs (0major+2066minor)pagefaults 0swaps
99
Open Forum / Re: RaspberryBASIC.org Forum
« Last post by John on December 07, 2019, 08:23:23 AM »
I need to gather all the extensions I use with SB so it feels like home.
100
Open Forum / Re: RaspberryBASIC.org Forum
« Last post by AIR on December 07, 2019, 07:49:05 AM »
Cool, the more tools in one's tool shed, the easier it becomes to create those holiday gifts.... :D
Pages: 1 ... 8 9 [10]