bash.im ithappens.me zadolba.li
3187

Если вдуматься, ноль нам совсем не нужен

Я студент, на полставки работаю на кафедре начертательной геометрии. По заданию начальника разрабатываем систему автоматического тестирования на AutoLISP. Вкратце: скрипт вычерчивает условие нужной задачи, после чего студент решает её с помощью урезанных до минимума инструментов Автокада и жмёт кнопку «Проверить». Программа смотрит, где и что начерчено, и даёт за каждый элемент баллы, которые потом суммируются в оценку.

Однажды к нам приехали гости из Казахстана, которых всё это дело очень заинтересовало. Начальник сопровождает их к моему компьютеру (больше никого, как назло, рядом не было) и просит показать полностью действующую задачу. Беру одну случайную. Решаю двумя вариантами — гости в восторге. Меня просят показать код. Версия финальная, «некрасивые» комменты удалены, ничего беды не предвещает.

(SETQ
PROEB NIL
PROEBAL NIL
PROEBAN NIL
PROEBEM NIL
...

Ну и как объяснить хихикающим казахам и багровому от стыда начальнику, что функция проверки начинается с обнуления баллов за линии проекционной связи для точки B и связанных с ней отрезков AL, AN, EM?

Вам смешно, а меня премии лишили.