blob: 5afbd6afd1801061699caddeb04c66d030ae91b8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
#!/usr/bin/env raku
# Usage:
# raku ./challenge-080/gugod/raku/ch-2.raku 1 4 3 2
# 7
my @N = @*ARGS.map({ .Int });
my $extra = (1..@N.end).grep(-> $i { @N[$i] != @N[$i-1] }).elems;
say @N.elems + $extra;
|