elm - bob

jeffhertzler · jeffhertzler · commit af670b80299b · 2017-02-22T22:52:02.000-05:00
diff --git a/elm/bob/Bob.elm b/elm/bob/Bob.elm
@@ -0,0 +1,31 @@
+module Bob exposing (..)
+
+import Regex exposing (contains, regex)
+import String exposing (endsWith, toUpper, trim)
+
+
+yell : String -> Bool
+yell str =
+    toUpper str == str && contains (regex "[a-zA-Z]") str
+
+
+question : String -> Bool
+question str =
+    endsWith "?" str
+
+
+nothing : String -> Bool
+nothing str =
+    trim str == ""
+
+
+hey : String -> String
+hey str =
+    if yell str then
+        "Whoa, chill out!"
+    else if question str then
+        "Sure."
+    else if nothing str then
+        "Fine. Be that way!"
+    else
+        "Whatever."
diff --git a/elm/bob/README.md b/elm/bob/README.md
@@ -0,0 +1,40 @@
+# Bob
+
+Bob is a lackadaisical teenager. In conversation, his responses are very limited.
+
+Bob answers 'Sure.' if you ask him a question.
+
+He answers 'Whoa, chill out!' if you yell at him.
+
+He says 'Fine. Be that way!' if you address him without actually saying
+anything.
+
+He answers 'Whatever.' to anything else.
+
+## Elm Installation
+
+Refer to the [Exercism help page](http://exercism.io/languages/elm) for Elm
+installation and learning resources.
+
+## Writing the Code
+
+The first time you start an exercise, you'll need to ensure you have the
+appropriate dependencies installed.
+
+```bash
+$ npm install
+```
+
+Execute the tests with:
+
+```bash
+$ npm test
+```
+
+## Source
+
+Inspired by the 'Deaf Grandma' exercise in Chris Pine's Learn to Program tutorial. [http://pine.fm/LearnToProgram/?Chapter=06](http://pine.fm/LearnToProgram/?Chapter=06)
+
+## Submitting Incomplete Problems
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.
+
diff --git a/elm/bob/Tests.elm b/elm/bob/Tests.elm
@@ -0,0 +1,158 @@
+port module Main exposing (..)
+
+import Test.Runner.Node exposing (run, TestProgram)
+import Json.Encode exposing (Value)
+import Test exposing (..)
+import Expect
+import String
+import Char
+import Random
+import Bob
+
+
+tests : Test
+tests =
+    describe "Bob"
+        [ test "stating something" <|
+            \() ->
+                Expect.equal "Whatever."
+                    (Bob.hey "Tom-ay-to, tom-aaaah-to.")
+        , test "shouting" <|
+            \() ->
+                Expect.equal
+                    "Whoa, chill out!"
+                    (Bob.hey "WATCH OUT!")
+        , test "shouting gibberish" <|
+            \() ->
+                Expect.equal
+                    "Whoa, chill out!"
+                    (Bob.hey (uppercaseGibberish 10))
+        , test "asking a question" <|
+            \() ->
+                Expect.equal
+                    "Sure."
+                    (Bob.hey "Does this cryogenic chamber make me look fat?")
+        , test "asking a numeric question" <|
+            \() ->
+                Expect.equal
+                    "Sure."
+                    (Bob.hey "You are, what, like 15?")
+        , test "asking gibberish" <|
+            \() ->
+                Expect.equal
+                    "Sure."
+                    (Bob.hey (gibberishQuestion 20))
+        , test "talking forcefully" <|
+            \() ->
+                Expect.equal
+                    "Whatever."
+                    (Bob.hey "Let's go make out behind the gym!")
+        , test "using acronyms in regular speech" <|
+            \() ->
+                Expect.equal
+                    "Whatever."
+                    (Bob.hey "It's OK if you don't want to go to the DMV.")
+        , test "forceful questions" <|
+            \() ->
+                Expect.equal
+                    "Whoa, chill out!"
+                    (Bob.hey "WHAT THE HELL WERE YOU THINKING?")
+        , test "shouting numbers" <|
+            \() ->
+                Expect.equal
+                    "Whoa, chill out!"
+                    (Bob.hey "1, 2, 3 GO!")
+        , test "only numbers" <|
+            \() ->
+                Expect.equal
+                    "Whatever."
+                    (Bob.hey "1, 2, 3")
+        , test "question with only numbers" <|
+            \() ->
+                Expect.equal
+                    "Sure."
+                    (Bob.hey "4?")
+        , test "shouting with special characters" <|
+            \() ->
+                Expect.equal
+                    "Whoa, chill out!"
+                    (Bob.hey "ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!")
+        , test "shouting with no exclamation mark" <|
+            \() ->
+                Expect.equal
+                    "Whoa, chill out!"
+                    (Bob.hey "I HATE YOU")
+        , test "statement containing a question mark" <|
+            \() ->
+                Expect.equal
+                    "Whatever."
+                    (Bob.hey "Ending with ? means a question.")
+        , test "prattling on" <|
+            \() ->
+                Expect.equal
+                    "Sure."
+                    (Bob.hey "Wait! Hang on. Are you going to be OK?")
+        , test "silence" <|
+            \() ->
+                Expect.equal
+                    "Fine. Be that way!"
+                    (Bob.hey "")
+        , test "prolonged silence" <|
+            \() ->
+                Expect.equal
+                    "Fine. Be that way!"
+                    (Bob.hey "       ")
+        , test "alternate silences" <|
+            \() ->
+                Expect.equal
+                    "Fine. Be that way!"
+                    (Bob.hey "\t  \n  \t   ")
+        , test "on multiple line questions" <|
+            \() ->
+                Expect.equal
+                    "Whatever."
+                    (Bob.hey "\nDoes this cryogenic chamber make me look fat?\nno")
+        ]
+
+
+character : Int -> Int -> Random.Generator Char
+character start end =
+    Random.map Char.fromCode (Random.int start end)
+
+
+anyCharacter : Random.Generator Char
+anyCharacter =
+    character 32 126
+
+
+uppercaseCharacter : Random.Generator Char
+uppercaseCharacter =
+    character 65 90
+
+
+listOfCharacters : Int -> Random.Generator Char -> Random.Generator (List Char)
+listOfCharacters length characterList =
+    Random.list length characterList
+
+
+gibberish : Int -> Random.Generator Char -> String
+gibberish length characterList =
+    Tuple.first (Random.step (Random.map String.fromList (listOfCharacters length characterList)) (Random.initialSeed 424242))
+
+
+uppercaseGibberish : Int -> String
+uppercaseGibberish length =
+    gibberish length uppercaseCharacter
+
+
+gibberishQuestion : Int -> String
+gibberishQuestion length =
+    (gibberish length anyCharacter) ++ "?"
+
+
+main : TestProgram
+main =
+    run emit tests
+
+
+port emit : ( String, Value ) -> Cmd msg
diff --git a/elm/bob/elm-package.json b/elm/bob/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": "5.0.0 <= v < 6.0.0",
+        "elm-community/elm-test": "3.0.0 <= v < 4.0.0",
+        "rtfeldman/node-test-runner": "3.0.0 <= v < 4.0.0"
+    },
+    "elm-version": "0.18.0 <= v < 0.19.0"
+}
diff --git a/elm/bob/package.json b/elm/bob/package.json
@@ -0,0 +1,13 @@
+{
+    "description": "Exercism/Elm",
+    "repository": "https://github.com/exercism/xelm.git",
+    "license": "MIT",
+    "scripts": {
+        "postinstall": "elm-package install -y",
+        "test": "elm-test Tests.elm"
+    },
+    "dependencies": {
+        "elm": "^0.18.0",
+        "elm-test": "^0.18.0"
+    }
+}
