added 93 characters in body

Source Link

edited May 11, 2021 at 18:12

42.6k
5
68
224

Jelly, 118117 bytes

L⁾||ẋṫ5“/\“\/”jµ⁾<>Ḋ?⁶ẋ4¤s2¤js1s2
j@€⁾  z⁶⁾_-jⱮZj@"Ç;“¡{+Ṁ“#ßɗ⁾ŀ`m“¬ṖȥƇʂẆEẒẓ“¡ɲÇ⁹E⁸ċ⁷“¡ɲÇ⁹D⁹{Ṅ’ṃ“\ ^_(o)/|-w”¤⁶ẋ8¤;Ɱ$¤w”¤⁶;$8¡€¤

Try it online!Try it online!

-26 bytes using base + integer compression (thanks to Bubbler for the idea)
-2 bytes thanks to caird coinheringaahing
-1 byte thanks to Nick Kennedy
thanks to Jonathan Allan for finding a bug; also -4 bytes from fixing it
-1 byte thanks to Jonathan Allan

L⁾||ẋṫ5“/\“\/”jµ⁾<>Ḋ?⁶ẋ4¤s2¤js1s2  Helper Link - generates the side borders
                    ?              If
                   Ḋ               list[1:] (basically, if the length is not 1)
L⁾||ẋṫ5“/\“\/”jµ                   Sublink; generate the side borders for the non-edge case
L                                  Take the length
 ⁾||ẋ                              Repeat "||" that many times
     ṫ5                            Tail; remove the first 4 elements
       “/\“\/”j                    Use that result to join ["/\", "\/"]
                ⁾<>                Otherwise, return "<>"
                     ⁶ẋ4¤          " " * 4
                         s2¤       split into slices of size 2
                            j      Prepend and append (Extra spaces are needed because the top and bottom borders don't have side borders)
                             s2    Slices of length 2 (separate the left and right border components)
                               s2  Slices of length 2 (group the left and right border components into pairs)

j@€⁾  z⁶⁾_-jⱮZj@"Ç;“...’ṃ“ \_(o)/|-w^”¤⁶ẋ7¤;Ɱ$¤w^”¤⁶;$8¡€¤     Main Link
j@€⁾                                               join "  " with each row (surround in spaces)
      z⁶                                           Zip, using space as filler
            Ɱ                                      For each column
        ⁾_-j                                       Join ["_", "-"] using it (prepend _ and append -)
             Z                                     Zip
              j@"Ç                                 Vectorized swapped join with the helper link (basically, for each row, prepend and append the borders)
                  ;                                Append: {{
                   “...’                           [23386201, 8811166311836860, 134563374682941922730, 101089407352370886, 101089407336781202]
                        ṃ“ \_(o)/|-w^”             Base decompressed with " \_(o)/|-w^" - this is the cow without leading spaces
                                            Ɱ€      For each row
                                       ⁶ẋ7¤;⁶;$       Append  Prepend " " 
 * 7
                                        8¡       8 times
                                             ¤     }}

Jelly, 118 bytes

L⁾||ẋṫ5“/\“\/”jµ⁾<>Ḋ?⁶ẋ4¤s2¤js1s2
j@€⁾  z⁶⁾_-jⱮZj@"Ç;“¡{+Ṁ“#ßɗ⁾ŀ`m“¬ṖȥƇʂẆEẒẓ“¡ɲÇ⁹E⁸ċ⁷“¡ɲÇ⁹D⁹{Ṅ’ṃ“\ ^_(o)/|-w”¤⁶ẋ8¤;Ɱ$¤

Try it online!

-26 bytes using base + integer compression (thanks to Bubbler for the idea)
-2 bytes thanks to caird coinheringaahing
-1 byte thanks to Nick Kennedy
thanks to Jonathan Allan for finding a bug; also -4 bytes from fixing it

L⁾||ẋṫ5“/\“\/”jµ⁾<>Ḋ?⁶ẋ4¤s2¤js1s2  Helper Link - generates the side borders
                    ?              If
                   Ḋ               list[1:] (basically, if the length is not 1)
L⁾||ẋṫ5“/\“\/”jµ                   Sublink; generate the side borders for the non-edge case
L                                  Take the length
 ⁾||ẋ                              Repeat "||" that many times
     ṫ5                            Tail; remove the first 4 elements
       “/\“\/”j                    Use that result to join ["/\", "\/"]
                ⁾<>                Otherwise, return "<>"
                     ⁶ẋ4¤          " " * 4
                         s2¤       split into slices of size 2
                            j      Prepend and append (Extra spaces are needed because the top and bottom borders don't have side borders)
                             s2    Slices of length 2 (separate the left and right border components)
                               s2  Slices of length 2 (group the left and right border components into pairs)

j@€⁾  z⁶⁾_-jⱮZj@"Ç;“...’ṃ“ \_(o)/|-w^”¤⁶ẋ7¤;Ɱ$¤    Main Link
j@€⁾                                         join "  " with each row (surround in spaces)
      z⁶                                           Zip, using space as filler
            Ɱ                                      For each column
        ⁾_-j                                       Join ["_", "-"] using it (prepend _ and append -)
             Z                                     Zip
              j@"Ç                                 Vectorized swapped join with the helper link (basically, for each row, prepend and append the borders)
                  ;                                Append: {{
                   “...’                           [23386201, 8811166311836860, 134563374682941922730, 101089407352370886, 101089407336781202]
                        ṃ“ \_(o)/|-w^”             Base decompressed with " \_(o)/|-w^" - this is the cow without leading spaces
                                            Ɱ      For each row
                                       ⁶ẋ7¤;       Append " " * 7
                                                   }}

Jelly, 117 bytes

L⁾||ẋṫ5“/\“\/”jµ⁾<>Ḋ?⁶ẋ4¤s2¤js1s2
j@€⁾  z⁶⁾_-jⱮZj@"Ç;“¡{+Ṁ“#ßɗ⁾ŀ`m“¬ṖȥƇʂẆEẒẓ“¡ɲÇ⁹E⁸ċ⁷“¡ɲÇ⁹D⁹{Ṅ’ṃ“\ ^_(o)/|-w”¤⁶;$8¡€¤

Try it online!

-26 bytes using base + integer compression (thanks to Bubbler for the idea)
-2 bytes thanks to caird coinheringaahing
-1 byte thanks to Nick Kennedy
thanks to Jonathan Allan for finding a bug; also -4 bytes from fixing it
-1 byte thanks to Jonathan Allan

L⁾||ẋṫ5“/\“\/”jµ⁾<>Ḋ?⁶ẋ4¤s2¤js1s2  Helper Link - generates the side borders
                    ?              If
                   Ḋ               list[1:] (basically, if the length is not 1)
L⁾||ẋṫ5“/\“\/”jµ                   Sublink; generate the side borders for the non-edge case
L                                  Take the length
 ⁾||ẋ                              Repeat "||" that many times
     ṫ5                            Tail; remove the first 4 elements
       “/\“\/”j                    Use that result to join ["/\", "\/"]
                ⁾<>                Otherwise, return "<>"
                     ⁶ẋ4¤          " " * 4
                         s2¤       split into slices of size 2
                            j      Prepend and append (Extra spaces are needed because the top and bottom borders don't have side borders)
                             s2    Slices of length 2 (separate the left and right border components)
                               s2  Slices of length 2 (group the left and right border components into pairs)

j@€⁾  z⁶⁾_-jⱮZj@"Ç;“...’ṃ“ \_(o)/|-w^”¤⁶;$8¡€¤     Main Link
j@€⁾                                               join "  " with each row (surround in spaces)
      z⁶                                           Zip, using space as filler
            Ɱ                                      For each column
        ⁾_-j                                       Join ["_", "-"] using it (prepend _ and append -)
             Z                                     Zip
              j@"Ç                                 Vectorized swapped join with the helper link (basically, for each row, prepend and append the borders)
                  ;                                Append: {{
                   “...’                           [23386201, 8811166311836860, 134563374682941922730, 101089407352370886, 101089407336781202]
                        ṃ“ \_(o)/|-w^”             Base decompressed with " \_(o)/|-w^" - this is the cow without leading spaces
                                            €      For each row
                                       ⁶;$         Prepend " " 
                                          8¡       8 times
                                             ¤     }}

added 267 characters in body

Source Link

edited May 11, 2021 at 12:51

hyperneutrino ♦

42.6k
5
68
224

Jelly, 122118 bytes

L“|  |”ẋṫ9“L⁾||ẋṫ5“/  \“\  /”jµ“<  >”Ḋ”jµ⁾<>Ḋ?⁶ẋ8¤s4¤js2s2⁶ẋ4¤s2¤js1s2
j@€⁾  z⁶⁾_-jⱮZj@"Ç;“¡{+Ṁ“#ßɗ⁾ŀ`m“¬ṖȥƇʂẆEẒẓ“¡ɲÇ⁹E⁸ċ⁷“¡ɲÇ⁹D⁹{Ṅ’ṃ“\ ^_(o)/|-w”¤⁶ẋ8¤;Ɱ$¤

Try it online!Try it online!

-26 bytes using base + integer compression (thanks to Bubbler for the idea)
-2 bytes thanks to caird coinheringaahing
-1 byte thanks to Nick Kennedy
thanks to Jonathan Allan for finding a bug; also -4 bytes from fixing it

L“|  |”ẋṫ9“L⁾||ẋṫ5“/  \“\  /”jµ“<  >”Ḋ”jµ⁾<>Ḋ?⁶ẋ8¤s4¤js2s2⁶ẋ4¤s2¤js1s2  Helper Link - generates the side borders
                              ?              If
                             Ḋ               list[1:] (basically, if the length is not 1)
L“|  |”ẋṫ9“L⁾||ẋṫ5“/  \“\  /”jµ                      Sublink; generate the side borders for the non-edge case
L                                            Take the length
 “|  |”ẋ       ⁾||ẋ                              Repeat "|  |""||" that many times
        ṫ9       ṫ5                            Tail; remove the first 84 elements
          “/  \“\  /”j                       Use that result to join ["/  \", "\  /"]
                       “<  >”⁾<>                Otherwise, return "<  >""<>"
                               ⁶ẋ8¤⁶ẋ4¤          " " * 84
                                   s4¤s2¤       split into slices of size 42
                                      j      Prepend and append (Extra spaces are needed because the top and bottom borders don't have side borders)
                                       s2    Slices of length 2 (separate the left and right border components)
                                         s2  Slices of length 2 (group the left and right border components into pairs)

j@€⁾  z⁶⁾_-jⱮZj@"Ç;“...’ṃ“ \_(o)/|-w^”¤⁶ẋ7¤;Ɱ$¤    Main Link
j@€⁾                                         join "  " with each row (surround in spaces)
      z⁶                                           Zip, using space as filler
            Ɱ                                      For each column
        ⁾_-j                                       Join ["_", "-"] using it (prepend _ and append -)
             Z                                     Zip
              j@"Ç                                 Vectorized swapped join with the helper link (basically, for each row, prepend and append the borders)
                  ;                                Append: {{
                   “...’                           [23386201, 8811166311836860, 134563374682941922730, 101089407352370886, 101089407336781202]
                        ṃ“ \_(o)/|-w^”             Base decompressed with " \_(o)/|-w^" - this is the cow without leading spaces
                                            Ɱ      For each row
                                       ⁶ẋ7¤;       Append " " * 7
                                                   }}

Jelly, 122 bytes

L“|  |”ẋṫ9“/  \“\  /”jµ“<  >”Ḋ?⁶ẋ8¤s4¤js2s2
z⁶⁾_-jⱮZj@"Ç;“¡{+Ṁ“#ßɗ⁾ŀ`m“¬ṖȥƇʂẆEẒẓ“¡ɲÇ⁹E⁸ċ⁷“¡ɲÇ⁹D⁹{Ṅ’ṃ“\ ^_(o)/|-w”¤⁶ẋ8¤;Ɱ$¤

Try it online!

-26 bytes using base + integer compression (thanks to Bubbler for the idea)
-2 bytes thanks to caird coinheringaahing
-1 byte thanks to Nick Kennedy

L“|  |”ẋṫ9“/  \“\  /”jµ“<  >”Ḋ?⁶ẋ8¤s4¤js2s2  Helper Link - generates the side borders
                              ?              If
                             Ḋ               list[1:] (basically, if the length is not 1)
L“|  |”ẋṫ9“/  \“\  /”jµ                      Sublink; generate the side borders for the non-edge case
L                                            Take the length
 “|  |”ẋ                                     Repeat "|  |" that many times
        ṫ9                                   Tail; remove the first 8 elements
          “/  \“\  /”j                       Use that result to join ["/  \", "\  /"]
                       “<  >”                Otherwise, return "<  >"
                               ⁶ẋ8¤          " " * 8
                                   s4¤       split into slices of size 4
                                      j      Prepend and append (Extra spaces are needed because the top and bottom borders don't have side borders)
                                       s2    Slices of length 2 (separate the left and right border components)
                                         s2  Slices of length 2 (group the left and right border components into pairs)

z⁶⁾_-jⱮZj@"Ç;“...’ṃ“ \_(o)/|-w^”¤⁶ẋ7¤;Ɱ$¤    Main Link
z⁶                                           Zip, using space as filler
      Ɱ                                      For each column
  ⁾_-j                                       Join ["_", "-"] using it (prepend _ and append -)
       Z                                     Zip
        j@"Ç                                 Vectorized swapped join with the helper link (basically, for each row, prepend and append the borders)
            ;                                Append: {{
             “...’                           [23386201, 8811166311836860, 134563374682941922730, 101089407352370886, 101089407336781202]
                  ṃ“ \_(o)/|-w^”             Base decompressed with " \_(o)/|-w^" - this is the cow without leading spaces
                                      Ɱ      For each row
                                 ⁶ẋ7¤;       Append " " * 7
                                             }}

Jelly, 118 bytes

L⁾||ẋṫ5“/\“\/”jµ⁾<>Ḋ?⁶ẋ4¤s2¤js1s2
j@€⁾  z⁶⁾_-jⱮZj@"Ç;“¡{+Ṁ“#ßɗ⁾ŀ`m“¬ṖȥƇʂẆEẒẓ“¡ɲÇ⁹E⁸ċ⁷“¡ɲÇ⁹D⁹{Ṅ’ṃ“\ ^_(o)/|-w”¤⁶ẋ8¤;Ɱ$¤

Try it online!

-26 bytes using base + integer compression (thanks to Bubbler for the idea)
-2 bytes thanks to caird coinheringaahing
-1 byte thanks to Nick Kennedy
thanks to Jonathan Allan for finding a bug; also -4 bytes from fixing it

L⁾||ẋṫ5“/\“\/”jµ⁾<>Ḋ?⁶ẋ4¤s2¤js1s2  Helper Link - generates the side borders
                    ?              If
                   Ḋ               list[1:] (basically, if the length is not 1)
L⁾||ẋṫ5“/\“\/”jµ                   Sublink; generate the side borders for the non-edge case
L                                  Take the length
 ⁾||ẋ                              Repeat "||" that many times
     ṫ5                            Tail; remove the first 4 elements
       “/\“\/”j                    Use that result to join ["/\", "\/"]
                ⁾<>                Otherwise, return "<>"
                     ⁶ẋ4¤          " " * 4
                         s2¤       split into slices of size 2
                            j      Prepend and append (Extra spaces are needed because the top and bottom borders don't have side borders)
                             s2    Slices of length 2 (separate the left and right border components)
                               s2  Slices of length 2 (group the left and right border components into pairs)

j@€⁾  z⁶⁾_-jⱮZj@"Ç;“...’ṃ“ \_(o)/|-w^”¤⁶ẋ7¤;Ɱ$¤    Main Link
j@€⁾                                         join "  " with each row (surround in spaces)
      z⁶                                           Zip, using space as filler
            Ɱ                                      For each column
        ⁾_-j                                       Join ["_", "-"] using it (prepend _ and append -)
             Z                                     Zip
              j@"Ç                                 Vectorized swapped join with the helper link (basically, for each row, prepend and append the borders)
                  ;                                Append: {{
                   “...’                           [23386201, 8811166311836860, 134563374682941922730, 101089407352370886, 101089407336781202]
                        ṃ“ \_(o)/|-w^”             Base decompressed with " \_(o)/|-w^" - this is the cow without leading spaces
                                            Ɱ      For each row
                                       ⁶ẋ7¤;       Append " " * 7
                                                   }}

deleted 195 characters in body

Source Link

edited May 10, 2021 at 19:01

hyperneutrino ♦

42.6k
5
68
224

Jelly, 123122 bytes

L“|  |”ẋṫ9“/  \“\  /”jµ“<  >”Ḋ?⁶ẋ8¤s4¤js2s2
z⁶⁾_-jⱮZj@"Ç;“¤ḢḲ⁷“I÷(jḣɠv“ßŻAḍ6³ḶmY“£Kþ³*7⁻Ṇ“£Kþ³(VzB’ṃ“jⱮZj@"Ç;“¡{+Ṁ“#ßɗ⁾ŀ`m“¬ṖȥƇʂẆEẒẓ“¡ɲÇ⁹E⁸ċ⁷“¡ɲÇ⁹D⁹{Ṅ’ṃ“\ \_¶^_(o)/|-w^”¤⁶ẋ7¤;Ɱ$¤w”¤⁶ẋ8¤;Ɱ$¤

Try it online!Try it online!

-26 bytes using base + integer compression (thanks to Bubbler for the idea)
-2 bytes thanks to caird coinheringaahing /
-1 byte thanks to Nick Kennedy

L“|  |”ẋṫ9“/  \“\  /”jµ“<  >”Ḋ?⁶ẋ8¤s4¤js2s2  Helper Link - generates the side borders
                              ?              If
                             Ḋ               list[1:] (basically, if the length is not 1)
L“|  |”ẋṫ9“/  \“\  /”jµ                      Sublink; generate the side borders for the non-edge case
L                                            Take the length
 “|  |”ẋ                                     Repeat "|  |" that many times
        ṫ9                                   Tail; remove the first 8 elements
          “/  \“\  /”j                       Use that result to join ["/  \", "\  /"]
                       “<  >”                Otherwise, return "<  >"
                               ⁶ẋ8¤          " " * 8
                                   s4¤       split into slices of size 4
                                      j      Prepend and append (Extra spaces are needed because the top and bottom borders don't have side borders)
                                       s2    Slices of length 2 (separate the left and right border components)
                                         s2  Slices of length 2 (group the left and right border components into pairs)

z⁶⁾_-jⱮZj@"Ç;“...’ṃ“ \_¶\_(o)/|-w^”¤⁶ẋ7¤;Ɱ$¤    Main Link
z⁶                                           Zip, using space as filler
      Ɱ                                      For each column
  ⁾_-j                                       Join ["_", "-"] using it (prepend _ and append -)
       Z                                     Zip
        j@"Ç                                 Vectorized swapped join with the helper link (basically, for each row, prepend and append the borders)
            ;                                Append: {{
             “...’                           [74919636[23386201, 180948884055401198811166311836860, 348588099826292465090134563374682941922730, 201691922550410181101089407352370886, 201691922521093317]101089407336781202]
                  ṃ“ \_¶\_(o)/|-w^”             Base decompressed with " \_*\_(o)/|-w^" (where * is newline) - this is the cow without leading spaces
                                       Ɱ      For each row
                                  ⁶ẋ7¤;       Append " " * 7
                                               }}

Jelly, 123 bytes

L“|  |”ẋṫ9“/  \“\  /”jµ“<  >”Ḋ?⁶ẋ8¤s4¤js2s2
z⁶⁾_-jⱮZj@"Ç;“¤ḢḲ⁷“I÷(jḣɠv“ßŻAḍ6³ḶmY“£Kþ³*7⁻Ṇ“£Kþ³(VzB’ṃ“ \_¶(o)/|-w^”¤⁶ẋ7¤;Ɱ$¤

Try it online!

-26 bytes using base + integer compression (thanks to Bubbler for the idea)
-2 bytes thanks to caird coinheringaahing / Nick Kennedy

L“|  |”ẋṫ9“/  \“\  /”jµ“<  >”Ḋ?⁶ẋ8¤s4¤js2s2  Helper Link - generates the side borders
                              ?              If
                             Ḋ               list[1:] (basically, if the length is not 1)
L“|  |”ẋṫ9“/  \“\  /”jµ                      Sublink; generate the side borders for the non-edge case
L                                            Take the length
 “|  |”ẋ                                     Repeat "|  |" that many times
        ṫ9                                   Tail; remove the first 8 elements
          “/  \“\  /”j                       Use that result to join ["/  \", "\  /"]
                       “<  >”                Otherwise, return "<  >"
                               ⁶ẋ8¤          " " * 8
                                   s4¤       split into slices of size 4
                                      j      Prepend and append (Extra spaces are needed because the top and bottom borders don't have side borders)
                                       s2    Slices of length 2 (separate the left and right border components)
                                         s2  Slices of length 2 (group the left and right border components into pairs)

z⁶⁾_-jⱮZj@"Ç;“...’ṃ“ \_¶(o)/|-w^”¤⁶ẋ7¤;Ɱ$¤   Main Link
z⁶                                           Zip, using space as filler
      Ɱ                                      For each column
  ⁾_-j                                       Join ["_", "-"] using it (prepend _ and append -)
       Z                                     Zip
        j@"Ç                                 Vectorized swapped join with the helper link (basically, for each row, prepend and append the borders)
            ;                                Append: {{
             “...’                           [74919636, 18094888405540119, 348588099826292465090, 201691922550410181, 201691922521093317]
                  ṃ“ \_¶(o)/|-w^”            Base decompressed with " \_*(o)/|-w^" (where * is newline) - this is the cow without leading spaces
                                       Ɱ     For each row
                                  ⁶ẋ7¤;      Append " " * 7
                                               }}

Jelly, 122 bytes

L“|  |”ẋṫ9“/  \“\  /”jµ“<  >”Ḋ?⁶ẋ8¤s4¤js2s2
z⁶⁾_-jⱮZj@"Ç;“¡{+Ṁ“#ßɗ⁾ŀ`m“¬ṖȥƇʂẆEẒẓ“¡ɲÇ⁹E⁸ċ⁷“¡ɲÇ⁹D⁹{Ṅ’ṃ“\ ^_(o)/|-w”¤⁶ẋ8¤;Ɱ$¤

Try it online!

-26 bytes using base + integer compression (thanks to Bubbler for the idea)
-2 bytes thanks to caird coinheringaahing
-1 byte thanks to Nick Kennedy

L“|  |”ẋṫ9“/  \“\  /”jµ“<  >”Ḋ?⁶ẋ8¤s4¤js2s2  Helper Link - generates the side borders
                              ?              If
                             Ḋ               list[1:] (basically, if the length is not 1)
L“|  |”ẋṫ9“/  \“\  /”jµ                      Sublink; generate the side borders for the non-edge case
L                                            Take the length
 “|  |”ẋ                                     Repeat "|  |" that many times
        ṫ9                                   Tail; remove the first 8 elements
          “/  \“\  /”j                       Use that result to join ["/  \", "\  /"]
                       “<  >”                Otherwise, return "<  >"
                               ⁶ẋ8¤          " " * 8
                                   s4¤       split into slices of size 4
                                      j      Prepend and append (Extra spaces are needed because the top and bottom borders don't have side borders)
                                       s2    Slices of length 2 (separate the left and right border components)
                                         s2  Slices of length 2 (group the left and right border components into pairs)

z⁶⁾_-jⱮZj@"Ç;“...’ṃ“ \_(o)/|-w^”¤⁶ẋ7¤;Ɱ$¤    Main Link
z⁶                                           Zip, using space as filler
      Ɱ                                      For each column
  ⁾_-j                                       Join ["_", "-"] using it (prepend _ and append -)
       Z                                     Zip
        j@"Ç                                 Vectorized swapped join with the helper link (basically, for each row, prepend and append the borders)
            ;                                Append: {{
             “...’                           [23386201, 8811166311836860, 134563374682941922730, 101089407352370886, 101089407336781202]
                  ṃ“ \_(o)/|-w^”             Base decompressed with " \_(o)/|-w^" - this is the cow without leading spaces
                                      Ɱ      For each row
                                 ⁶ẋ7¤;       Append " " * 7
                                             }}

added 17 characters in body

Source Link

edited May 10, 2021 at 14:54

hyperneutrino ♦

42.6k
5
68
224

Loading

added 2308 characters in body

Source Link

edited May 10, 2021 at 1:16

hyperneutrino ♦

42.6k
5
68
224

Loading

added 77 characters in body

Source Link

edited May 10, 2021 at 1:00

hyperneutrino ♦

42.6k
5
68
224

Loading

Source Link

created May 10, 2021 at 0:42

hyperneutrino ♦

42.6k
5
68
224

Loading

Stack Exchange Network

Return to Answer

Jelly, 118117 bytes

Jelly, 118 bytes

Jelly, 117 bytes

Jelly, 122118 bytes

Jelly, 122 bytes

Jelly, 118 bytes

Jelly, 123122 bytes

Jelly, 123 bytes

Jelly, 122 bytes