trackler 2.0.8.20 → 2.0.8.21

data/tracks/elixir/exercises/ocr-numbers/ocr_numbers_test.exs

@@ -0,0 +1,254 @@
+if !System.get_env("EXERCISM_TEST_EXAMPLES") do
+  Code.load_file("ocr_numbers.exs", __DIR__)
+end
+
+ExUnit.start
+ExUnit.configure exclude: :pending, trace: true
+
+defmodule OCRNumbersTest do
+  use ExUnit.Case
+
+  # @tag :pending
+  test "Recognizes 0" do
+    number = OCRNumbers.convert(
+      [
+        " _ ",
+        "| |",
+        "|_|",
+        "   "
+      ]
+    )
+    assert number == {:ok, "0"}
+  end
+
+  @tag :pending
+  test "Recognizes 1" do
+    number = OCRNumbers.convert(
+      [
+        "   ",
+        "  |",
+        "  |",
+        "   "
+      ]
+    )
+
+    assert number == {:ok, "1"}
+  end
+
+  @tag :pending
+  test "Unreadable but correctly sized inputs return ?" do
+    number = OCRNumbers.convert(
+      [
+        "   ",
+        "  _",
+        "  |",
+        "   "
+      ]
+    )
+
+    assert number == {:ok, "?"}
+  end
+
+  @tag :pending
+  test "Input with a number of lines that is not a multiple of four raises an error" do
+    number = OCRNumbers.convert(
+      [
+        " _ ",
+        "| |",
+        "   "
+      ]
+    )
+
+    assert number == {:error, 'invalid line count'}
+  end
+
+  @tag :pending
+  test "Input with a number of columns that is not a multiple of three raises an error" do
+    number = OCRNumbers.convert(
+      [
+        "    ",
+        "   |",
+        "   |",
+        "    "
+      ]
+    )
+
+    assert number == {:error, 'invalid column count'}
+  end
+
+  @tag :pending
+  test "Recognizes 110101100" do
+    number = OCRNumbers.convert(
+      [
+        "       _     _        _  _ ",
+        "  |  || |  || |  |  || || |",
+        "  |  ||_|  ||_|  |  ||_||_|",
+        "                           "
+      ]
+    )
+
+    assert number == {:ok, "110101100"}
+  end
+
+  @tag :pending
+  test "Garbled numbers in a string are replaced with ?" do
+    number = OCRNumbers.convert(
+      [
+        "       _     _           _ ",
+        "  |  || |  || |     || || |",
+        "  |  | _|  ||_|  |  ||_||_|",
+        "                           "
+      ]
+    )
+
+    assert number == {:ok, "11?10?1?0"}
+  end
+
+  @tag :pending
+  test "Recognizes 2" do
+    number = OCRNumbers.convert(
+      [
+        " _ ",
+        " _|",
+        "|_ ",
+        "   "
+      ]
+    )
+
+    assert number == {:ok, "2"}
+  end
+
+  @tag :pending
+  test "Recognizes 3" do
+    number = OCRNumbers.convert(
+      [
+        " _ ",
+        " _|",
+        " _|",
+        "   "
+      ]
+    )
+
+    assert number == {:ok, "3"}
+  end
+
+  @tag :pending
+  test "Recognizes 4" do
+    number = OCRNumbers.convert(
+      [
+        "   ",
+        "|_|",
+        "  |",
+        "   "
+      ]
+    )
+
+    assert number == {:ok, "4"}
+  end
+
+  @tag :pending
+  test "Recognizes 5" do
+    number = OCRNumbers.convert(
+      [
+        " _ ",
+        "|_ ",
+        " _|",
+        "   "
+      ]
+    )
+
+    assert number == {:ok, "5"}
+  end
+
+  @tag :pending
+  test "Recognizes 6" do
+    number = OCRNumbers.convert(
+      [
+        " _ ",
+        "|_ ",
+        "|_|",
+        "   "
+      ]
+    )
+
+    assert number == {:ok, "6"}
+  end
+
+  @tag :pending
+  test "Regonizes 7" do
+    number = OCRNumbers.convert(
+      [
+        " _ ",
+        "  |",
+        "  |",
+        "   "
+      ]
+    )
+
+    assert number == {:ok, "7"}
+  end
+
+  @tag :pending
+  test "Recognizes 8" do
+    number = OCRNumbers.convert(
+      [
+        " _ ",
+        "|_|",
+        "|_|",
+        "   "
+      ]
+    )
+
+    assert number == {:ok, "8"}
+  end
+
+  @tag :pending
+  test "Recognizes 9" do
+    number = OCRNumbers.convert(
+      [
+        " _ ",
+        "|_|",
+        " _|",
+        "   "
+      ]
+    )
+
+    assert number == {:ok, "9"}
+  end
+
+  @tag :pending
+  test "Recognizes string of decimal numbers" do
+    number = OCRNumbers.convert(
+      [
+        "    _  _     _  _  _  _  _  _ ",
+        "  | _| _||_||_ |_   ||_||_|| |",
+        "  ||_  _|  | _||_|  ||_| _||_|",
+        "                              "
+      ]
+    )
+
+    assert number == {:ok, "1234567890"}
+  end
+
+  @tag :pending
+  test "Numbers separated by empty lines are recognized. Lines are joined by commas." do
+    number = OCRNumbers.convert(
+      [
+        "    _  _ ",
+        "  | _| _|",
+        "  ||_  _|",
+        "         ",
+        "    _  _ ",
+        "|_||_ |_ ",
+        "  | _||_|",
+        "         ",
+        " _  _  _ ",
+        "  ||_||_|",
+        "  ||_| _|",
+        "         "
+      ]
+    )
+
+    assert number == {:ok, "123,456,789"}
+  end
+end

data/tracks/go/exercises/say/example.go

@@ -1,5 +1,7 @@
 package say
 
+const testVersion = 1
+
 var small = []string{"zero", "one", "two", "three", "four", "five", "six",
 	"seven", "eight", "nine", "ten", "eleven", "twelve", "thirteen",
 	"fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen"}

data/tracks/go/exercises/say/say_test.go

@@ -7,6 +7,8 @@ import (
 	"testing"
 )
 
+const targetTestVersion = 1
+
 var tests = []struct {
 	uint64
 	string
@@ -38,6 +40,12 @@ var tests = []struct {
 		"six hundred fifteen"},
 }
 
+func TestTestVersion(t *testing.T) {
+	if testVersion != targetTestVersion {
+		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
+	}
+}
+
 func TestSay(t *testing.T) {
 	for _, test := range tests {
 		if s := Say(test.uint64); s != test.string {

data/tracks/go/exercises/scrabble-score/scrabble_score_test.go

@@ -18,16 +18,18 @@ var tests = []struct {
 	{"alacrity", 13},
 }
 
+func TestTestVersion(t *testing.T) {
+	if testVersion != targetTestVersion {
+		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
+	}
+}
+
 func TestScore(t *testing.T) {
 	for _, test := range tests {
 		if actual := Score(test.input); actual != test.expected {
 			t.Errorf("Score(%q) expected %d, Actual %d", test.input, test.expected, actual)
 		}
 	}
-
-	if testVersion != targetTestVersion {
-		t.Fatalf("Found testVersion = %v, want %v.", testVersion, targetTestVersion)
-	}
 }
 
 func BenchmarkScore(b *testing.B) {

data/tracks/go/exercises/secret-handshake/secret_handshake_test.go

@@ -23,10 +23,13 @@ var tests = []struct {
 	{33, []string{"wink"}},
 }
 
-func TestHandshake(t *testing.T) {
+func TestTestVersion(t *testing.T) {
 	if testVersion != targetTestVersion {
 		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
 	}
+}
+
+func TestHandshake(t *testing.T) {
 	for _, test := range tests {
 		h := Handshake(test.code)
 		// use len() to allow either nil or empty list, because

data/tracks/go/exercises/sieve/example.go

@@ -1,5 +1,7 @@
 package sieve
 
+const testVersion = 1
+
 func Sieve(limit int) (primes []int) {
 	c := make([]bool, limit)
 	for p := 2; p < limit; {

data/tracks/go/exercises/sieve/sieve_test.go

@@ -5,6 +5,8 @@ import (
 	"testing"
 )
 
+const targetTestVersion = 1
+
 var p10 = []int{2, 3, 5, 7}
 var p1000 = []int{2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53,
 	59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137,
@@ -18,6 +20,12 @@ var p1000 = []int{2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53,
 	797, 809, 811, 821, 823, 827, 829, 839, 853, 857, 859, 863, 877, 881, 883,
 	887, 907, 911, 919, 929, 937, 941, 947, 953, 967, 971, 977, 983, 991, 997}
 
+func TestTestVersion(t *testing.T) {
+	if testVersion != targetTestVersion {
+		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
+	}
+}
+
 func TestSieve(t *testing.T) {
 	p := Sieve(10)
 	if !reflect.DeepEqual(p, p10) {

data/tracks/go/exercises/simple-cipher/example.go

@@ -2,10 +2,12 @@ package cipher
 
 import "strings"
 
-func NewCaesar() Cipher { return NewShift(3) }
+const testVersion = 1
 
 type shift int
 
+func NewCaesar() Cipher { return NewShift(3) }
+
 func NewShift(s int) Cipher {
 	c := shift(s)
 	switch {

data/tracks/go/exercises/simple-cipher/simple_cipher_test.go

@@ -35,6 +35,14 @@ import (
 	"testing"
 )
 
+const targetTestVersion = 1
+
+func TestTestVersion(t *testing.T) {
+	if testVersion != targetTestVersion {
+		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
+	}
+}
+
 // type for testing cipher encoding alone, without requiring any text prep.
 type prepped struct {
 	pt string // prepped text == decoded plain text

data/tracks/go/exercises/sum-of-multiples/example.go

@@ -1,5 +1,7 @@
 package summultiples
 
+const testVersion = 1
+
 // SumMultiples returns the sum of the multiples of the given divisors
 // up to, but not including, the given limit.
 func SumMultiples(limit int, divisors ...int) (sum int) {

data/tracks/go/exercises/sum-of-multiples/sum_of_multiples_test.go

@@ -2,6 +2,8 @@ package summultiples
 
 import "testing"
 
+const targetTestVersion = 1
+
 var varTests = []struct {
 	divisors []int
 	limit    int
@@ -19,6 +21,12 @@ var varTests = []struct {
 	{[]int{}, 10000, 0},
 }
 
+func TestTestVersion(t *testing.T) {
+	if testVersion != targetTestVersion {
+		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
+	}
+}
+
 func TestSumMultiples(t *testing.T) {
 	for _, test := range varTests {
 		s := SumMultiples(test.limit, test.divisors...)

data/tracks/go/exercises/tournament/tournament_test.go

@@ -110,11 +110,13 @@ var errorTestCases = []string{
 	"Devastating Donkeys;Allegoric Alaskians;dra",
 }
 
-func TestTallyHappy(t *testing.T) {
+func TestTestVersion(t *testing.T) {
 	if testVersion != targetTestVersion {
 		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
 	}
+}
 
+func TestTallyHappy(t *testing.T) {
 	for _, tt := range happyTestCases {
 		reader := strings.NewReader(tt.input)
 		var buffer bytes.Buffer

data/tracks/go/exercises/transpose/example.go

@@ -1,5 +1,7 @@
 package transpose
 
+const testVersion = 1
+
 func Transpose(m []string) []string {
 	max := maxLen(m)
 	t := make([]string, max)

data/tracks/go/exercises/transpose/transpose_test.go

@@ -5,6 +5,14 @@ import (
 	"testing"
 )
 
+const targetTestVersion = 1
+
+func TestTestVersion(t *testing.T) {
+	if testVersion != targetTestVersion {
+		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
+	}
+}
+
 func TestTranspose(t *testing.T) {
 	for _, test := range testCases {
 		actual := Transpose(test.input)

data/tracks/go/exercises/tree-building/tree_test.go

@@ -210,6 +210,12 @@ func (n Node) String() string {
 	return fmt.Sprintf("%d:%s", n.ID, n.Children)
 }
 
+func TestTestVersion(t *testing.T) {
+	if testVersion != targetTestVersion {
+		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
+	}
+}
+
 func TestMakeTreeSuccess(t *testing.T) {
 	for _, tt := range successTestCases {
 		actual, err := Build(tt.input)
@@ -235,12 +241,6 @@ func TestMakeTreeFailure(t *testing.T) {
 	}
 }
 
-func TestTestVersion(t *testing.T) {
-	if testVersion != targetTestVersion {
-		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
-	}
-}
-
 func shuffleRecords(records []Record) []Record {
 	rand := rand.New(rand.NewSource(42))
 	newRecords := make([]Record, len(records))

data/tracks/go/exercises/triangle/triangle_test.go

@@ -53,6 +53,12 @@ func init() {
 	testData = append(testData, nf[1:]...)
 }
 
+func TestTestVersion(t *testing.T) {
+	if testVersion != targetTestVersion {
+		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
+	}
+}
+
 // Test that the kinds are not equal to each other.
 // If they are equal, then TestKind will return false positives.
 func TestKindsNotEqual(t *testing.T) {
@@ -86,12 +92,6 @@ func TestKind(t *testing.T) {
 	}
 }
 
-func TestTestVersion(t *testing.T) {
-	if testVersion != targetTestVersion {
-		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
-	}
-}
-
 func BenchmarkKind(b *testing.B) {
 	for i := 0; i < b.N; i++ {
 		for _, test := range testData {

data/tracks/haskell/exercises/atbash-cipher/src/Atbash.hs

@@ -1,7 +1,7 @@
 module Atbash (decode, encode) where
 
 decode :: String -> String
-decode phrase = error "You need to implement this function."
+decode cipherText = error "You need to implement this function."
 
 encode :: String -> String
-encode phrase = error "You need to implement this function."
+encode plainText = error "You need to implement this function."

data/tracks/haskell/exercises/largest-series-product/src/Series.hs

@@ -1,4 +1,4 @@
 module Series (largestProduct) where
 
 largestProduct :: Int -> String -> Maybe Integer
-largestProduct series digits = error "You need to implement this function."
+largestProduct size digits = error "You need to implement this function."

data/tracks/haskell/exercises/linked-list/src/Deque.hs

@@ -6,13 +6,13 @@ mkDeque :: IO (Deque a)
 mkDeque = error "You need to implement this function."
 
 pop :: Deque a -> IO (Maybe a)
-pop = error "You need to implement this function."
+pop deque = error "You need to implement this function."
 
 push :: Deque a -> a -> IO ()
-push = error "You need to implement this function."
+push deque x = error "You need to implement this function."
 
 unshift :: Deque a -> a -> IO ()
-unshift = error "You need to implement this function."
+unshift deque x = error "You need to implement this function."
 
 shift :: Deque a -> IO (Maybe a)
-shift = error "You need to implement this function."
+shift deque = error "You need to implement this function."

data/tracks/haskell/exercises/list-ops/src/ListOps.hs

@@ -13,25 +13,25 @@ import Prelude hiding
   ( length, reverse, map, filter, foldr, (++), concat )
 
 foldl' :: (b -> a -> b) -> b -> [a] -> b
-foldl' = error "You need to implement this function."
+foldl' f z xs = error "You need to implement this function."
 
 foldr :: (a -> b -> b) -> b -> [a] -> b
-foldr = error "You need to implement this function."
+foldr f z xs = error "You need to implement this function."
 
 length :: [a] -> Int
-length = error "You need to implement this function."
+length xs = error "You need to implement this function."
 
 reverse :: [a] -> [a]
-reverse = error "You need to implement this function."
+reverse xs = error "You need to implement this function."
 
 map :: (a -> b) -> [a] -> [b]
-map = error "You need to implement this function."
+map f xs = error "You need to implement this function."
 
 filter :: (a -> Bool) -> [a] -> [a]
-filter = error "You need to implement this function."
+filter p xs = error "You need to implement this function."
 
 (++) :: [a] -> [a] -> [a]
 xs ++ ys = error "You need to implement this function."
 
 concat :: [[a]] -> [a]
-concat = error "You need to implement this function."
+concat xss = error "You need to implement this function."

data/tracks/haskell/exercises/luhn/src/Luhn.hs

@@ -1,11 +1,16 @@
 module Luhn (addends, checkDigit, checksum, create, isValid) where
 
-addends = error "You need to implement this function."
+addends :: Integer -> [Integer]
+addends n = error "You need to implement this function."
 
-checkDigit = error "You need to implement this function."
+checkDigit :: Integer -> Integer
+checkDigit n = error "You need to implement this function."
 
-checksum = error "You need to implement this function."
+checksum :: Integer -> Integer
+checksum n = error "You need to implement this function."
 
-create = error "You need to implement this function."
+create :: Integer -> Integer
+create n = error "You need to implement this function."
 
-isValid = error "You need to implement this function."
+isValid :: Integer -> Bool
+isValid n = error "You need to implement this function."

data/tracks/haskell/exercises/matrix/src/Matrix.hs

@@ -17,31 +17,31 @@ import Data.Vector (Vector)
 data Matrix a = Dummy deriving (Eq, Show)
 
 cols :: Matrix a -> Int
-cols = error "You need to implement this function."
+cols matrix = error "You need to implement this function."
 
 column :: Int -> Matrix a -> Vector a
-column = error "You need to implement this function."
+column x matrix = error "You need to implement this function."
 
 flatten :: Matrix a -> Vector a
-flatten = error "You need to implement this function."
+flatten matrix = error "You need to implement this function."
 
 fromList :: [[a]] -> Matrix a
-fromList = error "You need to implement this function."
+fromList xss = error "You need to implement this function."
 
 fromString :: Read a => String -> Matrix a
-fromString = error "You need to implement this function."
+fromString xs = error "You need to implement this function."
 
 reshape :: (Int, Int) -> Matrix a -> Matrix a
-reshape = error "You need to implement this function."
+reshape dimensions matrix = error "You need to implement this function."
 
 row :: Int -> Matrix a -> Vector a
-row = error "You need to implement this function."
+row x matrix = error "You need to implement this function."
 
 rows :: Matrix a -> Int
-rows = error "You need to implement this function."
+rows matrix = error "You need to implement this function."
 
 shape :: Matrix a -> (Int, Int)
-shape = error "You need to implement this function."
+shape matrix = error "You need to implement this function."
 
 transpose :: Matrix a -> Matrix a
-transpose = error "You need to implement this function."
+transpose matrix = error "You need to implement this function."

data/tracks/haskell/exercises/minesweeper/src/Minesweeper.hs

@@ -1,4 +1,4 @@
 module Minesweeper (annotate) where
 
 annotate :: [String] -> [String]
-annotate = error "You need to implement this function."
+annotate board = error "You need to implement this function."

data/tracks/haskell/exercises/nth-prime/src/Prime.hs

@@ -1,3 +1,4 @@
 module Prime (nth) where
 
-nth = error "You need to implement this function."
+nth :: Int -> Maybe Integer
+nth n = error "You need to implement this function."

data/tracks/haskell/exercises/nucleotide-count/src/DNA.hs

@@ -3,4 +3,4 @@ module DNA (nucleotideCounts) where
 import Data.Map (Map)
 
 nucleotideCounts :: String -> Either String (Map Char Int)
-nucleotideCounts = error "You need to implement this function."
+nucleotideCounts xs = error "You need to implement this function."

data/tracks/haskell/exercises/ocr-numbers/src/OCR.hs

@@ -1,4 +1,4 @@
 module OCR (convert) where
 
 convert :: String -> String
-convert = error "You need to implement this function."
+convert xs = error "You need to implement this function."

data/tracks/haskell/exercises/pascals-triangle/src/Triangle.hs

@@ -1,4 +1,4 @@
 module Triangle (rows) where
 
 rows :: Int -> [[Integer]]
-rows = error "You need to implement this function."
+rows x = error "You need to implement this function."