RosettaCodeData/Task/Digital-root-Multiplicative-digital-root/Phix/digital-root-multiplicative-digital-root-2.phix
2026-02-01 16:33:20 -08:00

3 lines
215 B
Text

with javascript_semantics
function pdd(integer n) return sprintf("%2d",product(sq_sub(sprint(n),'0'))) end function
printf(1,"Product of the decimal digits of 1..100:\n%s\n", {join_by(apply(tagset(100),pdd),1,10)})