invalidObject Series (while)
EPTracklist 15:28
| 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 |