Exercism: "Bob in Clojure"

This is my solution to the Bob problem in Clojure:

	(ns bob
	(:require [clojure.string :as str]))
	(defn response-for [sentence]
	(let
	[shouting?
	(fn []
	(let
	[letters (filter #(Character/isLetter %) sentence)]
	(and (not (empty? letters))
	(every? #(Character/isUpperCase %) letters))))
	asking?
	(fn []
	(= (last sentence) \?))
	saying-nothing? #(str/blank? sentence)]
	(cond
	(shouting?) "Woah, chill out!"
	(asking?) "Sure."
	(saying-nothing?) "Fine. Be that way!"
	:else "Whatever.")))

view raw bob.clj hosted with ❤ by GitHub

I just used cons and created some local helpers to make the code more readable.

You can see two other versions here.

This exercise served me to practice a bit with regular expressions and to discover some new useful Clojure functions.