Log in
Sign up
Sign up
Pimmon
Discography
invalidObject Series (while)
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
