invalidObject Series (while) | Hitz.me

invalidObject Series (while) image

invalidObject Series (while)

Band / artist:

Release date:

01.01.2000

Plays count:

0

0

Album tracks

List

1

#!/usr/bin/perl

2

$power = 8;

3

sub fission {

4

fork

5

or $child = 1;

6

$power-- if $child;

7

if ($child) {exit unless --$power}

8

return $child; }

9

while (not &fission) {

10

print 0;

11

bomb:

12

while (&fission)

13

{ print 1 }

14

}

15

goto 'bomb';