Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 33 lines (27 sloc) 0.654 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
(ns fortest)

(defn out [& msgs]
  (println (apply str msgs)))

(defn oknok [bool]
  (if bool "ok" "nok"))

(defn print-list [l]
  (doseq [touple l]
    (out (apply str (interpose ", " touple)))))

(defn 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)))

(init)
Something went wrong with that request. Please try again.