trackler 2.0.3.5 → 2.0.3.6

data/tracks/perl5/config.json

@@ -320,6 +320,11 @@
       "difficulty": 1,
       "slug": "sublist",
       "topics": []
+    },
+    {
+      "difficulty": 1,
+      "slug": "all-your-base",
+      "topics": []
     }
   ]
 }

data/tracks/perl5/exercises/all-your-base/Example.pm

@@ -0,0 +1,32 @@
+package Example;
+
+use strict;
+use warnings;
+
+use Carp;
+
+sub convert_base {
+    my( $digits, $in_base, $out_base ) = @_;
+
+    croak "base must be greater than 1" if grep { $_ <= 1 } $in_base, $out_base;
+
+    croak 'negative digit not allowed' if grep { $_ < 0 } @$digits;
+
+    croak 'digit equal of greater than the base' if grep { $_ >= $in_base } @$digits;
+
+    my $number = 0;
+    $number = $number * $in_base + $_ for @$digits;
+
+    my @output;
+
+    while( $number ) {
+        unshift @output, $number % $out_base;
+        $number = int $number / $out_base;
+    }
+
+    push @output, 0 unless @output;
+
+    return \@output;
+}
+
+1;

data/tracks/perl5/exercises/all-your-base/all-your-base.t

@@ -0,0 +1,184 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use Test::More;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
+
+my $module = $ENV{EXERCISM} ? 'Example' : 'AllYourBase';
+
+my $function = 'convert_base';
+
+plan tests => 24;
+
+ok -e "${dir}${module}.pm", "$module.pm present"
+    or BAIL_OUT "You need to create file: $module.pm";
+
+eval "use $module";
+ok !$@, "can load $module"
+    or BAIL_OUT "Cannot load $module. Does it compile? Does it end with 1;?";
+can_ok $module, $function
+    or BAIL_OUT "Missing package $module; or missing sub $function()?";
+
+my $sub = \&{ join '::', $module, $function }; 
+
+sub testcase {
+    my %test = @_;
+
+    my $r = eval {
+        # cloning the input_digits to make sure the sub doesn't modify the
+        # original array
+        $sub->( [ @{$test{input_digits}} ], $test{input_base}, $test{output_base} ) 
+    };
+
+    my $success = $test{error} 
+        ? like( $@ => $test{error}, $test{description} )
+        : is_deeply( $r, $test{output_digits}, $test{description} )
+        ;
+
+    return if $success;
+
+    $test{got} = $r;
+    diag explain \%test;
+    BAIL_OUT( 'a test failed, try again!' );
+}
+
+testcase(%$_) for 
+        { "description"  => "single bit one to decimal"
+        , "input_base"   => 2
+        , "input_digits" => [1]
+        , "output_base"  => 10
+        , "output_digits"=> [1]
+        },
+        { "description"  => "binary to single decimal"
+        , "input_base"   => 2
+        , "input_digits" => [1, 0, 1]
+        , "output_base"  => 10
+        , "output_digits"=> [5]
+        },
+        { "description"  => "single decimal to binary"
+        , "input_base"   => 10
+        , "input_digits" => [5]
+        , "output_base"  => 2
+        , "output_digits"=> [1, 0, 1]
+        },
+        { "description"  => "binary to multiple decimal"
+        , "input_base"   => 2
+        , "input_digits" => [1, 0, 1, 0, 1, 0]
+        , "output_base"  => 10
+        , "output_digits"=> [4, 2]
+        },
+        { "description"  => "decimal to binary"
+        , "input_base"   => 10
+        , "input_digits" => [4, 2]
+        , "output_base"  => 2
+        , "output_digits"=> [1, 0, 1, 0, 1, 0]
+        },
+        { "description"  => "trinary to hexadecimal"
+        , "input_base"   => 3
+        , "input_digits" => [1, 1, 2, 0]
+        , "output_base"  => 16
+        , "output_digits"=> [2, 10]
+        },
+        { "description"  => "hexadecimal to trinary"
+        , "input_base"   => 16
+        , "input_digits" => [2, 10]
+        , "output_base"  => 3
+        , "output_digits"=> [1, 1, 2, 0]
+        },
+        { "description"  => "15-bit integer"
+        , "input_base"   => 97
+        , "input_digits" => [3,46,60]
+        , "output_base"  => 73
+        , "output_digits"=> [6,10,45]
+        },
+        { "description"  => "empty list"
+        , "input_base"   => 2
+        , "input_digits" => []
+        , "output_base"  => 10
+        , "output_digits"=> [0]
+        },
+        { "description"  => "single zero"
+        , "input_base"   => 10
+        , "input_digits" => [0]
+        , "output_base"  => 2
+        , "output_digits"=> [0]
+        },
+        { "description"  => "multiple zeros"
+        , "input_base"   => 10
+        , "input_digits" => [0, 0, 0]
+        , "output_base"  => 2
+        , "output_digits"=> [0]
+        },
+        { "description"  => "leading zeros"
+        , "input_base"   => 7
+        , "input_digits" => [0, 6, 0]
+        , "output_base"  => 10
+        , "output_digits"=> [ 4, 2 ]
+        },
+        { "description"  => "negative digit"
+        , "input_base"   => 2
+        , "input_digits" => [1, -1, 1, 0, 1, 0]
+        , "output_base"  => 10
+        , "output_digits"=> undef
+        , error => qr/negative digit not allowed/
+        },
+        { "description"  => "invalid positive digit"
+        , "input_base"   => 2
+        , "input_digits" => [1, 2, 1, 0, 1, 0]
+        , "output_base"  => 10
+        , "output_digits"=> undef
+        , error => qr/digit equal of greater than the base/
+        },
+        { "description"  => "first base is one"
+        , "input_base"   => 1
+        , "input_digits" => []
+        , "output_base"  => 10
+        , "output_digits"=> undef
+        , error => qr/base must be greater than 1/
+        },
+        { "description"  => "second base is one"
+        , "input_base"   => 2
+        , "input_digits" => [1, 0, 1, 0, 1, 0]
+        , "output_base"  => 1
+        , "output_digits"=> undef
+        , error => qr/base must be greater than 1/
+        },
+        { "description"  => "first base is zero"
+        , "input_base"   => 0
+        , "input_digits" => []
+        , "output_base"  => 10
+        , "output_digits"=> undef
+        , error => qr/base must be greater than 1/
+        },
+        { "description"  => "second base is zero"
+        , "input_base"   => 10
+        , "input_digits" => [7]
+        , "output_base"  => 0
+        , "output_digits"=> undef
+        , error => qr/base must be greater than 1/
+        },
+        { "description"  => "first base is negative"
+        , "input_base"   => -2
+        , "input_digits" => [1]
+        , "output_base"  => 10
+        , "output_digits"=> undef
+        , error => qr/base must be greater than 1/
+        },
+        { "description"  => "second base is negative"
+        , "input_base"   => 2
+        , "input_digits" => [1]
+        , "output_base"  => -7
+        , "output_digits"=> undef
+        , error => qr/base must be greater than 1/
+        },
+        { "description"  => "both bases are negative"
+        , "input_base"   => -2
+        , "input_digits" => [1]
+        , "output_base"  => -7
+        , "output_digits"=> undef
+        , error => qr/base must be greater than 1/
+        };

data/tracks/perl6/config.json

@@ -75,6 +75,11 @@
       "difficulty": 1,
       "slug": "binary",
       "topics": []
+    },
+    {
+      "difficulty": 1,
+      "slug": "trinary",
+      "topics": []
     }
   ]
 }

data/tracks/perl6/exercises/trinary/Example.p6

@@ -0,0 +1,6 @@
+sub to-decimal($num) is export {
+
+    return 0 if $num ~~ /<-[012]>/;
+
+    return reduce { 3 * $^a + $^b }, 0, |$num.comb;
+}

data/tracks/perl6/exercises/trinary/trinary.t

@@ -0,0 +1,60 @@
+#!/usr/bin/env perl6
+
+use Test;
+
+use lib ( my $dir = IO::Path.new($?FILE).parent ).path;
+
+my $module_name = %*ENV<EXERCISM>.so ?? 'Example' !! 'Trinary';
+my @potential_module = <p6 pm6 pm>.map:  $module_name ~ '.' ~ *;
+
+my $module = first { $dir.child($_).e }, |@potential_module
+    or die "No file '$module_name.p6' found\n";
+
+require $module <&to-decimal>;
+
+my @cases = (
+    {
+        input    => 1,
+        expected => 1,
+    },
+    {
+        input    => 2,
+        expected => 2,
+    },
+    {
+        input    => 10,
+        expected => 3,
+    },
+    {
+        input    => 11,
+        expected => 4,
+    },
+    {
+        input    => 100,
+        expected => 9,
+    },
+    {
+        input    => 10,
+        expected => 3,
+    },
+    {
+        input    => 112,
+        expected => 14,
+    },
+    {
+        input    => 222,
+        expected => 26,
+    },
+    {
+        input    => 1122000120,
+        expected => 32091,
+    },
+    {
+        input    => "carrot",
+        expected => 0,
+    }
+);
+
+plan @cases.elems;
+
+is to-decimal( .<input> ), .<expected>, .<input> for @cases;

data/tracks/rust/exercises/allergies/.gitignore

@@ -0,0 +1,7 @@
+# Generated by Cargo
+# will have compiled files and executables
+/target/
+
+# Remove Cargo.lock from gitignore if creating an executable, leave it for libraries
+# More information here http://doc.crates.io/guide.html#cargotoml-vs-cargolock
+Cargo.lock

data/tracks/rust/exercises/anagram/.gitignore

@@ -0,0 +1,7 @@
+# Generated by Cargo
+# will have compiled files and executables
+/target/
+
+# Remove Cargo.lock from gitignore if creating an executable, leave it for libraries
+# More information here http://doc.crates.io/guide.html#cargotoml-vs-cargolock
+Cargo.lock

data/tracks/rust/exercises/beer-song/.gitignore

@@ -0,0 +1,7 @@
+# Generated by Cargo
+# will have compiled files and executables
+/target/
+
+# Remove Cargo.lock from gitignore if creating an executable, leave it for libraries
+# More information here http://doc.crates.io/guide.html#cargotoml-vs-cargolock
+Cargo.lock

data/tracks/rust/exercises/bob/.gitignore

@@ -0,0 +1,7 @@
+# Generated by Cargo
+# will have compiled files and executables
+/target/
+
+# Remove Cargo.lock from gitignore if creating an executable, leave it for libraries
+# More information here http://doc.crates.io/guide.html#cargotoml-vs-cargolock
+Cargo.lock

data/tracks/rust/exercises/bracket-push/.gitignore

@@ -0,0 +1,7 @@
+# Generated by Cargo
+# will have compiled files and executables
+/target/
+
+# Remove Cargo.lock from gitignore if creating an executable, leave it for libraries
+# More information here http://doc.crates.io/guide.html#cargotoml-vs-cargolock
+Cargo.lock

data/tracks/rust/exercises/circular-buffer/.gitignore

@@ -0,0 +1,7 @@
+# Generated by Cargo
+# will have compiled files and executables
+/target/
+
+# Remove Cargo.lock from gitignore if creating an executable, leave it for libraries
+# More information here http://doc.crates.io/guide.html#cargotoml-vs-cargolock
+Cargo.lock

data/tracks/rust/exercises/custom-set/.gitignore

@@ -0,0 +1,7 @@
+# Generated by Cargo
+# will have compiled files and executables
+/target/
+
+# Remove Cargo.lock from gitignore if creating an executable, leave it for libraries
+# More information here http://doc.crates.io/guide.html#cargotoml-vs-cargolock
+Cargo.lock

data/tracks/rust/exercises/difference-of-squares/.gitignore

@@ -0,0 +1,7 @@
+# Generated by Cargo
+# will have compiled files and executables
+/target/
+
+# Remove Cargo.lock from gitignore if creating an executable, leave it for libraries
+# More information here http://doc.crates.io/guide.html#cargotoml-vs-cargolock
+Cargo.lock

data/tracks/rust/exercises/dominoes/.gitignore

@@ -0,0 +1,7 @@
+# Generated by Cargo
+# will have compiled files and executables
+/target/
+
+# Remove Cargo.lock from gitignore if creating an executable, leave it for libraries
+# More information here http://doc.crates.io/guide.html#cargotoml-vs-cargolock
+Cargo.lock

data/tracks/rust/exercises/etl/.gitignore

@@ -0,0 +1,7 @@
+# Generated by Cargo
+# will have compiled files and executables
+/target/
+
+# Remove Cargo.lock from gitignore if creating an executable, leave it for libraries
+# More information here http://doc.crates.io/guide.html#cargotoml-vs-cargolock
+Cargo.lock

data/tracks/rust/exercises/forth/.gitignore

@@ -0,0 +1,7 @@
+# Generated by Cargo
+# will have compiled files and executables
+/target/
+
+# Remove Cargo.lock from gitignore if creating an executable, leave it for libraries
+# More information here http://doc.crates.io/guide.html#cargotoml-vs-cargolock
+Cargo.lock

data/tracks/rust/exercises/gigasecond/.gitignore

@@ -0,0 +1,7 @@
+# Generated by Cargo
+# will have compiled files and executables
+/target/
+
+# Remove Cargo.lock from gitignore if creating an executable, leave it for libraries
+# More information here http://doc.crates.io/guide.html#cargotoml-vs-cargolock
+Cargo.lock

data/tracks/rust/exercises/grade-school/.gitignore

@@ -0,0 +1,7 @@
+# Generated by Cargo
+# will have compiled files and executables
+/target/
+
+# Remove Cargo.lock from gitignore if creating an executable, leave it for libraries
+# More information here http://doc.crates.io/guide.html#cargotoml-vs-cargolock
+Cargo.lock

data/tracks/rust/exercises/hamming/.gitignore

@@ -0,0 +1,7 @@
+# Generated by Cargo
+# will have compiled files and executables
+/target/
+
+# Remove Cargo.lock from gitignore if creating an executable, leave it for libraries
+# More information here http://doc.crates.io/guide.html#cargotoml-vs-cargolock
+Cargo.lock

data/tracks/rust/exercises/hello-world/.gitignore

@@ -0,0 +1,7 @@
+# Generated by Cargo
+# will have compiled files and executables
+/target/
+
+# Remove Cargo.lock from gitignore if creating an executable, leave it for libraries
+# More information here http://doc.crates.io/guide.html#cargotoml-vs-cargolock
+Cargo.lock