" # AllYourBase # Introduction You've just been hired as professor of mathematics. Your first week went well, but something is off in your second week. The problem is that every answer given by your students is wrong! Luckily, your math skills have allowed you to identify the problem: the student answers _are_ correct, but they're all in base 2 (binary)! Amazingly, it turns out that each week, the students use a different base. To help you quickly verify the student answers, you'll be building a tool to translate between bases. # Instructions Convert a sequence of digits in one base, representing a number, into a sequence of digits in another base, representing the same number. ~~~~exercism/note Try to implement the conversion yourself. Do not use something else to perform the conversion for you. ~~~~ ## About [Positional Notation][positional-notation] In positional notation, a number in base **b** can be understood as a linear combination of powers of **b**. The number 42, _in base 10_, means: `(4 × 10¹) + (2 × 10⁰)` The number 101010, _in base 2_, means: `(1 × 2⁵) + (0 × 2⁴) + (1 × 2³) + (0 × 2²) + (1 × 2¹) + (0 × 2⁰)` The number 1120, _in base 3_, means: `(1 × 3³) + (1 × 3²) + (2 × 3¹) + (0 × 3⁰)` _Yes. Those three numbers above are exactly the same. Congratulations!_ [positional-notation]: https://en.wikipedia.org/wiki/Positional_notation ## Instructions append You may want to explore Number class and its methods in Pharo, and how to add to OrderedCollection in different order. " Class { #name : 'AllYourBaseTest', #superclass : 'ExercismTest', #instVars : [ 'allYourBase' ], #category : 'Exercise@AllYourBase', #package : 'Exercise@AllYourBase' } { #category : 'config' } AllYourBaseTest class >> exercise [ "Answer the configured exercise meta data for this exercise, an ExercismExercise e.g." ^(ExercismExercise for: self) difficulty: 4; topics: #('numbers' 'while-loops' 'lists' 'math-operators' 'exceptions'); yourself ] { #category : 'config' } AllYourBaseTest class >> exerciseTitle [ "Answer the exercise title string, obtained from metadata.toml" ^ 'All Your Base' ] { #category : 'config' } AllYourBaseTest class >> uuid [ "Answer a unique id for this exercise" ^'d7c5ed6b-d42c-406a-9912-9ee952a955ba' ] { #category : 'config' } AllYourBaseTest class >> version [ "Generated from specification: 23 April 2025" ^'Not specified' ] { #category : 'running' } AllYourBaseTest >> setUp [ super setUp. allYourBase := AllYourBase new ] { #category : 'tests' } AllYourBaseTest >> test01_SingleBitOneToDecimal [ "Tip: Remember to review the class [Comment] tab" | result | result := allYourBase rebaseInputBase: 2 digits: #(1) outputBase: 10 . self assert: result equals: #(1) ] { #category : 'tests' } AllYourBaseTest >> test02_BinaryToSingleDecimal [ | result | result := allYourBase rebaseInputBase: 2 digits: #(1 0 1) outputBase: 10 . self assert: result equals: #(5) ] { #category : 'tests' } AllYourBaseTest >> test03_SingleDecimalToBinary [ | result | result := allYourBase rebaseInputBase: 10 digits: #(5) outputBase: 2 . self assert: result equals: #(1 0 1) ] { #category : 'tests' } AllYourBaseTest >> test04_BinaryToMultipleDecimal [ | result | result := allYourBase rebaseInputBase: 2 digits: #(1 0 1 0 1 0) outputBase: 10 . self assert: result equals: #(4 2) ] { #category : 'tests' } AllYourBaseTest >> test05_DecimalToBinary [ | result | result := allYourBase rebaseInputBase: 10 digits: #(4 2) outputBase: 2 . self assert: result equals: #(1 0 1 0 1 0) ] { #category : 'tests' } AllYourBaseTest >> test06_TrinaryToHexadecimal [ | result | result := allYourBase rebaseInputBase: 3 digits: #(1 1 2 0) outputBase: 16 . self assert: result equals: #(2 10) ] { #category : 'tests' } AllYourBaseTest >> test07_HexadecimalToTrinary [ | result | result := allYourBase rebaseInputBase: 16 digits: #(2 10) outputBase: 3 . self assert: result equals: #(1 1 2 0) ] { #category : 'tests' } AllYourBaseTest >> test08_15bitInteger [ | result | result := allYourBase rebaseInputBase: 97 digits: #(3 46 60) outputBase: 73 . self assert: result equals: #(6 10 45) ] { #category : 'tests' } AllYourBaseTest >> test09_EmptyList [ | result | result := allYourBase rebaseInputBase: 2 digits: #() outputBase: 10 . self assert: result equals: #(0) ] { #category : 'tests' } AllYourBaseTest >> test10_SingleZero [ | result | result := allYourBase rebaseInputBase: 10 digits: #(0) outputBase: 2 . self assert: result equals: #(0) ] { #category : 'tests' } AllYourBaseTest >> test11_MultipleZeros [ | result | result := allYourBase rebaseInputBase: 10 digits: #(0 0 0) outputBase: 2 . self assert: result equals: #(0) ] { #category : 'tests' } AllYourBaseTest >> test12_LeadingZeros [ | result | result := allYourBase rebaseInputBase: 7 digits: #(0 6 0) outputBase: 10 . self assert: result equals: #(4 2) ] { #category : 'tests' } AllYourBaseTest >> test13_InputBaseIsOne [ | result | self should: [ result := allYourBase rebaseInputBase: 1 digits: #(0) outputBase: 10 ] raise: Error whoseDescriptionIncludes: 'input base must be >= 2' description: 'Should get an error with the correct description' ] { #category : 'tests' } AllYourBaseTest >> test14_InputBaseIsZero [ | result | self should: [ result := allYourBase rebaseInputBase: 0 digits: #() outputBase: 10 ] raise: Error whoseDescriptionIncludes: 'input base must be >= 2' description: 'Should get an error with the correct description' ] { #category : 'tests' } AllYourBaseTest >> test15_InputBaseIsNegative [ | result | self should: [ result := allYourBase rebaseInputBase: -2 digits: #(1) outputBase: 10 ] raise: Error whoseDescriptionIncludes: 'input base must be >= 2' description: 'Should get an error with the correct description' ] { #category : 'tests' } AllYourBaseTest >> test16_NegativeDigit [ | result | self should: [ result := allYourBase rebaseInputBase: 2 digits: #(1 -1 1 0 1 0) outputBase: 10 ] raise: Error whoseDescriptionIncludes: 'all digits must satisfy 0 <= d < input base' description: 'Should get an error with the correct description' ] { #category : 'tests' } AllYourBaseTest >> test17_InvalidPositiveDigit [ | result | self should: [result := allYourBase rebaseInputBase: 2 digits: #( 1 2 1 0 1 0 ) outputBase: 10 ] raise: Error whoseDescriptionIncludes: 'all digits must satisfy 0 <= d < input base' description: 'Should get an error with the correct description' ] { #category : 'tests' } AllYourBaseTest >> test18_OutputBaseIsOne [ | result | self should: [ result := allYourBase rebaseInputBase: 2 digits: #(1 0 1 0 1 0) outputBase: 1 ] raise: Error whoseDescriptionIncludes: 'output base must be >= 2' description: 'Should get an error with the correct description' ] { #category : 'tests' } AllYourBaseTest >> test19_OutputBaseIsZero [ | result | self should: [ result := allYourBase rebaseInputBase: 10 digits: #(7) outputBase: 0 ] raise: Error whoseDescriptionIncludes: 'output base must be >= 2' description: 'Should get an error with the correct description' ] { #category : 'tests' } AllYourBaseTest >> test20_OutputBaseIsNegative [ | result | self should: [ result := allYourBase rebaseInputBase: 2 digits: #(1) outputBase: -7 ] raise: Error whoseDescriptionIncludes: 'output base must be >= 2' description: 'Should get an error with the correct description' ] { #category : 'tests' } AllYourBaseTest >> test21_BothBasesAreNegative [ | result | self should: [ result := allYourBase rebaseInputBase: -2 digits: #(1) outputBase: -7 ] raise: Error whoseDescriptionIncludes: 'input base must be >= 2' description: 'Should get an error with the correct description' ]