« Reply #12 on: November 24, 2019, 11:15:02 PM »
BaCon' BaCon - 1mil.bac
accum = 0
milvar = 1000000
FOR x = 1 TO 1000000
accum = accum + 1
milvar = milvar -1
IF accum = milvar THEN PRINT "Middle"
NEXT
PRINT "Plus: ",accum
PRINT "Minus: ",milvar
pi@RPi4B:~/bacon-dev/examples $ bacon 1mil.bac
Converting '1mil.bac'... done, 13 lines were processed in 0.035 seconds.
Compiling '1mil.bac'... cc -c 1mil.bac.c
cc -o 1mil 1mil.bac.o -lbacon -L. -lm
Done, program '1mil' ready.
pi@RPi4B:~/bacon-dev/examples $ ls -l 1mil
-rwxr-xr-x 1 pi pi 49968 Nov 25 21:03 1mil
pi@RPi4B:~/bacon-dev/examples $ /usr/bin/time ./1mil
Middle
Plus: 1000000
Minus: 0
0.03user 0.00system 0:00.03elapsed 96%CPU (0avgtext+0avgdata 1536maxresident)k
0inputs+0outputs (0major+84minor)pagefaults 0swaps
pi@RPi4B:~/bacon-dev/examples $
« Last Edit: November 26, 2019, 07:43:01 AM by John Spikowski »

Logged
ScriptBasic Project Manager/Facilitator