challenge-069/ash/raku/ch-2-seq-func.raku


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

#!/usr/bin/env raku

# Task 2 from
# https://perlweeklychallenge.org/blog/perl-weekly-challenge-069/

# Comments: https://andrewshitov.com/2020/07/15/use-sequences-in-raku/

sub S($n) {
    state @s = '', {
        $^a ~ 0 ~ $^a.flip.trans('01' => '10')
    } ... *;

    @s[$n]
}

say S($_) for ^9;