质数与合数 by Ronan Downes

GeoGebra 命令及参数

1. Textfield(n) → InputBox1
2. Reverse(KeepIf[IsInteger[k], k, Sequence[n / i, i, floor(sqrt(n)) + 1, n]]) → l1
3. KeepIf(IsInteger[k], k, Sequence[n / i, i, 1, floor(sqrt(n))]) → l2
4. Flatten(Zip[{a, b}, a, l1, b, l2]) → l3
5. If(IsInteger[sqrt(n)], Append[l3, sqrt(n)], l3) → listFactor
6. Sequence(Text[listFactor(i)] + "\,,\," + (If[Mod[i, 10] ≟ 0, "\\", ""]), i, 1, t) → listFactorText
7. Length(listFactor) → f
8. Sort(listFactor) → listFactorSort
9. Sequence(Text[listFactorSort(i)] + "\,,\," + (If[Mod[i, 10] ≟ 0, "\\", ""]), i, 1, t) → listFactorTextSort