Вызов функции в цикле (Common Lisp)

Таким образом, программа не может делать две вещи одновременно. В частности, если вы заняты печатью точек, засыпанием и вычитанием 1 из 999, вы не будете делать паузу, чтобы посмотреть, не поступит ли другая команда.

К сожалению, решить эту проблему сложно. Лучшее решение в терминале, вероятно, будет использовать что-то вроде ncurses. Кроме того, нет стандартного способа управления буферизацией ввода. Вместо этого вот простой способ сделать немного параллелизма и несколько подсказок. Вместо этого вы можете использовать подходящую асинхронную библиотеку.

(defun maybe-read (input-stream recording-stream)
  (when (listen input-stream)
    (let ((char (read-char input-stream)))
      (if (char= char #\Newline)
         t
         (progn (write-char char recording-stream) (maybe-read))))))

(defun make-partial-reader (input-stream)
  (list input-stream (make-string-output-stream)))
(defun partial-read (reader)
  (when (apply #'maybe-read reader)
     (get-output-stream-string (second reader))))

(defun how-long-until (time)
  (let ((gap
          (/ (- time (get-internal-run-time)) internal-time-units-per-second)))
    (cond ((< gap 0) (values 0 :late))
          ((<= gap 0.001) (values 0 :now))
          (T (values (- gap 0.001) :soon)))))
(defun sleep-until (time)
  (multiple-value-bind (span type)
        (how-long-until time)
    (when (> span 60) (warn “long wait!”)
    (case type
      (:late nil)
      (:now t)
      (:soon
        (sleep span)
        (unless (sleep-until time) (warn “poor timekeeping”))
        t))))
(defmacro with-prompt-and-scheduler ((schedule) (line &optional (input *standard-input*)) &body handle-line-input)
  (let ((reader (gensym)) (insched (gensym)))
    `(let ((,reader (make-partial-reader ,input) (,insched)))
        (flet ((,schedule (in fun &aux (at (+ (get-internal-run-time) (* in internal-time-units-per-second))))
                 (if (null ,insched) (push (cons at fun) schedule)
                    (loop for s on ,insched
                          for ((at2) . y) = s
                      if (< at at2)
                       do (psetf (car s) (cons at fun)
                                 (cdr s) (cons (car s) (cdr s)))
                          (finish-loop)
                      unless y do (setf (cdr s) (acons at fun nil)) (finish-loop)))))
         (loop
           (if ,insched
               (let ((,insched (pop ,insched)))
                 (when (sleep-until (car ,insched))
                   (let ((,line (partial-read ,reader)))
                     (when ,line ,@handle-line-input)))
                 (funcall (cdr ,insched)))
               (let ((,line (concatenate 'string (get-output-stream-string (second ,reader)) (read-line (first ,reader)))))
                 ,@handle-line))))))))

И тогда вы могли бы использовать это как:

(let ((count 0))
  (with-prompt-and-scheduler (schedule) (line)
    (let ((n (read-from-string line)))
      (when (realp n)
        (schedule n (let ((x (incf count))) (lambda () (format t "Ding ~a ~a~%" x count) (finish-output))))))))

И после ввода этого ввода 10, затем в следующей строке 5. Если вы сделаете это быстро, вы получите:

Ding 2 2
Ding 1 2

Первая строка появляется через 5 секунд, а вторая - через 10. Если вы работаете медленно, вы должны получить:

Ding 1 1
Ding 2 2

Первая строка появляется через 10 секунд после того, как вы вводите 10, а вторая строка через 5 секунд после того, как вы вводите 5.

Надеюсь, это может дать вам представление о том, как заставить программу делать две вещи одновременно.