Pimmon

invalidObject Series (while)

Release date 2000

Tracklist

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