ch-2.raku « raku « juliodcs « challenge-080 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-080/juliodcs/raku/ch-2.raku

blob: c74f184fc7b333a6b5bddfe7ae17a5aeb0c9b999 (plain)

1
2
3

my @N = @*ARGS>>.Int;

say @N.elems + elems (^@N.elems.pred).grep: { @N[$_] != @N[.succ] };