5, Common Lisp - rextester

Language: Layout:

;gnu clisp  2.49.60
(defmacro repeat (E UNTIL P)
    `(if ,p nil
         (progn ,e (repeat ,e until ,p))))

(setq c1 5)
(setq f1 (lambda ()
    (progn
        (print c1)
        (setq c1 (- c1 1))
    )
))

(repeat f1 until (> c1 0))

;;; Task #5
;;; Определите ввиде макроса форму (REPEAT e UNTIL p) паскалевского типа
(defmacro repeatt (f untill c)
    `(let
        ((,'fwrap 0))
        (progn
            (setq ,'fwrap
                (lambda
                    nil
                    (progn
                        (funcall ,f)
                        (cond
                            (,c (funcall ,'fwrap))
                            (t nil)
                        )
                    )
                )
            )
            (funcall ,'fwrap)
        )
    )
)
(setq c1 5)
(setq f1 (lambda ()
    (progn
        (print c1)
        (setq c1 (- c1 1))
    )
))

;;; Test #5
(princ "  Test for task #5")
;(print (macroexpand '(repeatt f1 untill (> c1 0))))
(repeatt f1 untill (> c1 0))
(write-line "")

(defmacro repeat (E UNTIL P)
    `(do ()
         (,p nil)
         ,e))
(print(repeat f1 until (> c1 0)))

[ + ] Show input
Absolute running time: 5.08 sec, cpu time: 4.98 sec, memory peak: 6 Mb, absolute service time: 5,24 sec