Skip to main content
Code Golf

Return to Answer

deleted 2 characters in body
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142

Perl - 104103 Bytes

#!perl -n print$i+$%2?l^U^(Lu,$i--%2?v48v9:Cz)[$i<4+$%2&vec$_,4*$-$i-3-$i,1]:$/.!($i=$--) while$+=2*y/0-9/wPkz\\>?p~/

The above contains 6 unprintable characters (the source can be downloaded at IdeoneIdeone), and is equivalent to the following:

#!perl -n print$i+$^F%2?l^U^(Lu,$i--%2?v48v9:Cz)[$i<4+$^F%2&vec$_,4*$^F-$i-3-$i,1]:$/.!($i=$^F--) while$^F+=2*y/0-9/wPkz\\>?p\177~/

Each ^F may be replaced by a literal character 6 (ACK), and \177 replaced by character 127 (DEL).

The shebang is counted as 1, the second newline is uncessary. Input is taken from stdin.

Sample Usage

$ echo 0123 | perl seven-slash.pl /\ /\ /\ / / \ \/ \ /\ \ \ \/ $ echo 456789 | perl seven-slash.pl /\ \/\ /\ / \/\ /\ \/ \ / \/\ / \/ \/\ \ / \/\

Explanation

Output is generated one byte at a time. Each character is transliterated, and this is then interpreted as a bit array using vec. The bits are stored in the following way:

 /\ 56 \/\ 234 /\ \/ -> 56 01 \/\ 234 \/ 01

Output alternates between 3 and 5 slashes, so that bits 56 spills over into 01 of the next digit. Bit 7 is not used.

Perl - 104 Bytes

#!perl -n print$i+$%2?l^(L,$i--%2?v48:C)[$i<4+$%2&vec$_,4*$-$i-3,1]:$/.!($i=$--) while$+=2*y/0-9/wPkz\\>?p~/

The above contains 6 unprintable characters (the source can be downloaded at Ideone), and is equivalent to the following:

#!perl -n print$i+$^F%2?l^(L,$i--%2?v48:C)[$i<4+$^F%2&vec$_,4*$^F-$i-3,1]:$/.!($i=$^F--) while$^F+=2*y/0-9/wPkz\\>?p\177~/

Each ^F may be replaced by a literal character 6 (ACK), and \177 replaced by character 127 (DEL).

The shebang is counted as 1, the second newline is uncessary. Input is taken from stdin.

Sample Usage

$ echo 0123 | perl seven-slash.pl /\ /\ /\ / / \ \/ \ /\ \ \ \/ $ echo 456789 | perl seven-slash.pl /\ \/\ /\ / \/\ /\ \/ \ / \/\ / \/ \/\ \ / \/\

Explanation

Output is generated one byte at a time. Each character is transliterated, and this is then interpreted as a bit array using vec. The bits are stored in the following way:

 /\ 56 \/\ 234 /\ \/ -> 56 01 \/\ 234 \/ 01

Output alternates between 3 and 5 slashes, so that bits 56 spills over into 01 of the next digit. Bit 7 is not used.

Perl - 103 Bytes

#!perl -n print$i+$%2?U^(u,$i--%2?v9:z)[$i<4+$%2&vec$_,4*$-3-$i,1]:$/.!($i=$--) while$+=2*y/0-9/wPkz\\>?p~/

The above contains 6 unprintable characters (the source can be downloaded at Ideone), and is equivalent to the following:

#!perl -n print$i+$^F%2?U^(u,$i--%2?v9:z)[$i<4+$^F%2&vec$_,4*$^F-3-$i,1]:$/.!($i=$^F--) while$^F+=2*y/0-9/wPkz\\>?p\177~/

Each ^F may be replaced by a literal character 6 (ACK), and \177 replaced by character 127 (DEL).

The shebang is counted as 1, the second newline is uncessary. Input is taken from stdin.

Sample Usage

$ echo 0123 | perl seven-slash.pl /\ /\ /\ / / \ \/ \ /\ \ \ \/ $ echo 456789 | perl seven-slash.pl /\ \/\ /\ / \/\ /\ \/ \ / \/\ / \/ \/\ \ / \/\

Explanation

Output is generated one byte at a time. Each character is transliterated, and this is then interpreted as a bit array using vec. The bits are stored in the following way:

 /\ 56 \/\ 234 /\ \/ -> 56 01 \/\ 234 \/ 01

Output alternates between 3 and 5 slashes, so that bits 56 spills over into 01 of the next digit. Bit 7 is not used.

added 12 characters in body
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142

Perl - 104 Bytes

#!perl -n print$i+$%2?l^(L,$i--%2?v48:C)[$i<4+$%2&vec$_,4*$-$i-3,1]:$/.!($i=$--) while$+=2*y/0-9/wPkz\\>?p~/

The above contains 6 unprintable characters (the source can be downloaded at Ideone), and is equivalent to the following:

#!perl -n print$i+$^F%2?l^(L,$i--%2?v48:C)[$i<4+$^F%2&vec$_,4*$^F-$i-3,1]:$/.!($i=$^F--) while$^F+=2*y/0-9/wPkz\\>?p\177~/

Each ^F may be replaced by a literal character 6 (ACK), and \177 replaced by character 127 (DEL).

The shebang is counted as 1, the second newline is uncessary. Input is taken from stdin.

Sample Usage

$ echo 0123 | perl seven-slash.pl   /\ /\ /\ / / \ \/ \ /\ \ \ \/ $ echo 456789 | perl seven-slash.pl   /\ \/\ /\ / \/\ /\ \/ \ / \/\ / \/ \/\ \ / \/\

Explanation

Output is generated one byte at a time. Each character is transliterated, and this is then interpreted as a bit array using vec. The bits are stored in the following way:

 /\ 56 \/\ 234 /\ \/ -> 56 01 \/\ 234 \/ 01

Output alternates between 3 and 5 slashes, so that bits 56 spills over into 01 of the next digit. Bit 7 is not used.

Perl - 104 Bytes

#!perl -n print$i+$%2?l^(L,$i--%2?v48:C)[$i<4+$%2&vec$_,4*$-$i-3,1]:$/.!($i=$--) while$+=2*y/0-9/wPkz\\>?p~/

The above contains 6 unprintable characters (the source can be downloaded at Ideone), and is equivalent to the following:

#!perl -n print$i+$^F%2?l^(L,$i--%2?v48:C)[$i<4+$^F%2&vec$_,4*$^F-$i-3,1]:$/.!($i=$^F--) while$^F+=2*y/0-9/wPkz\\>?p\177~/

Each ^F may be replaced by a literal character 6 (ACK), and \177 replaced by character 127 (DEL).

The shebang is counted as 1, the second newline is uncessary. Input is taken from stdin.

Sample Usage

$ echo 0123 | perl seven-slash.pl /\ /\ /\ / / \ \/ \ /\ \ \ \/ $ echo 456789 | perl seven-slash.pl /\ \/\ /\ / \/\ /\ \/ \ / \/\ / \/ \/\ \ / \/\

Explanation

Output is generated one byte at a time. Each character is transliterated, and this is then interpreted as a bit array using vec. The bits are stored in the following way:

 /\ 56 \/\ 234 /\ \/ -> 56 01 \/\ 234 \/ 01

Output alternates between 3 and 5 slashes, so that bits 56 spills over into 01 of the next digit. Bit 7 is not used.

Perl - 104 Bytes

#!perl -n print$i+$%2?l^(L,$i--%2?v48:C)[$i<4+$%2&vec$_,4*$-$i-3,1]:$/.!($i=$--) while$+=2*y/0-9/wPkz\\>?p~/

The above contains 6 unprintable characters (the source can be downloaded at Ideone), and is equivalent to the following:

#!perl -n print$i+$^F%2?l^(L,$i--%2?v48:C)[$i<4+$^F%2&vec$_,4*$^F-$i-3,1]:$/.!($i=$^F--) while$^F+=2*y/0-9/wPkz\\>?p\177~/

Each ^F may be replaced by a literal character 6 (ACK), and \177 replaced by character 127 (DEL).

The shebang is counted as 1, the second newline is uncessary. Input is taken from stdin.

Sample Usage

$ echo 0123 | perl seven-slash.pl   /\ /\ /\ / / \ \/ \ /\ \ \ \/ $ echo 456789 | perl seven-slash.pl   /\ \/\ /\ / \/\ /\ \/ \ / \/\ / \/ \/\ \ / \/\

Explanation

Output is generated one byte at a time. Each character is transliterated, and this is then interpreted as a bit array using vec. The bits are stored in the following way:

 /\ 56 \/\ 234 /\ \/ -> 56 01 \/\ 234 \/ 01

Output alternates between 3 and 5 slashes, so that bits 56 spills over into 01 of the next digit. Bit 7 is not used.

deleted 2 characters in body
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142

Perl - 105104 Bytes

#!perl -n print$i+$%2?l^(L,$i--%2?v48:C)[$i<4+$%2&vec$_,4*$-$i-3,1]:$/.!($i=$--)x0 while$+=2*y/0-9/wPkz\\>?p~/

The above contains 6 unprintable characters (the source can be downloaded at IdeoneIdeone), and is equivalent to the following:

#!perl -n print$i+$^F%2?l^(L,$i--%2?v48:C)[$i<4+$^F%2&vec$_,4*$^F-$i-3,1]:$/.!($i=$^F--)x0 while$^F+=2*y/0-9/wPkz\\>?p\177~/

Each ^F may be replaced by a literal character 6 (ACK), and \177 replaced by character 127 (DEL).

The shebang is counted as 1, the second newline is uncessary. Input is taken from stdin.

Sample Usage

$ echo 0123 | perl seven-slash.pl /\ /\ /\ / / \ \/ \ /\ \ \ \/ $ echo 456789 | perl seven-slash.pl /\ \/\ /\ / \/\ /\ \/ \ / \/\ / \/ \/\ \ / \/\

Explanation

Output is generated one byte at a time. Each character is transliterated, and this is then interpreted as a bit array using vec. The bits are stored in the following way:

 /\ 56 \/\ 234 /\ \/ -> 56 01 \/\ 234 \/ 01

Output alternates between 3 and 5 slashes, so that bits 56 spills over into 01 of the next digit. Bit 7 is not used.

Perl - 105 Bytes

#!perl -n print$i+$%2?l^(L,$i--%2?v48:C)[$i<4+$%2&vec$_,4*$-$i-3,1]:$/.($i=$--)x0 while$+=2*y/0-9/wPkz\\>?p~/

The above contains 6 unprintable characters (the source can be downloaded at Ideone), and is equivalent to the following:

#!perl -n print$i+$^F%2?l^(L,$i--%2?v48:C)[$i<4+$^F%2&vec$_,4*$^F-$i-3,1]:$/.($i=$^F--)x0 while$^F+=2*y/0-9/wPkz\\>?p\177~/

Each ^F may be replaced by a literal character 6 (ACK), and \177 replaced by character 127 (DEL).

The shebang is counted as 1, the second newline is uncessary. Input is taken from stdin.

Sample Usage

$ echo 0123 | perl seven-slash.pl /\ /\ /\ / / \ \/ \ /\ \ \ \/ $ echo 456789 | perl seven-slash.pl /\ \/\ /\ / \/\ /\ \/ \ / \/\ / \/ \/\ \ / \/\

Explanation

Output is generated one byte at a time. Each character is transliterated, and this is then interpreted as a bit array using vec. The bits are stored in the following way:

 /\ 56 \/\ 234 /\ \/ -> 56 01 \/\ 234 \/ 01

Output alternates between 3 and 5 slashes, so that bits 56 spills over into 01 of the next digit. Bit 7 is not used.

Perl - 104 Bytes

#!perl -n print$i+$%2?l^(L,$i--%2?v48:C)[$i<4+$%2&vec$_,4*$-$i-3,1]:$/.!($i=$--) while$+=2*y/0-9/wPkz\\>?p~/

The above contains 6 unprintable characters (the source can be downloaded at Ideone), and is equivalent to the following:

#!perl -n print$i+$^F%2?l^(L,$i--%2?v48:C)[$i<4+$^F%2&vec$_,4*$^F-$i-3,1]:$/.!($i=$^F--) while$^F+=2*y/0-9/wPkz\\>?p\177~/

Each ^F may be replaced by a literal character 6 (ACK), and \177 replaced by character 127 (DEL).

The shebang is counted as 1, the second newline is uncessary. Input is taken from stdin.

Sample Usage

$ echo 0123 | perl seven-slash.pl /\ /\ /\ / / \ \/ \ /\ \ \ \/ $ echo 456789 | perl seven-slash.pl /\ \/\ /\ / \/\ /\ \/ \ / \/\ / \/ \/\ \ / \/\

Explanation

Output is generated one byte at a time. Each character is transliterated, and this is then interpreted as a bit array using vec. The bits are stored in the following way:

 /\ 56 \/\ 234 /\ \/ -> 56 01 \/\ 234 \/ 01

Output alternates between 3 and 5 slashes, so that bits 56 spills over into 01 of the next digit. Bit 7 is not used.

added 306 characters in body
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142
added 306 characters in body
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142
deleted 6 characters in body
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142
deleted 59 characters in body
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142
edited body
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142
deleted 1 character in body
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142
added 343 characters in body
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142
added 47 characters in body
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142
edited body
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142
deleted 8 characters in body
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142
added 4 characters in body
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142
added 4 characters in body
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142
Source Link
primo
primo
  • 33.7k
  • 5
  • 63
  • 142