0

所以我最近自学了 lisp 并且一直在搞乱一些程序。我正在尝试编写一个小程序来比较用户输入的类列表并找出哪些可以一起工作。下面是第一部分，它从用户那里收集数据并创建一些班级时间的列表。

(defun class-entries ()

(setf Monday 0)                                                                                     ;initializes the days of the week 
(setf Tuesday 0)
(setf Wednesday 0)
(setf Thursday 0)
(setf Friday 0)

 (setf times 100)
 (dotimes (repeating times "You have reached the limit of entries")                                  ;repeats the following for the number of classes that you are comparing
  (dolist (dayofweek '(Monday Tuesday Wednesday Thursday Friday))                                    ;repeats the following for each day of the week
   (print (concatenate 'string "Does this class occur on " dayofweek " ?"))  
    (setf isday (read))
   (if (= isday 1)                                                                                   ;prompts the questions if there is a class that day
    (progn
     (print (concatenate 'string "What time does the class begin on " dayofweek " ?"))
     (setf starttime (read))
     (print (concatenate 'string "What time does the class end on " dayofweek " ?"))
     (setf endtime (read)))
     (setf isday 0))
   (if (= isday 0)                                                                                    ;Adds the list of (startime endtime) to the current day of week or nil if there isn't a class that day
    (setf 'dayofweek '"nil")
    (setf 'dayofweek '(starttime endtime))))
 (print "What is the title of the class?")
 (setf (read) '((mon (Monday)) (tues (Tuesday)) (wed (Wednesday)) (thurs (Thursday)) (fri (friday)))) ;sets a new variable to the values of the classes's hours
  (print "Is there another class?")                                                                   ;repeats the function for another class or ends it
   (setf isclass (read))
   (if (= isclass 0)
    (setf times 0)
    ()))
 (setf times 100)
)

当我评估该函数时，它只返回 0 并且没有其他内容出现。我不确定是不是因为我没有使用 Listener 还是什么。谢谢。

4

1 回答 1

0

我认为这个问题还不够具体，但这可能会对您有所帮助，并希望作为分解和提示的有用示例。添加一些额外的检查并不难：

(defun prompt (&optional (control "> ") &rest arguments)
  "Read a value from STREAM after presenting PROMPT."
  (fresh-line *terminal-io*)
  (apply 'format *terminal-io* control arguments)
  (finish-output *terminal-io*)
  (read *terminal-io*))

(defstruct course
  (name nil :type symbol :read-only t)
  (day nil :type symbol :read-only t)
  (start nil :type number :read-only t)
  (end nil :type number :read-only t))

(defun prompt-for-course ()
  (flet ((except-quit (x)
           (if (string-equal (princ-to-string x) "quit")
               (return-from prompt-for-course nil)
               x)))
    (let (name day start end)
      (setq name  (except-quit (prompt "course name: "))
            day   (except-quit (prompt "course day:  "))
            start (except-quit (prompt "start time:  "))
            end   (except-quit (prompt "end time:    ")))
      (make-course :name name
                   :day day
                   :start start
                   :end end))))

(defun prompt-for-courses ()
  (loop
     with courses = (make-hash-table)
     for course = (prompt-for-course)
     while course
     do (push course (gethash (course-day course) courses))
     finally (return courses)))


CL-USER> (prompt-for-courses)
course name: intro-logic
course day:  monday
start time:  1100
end time:    1250

course name: intermediate-logic
course day:  tuesday
start time:  1100
end time:    1250

course name: quit

#<HASH-TABLE :TEST EQL :COUNT 2 {1003EA6513}>
于 2015-01-02T17:54:36.920 回答