Bash.org.ru IT Happens Истории ## 3101 – 3200

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

13:00 24.05.2010, IT happens

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

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

(SETQ

PROEB NIL

PROEBAL NIL

PROEBAN NIL

PROEBEM NIL

...

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

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