bendisposto

(ns repl.core
  (:require [clojure.test.check :as tc]
            [clojure.test.check.generators :as gen]
            [clojure.test.check.properties :as prop]
            [clojure.test :as t]))

;; Wichtig! Clojure 1.4 verwenden!


(comment

bendisposto

(ns dbc.core
  (:require [schema.core :as s]))


(comment
  (cons 3 [4 5])
  (conj 3 [4 5])

  ;; ClassCastException ?!?

bendisposto

(ns type.core
  (:require [clojure.core.typed :as t]))

(defn anzahl [c]
  (if-not (seq c)
    0
    (inc (anzahl (rest c)))))

(t/ann anzahl [(t/Seqable t/Any) -> t/Int])

bendisposto

(ns ebt.core
  (:require [clojure.test :as t :refer [deftest is run-all-tests]]
            [midje.sweet :as m :refer [tabular fact]]
            [speclj.core :as s :refer [describe it should= run-specs]]))

(defn plus
  "I am a bogus addition function"
  [a b]
  (if (= a b) (+ a b) (+ a a)))

bendisposto

(ns repl.core
  (:use clojure.algo.monads))

(declare $assign $int $id $postinc $add $postinc $do'
         m-assign m-int m-id m-postinc m-add m-do)

(comment


  ;; Monaden

bendisposto

(ns macros.core
  (:use clojure.walk
        [clojure.algo.monads]))


(defn my-read [foo]
  (let [data (read-string foo)
        result (try (eval data) (catch Throwable t (.getMessage t)))]
    {:input foo
     :read data

bendisposto

(ns repl.core
  (:use clojure.repl))

(def x -3)
(defrecord Klausurergebnis [matrikel punkte note])


(comment

  ;; --- Wiederholung

bendisposto

(ns repl.core)

(defn new-thread [f] (.start (Thread. f)))

(comment

  ;; Keywords

  :foo
  ::foo

bendisposto

(ns repl.greeter.friendly-hello
  (:require [clojure.string :as str]))

(defn msg! [& args]
  (println "Hello" (str/join " and " args)))

bendisposto

(ns repl.core)

(comment

  ;; recursion
  (use 'clojure.tools.trace)

  (deftrace ! [n]
    (if (= 1 n)
      n