From ca1510f324d343e872e64459b9445d2b14d251ba Mon Sep 17 00:00:00 2001
From: Julio Biason <julio.biason@pm.me>
Date: Tue, 7 Jul 2020 20:28:32 -0300
Subject: [PATCH] Reverse strings problem and solution

---
 .../reverse-string/.exercism/metadata.json    |  1 +
 clojure/reverse-string/README.md              | 17 +++++++++++
 clojure/reverse-string/project.clj            |  4 +++
 clojure/reverse-string/src/reverse_string.clj | 21 ++++++++++++++
 .../test/reverse_string_test.clj              | 29 +++++++++++++++++++
 5 files changed, 72 insertions(+)
 create mode 100644 clojure/reverse-string/.exercism/metadata.json
 create mode 100644 clojure/reverse-string/README.md
 create mode 100644 clojure/reverse-string/project.clj
 create mode 100644 clojure/reverse-string/src/reverse_string.clj
 create mode 100644 clojure/reverse-string/test/reverse_string_test.clj

diff --git a/clojure/reverse-string/.exercism/metadata.json b/clojure/reverse-string/.exercism/metadata.json
new file mode 100644
index 0000000..f574ce1
--- /dev/null
+++ b/clojure/reverse-string/.exercism/metadata.json
@@ -0,0 +1 @@
+{"track":"clojure","exercise":"reverse-string","id":"1d0e36bea1fa400a9423fa17ba1a04fe","url":"https://exercism.io/my/solutions/1d0e36bea1fa400a9423fa17ba1a04fe","handle":"JBiason","is_requester":true,"auto_approve":false}
\ No newline at end of file
diff --git a/clojure/reverse-string/README.md b/clojure/reverse-string/README.md
new file mode 100644
index 0000000..30edc7d
--- /dev/null
+++ b/clojure/reverse-string/README.md
@@ -0,0 +1,17 @@
+# Reverse String
+
+Reverse a string
+
+For example:
+input: "cool"
+output: "looc"
+
+## Restrictions
+You can not use the `reverse` function, but you can use any of the other core functions.
+
+## Source
+
+Introductory challenge to reverse an input string [https://medium.freecodecamp.org/how-to-reverse-a-string-in-javascript-in-3-different-ways-75e4763c68cb](https://medium.freecodecamp.org/how-to-reverse-a-string-in-javascript-in-3-different-ways-75e4763c68cb)
+
+## Submitting Incomplete Solutions
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.
diff --git a/clojure/reverse-string/project.clj b/clojure/reverse-string/project.clj
new file mode 100644
index 0000000..34c22bc
--- /dev/null
+++ b/clojure/reverse-string/project.clj
@@ -0,0 +1,4 @@
+(defproject reverse-string "0.1.0-SNAPSHOT"
+  :description "reverse-string exercise."
+  :url "https://github.com/exercism/clojure/tree/master/exercises/reverse-string"
+  :dependencies [[org.clojure/clojure "1.10.0"]])
diff --git a/clojure/reverse-string/src/reverse_string.clj b/clojure/reverse-string/src/reverse_string.clj
new file mode 100644
index 0000000..f6e3613
--- /dev/null
+++ b/clojure/reverse-string/src/reverse_string.clj
@@ -0,0 +1,21 @@
+(ns reverse-string
+  ; (:require [clojure.string :as str])
+  )
+
+; This is the easy/cheating way
+; (defn reverse-string [s] ;; <- arglist goes here
+;   (str/reverse s)
+; )
+
+; This is the real way :p
+(defn reverse-string [s]
+  (loop [content s 
+         reversed ""]
+    (let [[head & tails] content]
+      (if (= tails nil)
+        (str head reversed)
+        (recur tails (str head reversed))
+        )
+      )
+    )
+  )
diff --git a/clojure/reverse-string/test/reverse_string_test.clj b/clojure/reverse-string/test/reverse_string_test.clj
new file mode 100644
index 0000000..f80d06a
--- /dev/null
+++ b/clojure/reverse-string/test/reverse_string_test.clj
@@ -0,0 +1,29 @@
+(ns reverse-string-test
+  (:require [clojure.test :refer [deftest is]]
+            reverse-string))
+
+(deftest empty-string-test
+  (is (= "" (reverse-string/reverse-string ""))))
+
+(deftest a-letter-test
+  (is (= "I" (reverse-string/reverse-string "I"))))
+
+(deftest a-word-test
+  (is (= "tobor" (reverse-string/reverse-string "robot"))))
+
+(deftest capitalised-word-test
+  (is (= "nemaR" (reverse-string/reverse-string "Ramen"))))
+
+(deftest sentence-with-punctuation-test
+  (is (= "!yrgnuh m'I" (reverse-string/reverse-string "I'm hungry!"))))
+
+(deftest palindrome-test
+  (is (= "racecar" (reverse-string/reverse-string "racecar"))))
+
+(deftest even-sized-word-test
+  (is (= "reward" (reverse-string/reverse-string "drawer"))))
+
+(deftest long-string-test
+  (let [s (reduce str (repeat 1000 "overflow?"))
+        rs (reduce str (repeat 1000 "?wolfrevo"))]
+    (is (= rs (reverse-string/reverse-string s)))))