; START:ns
(ns exploring
    (use utils clojure.contrib.seq-utils clojure.contrib.str-utils)
    (import (java.io File)))
; END:ns

; START:hello
(defn hello
  "Writes hello message to *out*. Calls you by name"
  [name]
  (println (str "Hello, " name)))
; END:hello

; START:date
(defn date [person-1 person-2 & chaperones]
  (println person-1 "and" person-2 
	   "went out with" (count chaperones) "chaperones."))
; END:date

; START:if
(defn is-small? [number]
  (if (< number 100) "yes"))
; END:if

; START:if-else
(defn is-small? [number]
  (if (< number 100) "yes" "no"))
; END:if-else

; START:do
(defn is-small? [number]
  (if (< number 100)
    "yes"
    (do 
      (println "Saw a big number" number)
      "no")))
; END:do

(defn demo-loop []
; START: loop
  (loop [result [] x 5]
    (if (zero? x)
      result
      (recur (conj result x) (dec x))))
; END: loop
)

; START:countdown
(defn countdown [result x]
  (if (zero? x)
    result
    (recur (conj result x) (dec x))))
; END:countdown

; START:index-of-any
(defn index-of-any [str chars]
  (some (fn [[idx char]] (and (get chars char) idx)) (indexed str)))
; END:index-of-any

; START:greeting
(defn greeting 
  "Returns a greeting of the form 'Hello, name.'"
  [name]
  (str "Hello, " name))
; END:greeting

; START:greeting-with-default
(defn greeting 
  "Returns a greeting of the form 'Hello, name.'
   Default name is 'world'."
  ([] (greeting "world"))
  ([name] (str "Hello, " name)))
; END:greeting-with-default

; START:indexable-word
(defn indexable-word? [word]
  (> (count word) 2))
; END:indexable-word

; START:indexable-words 
(defn indexable-words [text]
  (let [indexable-word? (fn [w] (> (count w) 2))]
    (filter indexable-word? (re-split #"\\W+" text))))
; END:indexable-words

; START:make-greeter
(defn make-greeter [greeting-prefix]
  (fn [name] (str greeting-prefix ", " name)))
; END:make-greeter

; START:square-corners
(defn square-corners [bottom left width]
  (let [top (+ bottom width)
	right (+ left width)]
    [[bottom left] [top left] [top right] [bottom right]]))
; END:square-corners

; START:busted
(defn
  #^{:test (fn []
	     (assert (nil? (busted))))}
  busted [] "busted")
; END:busted

(def vinge {:first-name "Vernor" :last-name "Vinge"})

; START:greet-author-1
(defn greet-author-1 [author]
  (println "Hello," (:first-name author)))
; END:greet-author-1

; START:greet-author-2
(defn greet-author-2 [{name :first-name}]
  (println "Hello," name))
; END:greet-author-2

; START:ellipsize
(use 'clojure.contrib.str-utils)  ; for re-split
(defn ellipsize [words]
  (let [[w1 w2 w3] (re-split #"\\s" words)]
    (str-join " " [w1 w2 w3 "..."])))
; END:ellipsize