Skip to main content
replaced http://codegolf.stackexchange.com/ with https://codegolf.stackexchange.com/
Source Link

Perl (*nix), 54 bytes

sleep print"\x1bc",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

(\x1b is counted as 1 byte but escaped for easier testing.) The above has been tested with Bash and shortened by another byte thanks to @Dennis@Dennis!

Perl (Windows), 56 bytes

sleep print"\x1b[2J",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

Thanks to @Jarmex@Jarmex for his testing and advice!

Perl (*nix), 54 bytes

sleep print"\x1bc",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

(\x1b is counted as 1 byte but escaped for easier testing.) The above has been tested with Bash and shortened by another byte thanks to @Dennis!

Perl (Windows), 56 bytes

sleep print"\x1b[2J",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

Thanks to @Jarmex for his testing and advice!

Perl (*nix), 54 bytes

sleep print"\x1bc",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

(\x1b is counted as 1 byte but escaped for easier testing.) The above has been tested with Bash and shortened by another byte thanks to @Dennis!

Perl (Windows), 56 bytes

sleep print"\x1b[2J",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

Thanks to @Jarmex for his testing and advice!

added 178 characters in body
Source Link
Dom Hastings
  • 24.4k
  • 4
  • 56
  • 93

Perl (*nix), 5554 bytes

sleep print"\ec"print"\x1bc",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

(\x1b is counted as 1 byte but escaped for easier testing.) The above has been tested with Bash. and shortened by another byte thanks to @Dennis!

Perl (Windows), 56 bytes

sleep print"\x1b[2J",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

Thanks to @Jarmex for his testing and advice!

Perl (*nix), 55 bytes

sleep print"\ec",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

The above has been tested with Bash.

Perl (Windows), 56 bytes

sleep print"\x1b[2J",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

Thanks to @Jarmex for his testing and advice!

Perl (*nix), 54 bytes

sleep print"\x1bc",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

(\x1b is counted as 1 byte but escaped for easier testing.) The above has been tested with Bash and shortened by another byte thanks to @Dennis!

Perl (Windows), 56 bytes

sleep print"\x1b[2J",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

Thanks to @Jarmex for his testing and advice!

Update Windows version
Source Link
Dom Hastings
  • 24.4k
  • 4
  • 56
  • 93

Perl (*nix), 55 bytes

sleep print"\ec",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

TestedThe above has been tested with Bash. I don't know for sure, but for Windows cmd, the following might work:

Perl (Windows), 56 bytes

sleep print`cls`print"\x1b[2J",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

(Anyone that could confirm Perl on Windows, that'd be great Thanks to @Jarmex for his testing and advice!)

Perl, 55 bytes

sleep print"\ec",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

Tested with Bash. I don't know for sure, but for Windows cmd, the following might work:

sleep print`cls`,$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

(Anyone that could confirm Perl on Windows, that'd be great!)

Perl (*nix), 55 bytes

sleep print"\ec",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

The above has been tested with Bash.

Perl (Windows), 56 bytes

sleep print"\x1b[2J",$-++%2?'\o/
_0_
':'_o_
 0
/ \
'while 1

Thanks to @Jarmex for his testing and advice!

Got the byte count wrong... and removed additional unnecessary backslash
Source Link
Dom Hastings
  • 24.4k
  • 4
  • 56
  • 93
Loading
Source Link
Dom Hastings
  • 24.4k
  • 4
  • 56
  • 93
Loading