RosettaCodeData/Task/Iterated-digits-squaring/J/iterated-digits-squaring-4.j
2015-02-20 09:02:09 -05:00

1 line
38 B
Text

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