Download or view toStringTest.frink in plain text format
// This is a test to make sure that toString[x] works right for all integers.
println["Verifying powers of 2 and 10: "]
for exp = 0 to 10000
{
verify[2^exp]
verify[10^exp]
verify[2^exp - 1]
verify[10^exp - 1]
verify[2^exp + 1]
verify[10^exp + 1]
if (exp mod 100 == 0)
print["$exp "]
}
iter = 0
println["\nDone.\n\nVerifying random numbers. "]
while (true)
{
bits = random[10000]
a = randomBits[bits]
verify[a]
iter = iter + 1
if (iter mod 1000 == 0)
print["$iter "]
}
verify[a] :=
{
j = "$a"
t = oldToString[a]
if (t != j)
{
println["j: $j"]
println["t: $t"]
}
}
Download or view toStringTest.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 20145 days, 7 hours, 17 minutes ago.