2 added 3 characters in body

# Stax, 24 bytesCP437

╦♥µ╤u{£┬íQ<;▀ΦΣ╢╕╚äZ↕áû↑


Uses the codepoint 1 in CP437 for "1" cells.

Excellent case to show the power of this language.

## Explanation

Uses the unpacked version (29 bytes) to explain.

0]40X*,1&xDQ0]|S3B{:b^374:B@m
0]40X*                           Prepare a tape with 40 cells
,1&                        Assign 1 to the cells specified by the input
xD                      Repeat the rest of the program 40 times
Q                     Output current tape
0]|S                 Prepend and append a 0 cell to it
3B               All runs of length 3
{         m    Map each run with block
:b            Convert from binary
^           Increment (call this value n)
374:B      The binary representation of 374
[1,0,1,1,1,0,1,1,0]
which is 01101110 reversed and prepended a 1
@     Element at 0-based index n


# Stax, 24 bytesCP437

╦♥µ╤u{£┬íQ<;▀ΦΣ╢╕╚äZ↕áû↑


Run and debug online!

Uses the codepoint 1 in CP437 for "1" cells.

Excellent case to show the power of this language.

## Explanation

Uses the unpacked version (29 bytes) to explain.

0]40X*,1&xDQ0]|S3B{:b^374:B@m
0]40X*                           Prepare a tape with 40 cells
,1&                        Assign 1 to the cells specified by the input
xD                      Repeat the rest of the program 40 times
Q                     Output current tape
0]|S                 Prepend and append a 0 cell to it
3B               All runs of length 3
{         m    Map each run with block
:b            Convert from binary
^           Increment (call this value n)
374:B      The binary representation of 374
[1,0,1,1,1,0,1,1,0]
which is 01101110 reversed and prepended a 1
@     Element at 0-based index n


# Stax, 24 bytesCP437

╦♥µ╤u{£┬íQ<;▀ΦΣ╢╕╚äZ↕áû↑


Run and debug online!

Uses the codepoint 1 in CP437 for "1" cells.

Excellent case to show the power of this language.

## Explanation

Uses the unpacked version (29 bytes) to explain.

0]40X*,1&xDQ0]|S3B{:b^374:B@m
0]40X*                           Prepare a tape with 40 cells
,1&                        Assign 1 to the cells specified by the input
xD                      Repeat the rest of the program 40 times
Q                     Output current tape
0]|S                 Prepend and append a 0 cell to it
3B               All runs of length 3
{         m    Map each run with block
:b            Convert from binary
^           Increment (call this value n)
374:B      The binary representation of 374
[1,0,1,1,1,0,1,1,0]
which is 01101110 reversed and prepended a 1
@     Element at 0-based index n

1

# Stax, 24 bytesCP437

╦♥µ╤u{£┬íQ<;▀ΦΣ╢╕╚äZ↕áû↑


Run and debug online!

Uses the codepoint 1 in CP437 for "1" cells.

Excellent case to show the power of this language.

## Explanation

Uses the unpacked version (29 bytes) to explain.

0]40X*,1&xDQ0]|S3B{:b^374:B@m
0]40X*                           Prepare a tape with 40 cells
,1&                        Assign 1 to the cells specified by the input
xD                      Repeat the rest of the program 40 times
Q                     Output current tape
0]|S                 Prepend and append a 0 cell to it
3B               All runs of length 3
{         m    Map each run with block
:b            Convert from binary
^           Increment (call this value n)
374:B      The binary representation of 374
[1,0,1,1,1,0,1,1,0]
which is 01101110 reversed and prepended a 1
@     Element at 0-based index n