All your base v3 (#667)

* Added solution and test class for all-your-base exercise.

* Added all-your-base exercise to exercise output directory.

* Removed AllYourBase class from work-in-progress package.

Author: Bajger

config.json

@@ -466,6 +466,21 @@
           "pattern_recognition"
         ]
       },
+      {
+        "slug" : "all-your-base",
+        "name" : "All Your Base",
+        "uuid" : "d7c5ed6b-d42c-406a-9912-9ee952a955ba",
+        "practices" : [ ],
+        "prerequisites" : [ ],
+        "difficulty" : 4,
+        "topics" : [
+          "numbers",
+          "while-loops",
+          "lists",
+          "math-operators",
+          "exceptions"
+        ]
+      },
       {
         "slug" : "grade-school",
         "name" : "Grade School",

dev/src/BaselineOfExercism/BaselineOfExercism.class.st

@@ -20,7 +20,7 @@ BaselineOfExercism class >> exercisePackageNames [
 	"Answer the list of exercise package names (as we don't yet have proper projects)"
 
 
-	^ #('Exercise@Acronym' 'Exercise@Allergies' 'Exercise@Anagram' 'Exercise@ArmstrongNumbers' 'Exercise@AtbashCipher' 'Exercise@Binary' 'Exercise@BinarySearchTree' 'Exercise@Bowling' 'Exercise@CircularBuffer' 'Exercise@Clock' 'Exercise@CollatzConjecture' 'Exercise@Darts' 'Exercise@Diamond' 'Exercise@Die' 'Exercise@Etl' 'Exercise@FlattenArray' 'Exercise@Forth' 'Exercise@Gigasecond' 'Exercise@GradeSchool' 'Exercise@Grains' 'Exercise@Hamming' 'Exercise@HelloWorld' 'Exercise@HighScores' 'Exercise@IsbnVerifier' 'Exercise@Isogram' 'Exercise@Leap' 'Exercise@Luhn' 'Exercise@MatchingBrackets' 'Exercise@Matrix' 'Exercise@Minesweeper' 'Exercise@OcrNumbers' 'Exercise@Pangram' 'Exercise@Proverb' 'Exercise@Raindrops' 'Exercise@Rectangles' 'Exercise@ResistorColorDuo' 'Exercise@ReverseString' 'Exercise@RobotSimulator' 'Exercise@RomanNumerals' 'Exercise@SecretHandshake' 'Exercise@Sieve' 'Exercise@SimpleCipher' 'Exercise@SpaceAge' 'Exercise@SumOfMultiples' 'Exercise@Tournament' 'Exercise@TwelveDays' 'Exercise@TwoFer' 'Exercise@Welcome' 'Exercise@WordCount' 'Exercise@WordSearch')
+	^ #('Exercise@Acronym' 'Exercise@Allergies' 'Exercise@AllYourBase' 'Exercise@Anagram' 'Exercise@ArmstrongNumbers' 'Exercise@AtbashCipher' 'Exercise@Binary' 'Exercise@BinarySearchTree' 'Exercise@Bowling' 'Exercise@CircularBuffer' 'Exercise@Clock' 'Exercise@CollatzConjecture' 'Exercise@Darts' 'Exercise@Diamond' 'Exercise@Die' 'Exercise@Etl' 'Exercise@FlattenArray' 'Exercise@Forth' 'Exercise@Gigasecond' 'Exercise@GradeSchool' 'Exercise@Grains' 'Exercise@Hamming' 'Exercise@HelloWorld' 'Exercise@HighScores' 'Exercise@IsbnVerifier' 'Exercise@Isogram' 'Exercise@Leap' 'Exercise@Luhn' 'Exercise@MatchingBrackets' 'Exercise@Matrix' 'Exercise@Minesweeper' 'Exercise@OcrNumbers' 'Exercise@Pangram' 'Exercise@Proverb' 'Exercise@Raindrops' 'Exercise@Rectangles' 'Exercise@ResistorColorDuo' 'Exercise@ReverseString' 'Exercise@RobotSimulator' 'Exercise@RomanNumerals' 'Exercise@SecretHandshake' 'Exercise@Sieve' 'Exercise@SimpleCipher' 'Exercise@SpaceAge' 'Exercise@SumOfMultiples' 'Exercise@Tournament' 'Exercise@TwelveDays' 'Exercise@TwoFer' 'Exercise@Welcome' 'Exercise@WordCount' 'Exercise@WordSearch')
 ]
 
 { #category : 'baselines' }

dev/src/Exercise@AllYourBase/AllYourBase.class.st

@@ -0,0 +1,41 @@
+Class {
+	#name : 'AllYourBase',
+	#superclass : 'Object',
+	#category : 'Exercise@AllYourBase',
+	#package : 'Exercise@AllYourBase'
+}
+
+{ #category : 'exercism' }
+AllYourBase >> convertDecimal: aDecimal outputBase: outputBase [
+
+	|remainder division resultDigits|
+	outputBase >= 2 ifFalse: [Error signal: 'output base must be >= 2' ].
+	resultDigits := OrderedCollection new.
+	division := aDecimal.
+	[  
+		remainder := division \\ outputBase.
+		division := division // outputBase.
+		resultDigits addFirst: remainder.
+	] doWhileFalse: [ division isZero ].
+	^ resultDigits asArray
+]
+
+{ #category : 'exercism' }
+AllYourBase >> convertToDecimal: digitsArray fromBase: inputBase [
+	
+	^ (digitsArray reversed withIndexCollect: [ 
+		:digit :i | 
+		(digit >= 0 and: [digit < inputBase]) 
+		ifFalse: [ Error signal: 'all digits must satisfy 0 <= d < input base' ].
+		digit * (inputBase raisedTo: i - 1) 
+		]) sumNumbers
+]
+
+{ #category : 'exercism' }
+AllYourBase >> rebaseInputBase: inputBase digits: digitsArray outputBase: outputBase [
+
+	|aDecimal|
+	inputBase >= 2 ifFalse: [Error signal: 'input base must be >= 2' ].
+	aDecimal := self convertToDecimal: digitsArray fromBase: inputBase.
+	^ self convertDecimal: aDecimal outputBase: outputBase
+]