Disarium numbers: Difference between revisions
Add Forth
Not a robot (talk | contribs) (Add BQN) |
Not a robot (talk | contribs) (Add Forth) |
||
Line 1,179:
= 1676
= 2427</pre>
=={{header|Forth}}==
<syntaxhighlight lang="forth">: pow 1 swap 0 ?do over * loop nip ;
: len 1 swap begin dup 10 >= while 10 / swap 1+ swap repeat drop ;
: dps 0 swap dup len
begin dup while
swap 10 /mod swap
2 pick pow
3 roll +
rot 1- rot
swap
repeat
2drop
;
: disarium dup dps = ;
: disaria 2700000 0 ?do i disarium if i . cr then loop ;
disaria
bye</syntaxhighlight>
{{out}}
<pre>0
1
2
3
4
5
6
7
8
9
89
135
175
518
598
1306
1676
2427
2646798 </pre>
=={{header|FutureBasic}}==
| |||