transforming text into CV grammar

Swizec · Jun 19, 2011 · 5205379 · 5205379
1 parent d0c3d29
commit 5205379
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/syllabification/run.clj b/syllabification/run.clj
@@ -0,0 +1,12 @@
+
+(ns syllabification
+  (:require [clojure.string :as str]))
+
+(def text "this is a sample text")
+
+(defn transform [text]
+  (map #(if (= %1 " ") " "
+            (if (re-matches #"[aeiou]" %1) "V" "C"))
+            (str/split text #"")))
+
+(println (transform text))