soofaloofa-zz

A comparison of Collection+JSON, HAL, JSON-LD and SIREN media types.

Discussion at 

http://sookocheff.com/posts/2014-03-11-on-choosing-a-hypermedia-format/

soofaloofa-zz

(defn add1 [n]
  (+ n 1))
       
(defn sub1 [n]
  (- n 1)) 

(defn plus [n m]
  (cond
    (zero? m) n
    :else (add1 (plus n (sub1 m)))))

soofaloofa-zz

(defn rember [atom l]
  (loop [lat (seq l) res []]
    (if lat
      (let [f (first lat)]
        (if (= f atom)
          (next lat)
          (recur (next lat) (conj res f))))
      res)))

(defn firsts [lol]

soofaloofa-zz

(defn atom? [x]
  (not (seq? x)))

(defn lat? [x]
  (loop [l x]
    (cond
      (empty? l) true
      (atom? (first l)) (recur (last l))
      :else false)))

soofaloofa-zz

(defn atom? [x]
  (not (seq? x)))

soofaloofa-zz

function $(id) {

    var $ = document.getElementById(id);
 
    var opacityTo = function (elm, v) {
        elm.style.opacity = v/100; // CSS3
        elm.style.MozOpacity =  v/100; // FF
        elm.style.KhtmlOpacity =  v/100; // Safari
        elm.style.filter=" alpha(opacity ="+v+")"; // IE
    };