Zerg’s Site

Вот так начался мой день в 8 утра сдал одну лабу по GPSS и две по Prolog(отдельное спасибо Жене Селивёрстову)

Welcome to SWI-Prolog (Multi-threaded, Version 5.6.45)
Copyright (c) 1990-2007 University of Amsterdam.
SWI-Prolog comes with ABSOLUTELY NO WARRANTY. This is free software,
and you are welcome to redistribute it under certain conditions.
Please visit http://www.swi-prolog.org for details.

For help, use ?- help(Topic). or ?- apropos(Word).

?- consult(’r.pl’).

Warning: (/home/rk6/Desktop/r.pl:71):
Singleton variables: [Dhigh]
Warning: (/home/rk6/Desktop/r.pl:74):
Singleton variables: [Dlow]
Warning: (/home/rk6/Desktop/r.pl:91):
Clauses of active/6 are not together in the source-file
Warning: (/home/rk6/Desktop/r.pl:95):
Singleton variables: [Dlow]
Warning: (/home/rk6/Desktop/r.pl:102):
Singleton variables: [Dlow]
Warning: (/home/rk6/Desktop/r.pl:105):
Singleton variables: [Npr]
Warning: (/home/rk6/Desktop/r.pl:115):
Singleton variables: [ClutchSize, LobeSize, CodeClutch, CodeLobe, CodeBear, Npr]
% r.pl compiled 0.00 sec, 0 bytes

Yes
?- count(flat_rough,100,40,ClutchSize,LobeSize,CodeClutch,CodeLobe,CodeBear,LST,Npr,N,Result).

LST = [ (flat_rough, 100, 40, ‘45_30′, ‘30_18′, ‘2.451.01′, ‘2.913.05′, ‘2.910.01′, …, …), (flat_rough, 100, 40, ‘60_45′, ‘45_22′, ‘2.451.02′, ‘2.913.06′, …, …), (flat_rough, 100, 40, ‘60_45′, ‘45_22′, ‘3.451.01′, …, …)],
N = 3,
Result = [[[’3.217.10′, 3]], 3]

Yes
?-

Мне 23.

В связи с тяжелыми моральными травмами, полученными в процессе общения с новыми ассистентами бренд-менеджеров, был вынужден покинуть помещение, выкурить 4 сигареты и дать в бубен случайному прохожему, дабы избежать потери компанией ценных(?) сотрудников. Моральные травмы были вызваннны осознанием невозможности обучения данных сотрудников прочитать предложение из 82 русских букв и повторить его вслух. Объяснение, что при появлении надписи “Ошибка ¹ххх, Сообщите системному администратору” и кнопки “ОК” НЕ НАДО сначала нажимать кнопку “ОК”, а потом звонить и говорить “У меня ничего не работает”, на вопрос что именно, отвечать что “ВСЁ!”, на вопрос что конкретно отвечать “программа”, на вопрос какая “незнаю” и на вопрос какая ошибка отвечать “не помню”, выявило что не только лица с тяжёлой формой идиотии и имбецилизма являются необучаемыми.
Этот факт серьезно подорвал мою веру в человечество, как разумный вид, что само по себе является нарушением моих прав, т.к. согласно Конституции я имею право исповедывать любые религиозные доктрины, прямо не противоречащие Конституции и Уголовному Кодексу.
Предлагаю в дальнейшем при приёме на работу сотрудников руководствоваться следующими критериями. Либо умная, либо 5 размер. В случае невозмож