fork download
  1.  
  2. :: Define the template for Assignment
  3. (deftemplate Assignment
  4. (slot Assign_No)
  5. (slot Opening_date)
  6. (slot Closing_date)
  7. (slot Marks)
  8. )
  9.  
  10. ::Add three facts using the template
  11. (deffacts initial_assignments
  12. (Assignment (Assign_No 1)(Opening_date "2025_06_23")(Closing_date"2025_06_27")(Marks 20))
  13. (Assignment (Assign_No 2)(Opening_date "2025_06_21")(Closing_date "2025_06_25")(Marks 20))
  14. (Assignment (Assign_No 3)(Opening_date "2025_06_19")(Closing_date "2025_06_23")(Marks 20))
  15. )
  16.  
  17. (reset)
  18.  
  19. (run)
  20.  
  21.  
  22.  
  23. (exit)
  24. ; empty line at the end
Success #stdin #stdout 0.01s 5408KB
stdin
Standard input is empty
stdout
Standard output is empty