invalidObject Series (while)

Tracklist

• 1
  #!/usr/bin/perl
  1:02
• 2
  $power = 8;
  1:02
• 3
  sub fission {
  1:02
• 4
  fork
  1:02
• 5
  or $child = 1;
  1:02
• 6
  $power-- if $child;
  1:02
• 7
  if ($child) {exit unless --$power}
  1:02
• 8
  return $child; }
  1:02
• 9
  while (not &fission) {
  1:02
• 10
  print 0;
  1:02
• 11
  bomb:
  1:02
• 12
  while (&fission)
  1:02
• 13
  { print 1 }
  1:02
• 14
  }
  1:02
• 15
  goto 'bomb';
  1:00

More by Pimmon

Untitled

Untitled 2013

Procrastination

Procrastination 2013

Other Side

Other Side 2012

Secret Thirteen Mix 010

Secret Thirteen Mix 010 2012

The Oansome Orbit

The Oansome Orbit 2011

Lay Down Real Slow

Lay Down Real Slow 2011

Issues

• 

  i
  invalidObject Series (while)

  CD
  2000