13
\$\begingroup\$

Introduction

Write a program to output the outgoing spiral of the famous pangram following given rules.

Challenge

A pangram is a sentence using every letter of a given alphabet at least once. One of the most famous pangrams is the one used extensively in Windows font viewer, namely "The quick brown fox jumps over the lazy dog". The challenge is to output a spiral based on this text.

Your task is output this exact text:

heeeeellllllllllllazzzzzzzzzzz
hummmmmmmmmmmmmppppppppppppppy
hubrrrrrrrrrrrrrrrrrrooooooosy
hukyddddoooooooooooooooggggwsy
hukyveeeeerrrrrrrrrrrrrrrrtwsy
hukyvxjjjjjjjjjjuuuuuuuuuttwsy
hukyvxkbbrrrrrrrrrrrrrrrmttwsy
hukyvxkogggggggttttttttomttwsy
tukyvokoellllllllllllahomttwsy
tukyvokoeovvvvvvvvvvvzhomttwsy
tukyvocoeoummmmmmmmmezhomttwsy
tukyvocoeoufooooooopezhomttwsy
tukyvocohoufroooooxpezhomttwsy
tukyvoiohoufrquuuwxpezhomttwsy
tucyvoiohoufbqttiwxpezhomttwsy
tucyvoiohoufbeehiwxprzhomttwsy
tucyvoiohoufkccciwxprzeomttwsy
tjiyvoidhounnnnnnwxprzeomttwsy
tjiyvoidhojjjjjjjjxprzeomttwsy
tjiyvoidhssssssssssprzeopttwsy
tjiyvoidttttttttttttrzeopttwsy
tjiyvoiyyyyyyyyyyyyyyzqopttwoy
tjiyvouuuuuuuuuuuuuuuuqwpttwoy
tjiyvffffnnnnnnnnnnnnnnwpttwoy
tjiyossssssssssssssssssspthwoy
tjizzzzalllllllllllleeeeehhwoy
tjuuqqqqqqqqqqqqqqqqqeeeeehnod
txxxxxoooooooooooooooffffffnod
reeeeevvvvvvvvvvvvvvvvvvvvvvod
       gggggggoooooooooooooood

Here is how it is generated,

  • There was a zealous fox who enjoyed the pangram "The quick brown fox jumps over the lazy dog". One day he was in the center of an outward spiral and decided to jump in it and paint along.
  • He would like to go through the pangram from the beginning to the end, and if a letter is the n-th letter in the alphabet he would like to paint it n times.
  • However, the fox was not very good at making turns on corners, so upon reaching each corner he also had to stop and switch to the next letter.
  • He also decided to repeat the pangram thrice to emphasize that he is the quick brown fox.
  • Your job is to show how the spiral would look like after the fox painted all those letters.

(Plain version without story-telling)

  • The famous pangram "The quick brown fox jumps over the lazy dog" is repeated thrice, with the spaces removed and all letters in lower case, to generate

    thequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydog
    
  • The spiral starts from the center and begins with the letter "t", it starts by going to the right, and goes outward clockwise. If the current character is the n-th letter in the alphabet, then it switches to the next character whenever

    • the spiral reaches a corner, or
    • the current letters is printed exactly n times.

To better illustrate it, I will explain how the spiral related to the first three words "thequickbrown" is generated.

 rooooo
 rquuuw
 bqttiw
 beehiw
 kccciw
nnnnnnw

The fox starts from "t", goes right, reaches the 1st corner, paints it with the "t" and then switches to "h" and goes down, reaches the 2nd corner, switches to "e" and goes left, reaches the 3rd corner, switches to "q" and goes up, reaches the 4th corner, switches to "u" and goes right, reaches a corner and switches to "i", goes down, reaches a corner and switches to "c", goes left, successfully paints 3 "c"s before reaching the next corner, switches to "k" and goes on to the left, reaches a corner right away, switches to "b" and goes up, paints 2 "b"s before reaching the next corner, switches to "r" and goes on upwards, reaches a corner and switches to "o", goes right, then "w", down, "n", left.

Specs

  • You can take an optional input that contains any standard form of the string

    thequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydogthequickbrownfoxjumpsoverthelazydog
    
  • Your output must be formatted as a string, and must go to STDOUT instead of files or STDERR, with newlines placed correctly. Heading and trailing empty lines do not matter. Heading and trailing spaces in each line are allowed, but need to be be consistent. So if you add 5 spaces before one line of the given text, you'll need to add exactly 5 spaces before each line so that the spiral looks the same.

  • This is , the lowest number of bytes wins.

  • As usual, default loopholes apply here.


Explanations are welcome, although not necessary.

Title edited to make it a pangram per comment by caird coinheringaahing.

The lazy dog is too lazy to appear in the story.

I am aiming at creating a string challenge in which the letter to output cannot be computed by simple functions of the coordinates.

\$\endgroup\$
8
  • 2
    \$\begingroup\$ It's a shame that the title isn't a pangram \$\endgroup\$ Commented Feb 7, 2018 at 20:04
  • \$\begingroup\$ @cairdcoinheringaahing Good point, I'll try to come up with one. Any suggestions? \$\endgroup\$ Commented Feb 7, 2018 at 20:05
  • 4
    \$\begingroup\$ @cairdcoinheringaahing Updated \$\endgroup\$ Commented Feb 8, 2018 at 1:47
  • \$\begingroup\$ Minor point: shouldn't the 'h' in the first 'the' be repeated twice, not the 't'? \$\endgroup\$
    – mudkip201
    Commented Feb 8, 2018 at 3:02
  • \$\begingroup\$ @mudkip201 The corner is painted with the original letter before switching to the next character. Maybe I should clarify. \$\endgroup\$ Commented Feb 8, 2018 at 3:06

4 Answers 4

12
\$\begingroup\$

Charcoal, 66 40 36 bytes

≔²ηFS«F¬η«¶↷⊞υη≔⊕÷Lυ²η¶»F⊕⌕βι¿η«≦⊖ηι

Try it online! Link is to verbose version of code. Edit: Saved 16 bytes by taking the text as input. Explanation:

≔²η

Start with 2 ts for some reason.

FS«

Loop over all the letters in the pangram.

F¬η«

Have we reached a corner yet?

Move down (or whatever the next direction will be) one line.

Rotate the print direction 90° clockwise.

⊞υη≔⊕÷Lυ²η

Calculate the length of the next side.

¶»

Finish fixing up the cursor position. (Charcoal would have preferred the side to end just before the corner, so that you rotated on the corner itself.)

F⊕⌕βι

Loop as many times as the current letter's position in the alphabet.

¿η«

If we haven't reached the corner,

≦⊖ηι

Decrement the count and print the current letter.

\$\endgroup\$
3
  • \$\begingroup\$ Thank you. Great job and well explained. A small typo: there times -> three times. \$\endgroup\$ Commented Feb 8, 2018 at 1:11
  • \$\begingroup\$ This 43 byte version is also acceptable according to specification. tio.run/##rY7NTsMwEITPzlNYPW2kcumVExJCikRRhLgBh9Rx4oV4nfon/… \$\endgroup\$ Commented Feb 8, 2018 at 18:59
  • 1
    \$\begingroup\$ @WeijunZhou Thanks, I didn't notice that clause in the question before. \$\endgroup\$
    – Neil
    Commented Feb 8, 2018 at 21:44
6
\$\begingroup\$

Stax, 35 34 33 32 bytes

é╛îá%ⁿ┌○iê}→Ug=╩◙╘Ç⌐)QX↑L╓₧╗▌╧▬q

Run and debug it online

Stax is a language I've been working on for about 6 months. This is the first public golfing with it. Let's get down to business.

Stax is normally written in the printable ASCII character set. This 34 byte submission is packed into a variant of the CP437 character set. The corresponding ascii representation is

't],{]_96-*~cHT,+nh%^(XUs&xH{rM}MF|<mr

Stax is a stack based language, but it has two data stacks, "main" and "input". Most operations use the main stack, but input starts on the input stack. Stax instructions are mostly one or two character ascii sequences. Most of them are overloaded, meaning their behavior is determined by the top few values on the stack(s).

At a high level, this program builds a grid by repeatedly appending strings to the last row. When the last row fills up, it rotates the grid clockwise. At the end, it mirrors the grid horizontally. In more detail, the program works like this.

't],{]_96-*~cHT,+nh%^(XUs&xH{rM}MF|<mr
't]                                         ["t"]
   ,                                        Pop from input, push to main ("thequick...")
    {                            F          For each character in input, execute block...
     ]_96-*                                 Produce string using character appropriate
                                                number of times (a=1, b=2, etc)
           ~                                Pop from main, push to input for use later
            cH                              Copy last row from grid.
              T                             Right-trim whitespace
               ,+                           Pop from input stack and append
                 nh%                        Get the width of the first row of the grid
                    ^                       Add 1
                     (                      Right-pad/truncate string to this length
                      X                     Store in the x register
                       Us&                  Overwrite last row of the grid with new value.
                          xH                Get the last element from x.
                                                Basically, the lower right corner.
                             {  }M         Conditionally execute block.  This will happen 
                                                when the bottom right corner isn't a space.
                              rM            Reverse and transpose (aka rotate clockwise)
                                  |<        Left-justify grid; give all rows equal size.
                                     m      For each row, execute the rest of the program
                                               and then print the result to output
                                      r     Reverse the row
\$\endgroup\$
6
  • \$\begingroup\$ Wow, I am really amazed that the challenge would see the first public appearance in golfing for a golfing language. Thank you very much for your support! Interested in Language of the Month? I hope to see more users using it and that it appears on the candidate list soon! \$\endgroup\$ Commented Feb 8, 2018 at 23:25
  • \$\begingroup\$ @WeijunZhou: You mean this? I didn't know it was a thing until now. I wouldn't mind a nomination. It seems like it might be better suited to more established languages, but I don't object. \$\endgroup\$
    – recursive
    Commented Feb 8, 2018 at 23:25
  • \$\begingroup\$ Yes. I may nominate it when it is better established, as you say. I hope it won't be long. \$\endgroup\$ Commented Feb 8, 2018 at 23:28
  • \$\begingroup\$ Since "heading space in each line does not matter as long as they are consistent" you may save another byte if you wish. \$\endgroup\$ Commented Feb 8, 2018 at 23:58
  • 1
    \$\begingroup\$ I have just made a submission using Stax. You may give advice on that if you wish. Edit: What a coincidence. I will try to learn from your submission. \$\endgroup\$ Commented Feb 10, 2018 at 8:21
2
\$\begingroup\$

Ruby, 217 212 209 208 bytes

->s{s+=' '*8
x=0
a=[""]*30
i=14
a[i]=?t
l=->{a[i]=s[x]+a[i]}
r=->{a[i]+=s[x]}
(0..58).map{|g|c=0
(0..g/2).map{c>s[x].ord-97&&(x+=1;c=0)
c+=1
eval %w{r i+=1;r l i-=1;l}[g%4]+"[]"}
x+=1}
a[-1].slice!0
$><<a*$/}

Try it online!

Spends a fair amount of time managing pointers, so there may be room for more golfing.

-5 bytes: Triple the pangram before inputting. Thanks to Weijun Zhou.

-3 bytes: Pad the input string and trim the last leg, instead of generating the last leg from scratch.

-1 bytes: Use && instead of a ternary operator with a throwaway value.

Explanation:

->s{
  s += " " * 8                             # These spaces will show on the bottom row
  x = 0                                    # x is a pointer into s
  a = [""] * 30                            # a is an array of row strings
  i = 14                                   # i is a pointer into a
  a[i] = ?t                                # "Starts with two t's for some reason"
  l = ->{ a[i] = s[x]+a[i] }               # lambda to prepend char x to row i
  r = ->{ a[i] += s[x] }                   # lambda to append char x to row i
  (0..57).map{|g|                          # There are 58 "legs" to the spiral
    c = 0                                  # c is the print count of s[x]
    (0..g/2).map{                          # Leg g has g/2+1 characters
      c > s[x].ord-97 && (x+=1;c=0)        # Possibly switch to next letter
      c += 1
      eval %w{r i+=1;r l i-=1;l}[g%4]+"[]" # Call the appropriate lambda
    }
    x += 1                                 # Definitely switch to next letter
  }
  a[-1].slice!0                            # Remove the first char from the bottom row
  $> << a*$/                               # Join with newlines and print
}
\$\endgroup\$
4
  • 1
    \$\begingroup\$ Nice submission and clearly explained. I appreciate the use of r and l lambdas. Based on current answers the last leg seems to be a trouble maker although it wasn't when I wrote my C snippet to generate the sample output ... \$\endgroup\$ Commented Feb 8, 2018 at 19:08
  • 1
    \$\begingroup\$ It seems you can save the s*=3 altogether and also omit the 0 in the ?: operator. tio.run/… \$\endgroup\$ Commented Feb 8, 2018 at 19:22
  • 1
    \$\begingroup\$ @WeijunZhou Ahh, thanks for the tip. I do need that 0 though, or Ruby will pull up the c+=1 from the next line and only execute it most of the time. And nice challenge! \$\endgroup\$
    – benj2240
    Commented Feb 8, 2018 at 20:00
  • \$\begingroup\$ You are right. I didn't look careful enough. Thank you for your appreciation. I am glad that you enjoyed it. \$\endgroup\$ Commented Feb 8, 2018 at 20:52
0
\$\begingroup\$

Deadfish~, 3360 bytes

{i}cc{{i}d}iiiicdddccccc{i}ddd{c}cc{d}dc{ii}iiiii{c}c{{d}}{d}ddc{{i}d}iiiic{i}iiic{d}ii{c}ccciii{c}cccc{i}dc{{d}}{d}dc{{i}d}iiiic{i}iiic{dd}ic{i}iiiiii{c}ccccccccdddccccccciiiiciiiiiic{{d}}{d}dc{{i}d}iiiic{i}iiic{d}c{i}iiiic{dd}dcccc{i}i{c}ccccc{d}iicccc{i}iiiiiicddddciiiiiic{{d}}{d}dc{{i}d}iiiic{i}iiic{d}c{i}iiiicdddc{dd}iiiccccc{i}iii{c}cccccciiciiicddddciiiiiic{{d}}{d}dc{{i}d}iiiic{i}iiic{d}c{i}iiiicdddciic{d}dddd{c}{i}icccccccccdcciiicddddciiiiiic{{d}}{d}dc{{i}d}iiiic{i}iiic{d}c{i}iiiicdddciic{d}dddc{d}icc{i}iiiiii{c}cccccdddddc{i}dddcciiicddddciiiiiic{{d}}{d}dc{{i}d}iiiic{i}iiic{d}c{i}iiiicdddciic{d}dddciiiic{d}iiccccccc{i}iiiccccccccdddddcddc{i}dddcciiicddddciiiiiic{{d}}{d}dc{{i}}iiiiiicic{d}c{i}iiiicdddc{d}iiicddddciiiic{d}c{i}ddd{c}cc{d}dc{i}dddc{i}dddcddc{i}dddcciiicddddciiiiiic{{d}}{d}dc{{i}}iiiiiicic{d}c{i}iiiicdddc{d}iiicddddciiiic{d}c{i}c{i}ddd{c}ciiiic{dd}iic{i}dddcddc{i}dddcciiicddddciiiiiic{{d}}{d}dc{{i}}iiiiiicic{d}c{i}iiiicdddc{d}iiic{d}ddc{i}iic{d}c{i}ciiiiiic{d}iiccccccccc{d}iic{ii}ic{dd}iic{i}dddcddc{i}dddcciiicddddciiiiiic{{d}}{d}dc{{i}}iiiiiicic{d}c{i}iiiicdddc{d}iiic{d}ddc{i}iic{d}c{i}ciiiiiic{d}dddddc{i}dcccccccic{d}dc{ii}ic{dd}iic{i}dddcddc{i}dddcciiicddddciiiiiic{{d}}{d}dc{{i}}iiiiiicic{d}c{i}iiiicdddc{d}iiic{d}ddc{i}iic{d}iiic{i}dddciiiiiic{d}dddddc{i}iicdddccccc{i}dc{d}iic{d}dc{ii}ic{dd}iic{i}dddcddc{i}dddcciiicddddciiiiiic{{d}}{d}dc{{i}}iiiiiicic{d}c{i}iiiicdddc{d}iiicddddddciiiiiic{d}iiic{i}dddciiiiiic{d}dddddc{i}iicdciiiiccciicic{d}iic{d}dc{ii}ic{dd}iic{i}dddcddc{i}dddcciiicddddciiiiiic{{d}}{d}dc{{i}}iiiiiicic{dd}iic{ii}iicdddc{d}iiicddddddciiiiiic{d}iiic{i}dddciiiiiic{d}dddddcddddc{i}iiiiiciiicc{d}dc{i}iiiicic{d}iic{d}dc{ii}ic{dd}iic{i}dddcddc{i}dddcciiicddddciiiiiic{{d}}{d}dc{{i}}iiiiiicic{dd}iic{ii}iicdddc{d}iiicddddddciiiiiic{d}iiic{i}dddciiiiiic{d}dddddcddddciiicciiicic{i}iiiicic{d}iiciic{i}ddc{dd}iic{i}dddcddc{i}dddcciiicddddciiiiiic{{d}}{d}dc{{i}}iiiiiicic{dd}iic{ii}iicdddc{d}iiicddddddciiiiiic{d}iiic{i}dddciiiiiic{d}dddddciiiiic{d}iiccciiiiiic{i}iiiicic{d}iiciic{i}ddc{dd}dc{i}cddc{i}dddcciiicddddciiiiiic{{d}}{d}dc{{i}}iiiiiic{d}cdc{i}iiiiiicdddc{d}iiicddddddcdddddciiiic{i}dddciiiiiic{d}iiicccccc{i}dcic{d}iiciic{i}ddc{dd}dc{i}cddc{i}dddcciiicddddciiiiiic{{d}}{d}dc{{i}}iiiiiic{d}cdc{i}iiiiiicdddc{d}iiicddddddcdddddciiiic{i}dddcdddddcccccccc{i}iiiic{d}iiciic{i}ddc{dd}dc{i}cddc{i}dddcciiicddddciiiiiic{{d}}{d}dc{{i}}iiiiiic{d}cdc{i}iiiiiicdddc{d}iiicddddddcdddddciiiic{i}i{c}dddciic{i}ddc{dd}dc{i}ciciiiicciiicddddciiiiiic{{d}}{d}dc{{i}}iiiiiic{d}cdc{i}iiiiiicdddc{d}iiicddddddcdddddc{i}iiiiii{c}ccddc{i}ddc{dd}dc{i}ciciiiicciiicddddciiiiiic{{d}}{d}dc{{i}}iiiiiic{d}cdc{i}iiiiiicdddc{d}iiicddddddc{i}iiiiii{c}ccccic{d}icddciciiiicciiic{d}iic{i}c{{d}}{d}dc{{i}}iiiiiic{d}cdc{i}iiiiiicdddc{d}iiiciiiiii{c}ccccccddddciiiiiic{d}iiiciiiicciiic{d}iic{i}c{{d}}{d}dc{{i}}iiiiiic{d}cdc{i}iiiiiicdddc{d}ddddddcccc{i}dd{c}cccc{i}dc{d}iiiciiiicciiic{d}iic{i}c{{d}}{d}dc{{i}}iiiiiic{d}cdc{i}iiiiiic{d}ciiii{c}cccccccccdddciiiic{d}ddc{i}iiiiic{d}iic{i}c{{d}}{d}dc{{i}}iiiiiic{d}cdc{ii}dddcccc{dd}dddddc{i}i{c}cc{d}iiiccccciiicc{i}iiiiic{d}iic{i}c{{d}}{d}dc{{i}}iiiiiic{d}c{i}iccdddd{c}ccccccc{d}ddccccciiiciiiiiicic{d}dc{{d}i}c{{i}}iiiiiiciiiiccccc{d}i{c}ccccc{d}icccccc{i}ddcic{d}dc{{d}i}c{{i}}iiiic{d}dddccccc{ii}ddd{cc}cc{d}iiic{d}dc{{d}i}c{ii}iiccccccc{{i}ddd}iccccccc{i}dd{c}ccccc{d}dc{{d}i}c
\$\endgroup\$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

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