[ create a new paste ] login | about

Link: http://codepad.org/o0YJYKTd    [ raw code | output | fork ]

Perl, pasted on Aug 28:
1
2
3
4
5
6
7
8
9
10
11
$A=1; $B=1;

for($i = 0; $i < 20; $i++)
{ 
    print "A: ", $A, " B: ", $B, "\n";
    if ($A==1){$B=0,$A=B}
    if ($A==0){$B=1}
    if ($A==$B){last}
      else {$A=$B}
}
 


Output:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1
A: 1 B: 1


Create a new paste based on this one


Comments: