challenge-009/ruben-westerberg/perl6/bug.p6


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#!/usr/bin/env perl6
my @inputs= [1,2,2,6];
say do for @inputs {
	state $prev=$_;
	state  $r=1;
	NEXT { $prev=$_};	
	$r= ($prev !== $_) ?? $r+1 !! $r;
	say $r;
	$r+0; # THIS IS REQUIRED for some reason
};

sub bug (@vals) {
	@vals.map: {
		state $prev=$_;
		state  $r=1;
		NEXT { $prev=$_};	
		$r= ($prev !== $_) ?? $r+1 !! $r;
		say $r;
		$r;
	};
}

say bug(@inputs);