triclops200

(defmacro defmem
  [name parms & body]
  (let [fname (gensym) memname (gensym)]
    `(do (declare ~name)
         (letfn [(~fname ~parms ~@body)]
           (let [~memname (atom {})]
             (defn ~name ~parms
               (if (contains? @~memname ~parms)
                 (get @~memname ~parms)
                 (do (swap! ~memname assoc ~parms (~fname ~@parms))

triclops200

(defun nfib (a b c n)
  (if (= n 0)
	  a
	  (nfib b c (/ (+ b c) a) (1- n))))

(defmacro while (test &body body)
  `(do ()
	   ((not ,test))
	 ,@body))

triclops200

(defmacro while (test &body body)
  `(do ()
       ((not ,test))
     ,@body))

(defmacro with-gensyms (syms &body body)
  `(let ,(mapcar #'(lambda (x) `(,x (gensym))) syms)
     ,@body))

(defmacro collect-list (end-condition next-value var)

triclops200

def swap_max(digits):
    i = len(digits) - 1
    while i > 0:
        if digits[i] == 0:
            i-= 1
        else:
            break
    max_i = i
    min_i = i
    pot_i = i