diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-04-12 18:21:45 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-04-12 18:21:45 +0200 |
| commit | dca4c603016d8409087921ab43c4fe572d17d5af (patch) | |
| tree | b10c6a82bedf80026907b0beceb0e58a981cba77 | |
| parent | d1c2461aaa091e01c9a897b2901d54c97e80c5ae (diff) | |
| download | perlweeklychallenge-club-dca4c603016d8409087921ab43c4fe572d17d5af.tar.gz perlweeklychallenge-club-dca4c603016d8409087921ab43c4fe572d17d5af.tar.bz2 perlweeklychallenge-club-dca4c603016d8409087921ab43c4fe572d17d5af.zip | |
added usage
| -rw-r--r-- | challenge-055/markus-holzer/raku/ch-1.p6 | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/challenge-055/markus-holzer/raku/ch-1.p6 b/challenge-055/markus-holzer/raku/ch-1.p6 index a16224933a..bc201f655d 100644 --- a/challenge-055/markus-holzer/raku/ch-1.p6 +++ b/challenge-055/markus-holzer/raku/ch-1.p6 @@ -1,5 +1,14 @@ subset BinaryStr of Str where * ~~ /^ <[01]>+ $/; +sub USAGE() { + print Q:c:to/EOH/; + ch-1.p6 <binary-str> + + Example: + ch-1.p6 010 + EOH +} + sub MAIN( BinaryStr $input ) { my $pad = '%0' ~ $input.chars ~ 's'; |