28
\$\begingroup\$

This challenge is a simple ASCII-art challenge inspired by the solar eclipse that happened on August 21, 2017. Given an input 0 <= n <= 4, output the corresponding stage of the eclipse described below:

n=0:
   *****
 **     **
*         *
*         *
**       **
  *******

n=1:
   *****
 **  *****
*   *******
*   *******
**   ******
  *******

n=2:
   *****
 *********
***********
***********
***********
  *******

n=3:
   *****
 *****  **
*******   *
*******   *
******   **
  *******

n=4:
   *****
 **     **
*         *
*         *
**       **
  *******

Rules

  • You can 0 or 1 index, state what you chose.
  • The chars used are space and *, you may use any printable char for * (other than space).
  • Trailing spaces are optional (you may or may not have them).
  • This is , lowest byte-count is the winner.
\$\endgroup\$
  • 3
    \$\begingroup\$ @Mr.Xcoder I'm against tagging challenges getting input as kolmogorov-complexity, although that's up to OP's discretion. \$\endgroup\$ – Erik the Outgolfer Aug 21 '17 at 16:29
  • 15
    \$\begingroup\$ Bummer that it's not symmetric top-to-bottom. \$\endgroup\$ – AdmBorkBork Aug 21 '17 at 16:31
  • \$\begingroup\$ Also, the eclipse has already started... \$\endgroup\$ – Erik the Outgolfer Aug 21 '17 at 16:31
  • \$\begingroup\$ @AdmBorkBork Yeah I could've saved some bytes... \$\endgroup\$ – Erik the Outgolfer Aug 21 '17 at 16:34
  • 7
    \$\begingroup\$ "You may use any character for *" ... including space? ;) \$\endgroup\$ – Hagen von Eitzen Aug 22 '17 at 11:26

11 Answers 11

13
\$\begingroup\$

Python 2, 161 149 142 135 bytes

lambda n,u=u' *':u'''   *****
 ****
**
**
****
  *******'''.translate({1:u[0<n<3],2:u[0<n<4],3:u[1<n<4]})

Try it online!

-7 thanks to Mr. Xcoder.

\$\endgroup\$
  • 9
    \$\begingroup\$ Nice abuse of unprintables. \$\endgroup\$ – Zacharý Aug 21 '17 at 18:15
  • \$\begingroup\$ Didn't fully appreciate this answer until I copy-pasted into Emacs. Brilliant! \$\endgroup\$ – Silvio Mayolo Aug 23 '17 at 0:01
  • \$\begingroup\$ @SilvioMayolo Umm, what did you do with Emacs? \$\endgroup\$ – Erik the Outgolfer Aug 23 '17 at 9:39
  • \$\begingroup\$ I was just looking at the answer on this page and didn't understand how it worked. Emacs shows all the hidden characters as ^A, ^B, ^C, etc. \$\endgroup\$ – Silvio Mayolo Aug 23 '17 at 16:11
  • \$\begingroup\$ @SilvioMayolo Oh, that's because unprintables have a representation that looks somewhat like Unicode chars. \$\endgroup\$ – Erik the Outgolfer Aug 23 '17 at 16:15
9
\$\begingroup\$

Charcoal, 82 81 55 43 bytes

-38 bytes thanks to Neil!

Nν”{“⟲FEd⧴_³⟲”‖O¿﹪ν⁴«F﹪ν²G↗³↑²↖²↙³*↑¤*¿⁼ν¹‖

Try it online! Link is to verbose version.

I did for the heck of it. :P I'll probably get out-golfed by 40 bytes. 26 38 bytes... Close enough?

\$\endgroup\$
  • 1
    \$\begingroup\$ I made some simplifications to your basic algorithm: Try it online! \$\endgroup\$ – Neil Aug 21 '17 at 18:46
  • 2
    \$\begingroup\$ I got out-golfed in my logic instead of my inability to use Charcoal. >_> Thanks! \$\endgroup\$ – totallyhuman Aug 21 '17 at 19:24
  • 1
    \$\begingroup\$ Looks like printing the outer "circle" works out shortest. I was also creative with the polygon for the odd inputs: Try it online! \$\endgroup\$ – Neil Aug 21 '17 at 19:43
  • \$\begingroup\$ 1) Dammit, I thought I was being clever with PolygonHollow. :P 2) Ohh, nice. Thanks! \$\endgroup\$ – totallyhuman Aug 22 '17 at 14:37
5
\$\begingroup\$

Cinnamon Gum, 70 bytes

Hexdump:

0000000: 6c33 5053 5050 d002 012e 20a5 0002 4026  l3PSPP.... ...@&
0000010: 9001 0568 6c20 07a6 0648 4080 b521 8a19  ...hl ...H@..!..
0000020: 30a6 1644 1093 0de3 a098 6184 6206 422d  0..D......a.b.B-
0000030: 6136 c20c 6374 3380 3cb8 5aa0 1436 36ba  a6..ct3.<.Z..66.
0000040: 5f4c 280f 0f00                           _L(...

Try it online!

I have been waiting so long to find out how to use this language. :P

So, Cinnamon Gum is Bubblegum, but it's more of a "real" language than Bubblegum.

The first byte (l) sets the mode to dictionary mode. The rest of the bytes is the following string compressed.

0&   *****
 **     **
*         *
*         *
**       **
  *******;1&   *****
 **  *****
*   *******
*   *******
**   ******
  *******;2&   *****
 *********
***********
***********
***********
  *******;3&   *****
 *****  **
*******   *
*******   *
******   **
  *******;4&   *****
 **     **
*         *
*         *
**       **
  *******

This essentially makes a lookup table with each text assigned to a number. The program then takes input and outputs the respective text.

\$\endgroup\$
  • \$\begingroup\$ Can argument%4 or argument&3 save bytes? \$\endgroup\$ – Titus Aug 22 '17 at 9:30
5
\$\begingroup\$

JavaScript (ES6), 103 102 bytes

f=
n=>`   *****
 **66733**${s=`
*666777333*`}${s}
**6667333**
  *******`.replace(/\d/g,c=>" *"[c*2>>n&1])
<input type=number min=0 max=4 oninput=o.textContent=f(this.value)><pre id=o>

Edit: Saved 1 byte thanks to @darrylyeo.

\$\endgroup\$
  • 1
    \$\begingroup\$ -2 bytes by storing *666777333*\n in a variable. \$\endgroup\$ – darrylyeo Aug 22 '17 at 14:08
  • \$\begingroup\$ @darrylyeo I must be doing something wrong because I can only seem to save 1 byte... \$\endgroup\$ – Neil Aug 22 '17 at 14:34
  • \$\begingroup\$ My bad, it does indeed save just 1 byte. \$\endgroup\$ – darrylyeo Aug 22 '17 at 22:28
4
\$\begingroup\$

SOGL V0.12, 40 39 bytes

"⁽Ρūa╔Ƨ ‘╥▓.4%?52"¹ο1¹‘╬¡╬5.H?:±}.2=?╬8

Try it Here!

\$\endgroup\$
  • \$\begingroup\$ If that helps any, Trailing spaces are optional (you may or may not have them). - Don't know SOGL, but might save bytes \$\endgroup\$ – Mr. Xcoder Aug 21 '17 at 16:47
  • \$\begingroup\$ @Mr.Xcoder It'd do the opposite, as SOGL adds trailing spaces when dealing with ASCII art anywhere :p \$\endgroup\$ – dzaima Aug 21 '17 at 16:48
4
\$\begingroup\$

VI, 108 bytes

D:let@a=@"%2?@":@"%4?"X":"\\d"<CR>
3i <Esc>5a*<Esc>Yphr*$a*<Esc>O**1110333**<Esc>YPi <Esc>3lx3lx"0px4lyl2p$xYp
:%s/<C-r>a/ /g<CR>
:%s/\d/*/g<CR>

<CR> is the Enter stroke, <C-?> corresponds to Control + ?, and <Esc> to Escape obviously. Each of these count for 1 byte (see meta). The line breaks in the solution is for readability. Only <CR> represents real Enter strokes.

Input

The input file should contain only 1 character, representing n.

Launch

VI should be started like :

vi -u NONE input

Explanations

There are 3 parts in the solution. I will describe the 2nd part first (2nd line), since it is the easiest to explain.

Drawing the sun

The command to draw the sun is :

3i <Esc>5a*<Esc>Yphr*$a*<Esc>O**1110333**<Esc>YPi <Esc>3lx3lx"0px4lyl2p$xYp

The sun must be drawn with , *, 0, 1 and 3, like this :

   *****
 **11033**
*111000333*
*111000333*
**1110333**
  *******

A symmetry would have helped to reduce the bytes size of this part, but it's not that important. I will not explain the full line, but the pattern ***** is used to easily generate the last line, and the pattern **1110333** has been taken as a reference to generate the 3 other lines containing 0, 1 and 3.

It is important to use 0, 1 and 3 for sun parts that can be filled (see next explanations). Drawing this sun takes 55 bytes, and can probably be golfed with some tricks.

Filling the sun according to n

To correctly fill the sun, the instructions to follow are :

  • if n = 0, then 0, 1 and 3 (all digits) should be replaced with
  • if n = 1, then 1 should be replaced with , the other digits with *
  • if n = 2, then 0, 1 and 3 (all digits) should be replaced with *
  • if n = 3, then 3 should be replaced with , the other digits with *
  • if n = 4, then 0, 1 and 3 (all digits) should be replaced with (like n = 0)

From that, we can infer that the substitutions required are :

  • replace some digits by (first substitution)
  • replace all other digits by * (second substitution)

Note that "some digits" can mean "no digits" (n = 2 for example). And "all other digits" can also represent "no digits", if all digits have already been replaced by the first substitution (n = 0 for example).

The second substitution can be easily written in 11 bytes :

:%s/\d/*/g<CR>

The first substitution depends on n, so first we have to calculate what digits are going to be replaced. If replaced characters are stored in register a, the substitution command is written in also 11 bytes :

:%s/<C-r>a/ /g<CR>

<C-r>a is replaced by the content of register a when the command is typed.

To calculate the value of a, following the previous instructions, the algorithm is (in pseudo-code) :

n := read()
if (n % 2 != 0)
then
    a := n
else
    if(n % 4 != 0)
    then
        a := "X"
    else
        a := "\d"

"X" string is used because when n = 2, no digits are replaced by spaces. Any string that is not the sun could be used here, as long as the first substitution does nothing.

This could be written in 31 bytes :

D                                   # yank and delete the first character of the file (n) to register "" (yank by default) : n = @"
 :let@a=                            # define register "a content
        @"%2                        # if (n % 2 != 0)
            ?                       # then
             @"                     #   n
               :                    # else
                @"%4                #   if (n % 4 != 0)
                    ?               #   then
                     "X"            #       "X"
                        :           #   else
                         "\\d"      #       "\\d"
                              <CR>  # calculate "a

Solution

Put all these parts in the right order, and you have the solution :

D:let@a=@"%2?@":@"%4?"X":"\\d"<CR>                                              # calculate the digits to replace with spaces
3i <Esc>5a*<Esc>Yphr*$a*<Esc>O**1110333**<Esc>YPi <Esc>3lx3lx"0px4lyl2p$xYp     # draw the sun with spaces, stars, 0, 1 and 3
:%s/<C-r>a/ /g<CR>                                                              # replace the pattern stored in register "a with spaces
:%s/\d/*/g<CR>                                                                  # replace the remaining digits with stars
\$\endgroup\$
3
\$\begingroup\$

PHP, 114+1 bytes

+1 byte for -R. Thanks @Neil for the shifting hint.

for(;$c="   *****
 **66733**
*666777333*
*666777333*
**6667333**
  *******"[$i++];)echo+$c?" *"[$c*2>>$argn&1]:$c;

uses underscore for *, 0-indexed. Run as pipe with -nR or try it online.

Requires PHP 5.5 or later:
older PHP does not understand literal string indexing (parse error);
PHP 7.1 complains about non-numeric values (replace +$c with $c>0 to fix).

\$\endgroup\$
  • 1
    \$\begingroup\$ I think " _"[$c*2>>$argn&1] avoids negative shift parameters if you need it. \$\endgroup\$ – Neil Aug 22 '17 at 9:13
2
\$\begingroup\$

Python 2, 170 169 bytes

  • -1 byte thanks to @TheIOSCoder: use of exec
def f(x,k=0):exec'print"".join(ord(i)*" *"[j%2]for j,i in enumerate(["		","	","	!",""][x%4]))[11*k:][:11];k+=1;'*6

Try it online!

\$\endgroup\$
  • 1
    \$\begingroup\$ 169 bytes \$\endgroup\$ – user70974 Aug 21 '17 at 17:46
2
\$\begingroup\$

Python 2, 181 bytes

lambda n,s=' ',a='*':"""   *****
 **%s**
*%s*
*%s*
**%s**
  *******"""%[(s*5,s*9,s*9,s*7),(s*2+a*3,s*3+a*6,s*3+a*6,s*3+a*4),(a*5,a*9,a*9,a*7),(a*3+s*2,a*6+s*3,a*6+s*3,a*4+s*3)][n%4]

Try it online!

Very naive approach, workin' on golfin' nvm.

\$\endgroup\$
2
\$\begingroup\$

Java 8, 225 213 211 bytes

n->{String a=n<2|n>3?"   ":"***",b=n<1|n>2?"   ":"***",c=n%4<1?" ":"*",d=a+(n%4<1?"   ":"***")+b;return"   *****\n **"+(n<2|n>3?"  ":"**")+c+(n<1|n>2?"  ":"**")+"**\n*"+d+"*\n*"+d+"*\n**"+a+c+b+"**\n  *******";}

Try it here.

\$\endgroup\$
1
\$\begingroup\$

05AB1E, 46 bytes

„* •zÇRéóĀ—ÚÂÐoʒ<]ÜA›¶Ò¿H¶ ∞m•b3äûIèSèJ6äIií}»

Try it online!

\$\endgroup\$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.