trackler 2.2.1.73 → 2.2.1.74

data/tracks/ecmascript/config.json

@@ -237,7 +237,7 @@
       ]
     },
     {
-      "uuid": "207af8f6-0ffe-e380-d521-7e054bd4e959257c77d",
+      "uuid": "7f49e997-4435-4f34-a020-bddc92c838ed",
       "slug": "two-fer",
       "core": false,
       "unlocked_by": "hello-world",
@@ -385,7 +385,7 @@
       ]
     },
     {
-      "uuid": "363b8810-0bd1-c480-b23c-6b5f629975e7452b123",
+      "uuid": "b8dacb3a-51d0-4da7-a6d2-aa29867e2b8c",
       "slug": "collatz-conjecture",
       "core": false,
       "unlocked_by": "leap",
@@ -1145,7 +1145,7 @@
       ]
     },
     {
-      "uuid": "0e43944b-0a68-5680-ef11-70999d2df897c894476",
+      "uuid": "64de1776-d5c6-43fe-9abf-7e3aa08ae342",
       "slug": "twelve-days",
       "core": false,
       "unlocked_by": "bob",
@@ -1160,7 +1160,7 @@
       ]
     },
     {
-      "uuid": "a0eecb1c-0dd1-4180-1d19-c6ab92bc23ca163ee56",
+      "uuid": "ea9a9a3e-ae6a-470d-8bb4-2afead507f24",
       "slug": "complex-numbers",
       "core": false,
       "unlocked_by": "space-age",
@@ -1170,7 +1170,7 @@
       ]
     },
     {
-      "uuid": "213ea396-0c25-e480-4e76-5876975bdd54ac4890c",
+      "uuid": "b902c746-60d1-4645-a5bc-dafadec0ef32",
       "slug": "isbn-verifier",
       "core": false,
       "unlocked_by": "bob",

data/tracks/fsharp/config.json

@@ -114,6 +114,17 @@
       "unlocked_by": "sum-of-multiples",
       "uuid": "8b66e691-508f-40d9-8cee-1d6aec27366e"
     },
+    {
+      "core": false,
+      "difficulty": 2,
+      "slug": "armstrong-numbers",
+      "topics": [
+        "integers",
+        "mathematics"
+      ],
+      "unlocked_by": "sum-of-multiples",
+      "uuid": "e7f74f6c-16ea-40d8-94f7-7034bc6ee938"
+    },
     {
       "core": true,
       "difficulty": 3,

data/tracks/fsharp/exercises/Exercises.sln

@@ -222,6 +222,8 @@ Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "IsbnVerifier", "isbn-verifi
 EndProject
 Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "SpiralMatrix", "spiral-matrix\SpiralMatrix.fsproj", "{4C02F0E3-90F6-4ACD-9D34-EDFF301B058D}"
 EndProject
+Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "ArmstrongNumbers", "armstrong-numbers\ArmstrongNumbers.fsproj", "{48345F81-5B0F-4C2C-9403-84CBF918714C}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -668,6 +670,10 @@ Global
 		{4C02F0E3-90F6-4ACD-9D34-EDFF301B058D}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{4C02F0E3-90F6-4ACD-9D34-EDFF301B058D}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{4C02F0E3-90F6-4ACD-9D34-EDFF301B058D}.Release|Any CPU.Build.0 = Release|Any CPU
+		{48345F81-5B0F-4C2C-9403-84CBF918714C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{48345F81-5B0F-4C2C-9403-84CBF918714C}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{48345F81-5B0F-4C2C-9403-84CBF918714C}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{48345F81-5B0F-4C2C-9403-84CBF918714C}.Release|Any CPU.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE

data/tracks/fsharp/exercises/armstrong-numbers/ArmstrongNumbers.fs

@@ -0,0 +1,3 @@
+module ArmstrongNumbers
+
+let isArmstrongNumber (number: int): bool = failwith "You need to implement this function."

data/tracks/fsharp/exercises/armstrong-numbers/ArmstrongNumbers.fsproj

@@ -0,0 +1,23 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="ArmstrongNumbers.fs" />
+    <Compile Include="ArmstrongNumbersTest.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.5.0" />
+    <PackageReference Include="xunit" Version="2.3.1" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.1" />
+    <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.1" />
+  </ItemGroup>
+
+</Project>

data/tracks/fsharp/exercises/armstrong-numbers/ArmstrongNumbersTest.fs

@@ -0,0 +1,41 @@
+// This file was auto-generated based on version 1.0.0 of the canonical data.
+
+module ArmstrongNumbersTest
+
+open FsUnit.Xunit
+open Xunit
+
+open ArmstrongNumbers
+
+[<Fact>]
+let ``Single digit numbers are Armstrong numbers`` () =
+    isArmstrongNumber 5 |> should equal true
+
+[<Fact(Skip = "Remove to run test")>]
+let ``There are no 2 digit Armstrong numbers`` () =
+    isArmstrongNumber 10 |> should equal false
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Three digit number that is an Armstrong number`` () =
+    isArmstrongNumber 153 |> should equal true
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Three digit number that is not an Armstrong number`` () =
+    isArmstrongNumber 100 |> should equal false
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Four digit number that is an Armstrong number`` () =
+    isArmstrongNumber 9474 |> should equal true
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Four digit number that is not an Armstrong number`` () =
+    isArmstrongNumber 9475 |> should equal false
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Seven digit number that is an Armstrong number`` () =
+    isArmstrongNumber 9926315 |> should equal true
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Seven digit number that is not an Armstrong number`` () =
+    isArmstrongNumber 9926314 |> should equal false
+

data/tracks/fsharp/exercises/armstrong-numbers/Example.fs

@@ -0,0 +1,7 @@
+module ArmstrongNumbers
+
+let isArmstrongNumber (number: int) =
+    let charToNumber c = int c - int '0'
+    let numberAsString = string number
+    let charToPower c = pown (charToNumber c) numberAsString.Length
+    Seq.sumBy charToPower numberAsString = number

data/tracks/fsharp/exercises/armstrong-numbers/Program.fs

@@ -0,0 +1 @@
+module Program = let [<EntryPoint>] main _ = 0

data/tracks/fsharp/exercises/armstrong-numbers/README.md

@@ -0,0 +1,15 @@
+# Armstrong numbers
+
+An [Armstrong number](https://en.wikipedia.org/wiki/Narcissistic_number) is a number that is the sum of its own digits each raised to the power of the number of digits.
+
+For example:
+
+- 9 is an Armstrong number, because `9 = 9^1 = 9`
+- 10 is *not* an Armstrong number, because `10 != 1^2 + 0^2 = 2`
+- 153 is an Armstrong number, because: `153 = 1^3 + 5^3 + 3^3 = 1 + 125 + 27 = 153`
+- 154 is *not* an Armstrong number, because: `154 != 1^3 + 5^3 + 4^3 = 1 + 125 + 64 = 190`
+
+Write some code to determine whether a number is an Armstrong number.
+
+## Submitting Incomplete Solutions
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.

data/tracks/fsharp/exercises/change/README.md

@@ -17,7 +17,7 @@ that the sum of the coins' value would equal the correct amount of change.
 - Can you ask for a change value smaller than the smallest coin value?
 ## Source
 
-Software Craftsmanship - Kata-logue [http://craftsmanship.sv.cmu.edu/exercises/coin-change-kata](http://craftsmanship.sv.cmu.edu/exercises/coin-change-kata)
+Software Craftsmanship - Kata-logue [http://craftsmanship.sv.cmu.edu/exercises/coin-change-kata](https://web.archive.org/web/20130115115225/http://craftsmanship.sv.cmu.edu:80/exercises/coin-change-kata)
 
 ## Submitting Incomplete Solutions
 It's possible to submit an incomplete solution so you can see how others have completed the exercise.

data/tracks/fsharp/exercises/secret-handshake/README.md

@@ -29,7 +29,7 @@ Notice that the addition of 16 (10000 in binary)
 has caused the array to be reversed.
 ## Source
 
-Bert, in Mary Poppins [http://www.imdb.com/character/ch0011238/quotes](http://www.imdb.com/character/ch0011238/quotes)
+Bert, in Mary Poppins [http://www.imdb.com/title/tt0058331/quotes/qt0437047](http://www.imdb.com/title/tt0058331/quotes/qt0437047)
 
 ## Submitting Incomplete Solutions
 It's possible to submit an incomplete solution so you can see how others have completed the exercise.

data/tracks/fsharp/generators/Common.fs

@@ -11,6 +11,7 @@ type CanonicalDataCase =
         member this.Description = string this.Properties.["description"]
         member this.Property = string this.Properties.["property"]
         member this.Expected = this.Properties.["expected"]
+        member this.Input = this.Properties.["input"]
 
 type CanonicalData = 
     { Exercise: string

data/tracks/fsharp/generators/Generators.fs

@@ -86,6 +86,13 @@ type Anagram() =
 
     override this.PropertiesWithIdentifier canonicalDataCase = ["candidates"]
 
+type ArmstrongNumbers() =
+    inherit Exercise()
+
+    override this.RenderInput (canonicalDataCase, key, value) =
+        (value :?> JToken).Value("number") 
+        |> formatValue
+
 type BeerSong() =
     inherit Exercise()
 

data/tracks/go/exercises/secret-handshake/README.md

@@ -47,7 +47,7 @@ you're having trouble, please visit the exercism.io [Go language page](http://ex
 
 ## Source
 
-Bert, in Mary Poppins [http://www.imdb.com/character/ch0011238/quotes](http://www.imdb.com/character/ch0011238/quotes)
+Bert, in Mary Poppins [http://www.imdb.com/title/tt0058331/quotes/qt0437047](http://www.imdb.com/title/tt0058331/quotes/qt0437047)
 
 ## Submitting Incomplete Solutions
 It's possible to submit an incomplete solution so you can see how others have completed the exercise.

data/tracks/idris/.travis.yml

@@ -1,5 +1,25 @@
-language: bash
+language: haskell
 
-script:
+env:
+  global:
+    - RESOLVER=lts-8.17
+
+cache:
+  bundler: true
+  directories:
+    - $HOME/.local
+    - $HOME/.stack
+    - $HOME/.cabal
+
+install:
+  - rvm install 2.2.5
+  - rvm use 2.2.5
   - bin/fetch-configlet
-  - bin/configlet lint .
+  - bin/fetch-stack.sh
+  - bin/fetch-exercism-infra.sh
+  - stack --resolver $RESOLVER setup
+  - "[[ $(which idris) != '' ]] || travis_wait 60 stack --resolver $RESOLVER install idris"
+
+script:
+  - bin/configlet .
+  - bin/solve_exercises.sh

data/tracks/idris/bin/fetch-exercism-infra.sh

@@ -0,0 +1,121 @@
+#!/usr/bin/env bash
+
+set -x
+
+xtrack_home=$(pwd)
+build=${xtrack_home}/build
+
+xapi_home=${build}/x-api
+trackler_home=${build}/trackler
+exercism_home=${build}/exercism
+
+## Clone into X-API and trackler
+git clone "https://github.com/exercism/x-api" "${xapi_home}"
+git clone "https://github.com/exercism/trackler" "${trackler_home}"
+
+#### TRACKLER ####
+
+## Get into trackler directory
+pushd ${trackler_home}
+
+## Update submodules
+git submodule init -- comoon
+git submodule update
+
+## Bake in local version of the track
+rm -rf tracks/idris # TODO: generify the trackname!
+mkdir -p tracks/idris/exercises
+cp "${xtrack_home}/config.json" tracks/idris
+cp -rv "${xtrack_home}/exercises" tracks/idris
+
+## Adjust some versioning information
+version=$(grep -m 1 'trackler' ${xapi_home}/Gemfile.lock | sed 's/.*(//' | sed 's/)//')
+echo "module Trackler VERSION = \"${version}\" end" > lib/trackler/version.rb
+
+## Install bundler and use it to install dependencies
+[[ $(which bundler) != "" ]] || gem install bundler
+bundle install
+gem build trackler.gemspec
+
+## Install the built gem into local registry
+gem install --local "trackler-${version}.gem"
+
+popd
+
+#### XAPI ####
+
+pushd ${xapi_home}
+
+## Install the dependencies
+bundle install
+
+## Start it in background
+RACK_ENV=development rackup &
+xapi_pid=$!
+sleep 5 # We need to wait a bit here, to avoid race conditions. 5 seconds should be enough
+
+echo "x-api is running, pid is ${xapi_pid}."
+
+popd
+
+#### EXERCISM CLI ####
+
+os=$(case $(uname) in
+    (Darwin*)
+        echo "mac";;
+    (Linux*)
+        echo "linux";;
+    (Windows*)
+        echo "windows";;
+    (MINGW*)
+        echo "windows";;
+    (*)
+        echo "linux";;
+esac)
+
+arch=$(case $(uname -m) in
+    (*64*)
+        echo 64bit;;
+    (*686*)
+        echo 32bit;;
+    (*386*)
+        echo 32bit;;
+    (*)
+        echo 64bit;;
+esac)
+
+## Retrieve exercism client version
+release_url=https://github.com/exercism/cli/releases
+latest_url=${release_url}/latest
+version=$(curl --head --silent ${latest_url} | awk -v FS=/ '/Location:/{print $NF}' | tr -d '\r')
+
+## download the tarball
+file_ending=""
+unzip_command=""
+unzip_from_file_option=""
+if [[ ${os} == "windows" ]]; then
+    file_ending="zip"
+    unzip_command="unzip -d"
+else
+    file_ending="tgz"
+    unzip_command="tar xz -C"
+    unzip_from_file_option="-f"
+fi
+download_url="${release_url}/download/${version}/exercism-${os}-${arch}.${file_ending}"
+
+mkdir -p ${exercism_home}
+temp=$(mktemp)
+curl -s --Location ${download_url} > ${temp}
+${unzip_command} ${exercism_home} ${unzip_from_file_option} ${temp}
+
+## Configuration
+config_file=".journy-test.exercism.json"
+port=9292
+
+exercism_command="./exercism --config ${config_file}"
+
+pushd ${exercism_home}
+${exercism_command} configure --dir="${exercism_home}"
+${exercism_command} configure --api "http://localhost:${port}"
+${exercism_command} debug
+popd

data/tracks/idris/bin/fetch-stack.sh

@@ -0,0 +1,11 @@
+#!/usr/bin/env bash
+
+set -x
+
+path=$HOME/.local/bin
+stack_bin=$path/stack
+
+mkdir -p $path
+export PATH=$path:$PATH
+
+[[ -f $stack_bin ]] || curl -L https://www.stackage.org/stack/linux-x86_64 | tar xz --wildcards --strip-components=1 -C $path '*/stack'

data/tracks/idris/bin/solve_exercises.sh

@@ -0,0 +1,59 @@
+#!/usr/bin/env bash
+
+set -x
+
+xtrack_home=$(pwd)
+build=${xtrack_home}/build
+exercism_home=${build}/exercism
+config_file=".journy-test.exercism.json"
+exercism_command="./exercism --config ${config_file}"
+
+exercises=$(ls exercises | sed 's|/||g')
+total_exercises=$(echo ${exercises} | wc -w)
+current_exercise_number=1
+
+pushd ${exercism_home}
+
+green=()
+red=()
+exit_code=0
+
+for exercise in $exercises; do
+    percentage=$(((current_exercise_number - 1) * 100 / total_exercises))
+    set +x
+    echo -e "\n\n"
+    echo "============================================="
+    echo "${current_exercise_number} of ${total_exercises} (${percentage}) -- ${exercise}"
+    echo "============================================="
+    set -x
+
+    ${exercism_command} fetch idris ${exercise} # TODO: track name!
+    exercise_implementation=$(ls ${exercism_home}/idris/${exercise}/src/*.idr)
+    exercise_example=${xtrack_home}/exercises/${exercise}/src/example.idr
+    cp ${exercise_example} ${exercise_implementation}
+
+    pushd ${exercism_home}/idris/${exercise}
+    if make test; then
+        green+=(${exercise})
+    else
+        red+=(${exercise})
+        exit_code=$((exit_code + 1))
+    fi        
+    popd
+
+    current_exercise_number=$((current_exercise_number + 1))
+done
+
+set +x
+
+echo "GOOD:"
+for i in ${green[@]}; do
+    echo " * ${i}"
+done
+
+echo -e "\n\nBAD:"
+for i in ${red[@]}; do
+    echo " * ${i}"
+done
+
+exit $exit_code