fork download
copy 
  1. CLIPS> (deffacts initial-facts
  2.    "Исходные факты для запуска процесса создания веб-сайта"
  3.    (client Ivan)
  4. )
  5.  
  6. CLIPS> (defrule wants-to-create-website
  7.    (client Ivan)
  8. =>
  9.    (printout t "Иван, хочешь создать веб-сайт? (yes/no): ")
  10.    (assert (wants-to-create-website (read))))
  11.  
  12. CLIPS> (defrule has-budget
  13.    (wants-to-create-website yes)
  14. =>
  15.    (printout t "Есть ли у тебя бюджет на создание сайта? (yes/no): ")
  16.    (assert (has-budget (read))))
  17.  
  18. CLIPS> (defrule start-TZ
  19.    (has-budget yes)
  20. =>
  21.    (printout t "Начинаем разработку ТЗ." crlf)
  22.    (assert (can-start-TZ yes)))
  23.  
  24. CLIPS> (defrule develop-TZ
  25.    (can-start-TZ yes)
  26. =>
  27.    (printout t "Разработано ТЗ." crlf)
  28.    (assert (developed-TZ yes)))
  29.  
  30. CLIPS> (defrule approve-TZ
  31.    (developed-TZ yes)
  32. =>
  33.    (printout t "ТЗ утверждено?" crlf)
  34.    (printout t "Подтверждаешь? (yes/no): ")
  35.    (assert (approved-TZ (read))))
  36.  
  37. CLIPS> (defrule design-website
  38.    (approved-TZ yes)
  39. =>
  40.    (printout t "Разработан дизайн сайта." crlf)
  41.    (assert (designed-website yes)))
  42.  
  43. CLIPS> (defrule implement-website
  44.    (designed-website yes)
  45. =>
  46.    (printout t "Сайт реализован." crlf)
  47.    (assert (implemented-website yes)))
  48.  
  49. CLIPS> (defrule test-website
  50.    (implemented-website yes)
  51. =>
  52.    (printout t "Сайт протестирован." crlf)
  53.    (assert (tested-website yes)))
  54.  
  55. CLIPS> (defrule setup-hosting
  56.    (tested-website yes)
  57. =>
  58.    (printout t "Настроены хостинг и домен?" crlf)
  59.    (printout t "Подтверждаешь? (yes/no): ")
  60.    (assert (hosting-setup (read))))
  61.  
  62. CLIPS> (defrule launch-website
  63.    (hosting-setup yes)
  64. =>
  65.    (printout t "Сайт запущен!" crlf)
  66.    (assert (website-launched yes)))
  67.  
  68.  
  69. (exit)
  70. ; empty line at the end
Success #stdin #stdout 0.01s 5380KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[EXPRNPSR3] Missing function declaration for client.
[COMMLINE1] Expected a '(', constant, or variable

[EXPRNPSR3] Missing function declaration for client.
Иван, хочешь создать веб-сайт? (yes/no): 
[EXPRNPSR3] Missing function declaration for wants-to-create-website.
Есть ли у тебя бюджет на создание сайта? (yes/no): 
[EXPRNPSR3] Missing function declaration for has-budget.
Начинаем разработку ТЗ.

[EXPRNPSR3] Missing function declaration for can-start-TZ.
Разработано ТЗ.

[EXPRNPSR3] Missing function declaration for developed-TZ.
ТЗ утверждено?
Подтверждаешь? (yes/no): 
[EXPRNPSR3] Missing function declaration for approved-TZ.
Разработан дизайн сайта.

[EXPRNPSR3] Missing function declaration for designed-website.
Сайт реализован.

[EXPRNPSR3] Missing function declaration for implemented-website.
Сайт протестирован.

[EXPRNPSR3] Missing function declaration for tested-website.
Настроены хостинг и домен?
Подтверждаешь? (yes/no): 
[EXPRNPSR3] Missing function declaration for hosting-setup.
Сайт запущен!
https://ideone.com/ht3RsG
language:
Clips (clips 6.30)
created:
7 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!