##---The prime generator doesn't terminate, so look for values.
#start with 10, and result includes a series of values 10^p , p prime
fracp10 <- fracMake(c(7,99,13,39,36,10,49,7,1,91), c(3,98,49,35,91,143,13,11,2,1))
p10 <-fracDo(10,fractions = fracp10, tries = 1000,stopFun=stopPrime, mantissa = 10 )
# primes found are sent to console
# p10 contains all integers found.
Run the code above in your browser using DataLab