From e66c99df361b026bb1b7af6dcfeda8a6607767cf Mon Sep 17 00:00:00 2001 From: Alexander <39702500+threadless-screw@users.noreply.github.com> Date: Wed, 3 Apr 2019 20:53:24 +0000 Subject: Update README --- challenge-002/ozzy/README | 35 ----------------------------------- 1 file changed, 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.") - -} - -- cgit