Figuring out Lisp by implementing partials in hy.

partial.hy

(defn partial [f arg &rest args1]
  (defn p [&rest args2]
    (apply f (+ (list* arg (list args1)) (list args2)))))

(defn add [a &rest b]
  (+ a (reduce + b)))

(def add10 (partial add 10))

(print (add10 15 20))