trackler 2.2.1.104 → 2.2.1.105

data/tracks/elm/bin/install-elm-format

@@ -15,10 +15,10 @@ case $(uname) in
 esac)
 
 if [ "$OS" == "windows" ]; then
-  URL=https://github.com/avh4/elm-format/releases/download/0.6.1-alpha/elm-format-0.18-0.6.1-alpha-win-i386.zip
+  URL=https://github.com/avh4/elm-format/releases/download/0.7.0-exp/elm-format-0.18-0.7.0-exp-win-i386.zip
   curl -L $URL | funzip > bin/elm-format
 else
-  URL=https://github.com/avh4/elm-format/releases/download/0.6.1-alpha/elm-format-0.18-0.6.1-alpha-$OS-x64.tgz
+  URL=https://github.com/avh4/elm-format/releases/download/0.7.0-exp/elm-format-0.18-0.7.0-exp-$OS-x64.tgz
   curl -L $URL | tar -xvzO > bin/elm-format
 fi
 

data/tracks/elm/exercises/accumulate/tests/Tests.elm

@@ -1,9 +1,9 @@
 module Tests exposing (..)
 
-import Test exposing (..)
-import Expect
 import Accumulate exposing (accumulate)
+import Expect
 import String
+import Test exposing (..)
 
 
 square : Int -> Int

data/tracks/elm/exercises/all-your-base/AllYourBase.example.elm

@@ -17,7 +17,7 @@ fromBase base =
                     else
                         Nothing
     in
-        List.foldl f (Just 0)
+    List.foldl f (Just 0)
 
 
 toBase : Int -> Int -> List Int
@@ -45,7 +45,7 @@ toBase base =
                 _ ->
                     Just (swap (divMod x base))
     in
-        List.reverse << (unfold f)
+    List.reverse << unfold f
 
 
 rebase : Int -> List Int -> Int -> Maybe (List Int)
@@ -57,12 +57,12 @@ rebase inBase digits outBase =
         numZeros =
             List.length (List.filter (\x -> x == 0) digits)
     in
-        if inBase < 2 || outBase < 2 || length == 0 || length == numZeros then
-            Nothing
-        else
-            case fromBase inBase digits of
-                Just v ->
-                    Just (toBase outBase v)
+    if inBase < 2 || outBase < 2 || length == 0 || length == numZeros then
+        Nothing
+    else
+        case fromBase inBase digits of
+            Just v ->
+                Just (toBase outBase v)
 
-                Nothing ->
-                    Nothing
+            Nothing ->
+                Nothing

data/tracks/elm/exercises/all-your-base/tests/Tests.elm

@@ -1,8 +1,8 @@
 module Tests exposing (..)
 
-import Test exposing (..)
-import Expect
 import AllYourBase exposing (rebase)
+import Expect
+import Test exposing (..)
 
 
 tests : Test
@@ -10,44 +10,64 @@ tests =
     describe "all-your-base"
         [ test "single bit one to decimal" <|
             \() -> Expect.equal (Just [ 1 ]) (rebase 2 [ 1 ] 10)
-        , test "binary to single decimal" <|
-            \() -> Expect.equal (Just [ 5 ]) (rebase 2 [ 1, 0, 1 ] 10)
-        , test "single decimal to binary" <|
-            \() -> Expect.equal (Just [ 1, 0, 1 ]) (rebase 10 [ 5 ] 2)
-        , test "binary to multiple decimal" <|
-            \() -> Expect.equal (Just [ 4, 2 ]) (rebase 2 [ 1, 0, 1, 0, 1, 0 ] 10)
-        , test "decimal to binary" <|
-            \() -> Expect.equal (Just [ 1, 0, 1, 0, 1, 0 ]) (rebase 10 [ 4, 2 ] 2)
-        , test "trinary to hexadecimal" <|
-            \() -> Expect.equal (Just [ 2, 10 ]) (rebase 3 [ 1, 1, 2, 0 ] 16)
-        , test "hexadecimal to trinary" <|
-            \() -> Expect.equal (Just [ 1, 1, 2, 0 ]) (rebase 16 [ 2, 10 ] 3)
-        , test "15-bit integer" <|
-            \() -> Expect.equal (Just [ 6, 10, 45 ]) (rebase 97 [ 3, 46, 60 ] 73)
-        , test "empty list" <|
-            \() -> Expect.equal Nothing (rebase 2 [] 10)
-        , test "single zero" <|
-            \() -> Expect.equal Nothing (rebase 10 [ 0 ] 2)
-        , test "multiple zeros" <|
-            \() -> Expect.equal Nothing (rebase 10 [ 0, 0, 0 ] 2)
-        , test "leading zeros" <|
-            \() -> Expect.equal (Just [ 4, 2 ]) (rebase 7 [ 0, 6, 0 ] 10)
-        , test "first base is one" <|
-            \() -> Expect.equal Nothing (rebase 1 [] 10)
-        , test "first base is zero" <|
-            \() -> Expect.equal Nothing (rebase 0 [] 10)
-        , test "first base is negative" <|
-            \() -> Expect.equal Nothing (rebase -1 [] 10)
-        , test "negative digit" <|
-            \() -> Expect.equal Nothing (rebase 2 [ 1, -1, 1, 0, 1, 0 ] 10)
-        , test "invalid positive digit" <|
-            \() -> Expect.equal Nothing (rebase 2 [ 1, 2, 1, 0, 1, 0 ] 10)
-        , test "second base is one" <|
-            \() -> Expect.equal Nothing (rebase 10 [] 1)
-        , test "second base is zero" <|
-            \() -> Expect.equal Nothing (rebase 10 [ 1 ] 0)
-        , test "second base is negative" <|
-            \() -> Expect.equal Nothing (rebase 10 [ 1 ] -1)
-        , test "both bases are negative" <|
-            \() -> Expect.equal Nothing (rebase -1 [ 1 ] -1)
+        , skip <|
+            test "binary to single decimal" <|
+                \() -> Expect.equal (Just [ 5 ]) (rebase 2 [ 1, 0, 1 ] 10)
+        , skip <|
+            test "single decimal to binary" <|
+                \() -> Expect.equal (Just [ 1, 0, 1 ]) (rebase 10 [ 5 ] 2)
+        , skip <|
+            test "binary to multiple decimal" <|
+                \() -> Expect.equal (Just [ 4, 2 ]) (rebase 2 [ 1, 0, 1, 0, 1, 0 ] 10)
+        , skip <|
+            test "decimal to binary" <|
+                \() -> Expect.equal (Just [ 1, 0, 1, 0, 1, 0 ]) (rebase 10 [ 4, 2 ] 2)
+        , skip <|
+            test "trinary to hexadecimal" <|
+                \() -> Expect.equal (Just [ 2, 10 ]) (rebase 3 [ 1, 1, 2, 0 ] 16)
+        , skip <|
+            test "hexadecimal to trinary" <|
+                \() -> Expect.equal (Just [ 1, 1, 2, 0 ]) (rebase 16 [ 2, 10 ] 3)
+        , skip <|
+            test "15-bit integer" <|
+                \() -> Expect.equal (Just [ 6, 10, 45 ]) (rebase 97 [ 3, 46, 60 ] 73)
+        , skip <|
+            test "empty list" <|
+                \() -> Expect.equal Nothing (rebase 2 [] 10)
+        , skip <|
+            test "single zero" <|
+                \() -> Expect.equal Nothing (rebase 10 [ 0 ] 2)
+        , skip <|
+            test "multiple zeros" <|
+                \() -> Expect.equal Nothing (rebase 10 [ 0, 0, 0 ] 2)
+        , skip <|
+            test "leading zeros" <|
+                \() -> Expect.equal (Just [ 4, 2 ]) (rebase 7 [ 0, 6, 0 ] 10)
+        , skip <|
+            test "first base is one" <|
+                \() -> Expect.equal Nothing (rebase 1 [] 10)
+        , skip <|
+            test "first base is zero" <|
+                \() -> Expect.equal Nothing (rebase 0 [] 10)
+        , skip <|
+            test "first base is negative" <|
+                \() -> Expect.equal Nothing (rebase -1 [] 10)
+        , skip <|
+            test "negative digit" <|
+                \() -> Expect.equal Nothing (rebase 2 [ 1, -1, 1, 0, 1, 0 ] 10)
+        , skip <|
+            test "invalid positive digit" <|
+                \() -> Expect.equal Nothing (rebase 2 [ 1, 2, 1, 0, 1, 0 ] 10)
+        , skip <|
+            test "second base is one" <|
+                \() -> Expect.equal Nothing (rebase 10 [] 1)
+        , skip <|
+            test "second base is zero" <|
+                \() -> Expect.equal Nothing (rebase 10 [ 1 ] 0)
+        , skip <|
+            test "second base is negative" <|
+                \() -> Expect.equal Nothing (rebase 10 [ 1 ] -1)
+        , skip <|
+            test "both bases are negative" <|
+                \() -> Expect.equal Nothing (rebase -1 [ 1 ] -1)
         ]

data/tracks/elm/exercises/allergies/Allergies.example.elm

@@ -1,7 +1,7 @@
 module Allergies exposing (..)
 
-import List
 import Bitwise
+import List
 
 
 isAllergicTo : String -> Int -> Bool

data/tracks/elm/exercises/allergies/tests/Tests.elm

@@ -1,9 +1,9 @@
 module Tests exposing (..)
 
-import Test exposing (..)
-import Expect
 import Allergies exposing (isAllergicTo, toList)
+import Expect
 import List
+import Test exposing (..)
 
 
 tests : Test
@@ -38,10 +38,10 @@ tests =
         , describe "toList"
             [ skip <|
                 test "no allergies at all" <|
-                    \() -> Expect.equal [] (toList (0))
+                    \() -> Expect.equal [] (toList 0)
             , skip <|
                 test "allergic to just peanuts" <|
-                    \() -> Expect.equal [ "peanuts" ] (toList (2))
+                    \() -> Expect.equal [ "peanuts" ] (toList 2)
             , skip <|
                 test "allergic to everything" <|
                     \() ->

data/tracks/elm/exercises/anagram/Anagram.example.elm

@@ -1,6 +1,6 @@
 module Anagram exposing (..)
 
-import String exposing (toLower, toList)
+import String exposing (toList, toLower)
 
 
 detect : String -> List String -> List String
@@ -12,7 +12,7 @@ detect word candidates =
         ref =
             normalize word
     in
-        List.filter (\w -> normalize w == ref && toLower w /= original) candidates
+    List.filter (\w -> normalize w == ref && toLower w /= original) candidates
 
 
 normalize : String -> List Char

data/tracks/elm/exercises/anagram/tests/Tests.elm

@@ -1,8 +1,8 @@
 module Tests exposing (..)
 
-import Test exposing (..)
-import Expect
 import Anagram exposing (detect)
+import Expect
+import Test exposing (..)
 
 
 tests : Test

data/tracks/elm/exercises/atbash-cipher/AtbashCipher.example.elm

@@ -1,9 +1,9 @@
 module AtbashCipher exposing (..)
 
-import String
-import Dict
 import Char
+import Dict
 import Regex exposing (HowMany(All), regex)
+import String
 
 
 encode : String -> String
@@ -12,11 +12,11 @@ encode plain =
         translate =
             toTranslator alphabet reversedAlphabet
     in
-        plain
-            |> String.toLower
-            |> String.filter (\c -> Char.isLower c || Char.isDigit c)
-            |> String.map translate
-            |> insertEvery 5 " "
+    plain
+        |> String.toLower
+        |> String.filter (\c -> Char.isLower c || Char.isDigit c)
+        |> String.map translate
+        |> insertEvery 5 " "
 
 
 decode : String -> String
@@ -25,9 +25,9 @@ decode cipher =
         translate =
             toTranslator reversedAlphabet alphabet
     in
-        cipher
-            |> String.filter ((/=) ' ')
-            |> String.map translate
+    cipher
+        |> String.filter ((/=) ' ')
+        |> String.map translate
 
 
 alphabet : String
@@ -52,7 +52,7 @@ toTranslator from to =
             Dict.get key table
                 |> Maybe.withDefault key
     in
-        translate
+    translate
 
 
 insertEvery : Int -> String -> String -> String

data/tracks/elm/exercises/atbash-cipher/tests/Tests.elm

@@ -1,8 +1,8 @@
 module Tests exposing (..)
 
-import Test exposing (..)
+import AtbashCipher exposing (decode, encode)
 import Expect
-import AtbashCipher exposing (encode, decode)
+import Test exposing (..)
 
 
 tests : Test

data/tracks/elm/exercises/bob/Bob.example.elm

@@ -1,7 +1,7 @@
 module Bob exposing (..)
 
-import String
 import Regex
+import String
 
 
 hey : String -> String

data/tracks/elm/exercises/bob/tests/Tests.elm

@@ -1,11 +1,11 @@
 module Tests exposing (..)
 
-import Test exposing (..)
-import Expect
-import String
+import Bob
 import Char
+import Expect
 import Random
-import Bob
+import String
+import Test exposing (..)
 
 
 tests : Test
@@ -164,4 +164,4 @@ uppercaseGibberish length =
 
 gibberishQuestion : Int -> String
 gibberishQuestion length =
-    (gibberish length anyCharacter) ++ "?"
+    gibberish length anyCharacter ++ "?"

data/tracks/elm/exercises/collatz-conjecture/tests/Tests.elm

@@ -1,8 +1,8 @@
 module Tests exposing (..)
 
-import Test exposing (..)
-import Expect
 import CollatzConjecture exposing (collatz)
+import Expect
+import Test exposing (..)
 
 
 tests : Test

data/tracks/elm/exercises/difference-of-squares/DifferenceOfSquares.example.elm

@@ -7,7 +7,7 @@ squareOfSum n =
         sum =
             n * (n + 1) // 2
     in
-        sum * sum
+    sum * sum
 
 
 sumOfSquares : Int -> Int

data/tracks/elm/exercises/difference-of-squares/tests/Tests.elm

@@ -1,8 +1,8 @@
 module Tests exposing (..)
 
-import Test exposing (..)
+import DifferenceOfSquares exposing (difference, squareOfSum, sumOfSquares)
 import Expect
-import DifferenceOfSquares exposing (squareOfSum, sumOfSquares, difference)
+import Test exposing (..)
 
 
 tests : Test

data/tracks/elm/exercises/gigasecond/tests/Tests.elm

@@ -1,9 +1,9 @@
 module Tests exposing (..)
 
-import Test exposing (..)
-import Expect
 import Date
+import Expect
 import Gigasecond exposing (add)
+import Test exposing (..)
 
 
 tests : Test

data/tracks/elm/exercises/grade-school/GradeSchool.example.elm

@@ -22,12 +22,12 @@ empty =
 
 addStudent : Grade -> Student -> School -> School
 addStudent grade student school =
-    Dict.insert grade (List.sort (student :: (studentsInGrade grade school))) school
+    Dict.insert grade (List.sort (student :: studentsInGrade grade school)) school
 
 
 studentsInGrade : Grade -> School -> List Student
 studentsInGrade grade school =
-    case (Dict.get grade school) of
+    case Dict.get grade school of
         Just list ->
             list
 

data/tracks/elm/exercises/grade-school/tests/Tests.elm

@@ -1,8 +1,8 @@
 module Tests exposing (..)
 
-import Test exposing (..)
 import Expect
-import GradeSchool exposing (addStudent, studentsInGrade, allStudents)
+import GradeSchool exposing (addStudent, allStudents, studentsInGrade)
+import Test exposing (..)
 
 
 tests : Test
@@ -35,7 +35,7 @@ tests =
                                     |> addStudent 3 "Chelsea"
                                     |> addStudent 7 "Logan"
                          in
-                            [ studentsInGrade 3 school, studentsInGrade 7 school ]
+                         [ studentsInGrade 3 school, studentsInGrade 7 school ]
                         )
         , skip <|
             test "get students in a grade" <|

data/tracks/elm/exercises/hamming/tests/Tests.elm

@@ -1,8 +1,8 @@
 module Tests exposing (..)
 
-import Test exposing (..)
 import Expect
 import Hamming exposing (distance)
+import Test exposing (..)
 
 
 tests : Test

data/tracks/elm/exercises/hello-world/tests/Tests.elm

@@ -1,8 +1,8 @@
 module Tests exposing (..)
 
-import Test exposing (..)
 import Expect
 import HelloWorld exposing (helloWorld)
+import Test exposing (..)
 
 
 tests : Test