zahardzhan

(defn (power :is number? :or (throw 'Bad-input))
  [(x :is number?)
   (y :is [pos? integer?])
   (n :is [pos? integer?] :is [neg? float?] :is [zero? double?] :or false)]
  (/ x 0))

zahardzhan

;;; Project 1, 6.001, Spring 2005

(ns basebot
  (:use clojure.test))

(in-ns 'basebot)

;;; idea is to simulate a baseball robot

;; imagine hitting a ball with an initial velocity of v 

zahardzhan

(let [precedence-counter (atom 0)]

(defn make-agent
  {:post [(instance? clojure.lang.Agent %)]}
  [& state]
  (let [state (apply array-map state)
        agent-type (or (:type state) ::agent)
        state (dissoc state :type)
        a (agent (with-meta 
                   (merge {:name nil

zahardzhan

(ns ack)

(in-ns 'ack)

(defn pow [x y]
  (if (zero? y) 1
      (reduce * (repeat y x))))

(defn up [a n b]
  (cond (= n 1) (pow a b)

zahardzhan

(defn savings-balance
  [& accounts]
  (->> (seq accounts)
       (filter #(= (:type %) 'savings))
       (map :balance)
       (apply +)))

;; Use case for 'same higher order function.
;; That's better.

zahardzhan

# Aliases

alias la="ls -a"
alias ll="ls -l"

# Show git branch

function parse_git_branch {
  git branch --no-color 2> /dev/null | sed -e '/^[^*]/d' -e 's/* \(.*\)/[\1] /'
}

zahardzhan

(ns app
  (:gen-class :extends javax.servlet.http.HttpServlet)
  (:use     (compojure.http routes servlet helpers)
            compojure.html)
  (:use     com.freiheit.gae.datastore.datastore-access-dsl
            com.freiheit.gae.datastore.datastore-query-dsl
            com.freiheit.gae.datastore.datastore-types)
  (:import  (com.google.appengine.api.users User UserService UserServiceFactory)
            (com.google.appengine.api.datastore Query)
            java.util.Date))

zahardzhan

(ns user
  (:import (com.google.appengine.api.users User UserService UserServiceFactory)))

(defn get-user-service []
  (UserServiceFactory/getUserService))

(def *user* nil)

(defn inside-with-user-block? []
  (not= nil *user*))

zahardzhan

;taken from clj-gae-datastore/src/example/clojure/com/freiheit/gae/datastore/example.clj
; short-cut to set-up the GAE environment for interactive programming with Clojure and GAE

(ns com.freiheit.gae.datastore.example
  (:use
   [clojure.contrib def])
  (:import
   [com.google.apphosting.api ApiProxy ApiProxy$Environment]
   [java.io File]
   [java.util HashMap]

zahardzhan

(defproject guestbook "1.0.0-SNAPSHOT"
  :author "FIXME: Me"
  :description "FIXME: Simple guestbook."

  :compile-path "war/WEB-INF/classes"
  :library-path "war/WEB-INF/lib"

  :dependencies     [[org.clojure/clojure "1.2.0-master-SNAPSHOT"]
                     [org.clojure/clojure-contrib "1.2.0-SNAPSHOT"]
                     [compojure "0.4.0-SNAPSHOT"]