Полная программа RPN Expr-Eval внутри Tweet? - "Да, мы можем!", С помощью LISP

Question

Программа (115 символов)

(defun rpn(e)(let((s()))(dolist(x e)(if(numberp x)(push x s)(push(eval(reverse(list(pop s)(pop s)x)))s)))(car s))) 

Простой тест:

CL-USER> (rpn '(1 2 3 * + 4 2/+)) 

И это возвращает 9

Каждый имеет некоторые хорошие идеи о написании программы Infix-RPN внутри одного твита? Я провалил. Я могу написать это один из 235 символов.

Answer 1

Вот один в Clojure (88 символов):

(defn rpn [& e](reduce #(if (fn? %2)(let [[l r & m]%](cons (%2 r l) m))(cons %2 %))[]e)) 

и ООН-golfed версии:

(defn rpn [& expr] 
    (reduce (fn [stack op] 
      (if (fn? op) 
       (let [[l r & m] stack] 
       (cons (op r l) m)) 
       (cons op stack))) 
      [] 
      expr))