fork download
copy 
  1. (deffacts initial-facts
  2.    "Исходные факты для процесса создания веб-сайта"
  3.    (wants-to-create-website yes)
  4.    (has-budget yes)
  5. )
  6.  
  7. (defrule start-TZ
  8.    (wants-to-create-website yes)
  9.    (has-budget yes)
  10. =>
  11.    (printout t "Начинаем разработку ТЗ." crlf)
  12.    (assert (can-start-TZ yes))
  13. )
  14.  
  15. (defrule develop-TZ
  16.    (can-start-TZ yes)
  17. =>
  18.    (printout t "Разработано ТЗ." crlf)
  19.    (assert (developed-TZ yes))
  20. )
  21.  
  22. (defrule approve-TZ
  23.    (developed-TZ yes)
  24. =>
  25.    (printout t "ТЗ утверждено." crlf)
  26.    (assert (approved-TZ yes))
  27. )
  28.  
  29. (defrule design-website
  30.    (approved-TZ yes)
  31. =>
  32.    (printout t "Разработан дизайн сайта." crlf)
  33.    (assert (designed-website yes))
  34. )
  35.  
  36. (defrule implement-website
  37.    (designed-website yes)
  38. =>
  39.    (printout t "Сайт реализован." crlf)
  40.    (assert (implemented-website yes))
  41. )
  42.  
  43. (defrule test-website
  44.    (implemented-website yes)
  45. =>
  46.    (printout t "Сайт протестирован." crlf)
  47.    (assert (tested-website yes))
  48. )
  49.  
  50. (defrule setup-hosting
  51.    (tested-website yes)
  52. =>
  53.    (printout t "Хостинг и домен настроены." crlf)
  54.    (assert (hosting-setup yes))
  55. )
  56.  
  57. (defrule launch-website
  58.    (hosting-setup yes)
  59. =>
  60.    (printout t "Сайт запущен." crlf)
  61.    (assert (website-launched yes))
  62. )
  63.  
  64. (exit)
  65. ; empty line at the end
Success #stdin #stdout 0.01s 5284KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/tECa7g
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!