diff options
| author | Alexander <39702500+threadless-screw@users.noreply.github.com> | 2019-04-03 20:53:24 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-04-03 20:53:24 +0000 |
| commit | e66c99df361b026bb1b7af6dcfeda8a6607767cf (patch) | |
| tree | a179525aef51e5e772caa43d18068106b580c9df /challenge-002/ozzy/README | |
| parent | 4db60445891bf5b0542d858455711b0d11fd5f2d (diff) | |
| download | perlweeklychallenge-club-e66c99df361b026bb1b7af6dcfeda8a6607767cf.tar.gz perlweeklychallenge-club-e66c99df361b026bb1b7af6dcfeda8a6607767cf.tar.bz2 perlweeklychallenge-club-e66c99df361b026bb1b7af6dcfeda8a6607767cf.zip | |
Update README
Diffstat (limited to 'challenge-002/ozzy/README')
| -rw-r--r-- | challenge-002/ozzy/README | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/challenge-002/ozzy/README b/challenge-002/ozzy/README index 40d33b4f43..44e39371ef 100644 --- a/challenge-002/ozzy/README +++ b/challenge-002/ozzy/README @@ -1,36 +1 @@ Solution by Ozzy - ------------- -Challenge 1: ------------- -The simplest solution I could think of was conversion of a numeric (integer) string through -the use of the built-in Int method: - - my $a = "004" # Example string representing positive integer with leading zeros - my $b = $a.Int # Convert string to Int using built-in method Int, and so strip zeros - say $b # Print the Int; OUTPUT: 4 - -In a Perl6/Bash one-liner, this would look something like this: - - perl6 -pe '$_=.Int' <<< 004 - -but this, in itself, isn't very practical since Bash can do it with even less fuzz: - - a="004" - echo ${a##+(0)} - ------------- -Challenge 2: ------------- -The obvious way to go is probably the use of Perl6' .base and .parse-base methods: - -loop { - - my Str $a = prompt("\nPlease, give me a decimal (base-10) number : "); - say("$a in decimal notation is { $a.Int.base(35) } in base-35 notation."); - - $a = prompt("\nNow give me a base-35 number [A-Y0-9]: "); - say("$a in base-35 notation is { $a.parse-base(35) } in base-10 notation.") - -} - |
