Sequence and Series

Question

Use any programming language to display numbers divisible by 1000000 that are greater than 1 and less than 10000000. Each number should be displayed in new line. Your program should display exactly:

Hi, I closed your question as a duplicate of an older question, because the challenge specified there is pretty much the intent of this question. The other question is about testing divisibility between two numbers. — Erik the Outgolfer, Oct 27 '18 at 17:42
@EriktheOutgolfer Not all answers here can be ported there, this one is more trivial. (being trivial should not be a reason for closing) — user202729, Oct 28 '18 at 15:02

Community · Accepted Answer · 2020-06-17 09:04:33Z

3

Japt `-R`, 5 bytes

9õ*L³

Test it

Explanation

9õ        :Range [1,9]
  *       :Multiply each by
   L      :100
    ³     :Cubed
          :Implicitly join with newlines and output

edited Jun 17 '20 at 9:04

Community♦

1

answered Oct 27 '18 at 16:48

Shaggy

30.1k3 gold badges25 silver badges83 bronze badges

add a comment |

ovs · Accepted Answer · 2018-10-28 19:17:54Z

3

Python 2, 29 bytes

i=0;exec'i+=10**6;print i;'*9

Try it online!

answered Oct 28 '18 at 19:17

ovs

32.2k2 gold badges20 silver badges92 bronze badges

add a comment |

tsh · Accepted Answer · 2019-02-21 09:37:02Z

3

Bash, 13 bytes

seq {1,1,9}e6

Try it online!

This answer is found out by @manatwork

edited Feb 21 '19 at 9:37

answered Oct 29 '18 at 5:21

tsh

15.2k2 gold badges19 silver badges67 bronze badges

\$\begingroup\$ seq {1,1,9}e6 \$\endgroup\$ – manatwork Feb 21 '19 at 9:13
\$\begingroup\$ @manatwork great! never heard such a notation before. \$\endgroup\$ – tsh Feb 21 '19 at 9:38
\$\begingroup\$ Is just a usual brace expansion. echo seq {1,1,9}e6 will show you that it expands to your original code. \$\endgroup\$ – manatwork Feb 21 '19 at 9:42

add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

Whitespace, 85 bytes

[S S S N
_Push_0][N
S S N
_Create_Label_LOOP][S S S T N
_Push_1][T  S S S _Add][S N
S _Duplicate][S S S T   S T S N
_Push_10][T S S T   _Subtract][N
T   S S N
_If_0_Jump_to_Label_EXIT][S N
S _Duplicate][S S S T   T   T   T   T   S T S S S N
_Push_1000][S N
S _Duplicate][T S S N
_Multiply][T    S S N
_Multiply][T    N
S T _Print_number][S S S T  S T S N
_Push_10][T N
S S _Print_character][N
S N
N
_Jump_to_Label_LOOP]

Letters S (space), T (tab), and N (new-line) added as highlighting only.
[..._some_action] added as explanation only.

Try it online (with raw spaces, tabs and new-lines only).

Pseudo-code:

Integer i = 0
Start LOOP:
  i = i + 1
  If(i == 10):
    Exit with an error
  Integer j = 1000 * 1000 * i
  Print j as number to STDOUT
  Print "\n"
  Go to next iteration of LOOP

AdmBorkBork · Accepted Answer · 2018-10-30 12:34:58Z

2

PowerShell, 14 bytes

1..9|%{$_*1e6}

Try it online!

Simply loops from 1 to 9 and multiplies each by 1e6, i.e., 1000000, to give the appropriate numbers. Ho-hum boring. Saved 7 bytes thanks to mazzy.

Previous versions:

PowerShell, 21 bytes

1..9|%{"$_"+"000000"}

Try it online!

Boring simple loop from 1 to 9 that just string-concatenates the output together.

PowerShell, 21 bytes

1e6..9e6|?{!($_%1e6)}

Try it online!

Loops from 1e6 to 9e6, pulls out those entries where they're divisible by 1e6. Times out on TIO but works offline. Run it with 3 instead of 6 to see the logic better.

edited Oct 30 '18 at 12:34

answered Oct 29 '18 at 13:03

AdmBorkBork

42.2k4 gold badges88 silver badges276 bronze badges

\$\begingroup\$ ? 1..9|%{$_*1e6} \$\endgroup\$ – mazzy Oct 29 '18 at 21:19
\$\begingroup\$ @mazzy Of course! The most boring solution yet! Haha. \$\endgroup\$ – AdmBorkBork Oct 30 '18 at 12:35

add a comment |

Okx · Accepted Answer · 2018-10-27 16:47:02Z

1

Neim, 8 bytes

9Δμ7𝕎𝕋)_

Try it online!

answered Oct 27 '18 at 16:47

Okx

15.4k3 gold badges34 silver badges99 bronze badges

add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

1

05AB1E, 6 bytes

9L6°*»

Try it online.

Explanation:

9L        # List in the range [1,9]
  6°*     # Multiply each by 10**6
     »    # Join the list by newlines (and output implicitly)

edited Jun 17 '20 at 9:04

Community♦

1

answered Oct 29 '18 at 8:08

Kevin Cruijssen

85.6k7 gold badges110 silver badges303 bronze badges

add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

1

Java 11, 62 61 56 54 bytes

v->{for(int i=0;i++<9;)System.out.println(i*1000000);}

-2 bytes thanks to @ggorlen.

Try it online.

Explanation:

v->{                        // Method with empty unused parameter and no return-type
  v->{for(int i=0;i++<9;)   //  Loop `i` in the range (0,9]
    System.out.println(     //   Print without trailing newline:
     i*1000000);}           //    `i` multiplied by 1,000,000

edited Jun 17 '20 at 9:04

Community♦

1

answered Oct 29 '18 at 8:02

Kevin Cruijssen

85.6k7 gold badges110 silver badges303 bronze badges

1

\$\begingroup\$ You could save a couple bytes with v->{for(int i=0;i++<9;)System.out.println(i*1000000);} \$\endgroup\$ – ggorlen Oct 30 '18 at 18:33
\$\begingroup\$ @ggorlen Can't believe I didn't check if that was shorter.. I did try printf("%.0f%n",i*1e6) and println((int)(i*1e6)) but forgot about just println(i*1000000).. Thanks! \$\endgroup\$ – Kevin Cruijssen Oct 30 '18 at 20:01

add a comment |

glietz · Accepted Answer · 2019-02-21 14:21:40Z

1

Python 3, 35 bytes

for i in range(1,10):print(i*10**6)

Try it online!

edited Feb 21 '19 at 14:21

answered Nov 8 '18 at 23:29

glietz

1011 silver badge7 bronze badges

add a comment |

score 1 · Accepted Answer · 2019-12-17 08:11:07Z

1

Keg, 17 bytes

Ϩ²:(
;|:.
,':"+

Try it online!

Explanation

Ϩ    # Push 1k
 ²   # Square the value
  :( # Copy the value for the accumulator
;|   # Repeat 10-1 times:
  :. # Print TOS
,    # Print newline
 ':" # Copy 1m to TOS
    + #Add the values

Keg, 8 bytes (SBCS) (Doesn't seem to work online yet)

9Ï_⑷ė6Ë*

Try it online!

Explanation

9Ï_     #Generate range 1-9 by generating range 0-9 and discarding 0
   ⑷        #Map the following to each element:
    ė6Ë*    #   Multiply each by 10 to the power of 6
#-pn puts newlines between each item, which is printed using -no

edited Dec 17 '19 at 8:11

answered Dec 16 '19 at 14:15

user85052

\$\begingroup\$ 8 bytes using -pn and -no combined with Ï. N.B. TIO needs updating of Keg \$\endgroup\$ – Lyxal Dec 17 '19 at 7:54
\$\begingroup\$ 8 byter explained \$\endgroup\$ – Lyxal Dec 17 '19 at 7:56
\$\begingroup\$ Yeah. It's been around for a few weeks now so it's relatively new. \$\endgroup\$ – Lyxal Dec 17 '19 at 8:22

add a comment |

score 1 · Accepted Answer · 2020-01-27 01:25:51Z

1

W `n` `d`, 5 bytes

-í╞6\

Explanation

Decompressed:

9    M % Map in the range 1..9
 a  *  % Multiply the current item by ...
  6^   % ... 10 to the power of 6

edited Jan 27 '20 at 1:25

answered Dec 16 '19 at 14:27

user85052

add a comment |

ggorlen · Accepted Answer · 2018-10-30 18:36:05Z

0

JavaScript (Node.js), 35 bytes

for(i=0;i++<9;)console.log(i*10**6)

Try it online!

answered Oct 30 '18 at 18:36

ggorlen

1211 silver badge7 bronze badges

add a comment |

Conor O'Brien · Accepted Answer · 2018-11-01 03:31:57Z

0

Attache, 16 bytes

Output[1:9*10^6]

Try it online!

Explanation

Output[1:9*10^6]
       1:9          the range from 1 to 9
          *10^6     multiplied by 10^6 (1e6)
Output[        ]    output each entry on its own line

answered Nov 1 '18 at 3:31

Conor O'Brien

36.9k2 gold badges78 silver badges167 bronze badges

add a comment |

Conor O'Brien · Accepted Answer · 2018-11-01 03:42:10Z

0

///, 29 bytes

/!/000000
/1!2!3!4!5!6!7!8!9!

Try it online!

33 bytes for no trailing newline:

/"/000//!/""
/1!2!3!4!5!6!7!8!9""

Try it online!

answered Nov 1 '18 at 3:42

Conor O'Brien

36.9k2 gold badges78 silver badges167 bronze badges

add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

0

C++ 44 bytes

for(int i=1;i<=9;i++){cout<<i*100**6<<endl;}

edited Jun 17 '20 at 9:04

Community♦

1

answered Nov 1 '18 at 19:44

VortexYT

3351 silver badge13 bronze badges

add a comment |

Neil · Accepted Answer · 2018-11-01 22:34:17Z

0

Retina, 16 bytes


9*
L$`.
$.>`6*0

Try it online! Explanation:

9*

Insert 9 _s.

L$`.

List a value for each _.

$.>`6*0

Number of characters up to and including the current _ followed by six zeros.

answered Nov 1 '18 at 22:34

Neil

114k9 gold badges55 silver badges227 bronze badges

add a comment |

Meerkat · Accepted Answer · 2018-11-06 20:30:15Z

0

C# (.NET Core), 48 44 bytes

for(int i=0;i++<9;)Console.WriteLine(i*1e6);

Try it online!

-4 bytes: changed i*1000000 to i*1e6 in Console.WriteLine()

Ungolfed:

for (int i = 0; i++ < 9;)               // from 1 to 9
    Console.WriteLine(i * 1e6);     // write i times 1,000,000 (1e6 = 1*(10^6) = 1,000,000) to the console

edited Nov 6 '18 at 20:30

answered Nov 1 '18 at 20:50

Meerkat

3711 silver badge9 bronze badges

add a comment |

Adám · Accepted Answer · 2019-01-30 09:08:40Z

0

APL (Dyalog Unicode), 7 bytes^SBCS

Full program.

⍪1E6×⍳9

Try it online!

⍳9 ɩndices one through nine

1E9× multiply million by those

⍪ columnify

answered Jan 30 '19 at 9:08

Adám

25.1k2 gold badges101 silver badges257 bronze badges

add a comment |

sergio MAGA · Accepted Answer · 2019-10-18 05:16:21Z

0

Ruby, 30 24 bytes

(1..9).map{|d|p d*10**6}

Try it online!

-6 bytes: use map instead of step. Use 10**6 instead of 1e6.to_i

edited Oct 18 '19 at 5:16

answered Oct 18 '19 at 4:14

sergio MAGA

1013 bronze badges

1

\$\begingroup\$ Welcome to PPCG! \$\endgroup\$ – Jonathan Frech Oct 18 '19 at 4:41

add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

x86-16 machine code, IBM PC, 31 bytes

B0 31       MOV  AL, '1'    ; start at ASCII '1' 
        LOOPY: 
50          PUSH AX         ; save value of AL 
B4 0E       MOV  AH, 0EH    ; BIOS TTY output function 
CD 10       INT  10H        ; call BIOS 
B8 0A30     MOV  AX, 0A30H  ; AH = 0AH (write chars * CL), AL = '0' 
B1 06       MOV  CL, 6      ; display 6 times 
CD 10       INT  10H        ; call BIOS 
B8 0E0D     MOV  AX, 0E0DH  ; AH = 0EH (TTY function), AL = CR char 
CD 10       INT  10H        ; call BIOS 
B8 0E0A     MOV  AX, 0E0AH  ; AH = 0EH (TTY function), AL = LF char 
CD 10       INT  10H        ; call BIOS 
58          POP  AX         ; restore leading digit counter 
40          INC  AX         ; increment leading digit 
3C 39       CMP  AL, '9'    ; if less than '9' 
7E E4       JLE  LOOPY      ; keep looping 
C3          RET             ; return to DOS

Standalone DOS executable, uses IBM PC BIOS for output. Really thought this would be smaller before I started!

score 0 · Accepted Answer · 2020-01-29 12:14:06Z

0

Jelly, 6 bytes

9Rȷ6×Y

Try it online!

Explanation

9R     [1, 2, ..., 8, 9]
  ȷ6   100000
    ×  Multiply each
     Y Join by newline

edited Jan 29 '20 at 12:14

answered Jan 29 '20 at 11:44

user85052

add a comment |

Stack Exchange Network

current community

your communities

more stack exchange communities

Sequence and Series

21 Answers 21

Japt `-R`, 5 bytes

Explanation

Python 2, 29 bytes

Bash, 13 bytes

Whitespace, 85 bytes

PowerShell, 14 bytes

PowerShell, 21 bytes

PowerShell, 21 bytes

Neim, 8 bytes

05AB1E, 6 bytes

Java 11, 62 61 56 54 bytes

Python 3, 35 bytes

Keg, 17 bytes

Explanation

Keg, 8 bytes (SBCS) (Doesn't seem to work online yet)

Explanation

W `n` `d`, 5 bytes

Explanation

JavaScript (Node.js), 35 bytes

Attache, 16 bytes

Explanation

///, 29 bytes

C++ 44 bytes

Retina, 16 bytes

C# (.NET Core), 48 44 bytes

APL (Dyalog Unicode), 7 bytes^SBCS

Ruby, 30 24 bytes

x86-16 machine code, IBM PC, 31 bytes

Jelly, 6 bytes

Explanation

Your Answer

Not the answer you're looking for? Browse other questions tagged code-golf kolmogorov-complexity or ask your own question.

Linked

Hot Network Questions

Sequence and Series

21 Answers 21

Japt -R, 5 bytes

Explanation

Python 2, 29 bytes

Bash, 13 bytes

Whitespace, 85 bytes

PowerShell, 14 bytes

PowerShell, 21 bytes

PowerShell, 21 bytes

Neim, 8 bytes

05AB1E, 6 bytes

Java 11, 62 61 56 54 bytes

Python 3, 35 bytes

Keg, 17 bytes

Explanation

Keg, 8 bytes (SBCS) (Doesn't seem to work online yet)

Explanation

W n d, 5 bytes

Explanation

JavaScript (Node.js), 35 bytes

Attache, 16 bytes

Explanation

///, 29 bytes

C++ 44 bytes

Retina, 16 bytes

C# (.NET Core), 48 44 bytes

APL (Dyalog Unicode), 7 bytesSBCS

Ruby, 30 24 bytes

x86-16 machine code, IBM PC, 31 bytes

Jelly, 6 bytes

Explanation

Your Answer

Sign up or log in

Post as a guest

Not the answer you're looking for? Browse other questions tagged code-golf kolmogorov-complexity or ask your own question.

Linked

Related

Hot Network Questions

Japt `-R`, 5 bytes

W `n` `d`, 5 bytes

APL (Dyalog Unicode), 7 bytes^SBCS