mjg123

(def jquery (js* "$"))

(defn show [msg]
  (let [data-as-json ((js* "JSON.stringify") msg nil 4)]
    ((js* "alert") data-as-json)))

(defn make-js-map
  "makes a javascript map from a clojure one"
  [cljmap]
  (let [out (js-obj)]

jneira

;; 2.1  Introduction to Data Abstraction
;; 2.1.1  Example: Arithmetic Operations for Rational Numbers

(define (add-rat x y)
  (make-rat (+ (* (numer x) (denom y))
               (* (numer y) (denom x)))
            (* (denom x) (denom y))))
(define (sub-rat x y)
  (make-rat (- (* (numer x) (denom y))
               (* (numer y) (denom x)))

jneira-4clojure-solution58.clj

;; jneira's solution to http://4clojure.com/problem/58

(fn compon
  ([f] f)
  ([f1 & fs]
     (fn [& xs]
       (let [res (apply
                  (apply compon fs) xs)]
         (f1 res)))))

jneira-4clojure-solution53.clj

;; jneira's solution to http://4clojure.com/problem/53

(fn sub [c]
  (let [gt (comp last sort)
        res (gt
            (reduce
             (fn [[x y] n]
               (if (> n (last y))
                 [x (conj y n)]
                 [(gt [x y])

amalloy-4clojure-solution53.clj

;; amalloy's solution to http://4clojure.com/problem/53

(let [less (partial apply <)]
   (fn [coll]
     (if-let [pairs
              (seq (->> coll
                        (partition 2 1)
                        (partition-by less)
                        (filter (comp less first))))]
       (apply cons

banister

# I want this method in ruby-core
def let
  yield
end

def fib(i)
  let do |n = 1, result = 0|
    if i == -1
      result
    else

jneira

(ns com.freiheit.clojure.appengine.appengine-local
  (:use
   [compojure.http routes servlet helpers]
   clojure.contrib.test-is
   compojure.server.jetty
   [clojure.contrib def str-utils duck-streams])
  (:require
   [clojure.contrib.logging :as log])
  (:import
   [com.google.appengine.api.labs.taskqueue.dev LocalTaskQueue]

antoniogarrote

#!/bin/sh                                                                                                           
# change paths according to your repl setup                                                           
USER_HOME="/Users/antonio.garrote"
CLJR_HOME="/Users/antonio.garrote/.cljr"
CLASSPATH=src:test:.

   if [ ! -n "$JVM_OPTS" ]; then
      JVM_OPTS="-Xmx1G"
   fi