RosettaCodeData/Task/Iterated-digits-squaring/J/iterated-digits-squaring-5.j
2023-07-01 13:44:08 -04:00

1 line
38 B
Text

itdigsq4=:4 = sumdigsq^:(0=e.&4)^:_"0