RosettaCodeData/Task/Disarium-numbers/J/disarium-numbers.j
2023-12-16 21:33:55 -08:00

5 lines
136 B
Text

digits=: "."0@":
disarium=: = (+/@:^ #\)@digits"0
I. disarium i. 27e5
0 1 2 3 4 5 6 7 8 9 89 135 175 518 598 1306 1676 2427 2646798