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