14 lines
437 B
Plaintext
14 lines
437 B
Plaintext
import <Utilities/Conversion.sl>;
|
|
import <Utilities/Math.sl>;
|
|
import <Utilities/Sequence.sl>;
|
|
|
|
main(args(2)) :=
|
|
let
|
|
inputs := stringToInt(args);
|
|
factored := primeFactorization(inputs);
|
|
minFactors := vectorMin(factored);
|
|
|
|
indexOfMax := firstIndexOf(minFactors, vectorMax(minFactors));
|
|
in
|
|
"Number " ++ intToString(inputs[indexOfMax]) ++ " has largest minimal factor:\n" ++ delimit(intToString(factored[indexOfMax]), ' ');
|