Initial Commit

clojure/bob/README.md

@@ -0,0 +1,35 @@
+# 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.
+
+## Instructions
+
+Run the test file, and fix each of the errors in turn. When you get the
+first test to pass, go to the first pending or skipped test, and make
+that pass as well. When all of the tests are passing, feel free to
+submit.
+
+Remember that passing code is just the first step. The goal is to work
+towards a solution that is as readable and expressive as you can make
+it.
+
+Please make your solution as general as possible. Good code doesn't just
+pass the test suite, it works with any input that fits the
+specification.
+
+Have fun!
+
+
+
+## Source
+
+Inspired by the 'Deaf Grandma' exercise in Chris Pine's Learn to Program tutorial. [view source](http://pine.fm/LearnToProgram/?Chapter=06)

clojure/bob/bob_test.clj

@@ -0,0 +1,48 @@
+(ns bob-test
+  (:require [clojure.test :refer :all]))
+
+(load-file "bob.clj")
+
+(deftest responds-to-something
+  (is (= "Whatever." (bob/response-for "Tom-ay-to, tom-aaaah-to."))))
+
+(deftest responds-to-shouts
+  (is (= "Whoa, chill out!" (bob/response-for "WATCH OUT!"))))
+
+(deftest responds-to-questions
+  (is (= "Sure." (bob/response-for "Does this cryogenic chamber make me look fat?"))))
+
+(deftest responds-to-forceful-talking
+  (is (= "Whatever." (bob/response-for "Let's go make out behind the gym!"))))
+
+(deftest responds-to-acronyms
+  (is (= "Whatever." (bob/response-for "It's OK if you don't want to go to the DMV."))))
+
+(deftest responds-to-forceful-questions
+  (is (= "Whoa, chill out!" (bob/response-for "WHAT THE HELL WERE YOU THINKING?"))))
+
+(deftest responds-to-shouting-with-special-characters
+  (is (= "Whoa, chill out!" (bob/response-for "ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!"))))
+
+(deftest responds-to-shouting-numbers
+  (is (= "Whoa, chill out!" (bob/response-for "1, 2, 3 GO!"))))
+
+(deftest responds-to-shouting-with-no-exclamation-mark
+  (is (= "Whoa, chill out!" (bob/response-for "I HATE YOU"))))
+
+(deftest responds-to-statement-containing-question-mark
+  (is (= "Whatever." (bob/response-for "Ending with ? means a question."))))
+
+(deftest responds-to-silence
+  (is (= "Fine. Be that way!" (bob/response-for ""))))
+
+(deftest responds-to-prolonged-silence
+  (is (= "Fine. Be that way!" (bob/response-for "    "))))
+
+(deftest responds-to-only-numbers
+  (is (= "Whatever." (bob/response-for "1, 2, 3"))))
+
+(deftest responds-to-number-question
+  (is (= "Sure." (bob/response-for "4?"))))
+
+(run-tests)

clojure/bob/project.clj

@@ -0,0 +1,6 @@
+(defproject bob "0.1.0-SNAPSHOT"
+  :description "bob exercise."
+  :url "https://github.com/exercism/xclojure/tree/master/bob"
+  :source-paths [""]
+  :test-paths [""]
+  :dependencies [[org.clojure/clojure "1.7.0"]])