9 lines
364 B
Text
9 lines
364 B
Text
fcn printHam(n){
|
|
r,t:=nthHam(n); i,j,k:=t; h:=trival(i,j,k);
|
|
println("Hamming(%,d)-->2^%d * 3^%d * 5^%d-->\n%s".fmt(n,i,j,k,h));
|
|
}
|
|
|
|
printHam(1691); //(5,12,3), 10 digits
|
|
printHam(0d1_000_000); //(55,47,64), 84 digits
|
|
printHam(0d10_000_000); //(80,92,162), 182 digits, 80 zeros at end
|
|
printHam(0d1_000_000_000); //(1334,335,404), 845 digits
|