Download or view baseConversionTest.frink in plain text format
// Program to test correctness of base conversions.
// This performs a round-trip conversion of random numbers to and from
// all bases.
upper = 100000
stepsize = upper div 100
for n = 1 to 100000
{
if n mod stepsize == 0
println[n div stepsize + "%"]
b=random[2,26]
b = b * random[[-1,1]]
exp=random[300, 2000]
m = b^exp
for addend = -2 to 2
{
mp = m + addend
for base = 2 to 36
{
out1 = newToString[mp, base] // Get string representation
mp2 = parseInt[out1, base]
if mp != mp2
println["*DISCREPANCY: $b^$exp + $addend in base $base"]
}
}
}
println["done"]
Download or view baseConversionTest.frink in plain text format
This is a program written in the programming language Frink.
For more information, view the Frink
Documentation or see More Sample Frink Programs.
Alan Eliasen was born 19972 days, 4 hours, 48 minutes ago.