rm-hull

(defmacro def-curry-fn [name args & body]
  {:pre [(not-any? #{'&} args)]}
  (if (empty? args)
    `(defn ~name ~args ~@body)
    (let [rec-funcs (reduce (fn [l v]
                              `(letfn [(helper#
                                         ([] helper#)
                                         ([x#] (let [~v x#] ~l))
                                         ([x# & rest#] (let [~v x#]
                                                         (apply (helper# x#) rest#))))]

rm-hull

(ns typed-play.core
  (:require-macros [clojure.core.typed :as ct])
  (:require [clojure.core.typed :as ct]))
 
(ct/ann my-identity (All [x] (Fn [x -> x])))
(defn my-identity [x]
  (if (number? x)
    (inc x)
    x))

rm-hull

(ns sudoku
  ;(:refer-clojure :exclude [==])
  (:require-macros [cljs.core.logic.macros :as m])
  (:use [cljs.core.logic :only [everyg infd distinctfd]]))

(defn get-square [rows x y]
  (for [x (range x (+ x 3))
        y (range y (+ y 3))]
    (get-in rows [x y])))

rm-hull

(ns example
  (:require-macros [cljs.core.logic.macros :as m])
  (:use [cljs.core.logic :only [membero]]))

(println
  (m/run* [q]
    (membero q '(:cat :dog :bird :bat :debra))))

rm-hull

(ns classic-ai-example
  (:require-macros [cljs.core.logic.macros :as m])
  (:use [cljs.core.logic :only [-take*]]))

(m/defne moveo [before action after]
  ([[:middle :onbox :middle :hasnot]
    :grasp
    [:middle :onbox :middle :has]])
  ([[pos :onfloor pos has]
    :climb

rm-hull

(ns maze.core
  (:use [enchilada :only [canvas ctx value-of canvas-size]]
        [monet.canvas :only [get-context stroke stroke-style stroke-cap begin-path close-path line-to move-to stroke-width]]
        [monet.core :only [animation-frame]]
        [jayq.core :only [$ document-ready data attr hide show]]
        [maze.util :only [coord->pos]]
        [maze.generator :only [create-maze]]
        [maze.solver :only [solve]]))

(defn draw-path-segments [ctx snake start end]

rm-hull

(ns tests
  (:refer-clojure :exclude [==])
  (:use-macros
   [cljs.core.logic.macros
    :only [run run* == conde conda condu fresh defne matche all]])
  (:require-macros [cljs.core.logic.macros :as m]
                   [clojure.tools.macro :as mu])
  (:use
   [enchilada :only [ctx]]
   [cljs.core.logic

rm-hull

From https://en.wikipedia.org/wiki/Zebra_Puzzle

1. There are five houses.
2. The Englishman lives in the red house.
3. The Spaniard owns the dog.
4. Coffee is drunk in the green house.
5. The Ukrainian drinks tea.
6. The green house is immediately to the right of the ivory house.
7. The Old Gold smoker owns snails.
8. Kools are smoked in the yellow house.

rm-hull

(ns three.demo
  (:require [THREE :as THREE]))

(def camera 
  (THREE/PerspectiveCamera. 
    75 
    (/ 800 600) 
    1 
    10000))

rm-hull

(println
  (#(list % (list 'quote %)) '#(list % (list 'quote %))))