en veldig basal implementasjon av 'let' ved hjelp av identity monad. lett!

gistfile1.clj

(defn bind [v f] (f v))

(defmacro lett [[sym expr & more] & body]
  (if more
    `(bind ~expr
           (fn [~sym] (lett ~more ~@body)))
    `(bind ~expr
           (fn [~sym] ~@body))))

; eksempel
(lett [a 1
       b (inc a)
       c (+ a b)]
  (* a b c))

; => 6