challenge-048/javier-luque/raku/ch-1.p6


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# Test: perl6 ch-1.p6
sub MAIN() {
    my @people = 1..50;
    kill-and-switch(@people) while (@people.elems > 1);
    say @people[0] ~" is still alive";
}

# Kill and Switch
sub kill-and-switch(@people) {
    # switch
    push @people, shift @people;

    # kill
    shift @people;
}