Revision as of 03:19, 16 September 2023 (view source) imported>Maxima enthusiast No edit summary ← Older edit		Revision as of 14:58, 15 October 2023 (view source) Querfeld (talk \| contribs) (→‎J: 19 times as fast) Newer edit →
Line 1,676: =={{header\|J}}== <syntaxhighlight lang="j">digits=: ~~10 #~~".~~inv ]~~"0@": disarium=: (= (+/ .@:^ #\)@digits)"0 I. disarium i.~~1e4~~ 27e5 0 1 2 3 4 5 6 7 8 9 89 135 175 518 598 1306 1676 2427 2646798</syntaxhighlight> =={{header\|Java}}== <syntaxhighlight lang="java">

Disarium numbers (view source)