fork download
copy 
  1. : M 10 mod ;
  2. : N
  3. 10000 1001 ?DO
  4. i M i 10 / M i 100 / M i 1000 / M + + +
  5. i over
  6. BEGIN
  7. /mod swap dup 0=
  8. WHILE
  9. drop 2dup = if i . endif
  10. over
  11. REPEAT
  12. 2drop drop
  13. LOOP ;
  14. N
  15.  
Success #stdin #stdout 0s 6836KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
2401 4913 5832
https://ideone.com/LfN1Y2
language:
Forth (gforth 0.7.3)
created:
7 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!