trackler 2.2.1.113 → 2.2.1.114

data/tracks/elm/exercises/transpose/Transpose.elm

@@ -0,0 +1,6 @@
+module Transpose exposing (transpose)
+
+
+transpose : List String -> List String
+transpose lines =
+    Debug.crash "Please implement this function"

data/tracks/elm/exercises/transpose/Transpose.example.elm

@@ -0,0 +1,47 @@
+module Transpose exposing (transpose)
+
+import List
+import String
+
+
+transpose : List String -> List String
+transpose lines =
+    let
+        longestRow =
+            Maybe.withDefault 0 <|
+                List.maximum <|
+                    List.map String.length lines
+
+        padNothingRight maxLength line =
+            line ++ List.repeat (maxLength - List.length line) Nothing
+
+        stringify line =
+            String.concat <|
+                List.map
+                    (\x ->
+                        case x of
+                            Nothing ->
+                                " "
+
+                            Just c ->
+                                String.fromChar c
+                    )
+                    (dropNothingRight line)
+
+        dropNothingRight line =
+            Tuple.second <|
+                List.foldr
+                    (\x ( ignore, list ) ->
+                        if ignore && x == Nothing then
+                            ( ignore, list )
+                        else
+                            ( False, x :: list )
+                    )
+                    ( True, [] )
+                    line
+    in
+    List.map stringify <|
+        List.foldr
+            (List.map2 (::))
+            (List.repeat longestRow [])
+            (List.map (padNothingRight longestRow << List.map Just << String.toList) lines)

data/tracks/elm/exercises/transpose/elm-package.json

@@ -0,0 +1,15 @@
+{
+    "version": "3.0.0",
+    "summary": "Exercism problems in Elm.",
+    "repository": "https://github.com/exercism/elm.git",
+    "license": "BSD3",
+    "source-directories": [
+        "."
+    ],
+    "exposed-modules": [],
+    "dependencies": {
+        "elm-lang/core": "5.0.0 <= v < 6.0.0"
+    },
+    "elm-version": "0.18.0 <= v < 0.19.0"
+}
+

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

@@ -0,0 +1,202 @@
+module Tests exposing (..)
+
+import Expect
+import Test exposing (Test, describe, skip, test)
+import Transpose exposing (transpose)
+
+
+tests : Test
+tests =
+    describe "Hamming"
+        [ test "empty string" <|
+            \_ ->
+                Expect.equal [] (transpose [])
+        , skip <|
+            test "two characters in a row" <|
+                \_ ->
+                    Expect.equal
+                        [ "A"
+                        , "1"
+                        ]
+                        (transpose [ "A1" ])
+        , skip <|
+            test "two characters in a column" <|
+                \_ ->
+                    Expect.equal
+                        [ "A1" ]
+                        (transpose
+                            [ "A"
+                            , "1"
+                            ]
+                        )
+        , skip <|
+            test "simple" <|
+                \_ ->
+                    Expect.equal
+                        [ "A1"
+                        , "B2"
+                        , "C3"
+                        ]
+                        (transpose
+                            [ "ABC"
+                            , "123"
+                            ]
+                        )
+        , skip <|
+            test "single line" <|
+                \_ ->
+                    Expect.equal
+                        [ "S"
+                        , "i"
+                        , "n"
+                        , "g"
+                        , "l"
+                        , "e"
+                        , " "
+                        , "l"
+                        , "i"
+                        , "n"
+                        , "e"
+                        , "."
+                        ]
+                        (transpose [ "Single line." ])
+        , skip <|
+            test "first line longer than second line" <|
+                \_ ->
+                    Expect.equal
+                        [ "TT"
+                        , "hh"
+                        , "ee"
+                        , "  "
+                        , "ff"
+                        , "oi"
+                        , "uf"
+                        , "rt"
+                        , "th"
+                        , "h "
+                        , " l"
+                        , "li"
+                        , "in"
+                        , "ne"
+                        , "e."
+                        , "."
+                        ]
+                        (transpose
+                            [ "The fourth line."
+                            , "The fifth line."
+                            ]
+                        )
+        , skip <|
+            test "second line longer than first line" <|
+                \_ ->
+                    Expect.equal
+                        [ "TT"
+                        , "hh"
+                        , "ee"
+                        , "  "
+                        , "fs"
+                        , "ie"
+                        , "rc"
+                        , "so"
+                        , "tn"
+                        , " d"
+                        , "l "
+                        , "il"
+                        , "ni"
+                        , "en"
+                        , ".e"
+                        , " ."
+                        ]
+                        (transpose
+                            [ "The first line."
+                            , "The second line."
+                            ]
+                        )
+        , skip <|
+            test "mixed line length" <|
+                \_ ->
+                    Expect.equal
+                        [ "TAAA"
+                        , "h   "
+                        , "elll"
+                        , " ooi"
+                        , "lnnn"
+                        , "ogge"
+                        , "n e."
+                        , "glr"
+                        , "ei "
+                        , "snl"
+                        , "tei"
+                        , " .n"
+                        , "l e"
+                        , "i ."
+                        , "n"
+                        , "e"
+                        , "."
+                        ]
+                        (transpose
+                            [ "The longest line."
+                            , "A long line."
+                            , "A longer line."
+                            , "A line."
+                            ]
+                        )
+        , skip <|
+            test "square" <|
+                \_ ->
+                    Expect.equal
+                        [ "HEART"
+                        , "EMBER"
+                        , "ABUSE"
+                        , "RESIN"
+                        , "TREND"
+                        ]
+                        (transpose
+                            [ "HEART"
+                            , "EMBER"
+                            , "ABUSE"
+                            , "RESIN"
+                            , "TREND"
+                            ]
+                        )
+        , skip <|
+            test "rectangle" <|
+                \_ ->
+                    Expect.equal
+                        [ "FOBS"
+                        , "RULE"
+                        , "ATOP"
+                        , "CLOT"
+                        , "TIME"
+                        , "UNIT"
+                        , "RENT"
+                        , "EDGE"
+                        ]
+                        (transpose
+                            [ "FRACTURE"
+                            , "OUTLINED"
+                            , "BLOOMING"
+                            , "SEPTETTE"
+                            ]
+                        )
+        , skip <|
+            test "triangle" <|
+                \_ ->
+                    Expect.equal
+                        [ "TEASER"
+                        , " EASER"
+                        , "  ASER"
+                        , "   SER"
+                        , "    ER"
+                        , "     R"
+                        ]
+                        (transpose
+                            [ "T"
+                            , "EE"
+                            , "AAA"
+                            , "SSSS"
+                            , "EEEEE"
+                            , "RRRRRR"
+                            ]
+                        )
+        ]

data/tracks/elm/exercises/transpose/tests/elm-package.json

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

data/tracks/elm/exercises/triangle/Triangle.elm

@@ -1,6 +1,17 @@
-module Triangle exposing (..)
+module Triangle exposing (Triangle(..), triangleKind, version)
+
+
+type Triangle
+    = Equilateral
+    | Isosceles
+    | Scalene
 
 
 version : Int
 version =
     2
+
+
+triangleKind : comparable -> comparable -> comparable -> Result String Triangle
+triangleKind x y z =
+    Debug.crash "Please implement this function"

data/tracks/elm/exercises/triangle/Triangle.example.elm

@@ -1,4 +1,4 @@
-module Triangle exposing (..)
+module Triangle exposing (Triangle(..), triangleKind, version)
 
 import Set
 

data/tracks/elm/exercises/twelve-days/TwelveDays.elm

@@ -1 +1,6 @@
-module TwelveDays exposing (..)
+module TwelveDays exposing (recite)
+
+
+recite : Int -> Int -> List String
+recite start stop =
+    Debug.crash "Please implement this function"

data/tracks/elm/exercises/word-count/WordCount.elm

@@ -1,4 +1,6 @@
-module WordCount exposing (..)
+module WordCount exposing (wordCount)
 
 
 wordCount : String -> Dict String Int
+wordCount sentence =
+    Debug.crash "Please implement this function"

data/tracks/elm/exercises/word-count/WordCount.example.elm

@@ -1,4 +1,4 @@
-module WordCount exposing (..)
+module WordCount exposing (wordCount)
 
 import Dict exposing (Dict)
 import Regex

data/tracks/go/exercises/crypto-square/crypto_square_test.go

@@ -12,7 +12,7 @@ var tests = []struct {
 	},
 	{
 		"1, 2, 3 GO!",
-		"1g 2o 3",
+		"1g 2o 3 ",
 	},
 	{
 		"1234",
@@ -32,19 +32,19 @@ var tests = []struct {
 	},
 	{
 		"ZOMG! ZOMBIES!!!",
-		"zzi ooe mms gb",
+		"zzi ooe mms gb ",
 	},
 	{
 		"Time is an illusion. Lunchtime doubly so.",
-		"tasney inicds miohoo elntu illib suuml",
+		"tasney inicds miohoo elntu  illib  suuml ",
 	},
 	{
 		"We all know interspecies romance is weird.",
-		"wneiaw eorene awssci liprer lneoid ktcms",
+		"wneiaw eorene awssci liprer lneoid ktcms ",
 	},
 	{
 		"Madness, and then illumination.",
-		"msemo aanin dnin ndla etlt shui",
+		"msemo aanin dnin  ndla  etlt  shui ",
 	},
 	{
 		"Vampires are people too!",
@@ -64,19 +64,19 @@ var tests = []struct {
 	},
 	{
 		"12 3",
-		"13 2",
+		"13 2 ",
 	},
 	{
 		"12345678",
-		"147 258 36",
+		"147 258 36 ",
 	},
 	{
 		"123456789a",
-		"159 26a 37 48",
+		"159 26a 37  48 ",
 	},
 	{
 		"If man was meant to stay on the ground god would have given us roots",
-		"imtgdvs fearwer mayoogo anouuio ntnnlvt wttddes aohghn sseoau",
+		"imtgdvs fearwer mayoogo anouuio ntnnlvt wttddes aohghn  sseoau ",
 	},
 	{
 		"Have a nice day. Feed the dog & chill out!",

data/tracks/go/exercises/crypto-square/example.go

@@ -18,9 +18,16 @@ func norm(r rune) rune {
 func Encode(pt string) string {
 	pt = strings.Map(norm, pt)
 	numCols := int(math.Ceil(math.Sqrt(float64(len(pt)))))
+	padding := numCols*(numCols-1) - len(pt)
+	if padding < 0 {
+		padding = numCols*numCols - len(pt)
+	}
 	cols := make([]string, numCols)
 	for i, r := range pt {
 		cols[i%numCols] += string(r)
 	}
+	for i := 0; i < padding; i++ {
+		cols[numCols-i-1] += " "
+	}
 	return strings.Join(cols, " ")
 }

data/tracks/idris/docs/INSTALLATION.md

@@ -13,8 +13,8 @@ The easiest way to install Idris, if you have all of the prerequisites, is to ty
 cabal update; cabal install idris
 ```
 
-This will install the latest version released on Hackage, along with any dependencies. 
-If, however, you would like the most up to date development version you can find it, 
+This will install the latest version released on Hackage, along with any dependencies.
+If, however, you would like the most up to date development version you can find it,
 as well as build instructions, on GitHub at: https://github.com/idris-lang/Idris-dev.
 
 ## Necessary libraries
@@ -27,11 +27,11 @@ This library provides the actual testing framework we use. It's installation is
 
 ```shell
 pushd /tmp
-git clone git clone git@github.com:jfdm/idris-testing.git
+git clone git@github.com:jfdm/idris-testing.git
 cd idris-testing
 make lib
 make install # depending on your installation of idris this might need to be run as root
 popd
 ```
 
-If the tests will ever brake because of calling things that your installed version of `idris-testing` does not provide, you have to update it by repeating the steps above.
+If the tests will ever brake because of calling things that your installed version of `idris-testing` does not provide, you have to update it by repeating the steps above.