ch-1.p6 « perl6 « ryan-thompson « challenge-002 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-002/ryan-thompson/perl6/ch-1.p6

blob: 626b52cc1fe6fa3e660473eb0504a721c6d94df2 (plain)

#!/usr/bin/env perl6

# ch-1.p6 - Remove leading zeroes from positive numbers
#
# Ryan Thompson <rjt@cpan.org>

use v6;

S/^0+ <?[ 1..9 ]>//.say for $*ARGFILES.lines;