challenge-072/arne-sommer/raku/zero-faculty


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

#! /usr/bin/env raku

subset PosInt of Int where * >= 1;

unit sub MAIN (PosInt $N, :v(:$verbose));

my $faculty = [*] 1 .. $N;

say ": $N Faculty: $faculty" if $verbose;

$faculty ~~ /(0*)$/;

say $0.chars;