Contents

(ns cljs.letfn-test)

(defn test-letfn []
  (letfn [(ev? [x]
            (if (zero? x)
              true
              (od? (dec x))))
          (od? [x]
            (if (zero? x)
              false
              (ev? (dec x))))]
    (assert (ev? 0))
    (assert (ev? 10))
    (assert (not (ev? 1)))
    (assert (not (ev? 11)))
    (assert (not (od? 0)))
    (assert (not (od? 10)))
    (assert (od? 1))
    (assert (od? 11))))

Version data entries

2 entries across 2 versions & 1 rubygems

Version	Path
clementine-0.0.3	ext/clojure-clojurescript-bef56a7/test/cljs/cljs/letfn_test.cljs
clementine-0.0.2	ext/clojure-clojurescript-bef56a7/test/cljs/cljs/letfn_test.cljs