Merge pull request #171 from ErikSchierboom/all-your-base

Add all-your-base exercise and deprecate existing exercises. Closes #169

Author: ErikSchierboom

config.json

@@ -16,11 +16,8 @@
     "bank-account",
     "grains",
     "leap",
-    "binary",
     "hamming",
-    "trinary",
     "etl",
-    "octal",
     "pig-latin",
     "word-count",
     "roman-numerals",
@@ -42,7 +39,6 @@
     "luhn",
     "scrabble-score",
     "kindergarten-garden",
-    "hexadecimal",
     "queen-attack",
     "meetup",
     "binary-search-tree",
@@ -99,10 +95,14 @@
     "go-counting",
     "ledger",
     "variable-length-quantity",
-    "markdown"
+    "markdown",
+    "all-your-base"
   ],
-  "deprecated": [
-
+  "deprecated": [    
+    "binary",
+    "octal",
+    "hexadecimal",
+    "trinary"
   ],
   "ignored": [
     "docs",

exercises/all-your-base/AllYourBaseTest.fs

@@ -0,0 +1,193 @@
+module AllYourBaseTest
+
+open NUnit.Framework
+
+open AllYourBase
+
+[<Test>]
+let ``Single bit one to decimal`` () =
+    let inputBase = 2
+    let inputDigits = [1]
+    let outputBase = 10
+    let outputDigits = Some [1]
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Binary to single decimal`` () =
+    let inputBase = 2
+    let inputDigits = [1; 0; 1]
+    let outputBase = 10
+    let outputDigits = Some [5]
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Single decimal to binary`` () =
+    let inputBase = 10
+    let inputDigits = [5]
+    let outputBase = 2
+    let outputDigits = Some [1; 0; 1]
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Binary to multiple decimal`` () =
+    let inputBase = 2
+    let inputDigits = [1; 0; 1; 0; 1; 0]
+    let outputBase = 10
+    let outputDigits = Some [4; 2]
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Decimal to binary`` () =
+    let inputBase = 10
+    let inputDigits = [4; 2]
+    let outputBase = 2
+    let outputDigits = Some [1; 0; 1; 0; 1; 0]
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Trinary to hexadecimal`` () =
+    let inputBase = 3
+    let inputDigits = [1; 1; 2; 0]
+    let outputBase = 16
+    let outputDigits = Some [2; 10]
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Hexadecimal to trinary`` () =
+    let inputBase = 16
+    let inputDigits = [2; 10]
+    let outputBase = 3
+    let outputDigits = Some [1; 1; 2; 0]
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``15-bit integer`` () =
+    let inputBase = 97
+    let inputDigits = [3; 46; 60]
+    let outputBase = 73
+    let outputDigits = Some [6; 10; 45]
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Empty list`` () =
+    let inputBase = 2
+    let inputDigits = []
+    let outputBase = 10
+    let outputDigits = None
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Single zero`` () =
+    let inputBase = 10
+    let inputDigits = [0]
+    let outputBase = 2
+    let outputDigits = None
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Multiple zeros`` () =
+    let inputBase = 10
+    let inputDigits = [0; 0; 0]
+    let outputBase = 2
+    let outputDigits = None
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Leading zeros`` () =
+    let inputBase = 7
+    let inputDigits = [0; 6; 0]
+    let outputBase = 10
+    let outputDigits = None
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Negative digit`` () =
+    let inputBase = 2
+    let inputDigits = [1; -1; 1; 0; 1; 0]
+    let outputBase = 10
+    let outputDigits = None
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Invalid positive digit`` () =
+    let inputBase = 2
+    let inputDigits = [1; 2; 1; 0; 1; 0]
+    let outputBase = 10
+    let outputDigits = None
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``First base is one`` () =
+    let inputBase = 1
+    let inputDigits = []
+    let outputBase = 10
+    let outputDigits = None
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Second base is one`` () =
+    let inputBase = 2
+    let inputDigits = [1; 0; 1; 0; 1; 0]
+    let outputBase = 1
+    let outputDigits = None
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``First base is zero`` () =
+    let inputBase = 0
+    let inputDigits = []
+    let outputBase = 10
+    let outputDigits = None
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Second base is zero`` () =
+    let inputBase = 10
+    let inputDigits = [7]
+    let outputBase = 0
+    let outputDigits = None
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``First base is negative`` () =
+    let inputBase = -2
+    let inputDigits = [1]
+    let outputBase = 10
+    let outputDigits = None
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Second base is negative`` () =
+    let inputBase = 2
+    let inputDigits = [1]
+    let outputBase = -7
+    let outputDigits = None
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))
+
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Both bases are negative`` () =
+    let inputBase = -2
+    let inputDigits = [1]
+    let outputBase = -7
+    let outputDigits = None
+    Assert.That(rebase inputBase inputDigits outputBase, Is.EqualTo(outputDigits))

exercises/all-your-base/Example.fs

@@ -0,0 +1,31 @@
+module AllYourBase
+
+let swap (a, b) = b, a
+
+let divMod n d = 
+    let q = n / d
+    let r = n % d
+    (q, r)
+
+let fromDigits fromBase digits = 
+    let folder acc x = 
+        if x < 0 || x >= fromBase || (x = 0 && acc = Some 0) then None 
+        else Option.map (fun y -> y * fromBase + x) acc
+
+    if List.isEmpty digits then None
+    else List.fold folder (Some 0) digits
+
+let toDigits toBase n =
+    let unfolder x = 
+        if x = 0 then None
+        else Some (divMod x toBase |> swap)
+
+    List.unfold unfolder n |> List.rev
+
+let rebase inputBase inputDigits outputBase =
+    if inputBase < 2 || outputBase < 2 then 
+        None
+    else 
+        inputDigits 
+        |> fromDigits inputBase 
+        |> Option.map (toDigits outputBase)