Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

32 lines (26 sloc) 0.664 kb
(ns fortest)
(defn out [& msgs]
(.log js/console (apply str msgs)))
(defn oknok [bool]
(if bool "ok" "nok"))
(defn print-list [l]
(doseq [touple l]
(out (apply str (interpose ", " touple)))))
(defn ^:export init []
(out "Hello world")
(let [content (for [a [0 1] b [0 1]
:when (not (and (= 0 a) (= 0 b)))]
[a b])]
(out "Test1: "
(oknok
(= [[0 1] [1 0] [1 1]]
content))))
(let [content (for [a [0 1] b [0 1]
:when (not (= 0 a b))]
[a b])]
(out "Test2: "
(oknok
(= [[0 1] [1 0] [1 1]]
content)))
(out "Test 2 Content:")
(print-list content)))
Jump to Line
Something went wrong with that request. Please try again.