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


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

# Test: perl6 ch-1.p6
use v6.d;

sub MAIN() {
    for (1..50) -> $i {
        say 'Decimal '  ~ $i ~
            ' = Octal ' ~ to-octal($i);
    }
}

sub to-octal(Int $i) {
    return sprintf('%o', $i);
}