31 lines
1.1 KiB
Text
31 lines
1.1 KiB
Text
NORMAL MODE IS INTEGER
|
|
VECTOR VALUES FRST15 = $20HFIRST 15 NUMBERS ARE*$
|
|
VECTOR VALUES FRSTAT = $6HFIRST ,I3,S1,11HAPPEARS AT ,I4*$
|
|
VECTOR VALUES NUMBER = $I4*$
|
|
|
|
DIMENSION STERN(1200)
|
|
STERN(1) = 1
|
|
STERN(2) = 1
|
|
|
|
R GENERATE FIRST 1200 MEMBERS OF THE STERN-BROCOT SEQUENCE
|
|
THROUGH GENSEQ, FOR I = 1, 1, I .GE. 600
|
|
STERN(I*2-1) = STERN(I) + STERN(I-1)
|
|
GENSEQ STERN(I*2) = STERN(I)
|
|
|
|
R PRINT FIRST 15 VALUES OF STERN-BROCOT SEQUENCE
|
|
PRINT FORMAT FRST15
|
|
THROUGH P15, FOR I = 1, 1, I .G. 15
|
|
P15 PRINT ON LINE FORMAT NUMBER, STERN(I)
|
|
|
|
R PRINT FIRST OCCURRENCE OF 1..10
|
|
THROUGH FRST10, FOR I = 1, 1, I .G. 10
|
|
FRST10 PRINT FORMAT FRSTAT, I, FIRST.(I)
|
|
PRINT FORMAT FRSTAT, 100, FIRST.(100)
|
|
|
|
R SEARCH FOR FIRST OCCURRENCE OF N IN SEQUENCE
|
|
INTERNAL FUNCTION(N)
|
|
ENTRY TO FIRST.
|
|
THROUGH SCAN, FOR K = 1, 1, I .G. 1200
|
|
SCAN WHENEVER N .E. STERN(K), FUNCTION RETURN K
|
|
END OF FUNCTION
|
|
END OF PROGRAM
|