trackler 2.0.0.5 → 2.0.0.6

data/tracks/crystal/.gitignore

@@ -16,3 +16,4 @@ bin/configlet
 bin/configlet.exe
 CHECKLIST
 tmp/
+bin/generate

data/tracks/crystal/Makefile

@@ -1,6 +1,7 @@
 ASSIGNMENT ?= ""
 IGNOREDIRS := "^(\.git|.crystal|docs|bin|img|script)$$"
 EXERCISESDIR ?= "exercises"
+GENERATORDIR ?= "src/generator"
 ASSIGNMENTS = $(shell find exercises -maxdepth 1 -mindepth 1 -type d | cut -d'/' -f2 | sort | grep -Ev $(IGNOREDIRS))
 
 FILEEXT := "cr"
@@ -23,3 +24,8 @@ test-assignment:
 
 test:
 	@for assignment in $(ASSIGNMENTS); do ASSIGNMENT=$$assignment $(MAKE) -s test-assignment || exit 1; done
+	@echo "running generator tests"
+	@cd $(GENERATORDIR) && crystal spec
+
+build_generator:
+	@crystal build $(GENERATORDIR)/generate.$(FILEEXT) -o bin/generate

data/tracks/crystal/README.md

@@ -18,6 +18,31 @@ Run single assignments with:
 $ make test-assignment ASSIGNMENT=test-folder-name
 ```
 
+## The Test Generator
+
+### Creating a New Generator
+
+Navigate to `src/generator/exercises` and create a new generator file (i.e. `hello_world.cr`).
+
+This file should contain 2 classes:
+* An exercise generator which must inherit from the ExerciseGenerator class.
+* A test case class which inherits from ExerciseTestCase.
+
+The x-common repo must reside at the same level as the developer's crystal directory, and must contain a canonical-data.json file for the given exercise.
+
+### Running the Generator
+
+From within the xcrystal directory:
+```bash
+$ crystal src/generator/generate.cr hello-world
+```
+
+Or build a binary:
+```bash
+$ make build_generator
+$ bin/generate hello-world
+```
+
 ## Contributing Guide
 
 Please see the [contributing guide](https://github.com/exercism/x-api/blob/master/CONTRIBUTING.md#the-exercise-data)

data/tracks/crystal/config.json

@@ -19,7 +19,8 @@
     "roman-numerals",
     "atbash-cipher",
     "anagram",
-    "react"
+    "react",
+    "acronym"
   ],
   "exercises": [
     {
@@ -111,6 +112,12 @@
       "difficulty": 1,
       "topics": [
       ]
+    },
+    {
+      "slug": "acronym",
+      "difficulty": 1,
+      "topics": [
+      ]
     }
   ],
   "deprecated": [
@@ -118,7 +125,8 @@
   "ignored": [
     "bin",
     "docs",
-    "img"
+    "img",
+    "src"
   ],
   "foregone": [
   ]

data/tracks/crystal/exercises/acronym/spec/acronym_spec.cr

@@ -0,0 +1,32 @@
+require "spec"
+require "../src/*"
+
+describe "Acronym" do
+  it "tests basic" do
+    Acronym.abbreviate("Portable Network Graphics").should eq("PNG")
+  end
+
+  it "tests lowercase words" do
+    Acronym.abbreviate("Ruby on Rails").should eq("ROR")
+  end
+
+  it "tests camelcase" do
+    Acronym.abbreviate("HyperText Markup Language").should eq("HTML")
+  end
+
+  it "tests punctuation" do
+    Acronym.abbreviate("First In, First Out").should eq("FIFO")
+  end
+
+  it "tests all caps words" do
+    Acronym.abbreviate("PHP: Hypertext Preprocessor").should eq("PHP")
+  end
+
+  it "tests non-acronym all caps word" do
+    Acronym.abbreviate("GNU Image Manipulation Program").should eq("GIMP")
+  end
+
+  it "tests hyphenated" do
+    Acronym.abbreviate("Complementary metal-oxide semiconductor").should eq("CMOS")
+  end
+end

data/tracks/crystal/exercises/acronym/src/example.cr

@@ -0,0 +1,7 @@
+class Acronym
+  def self.abbreviate(phrase)
+    phrase.scan(/[A-Z]+[a-z]*|[a-z]+/).map do |word|
+      word[0][0].upcase
+    end.join
+  end
+end

data/tracks/crystal/exercises/hello-world/spec/hello_world_spec.cr

@@ -2,17 +2,15 @@ require "spec"
 require "../src/*"
 
 describe "HelloWorld" do
-  describe "#hello" do
-    it "says hello with default 'World'" do
-      HelloWorld.hello.should eq "Hello, World"
-    end
+  it "tests no name" do
+    HelloWorld.hello.should eq("Hello, World!")
+  end
 
-    pending "says hello with one name" do
-      HelloWorld.hello("Max").should eq "Hello, Max"
-    end
+  pending "tests sample name" do
+    HelloWorld.hello("Alice").should eq("Hello, Alice!")
+  end
 
-    pending "says hello with another name" do
-      HelloWorld.hello("Alice").should eq "Hello, Alice"
-    end
+  pending "tests other sample name" do
+    HelloWorld.hello("Bob").should eq("Hello, Bob!")
   end
 end

data/tracks/crystal/exercises/hello-world/src/example.cr

@@ -1,5 +1,5 @@
 class HelloWorld
   def self.hello(name : String = "World")
-    "Hello, #{name}"
+    "Hello, #{name}!"
   end
 end

data/tracks/crystal/src/generator/exercises/acronym.cr

@@ -0,0 +1,34 @@
+require "./exercise_generator"
+require "./exercise_test_case"
+
+class AcronymGenerator < ExerciseGenerator
+  def exercise_name
+    "acronym"
+  end
+
+  def test_cases
+    JSON.parse(data)["abbreviate"]["cases"].map do |test_case|
+      AcronymTestCase.new(test_case)
+    end
+  end
+end
+
+class AcronymTestCase < ExerciseTestCase
+  private getter phrase : JSON::Any
+  private getter description : JSON::Any
+  private getter expected : JSON::Any
+
+  def initialize(test_case)
+    @phrase = test_case["phrase"]
+    @description = test_case["description"]
+    @expected = test_case["expected"]
+  end
+
+  def workload
+    "Acronym.abbreviate(\"#{phrase}\").should eq(\"#{expected}\")"
+  end
+
+  def test_name
+    description
+  end
+end

data/tracks/crystal/src/generator/exercises/exercise_generator.cr

@@ -0,0 +1,39 @@
+require "ecr"
+require "json"
+
+abstract class ExerciseGenerator
+  METADATA_REPOSITORY = "x-common"
+
+  def self.generate
+    new.generate
+  end
+
+  def generate
+    File.write(test_file, to_s)
+  end
+
+  def describe_name
+    exercise_name.split('-').map(&.capitalize).join
+  end
+
+  abstract def exercise_name : String
+  abstract def test_cases : Array(ExerciseTestCase)
+
+  private def root
+    File.expand_path(File.join("..", "..", "..", ".."), __FILE__)
+  end
+
+  private def test_file
+    File.expand_path(File.join("exercises", exercise_name, "spec", "#{exercise_name.tr("-", "_")}_spec.cr"), root)
+  end
+
+  private def metadata_dir
+    File.expand_path(File.join("..", METADATA_REPOSITORY, "exercises", exercise_name), root)
+  end
+
+  private def data
+    File.read(File.join(metadata_dir, "canonical-data.json"))
+  end
+
+  ECR.def_to_s "#{__DIR__}/templates/example.tt"
+end

data/tracks/crystal/src/generator/exercises/exercise_test_case.cr

@@ -0,0 +1,8 @@
+abstract class ExerciseTestCase
+  abstract def workload
+  abstract def test_name
+
+  def pending?(index)
+    index == 0 ? "it" : "pending"
+  end
+end

data/tracks/crystal/src/generator/exercises/hello_world.cr

@@ -0,0 +1,38 @@
+require "./exercise_generator"
+require "./exercise_test_case"
+
+class HelloWorldGenerator < ExerciseGenerator
+  def exercise_name
+    "hello-world"
+  end
+
+  def test_cases
+    JSON.parse(data)["cases"].map do |test_case|
+      HelloWorldTestCase.new(test_case)
+    end
+  end
+end
+
+class HelloWorldTestCase < ExerciseTestCase
+  private getter description : JSON::Any
+  private getter name : JSON::Any | Nil
+  private getter expected : JSON::Any
+
+  def initialize(test_case)
+    @description = test_case["description"]
+    @name = test_case["name"]?
+    @expected = test_case["expected"]
+  end
+
+  def workload
+    if name
+      "HelloWorld.hello(\"#{name}\").should eq(\"#{expected}\")"
+    else
+      "HelloWorld.hello.should eq(\"#{expected}\")"
+    end
+  end
+
+  def test_name
+    description
+  end
+end

data/tracks/crystal/src/generator/exercises/templates/example.tt

@@ -0,0 +1,10 @@
+require "spec"
+require "../src/*"
+
+describe <%= "#{describe_name.inspect} do" %>
+<% test_cases.each_with_index do |test_case, index| %>
+  <%= test_case.pending?(index) %> "tests <%= test_case.test_name %>" do
+    <%= test_case.workload %>
+  end
+<% end -%>
+end

data/tracks/crystal/src/generator/generate.cr

@@ -0,0 +1,15 @@
+require "./exercises/*"
+
+if ARGV.empty?
+  STDERR.puts "Exercise name required!\n"
+  exit
+end
+
+exercise = ARGV[0]
+
+klass = {{ExerciseGenerator.subclasses}}.find do |generator|
+  generator.to_s == "#{exercise.split('-').map(&.capitalize).join}Generator"
+end
+
+raise "Undefined Generator" unless klass
+klass.generate

data/tracks/crystal/src/generator/spec/exercise_generator_spec.cr

@@ -0,0 +1,27 @@
+require "spec"
+require "../exercises/exercise_generator"
+require "../exercises/exercise_test_case"
+
+class DummyGenerator < ExerciseGenerator
+  def exercise_name
+    "dummy"
+  end
+
+  def test_cases
+    [] of ExerciseTestCase
+  end
+end
+
+describe "ExerciseGenerator" do
+  describe "#describe_name" do
+    it "will return the name of the exercise in camel case" do
+      DummyGenerator.new.describe_name.should eq("Dummy")
+    end
+  end
+
+  describe "#to_s" do
+    it "will output the generator test file using the example.tt" do
+      DummyGenerator.new.to_s.should eq("require \"spec\"\nrequire \"../src/*\"\n\ndescribe \"Dummy\" do\nend\n")
+    end
+  end
+end

data/tracks/crystal/src/generator/spec/exercise_test_case_spec.cr

@@ -0,0 +1,23 @@
+require "spec"
+require "json"
+require "../exercises/exercise_test_case"
+
+class DummyTestCase < ExerciseTestCase
+  def workload; end
+
+  def test_name; end
+end
+
+describe "DummyTestCase" do
+  describe "#pending" do
+    it "outputs 'it' if the given integer is 0" do
+      dummy_test_case = DummyTestCase.new
+      dummy_test_case.pending?(0).should eq("it")
+    end
+
+    it "outputs 'pending' if the given integer is greater than 0" do
+      dummy_test_case = DummyTestCase.new
+      dummy_test_case.pending?(1).should eq("pending")
+    end
+  end
+end

data/tracks/elixir/exercises/space-age/space_age.exs

@@ -1,6 +1,6 @@
 defmodule SpaceAge do
   @type planet :: :mercury | :venus | :earth | :mars | :jupiter
-                | :saturn | :neptune | :uranus
+                | :saturn | :uranus | :neptune
 
   @doc """
   Return the number of years a person that has lived for 'seconds' seconds is

data/tracks/elm/config.json

@@ -3,37 +3,6 @@
   "language": "Elm",
   "repository": "https://github.com/exercism/xelm",
   "active": true,
-  "problems": [
-    "hello-world",
-    "bob",
-    "leap",
-    "raindrops",
-    "pangram",
-    "accumulate",
-    "triangle",
-    "anagram",
-    "space-age",
-    "strain",
-    "difference-of-squares",
-    "word-count",
-    "sum-of-multiples",
-    "hamming",
-    "rna-transcription",
-    "run-length-encoding",
-    "sublist",
-    "nucleotide-count",
-    "series",
-    "phone-number",
-    "grade-school",
-    "allergies",
-    "robot-simulator",
-    "list-ops",
-    "atbash-cipher",
-    "say",
-    "largest-series-product",
-    "roman-numerals",
-    "gigasecond"
-  ],
   "exercises": [
     {
       "slug": "hello-world",
@@ -70,6 +39,11 @@
       "difficulty": 1,
       "topics": []
     },
+    {
+      "slug": "scrabble-score",
+      "difficulty": 1,
+      "topics": []
+    },
     {
       "slug": "anagram",
       "difficulty": 1,

data/tracks/elm/elm-package.json

@@ -17,6 +17,7 @@
         "./exercises/anagram",
         "./exercises/raindrops",
         "./exercises/triangle",
+        "./exercises/scrabble-score",
         "./exercises/accumulate",
         "./exercises/sublist",
         "./exercises/sum-of-multiples",

data/tracks/elm/exercises/bob/BobTests.elm

@@ -76,7 +76,7 @@ tests =
             \() ->
                 Expect.equal
                     "Whoa, chill out!"
-                    (Bob.hey "ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!)")
+                    (Bob.hey "ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!")
         , test "shouting with no exclamation mark" <|
             \() ->
                 Expect.equal

data/tracks/elm/exercises/run-length-encoding/RunLengthEncoding.elm

@@ -1 +1,6 @@
 module RunLengthEncoding exposing (..)
+
+
+version : Int
+version =
+  2  

data/tracks/elm/exercises/scrabble-score/ScrabbleScore.elm

@@ -0,0 +1 @@
+module ScrabbleScore exposing (..)

data/tracks/elm/exercises/scrabble-score/ScrabbleScore.example

@@ -0,0 +1,32 @@
+module ScrabbleScore exposing (..)
+
+import String exposing (contains, foldl, fromChar, toUpper)
+
+
+addLetterScore : Char -> Int -> Int
+addLetterScore s total =
+    let
+        c =
+            toUpper (fromChar s)
+    in
+        if contains c "AEIOULNRST" then
+            total + 1
+        else if contains c "DG" then
+            total + 2
+        else if contains c "BCMP" then
+            total + 3
+        else if contains c "FHVWY" then
+            total + 4
+        else if contains c "K" then
+            total + 5
+        else if contains c "JX" then
+            total + 8
+        else if contains c "QZ" then
+            total + 10
+        else
+            total
+
+
+scoreWord : String -> Int
+scoreWord x =
+    x |> foldl addLetterScore 0

data/tracks/elm/exercises/scrabble-score/ScrabbleScoreTests.elm

@@ -0,0 +1,43 @@
+port module Main exposing (..)
+
+import Test.Runner.Node exposing (run)
+import Json.Encode exposing (Value)
+import Test exposing (..)
+import Expect
+import ScrabbleScore exposing (scoreWord)
+
+
+tests : Test
+tests =
+    describe "Grains"
+        [ test "lowercase letter" <|
+            \() -> Expect.equal 1 (scoreWord "a")
+        , test "uppercase letter" <|
+            \() -> Expect.equal 1 (scoreWord "A")
+        , test "valuable letter" <|
+            \() -> Expect.equal 4 (scoreWord "f")
+        , test "short word" <|
+            \() -> Expect.equal 2 (scoreWord "at")
+        , test "short, valuable word" <|
+            \() -> Expect.equal 12 (scoreWord "zoo")
+        , test "medium word" <|
+            \() -> Expect.equal 6 (scoreWord "street")
+        , test "medium, valuable word" <|
+            \() -> Expect.equal 22 (scoreWord "quirky")
+        , test "long, mixed-case word" <|
+            \() -> Expect.equal 41 (scoreWord "OxyphenButazone")
+        , test "english-like word" <|
+            \() -> Expect.equal 8 (scoreWord "pinata")
+        , test "non-english letter is not scored" <|
+            \() -> Expect.equal 7 (scoreWord "piñata")
+        , test "empty input" <|
+            \() -> Expect.equal 0 (scoreWord "")
+        ]
+
+
+main : Program Value
+main =
+    run emit tests
+
+
+port emit : ( String, Value ) -> Cmd msg

data/tracks/elm/exercises/scrabble-score/elm-package.json

@@ -0,0 +1,16 @@
+{
+    "version": "3.0.0",
+    "summary": "Exercism problems in Elm.",
+    "repository": "https://github.com/exercism/xelm.git",
+    "license": "BSD3",
+    "source-directories": [
+        "."
+    ],
+    "exposed-modules": [],
+    "dependencies": {
+        "elm-lang/core": "4.0.0 <= v < 5.0.0",
+        "elm-community/elm-test": "2.0.0 <= v < 3.0.0",
+        "rtfeldman/node-test-runner": "2.0.0 <= v < 3.0.0"
+    },
+    "elm-version": "0.17.0 <= v < 0.18.0"
+}

data/tracks/elm/exercises/scrabble-score/runtests.bat

@@ -0,0 +1 @@
+ECHO We've changed how tests are run! Please review the latest install/running docs at http://exercism.io/languages/elm and report any issues at https://github.com/exercism/xelm

data/tracks/elm/exercises/scrabble-score/runtests.sh

@@ -0,0 +1,2 @@
+#!/usr/bin/env bash
+echo "We've changed how tests are run! Please review the latest install/running docs at http://exercism.io/languages/elm and report any issues at https://github.com/exercism/xelm"

data/tracks/elm/exercises/sublist/Sublist.elm

@@ -1 +1,6 @@
 module Sublist exposing (..)
+
+
+version : Int
+version =
+  2

data/tracks/fsharp/exercises/sum-of-multiples/SumOfMultiplesTest.fs

@@ -12,6 +12,11 @@ let ``Sum to 1`` () =
 let ``Sum to 3`` () =
     Assert.That(sumOfMultiples [3; 5] 3, Is.EqualTo(0))
 
+[<Test>]
+[<Ignore("Remove to run test")>]
+let ``Sum to 4`` () =
+    Assert.That(sumOfMultiples [3; 5] 4, Is.EqualTo(3))
+
 [<Test>]
 [<Ignore("Remove to run test")>]
 let ``Sum to 10`` () =
@@ -25,4 +30,4 @@ let ``Sum to 20`` () =
 [<Test>]
 [<Ignore("Remove to run test")>]
 let ``Sum to 10000`` () =
-    Assert.That(sumOfMultiples [43; 47] 10000, Is.EqualTo(2203160))
+    Assert.That(sumOfMultiples [43; 47] 10000, Is.EqualTo(2203160))

data/tracks/haskell/docs/LEARNING.md

@@ -5,5 +5,14 @@ commonly taught [object oriented approach](https://en.wikipedia.org/wiki/Object-
 learning Haskell can feel different than simply picking up another language.
 
 Fortunately there are numerous resources which presume some programming knowledge to begin with, such
-as the popular [Learn You a Haskell For Great Good!](http://learnyouahaskell.com/) In addition, you may refer to the Haskell
-[wiki](https://wiki.haskell.org/Learning_Haskell#Online_tutorials) for an abundance of resources on beginning.
+as 
+  - the popular [Learn You a Haskell For Great Good!](http://learnyouahaskell.com/) 
+  - University of Glasgow's [Functional Programming in Haskell](https://www.futurelearn.com/courses/functional-programming-haskell) course
+  - FP Complete's [School of Haskell](https://www.schoolofhaskell.com/)
+  - and the [Happy Learn Haskell Tutorial](http://www.happylearnhaskelltutorial.com/).
+
+Some recent Haskell books include
+  - [Haskell Programming From First Principles](http://haskellbook.com) by Christopher Allen and Julie Moronuki (this book does not presume prior programming knowledge)
+  - [Programming in Haskell](http://www.cambridge.org/us/academic/subjects/computer-science/programming-languages-and-applied-logic/programming-haskell-2nd-edition?format=PB&isbn=9781316626221) by Graham Hutton
+
+You may also refer to the [Haskell wiki](https://wiki.haskell.org/Learning_Haskell#Online_tutorials) for an abundance of other resources on beginning.

data/tracks/haskell/exercises/list-ops/test/Tests.hs

@@ -7,6 +7,7 @@ import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
 import Prelude hiding
     ( (++)
     , concat
+    , filter
     , foldr
     , length
     , map
@@ -16,6 +17,7 @@ import Prelude hiding
 import ListOps
     ( (++)
     , concat
+    , filter
     , foldl'
     , foldr
     , length

data/tracks/java/config.json

@@ -43,7 +43,9 @@
     "nth-prime",
     "pascals-triangle",
     "beer-song",
-    "difference-of-squares"
+    "difference-of-squares",
+    "largest-series-product",
+    "queen-attack"
   ],
   "exercises": [
     {
@@ -245,6 +247,16 @@
       "slug": "difference-of-squares",
       "difficulty": 1,
       "topics": []
+    },
+    {
+      "slug": "largest-series-product",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "queen-attack",
+      "difficulty": 1,
+      "topics": []
     }
   ],
   "deprecated": [