From 1e9ef7b5931cca9a45f1b2b70045d8e932d11ec6 Mon Sep 17 00:00:00 2001 From: slack Date: Tue, 8 Dec 2009 22:01:43 +0100 Subject: [PATCH] added an example --- clojure-slides.xhtml | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/clojure-slides.xhtml b/clojure-slides.xhtml index 157b95c..9ced9ae 100755 --- a/clojure-slides.xhtml +++ b/clojure-slides.xhtml @@ -170,11 +170,26 @@

Entonces... ¿qué pinta tiene un programa?

+ + (ns wordcount (:gen-class)
+   (:use clojure.contrib.str-utils))
+
+ (defn num-lines [text] (count (re-split #"\n" text)))
+ (defn num-words [text] (count (re-split #"\s+" text)))
+ (defn num-characters [text] (count text))
+
+ (defn -main [file]
+   (let [text (slurp file)]
+     (println (num-lines text) (num-words text) (num-characters text))))
+     
+
+ +

Cool stuff

-

Multimethods, macros, regexes, interop, seqs... +

Multimethods, macros, regexes, interop, seqs...

-- 2.34.1