24 lines
456 B
Plaintext
24 lines
456 B
Plaintext
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
|