invalidObject Series (while) Pimmon
Release: 2000 Ireland, Language: English, Status: OfficialFormat: CD, Tracks: 15, Length: 15:28, Barcode: [none]
Release type: EP
Contents
|
CD #1 |
|||||||||||
| 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 | |||||||||