From f572002dfb9a3a01778dbecbfa44a22c5198a325 Mon Sep 17 00:00:00 2001 From: John Barrett Date: Mon, 1 Apr 2019 22:37:41 +0100 Subject: To base35 --- challenge-002/john-barrett/perl5/ch-2.pl | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100755 challenge-002/john-barrett/perl5/ch-2.pl diff --git a/challenge-002/john-barrett/perl5/ch-2.pl b/challenge-002/john-barrett/perl5/ch-2.pl new file mode 100755 index 0000000000..3293529824 --- /dev/null +++ b/challenge-002/john-barrett/perl5/ch-2.pl @@ -0,0 +1,30 @@ +#!/usr/bin/env perl + +use strict; +use warnings; +use feature 'say'; + +# Usage, e.g. +# ./ch-2.pl -to-base35 123 +# ./ch-2.pl -from-base35 ABCD + +my %args = @ARGV; +my @charset = ( 0..9, 'A'..'Y' ); +my $base = @charset; + +say to_base35( $args{'-to-base35'} ) if $args{'-to-base35'}; +#say to_base35( $args{'-to-base35'} ) if $args{'-to-base35'}; + +sub to_base35 { + my ( $int ) = @_; + my $sign = ( $int < 0 ) ? '-' : ''; + my @digits; + $int = abs( $int ); + do { + push @digits, $charset[ $int % $base ]; + $int = int( $int / $base ); + say $int; + } while ( $int > 0 ); + $sign . join '', reverse @digits; +} + -- cgit