2016 Update

Task/Benfords-law/ZX-Spectrum-Basic/benfords-law.zx

@@ -0,0 +1,23 @@
+10 RANDOMIZE
+20 DIM b(9)
+30 LET n=100
+40 FOR i=1 TO n
+50 GO SUB 1000
+60 LET n$=STR$ fiboI
+70 LET d=VAL n$(1)
+80 LET b(d)=b(d)+1
+90 NEXT i
+100 PRINT "Digit";TAB 6;"Actual freq";TAB 18;"Expected freq"
+110 FOR i=1 TO 9
+120 LET pdi=(LN (i+1)/LN 10)-(LN i/LN 10)
+130 PRINT i;TAB 6;b(i)/n;TAB 18;pdi
+140 NEXT i
+150 STOP
+1000 REM Fibonacci
+1010 LET fiboI=0: LET b=1
+1020 FOR j=1 TO i
+1030 LET temp=fiboI+b
+1040 LET fiboI=b
+1050 LET b=temp
+1060 NEXT j
+1070 RETURN