Answer till 4.73

2021-03-05 12:17:25 -05:00
parent ac2b6ae964
commit 4f57cfe87e
4 changed files with 39 additions and 8 deletions
--- a/ex-4_55-60.scm
+++ b/ex-4_55-60.scm
@@ -33,7 +33,10 @@
        (salary ?person ?amount)
        (lisp-value > ?amount ?ben-amount)))
 (newline)
-; c. all people who are supervised by someone who is not in the computer ; division, together with the supervisor's name and job.  (eval-query
+
+; c. all people who are supervised by someone who is not in the computer ;
+; division, together with the supervisor's name and job.
+(eval-query
  '(and (supervisor ?person ?supervisor)
        (not (job ?supervisor (computer . ?supervisor-title)))
        (job ?supervisor ?job)))