trackler 2.2.1.59 → 2.2.1.60

data/tracks/ceylon/exercises/hamming/source/hamming/HammingTest.ceylon

@@ -1,6 +1,6 @@
 import ceylon.test { ... }
 
-// Tests adapted from problem-specifications version 2.0.0
+// Tests adapted from problem-specifications version 2.0.1
 {[String, String, Integer?]*} cases => {
   // identical strands
   ["A", "A", 0],
@@ -17,9 +17,9 @@ import ceylon.test { ... }
   // small distance in long strands
   ["ACCAGGG", "ACTATGG", 2],
   // non-unique character in first strand
-  ["AGA", "AGG", 1],
+  ["AAG", "AAA", 1],
   // non-unique character in second strand
-  ["AGG", "AGA", 1],
+  ["AAA", "AAG", 1],
   // same nucleotides in different positions
   ["TAG", "GAT", 2],
   // large distance

data/tracks/ceylon/exercises/leap/source/leap/LeapTest.ceylon

@@ -1,8 +1,8 @@
 import ceylon.test { ... }
 
-// Tests adapted from problem-specifications version 1.0.0
+// Tests adapted from problem-specifications version 1.2.0
 {[Integer, Boolean]*} cases =>
-  {[2015, false], [2016, true], [2100, false], [2000, true]};
+  {[2015, false], [1996, true], [2100, false], [2000, true]};
 
 test
 parameters(`value cases`)

data/tracks/dart/exercises/phone-number/README.md

@@ -13,7 +13,7 @@ The format is usually represented as
 
 where `N` is any digit from 2 through 9 and `X` is any digit from 0 through 9.
 
-Your task is to clean up differently formated telephone numbers by removing punctuation and the country code (1) if present.
+Your task is to clean up differently formatted telephone numbers by removing punctuation and the country code (1) if present.
 
 For example, the inputs
 - `+1 (613)-995-0253`

data/tracks/dart/exercises/phone-number/test/phone_number_test.dart

@@ -11,7 +11,7 @@ void main() {
   group("PhoneNumber: Edge cases - ", edgeCases);
 }
 
-cleanUpTest() {
+void cleanUpTest() {
   test("cleans the number", () {
     expect(phoneNumber.cleanNumber("(223) 456-7890"), equals("2234567890"));
   }, skip: false);
@@ -23,7 +23,7 @@ cleanUpTest() {
   }, skip: true);
 }
 
-numberLengthTest() {
+void numberLengthTest() {
   test("invalid when 9 digits", () {
     expect(phoneNumber.cleanNumber("123456789"), equals(null));
   }, skip: true);
@@ -41,7 +41,7 @@ numberLengthTest() {
   }, skip: true);
 }
 
-numbersOnlyTest() {
+void numbersOnlyTest() {
   test("invalid with letters", () {
     expect(phoneNumber.cleanNumber("123-abc-7890"), equals(null));
   }, skip: true);
@@ -50,7 +50,7 @@ numbersOnlyTest() {
   }, skip: true);
 }
 
-codeRangeTest() {
+void codeRangeTest() {
   test("invalid if area code does not start with 2-9", () {
     expect(phoneNumber.cleanNumber("(123) 456-7890"), equals(null));
   }, skip: true);
@@ -59,7 +59,7 @@ codeRangeTest() {
   }, skip: true);
 }
 
-edgeCases() {
+void edgeCases() {
   test("invalid if passes all other tests but contains special characters", () {
     expect(phoneNumber.cleanNumber("123-@:!-78901256"), equals(null));
   }, skip: true);

data/tracks/gnu-apl/.dockerignore

@@ -0,0 +1,5 @@
+*.swp
+.DS_Store
+tmp
+.apl.history
+*.log

data/tracks/gnu-apl/.travis.yml

@@ -1,11 +1,16 @@
+services:
+  - docker
+
 language: bash
 
+env:
+  - APL_VERSION=1.6
+  - APL_VERSION=svn945 # fixes a bug in 1.7 release; see https://lists.gnu.org/archive/html/bug-apl/2017-05/msg00016.html
+
 before_install:
-  - wget ftp://ftp.gnu.org/gnu/apl/apl_1.6-1_amd64.deb
-  - sudo dpkg -i apl_1.6-1_amd64.deb
-  - cp -rv .travis/.gnu-apl ~
+  - bin/install-apl
   - bin/fetch-configlet
 
 script:
   - bin/configlet lint .
-  - bin/run-all-tests
+  - docker run apl 'bin/run-all-tests'

data/tracks/gnu-apl/Dockerfiles/release.dockerfile

@@ -0,0 +1,15 @@
+FROM ubuntu:xenial
+LABEL maintainer="marnen@marnen.org"
+
+ARG apl_deb
+WORKDIR /gnu-apl
+ADD . /gnu-apl
+
+RUN apt-get update -y
+RUN dpkg -i ${apl_deb}
+RUN rm ${apl_deb}
+
+# 1.6 and before
+COPY .travis/.gnu-apl /etc/gnu-apl/
+# 1.7 and later
+COPY .travis/.gnu-apl /etc/gnu-apl.d/

data/tracks/gnu-apl/Dockerfiles/svn.dockerfile

@@ -0,0 +1,22 @@
+FROM ubuntu:xenial
+LABEL maintainer="marnen@marnen.org"
+
+RUN apt-get update && apt-get install -y g++ build-essential
+
+ARG apl_dir
+ARG base_dir=/gnu-apl
+WORKDIR ${base_dir}
+ADD . ${base_dir}
+
+WORKDIR ${apl_dir}
+RUN ./configure --prefix=/usr --sysconfdir=/etc
+RUN make
+RUN make install
+
+WORKDIR ${base_dir}
+RUN rm -r ${apl_dir}
+
+# 1.6 and before
+COPY .travis/.gnu-apl /etc/gnu-apl/
+# 1.7 and later
+COPY .travis/.gnu-apl /etc/gnu-apl.d/

data/tracks/gnu-apl/README.md

@@ -10,7 +10,7 @@ Exercism exercises in GNU APL.
 
 On MacOS, GNU APL is available as a [Homebrew](http://brew.sh) formula; just type `brew install gnu-apl` to install it.
 
-On other operating systems, the simplest way to install GNU APL is probably to follow the instructions on the [GNU APL website](https://www.gnu.org/software/apl/). Note that version 1.7 seems to have build issues on some systems; if you can't build 1.7, then 1.6 should work.
+On other operating systems, the simplest way to install GNU APL is probably to follow the instructions on the [GNU APL website](https://www.gnu.org/software/apl/). Version 1.6 works, but version 1.7 [has some bugs involving the `)COPY` system command](https://lists.gnu.org/archive/html/bug-apl/2017-05/msg00016.html) that prevent it from working for Exercism. If you want 1.7 features for Exercism, then build it from source at SVN commit 945 (when the bug was fixed) or later.
 
 ### Installing a keyboard layout
 

data/tracks/gnu-apl/bin/install-apl

@@ -0,0 +1,26 @@
+#!/bin/bash
+
+DOCKERFILE_PATH=Dockerfiles
+
+prepare_svn_install() {
+  SVN_REV=${APL_VERSION#svn}
+  APL_DIR=apl-src
+  svn co "svn://svn.savannah.gnu.org/apl/trunk@${SVN_REV}" $APL_DIR
+  BUILD_ARGS="--build-arg apl_dir=${APL_DIR}"
+  DOCKERFILE=svn.dockerfile
+}
+
+prepare_release_install() {
+  APL_DEB=apl_${APL_VERSION}-1_amd64.deb
+  wget ftp://ftp.gnu.org/gnu/apl/${APL_DEB}
+  BUILD_ARGS="--build-arg apl_deb=${APL_DEB}"
+  DOCKERFILE=release.dockerfile
+}
+
+if [[ ${APL_VERSION} =~ ^svn ]]; then
+  prepare_svn_install
+else
+  prepare_release_install
+fi
+
+docker build -f ${DOCKERFILE_PATH}/${DOCKERFILE} -t apl ${BUILD_ARGS} .

data/tracks/gnu-apl/test.apl

@@ -1,9 +1,10 @@
 #!/usr/bin/env apl --script
+)COPY 5 FILE_IO.apl
 
 ⍝ Clear logfile with given filename.
 ∇test∆clear_log filename;handle;_
-  handle←'w' ⎕FIO[3] filename
-  _←⎕FIO[4] handle
+  handle←'w' FIO∆fopen filename
+  _←FIO∆fclose handle
 ∇
 
 ⍝ )COPY file relative to current directory.
@@ -13,7 +14,7 @@
 
 ⍝ Write logfile with given filename to stderr as UTF-8.
 ∇test∆show_log filename;cr
-  cr←⎕ucs 10
+  cr←⎕UCS 10
   test¯warn cr,'***** TEST LOG *****',cr,cr
   test¯warn test¯read_unicode filename
 ∇
@@ -35,15 +36,15 @@
 
 ⍝ Return current directory as a string.
 ∇pwd←test¯pwd
-  pwd←⎕FIO 30
+  pwd←FIO∆getcwd
 ∇
 
 ⍝ Read a UTF-8 file into a Unicode character vector.
 ∇unicode←test¯read_unicode filename
-  unicode←19⎕CR ⎕FIO[26] filename
+  unicode←19⎕CR FIO∆read_file filename
 ∇
 
 ⍝ Write string to stderr.
 ∇test¯warn string;_
-  _←'%s' string ⎕FIO[22] 2
+  _←FIO∆fprintf_stderr '%s' string
 ∇

data/tracks/go/docs/TESTS.md

@@ -26,7 +26,7 @@ Please run [`go fmt`](http://blog.golang.org/go-fmt-your-code) on your code befo
 
 The README.md for each exercise gives a general description but the Go test program will be very specific.  Open the test program and give it a quick look - if it seems like cheating, do it anyway.  Look for helpful comments, test data, and just the names of the test functions.  Try running `go test` before you have written anything and see if the error messages give you an idea of where to start.
 
-Your first goal it to get something to compile, even though it fails tests.  For this, you should "stub" functions.  That means leave the body empty, except for whatever it must return.  Write `return 0` or `return ""` or whatever just to get it to compile.  Sometimes to figure out function signatures you will have to go back to the test program and read in more detail.  Once you have figured out all the required function signatures, the test program will complain that 0 is the wrong answer.  Now start filling in function bodies.
+Your first goal is to get something to compile, even though it fails tests.  For this, you should "stub" functions.  That means leave the body empty, except for whatever it must return.  Write `return 0` or `return ""` or whatever just to get it to compile.  Sometimes to figure out function signatures you will have to go back to the test program and read in more detail.  Once you have figured out all the required function signatures, the test program will complain that 0 is the wrong answer.  Now start filling in function bodies.
 
 ### Fixing
 

data/tracks/haskell/.travis.yml

@@ -12,7 +12,7 @@ cache:
     - $HOME/.foldercache # Per exercise `.stack-work` cache.
 
 env:
- - RESOLVER="lts-8.21" CURRENT="YES" # Equal to each stack.yaml.
+ - RESOLVER="lts-9.11" CURRENT="YES" # Equal to each stack.yaml.
  - RESOLVER="nightly"                # Latest nightly snapshot.
 
 matrix:

data/tracks/haskell/config.json

@@ -22,6 +22,15 @@
       "topics": [
       ]
     },
+    {
+      "uuid": "e5a0bed3-90ca-4caa-a73f-2124940f84c9",
+      "slug": "isbn-verifier",
+      "core": false,
+      "unlocked_by": null,
+      "difficulty": 1,
+      "topics": [
+      ]
+    },
     {
       "uuid": "6cbb7841-9d96-4528-88e3-6e98a450fd7c",
       "slug": "space-age",

data/tracks/haskell/exercises/accumulate/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/acronym/package.yaml

@@ -1,5 +1,5 @@
 name: acronym
-version: 1.0.0.2
+version: 1.1.0.3
 
 dependencies:
   - base

data/tracks/haskell/exercises/acronym/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/acronym/test/Tests.hs

@@ -28,6 +28,9 @@ cases = [ Case { description = "basic"
                , input       = "Ruby on Rails"
                , expected    = "ROR"
                }
+        -- Although this case was removed in specification 1.1.0,
+        -- the Haskell track has chosen to keep it,
+        -- since it makes the problem more interesting.
         , Case { description = "camelcase"
                , input       = "HyperText Markup Language"
                , expected    = "HTML"

data/tracks/haskell/exercises/all-your-base/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/allergies/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/alphametics/examples/success-standard/src/Alphametics.hs

@@ -2,6 +2,7 @@
 module Alphametics (solve) where
 
 import Control.Monad (guard)
+import Data.Functor (($>))
 import Data.List (foldl', find, union)
 import Data.Maybe (fromJust, isJust, listToMaybe)
 import Prelude hiding (Word)
@@ -109,7 +110,7 @@ word :: Parser (Term Integer)
 word = Word <$> many1 upper
 
 plus :: Parser (Term Integer -> Term Integer -> Term Integer)
-plus = trimmed (char '+') *> pure Plus
+plus = trimmed (char '+') $> Plus
 
 trimmed :: Parser a -> Parser a
 trimmed p = spaces *> p <* spaces

data/tracks/haskell/exercises/alphametics/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/anagram/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/atbash-cipher/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/bank-account/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/beer-song/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/binary-search-tree/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/binary/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/bob/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/bowling/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/bracket-push/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/change/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/clock/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/collatz-conjecture/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/complex-numbers/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/connect/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/crypto-square/package.yaml

@@ -1,5 +1,5 @@
 name: crypto-square
-version: 3.0.0.3
+version: 3.1.0.4
 
 dependencies:
   - base

data/tracks/haskell/exercises/crypto-square/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/crypto-square/test/Tests.hs

@@ -31,7 +31,11 @@ data Case = Case { description :: String
                  }
 
 cases :: [Case]
-cases = [ Case { description = "Lowercase"
+cases = [ Case { description = "empty plaintext results in an empty ciphertext"
+               , input       = ""
+               , expected    = ""
+               }
+        , Case { description = "Lowercase"
                , input       = "A"
                , expected    = "a"
                }
@@ -43,14 +47,14 @@ cases = [ Case { description = "Lowercase"
                , input       = "@1,%!"
                , expected    = "1"
                }
-        , Case { description = "empty plaintext results in an empty ciphertext"
-               , input       = ""
-               , expected    = ""
-               }
         , Case { description = "9 character plaintext results in 3 chunks of 3 characters"
                , input       = "This is fun!"
                , expected    = "tsf hiu isn"
                }
+        , Case { description = "8 character plaintext results in 3 chunks, the last one with a trailing space"
+               , input       = "Chill out."
+               , expected    = "clu hlt io "
+               }
         , Case { description = "54 character plaintext results in 7 chunks, the last two padded with spaces"
                , input       = "If man was meant to stay on the ground, god would have given us roots."
                , expected    = "imtgdvs fearwer mayoogo anouuio ntnnlvt wttddes aohghn  sseoau "

data/tracks/haskell/exercises/custom-set/package.yaml

@@ -1,5 +1,5 @@
 name: custom-set
-version: 1.0.1.3
+version: 1.1.0.4
 
 dependencies:
   - base

data/tracks/haskell/exercises/custom-set/stack.yaml

@@ -1 +1 @@
-resolver: lts-8.21
+resolver: lts-9.11

data/tracks/haskell/exercises/custom-set/test/Tests.hs

@@ -102,6 +102,9 @@ specs = do
         it "sets with different elements are not equal" $
           (fromList [1, 2, 3] == fromList [1, 2, 4]) `shouldBe` False
 
+        it "set is not equal to larger set with same elements" $
+          (fromList [1, 2, 3] == fromList [1, 2, 3, 4]) `shouldBe` False
+
       describe "insert" $ do
 
         it "add to empty set" $