С Новым годом! Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Lisp Подсчет атомов во всем списке https://www.cyberforum.ru/ lisp/ thread1670595.html
Добрый вечер, помогите пожалуйста решить задачу, кому не будет в тягость. Определить функцию, которая считает количество атомов во всем списке (с учетом подсписков).
Как вызвать функцию? Lisp
Подскажите пожалуйста, как вызвать функцию F для поиска минимального остовного дерева? https://www.cyberforum.ru/post6334776.html Ввожу: (F (1 a b)) выводит ошибку EVFUN: Не найдена функция 1 ==> ERRSTATE Добавлено через 8 минут
Lisp Прокомментировать код Добрый вечер, можете пожалуйста прокомментировать сей чудесный код (автор - Catstail) более подробно? ;; Проверить ребро (defun chk-vert (v s) (let ((a1 (car v)) (a2 (cadr v))) (not (forsome s (lambda (w) (and (member a1 w) (member a2 w))))))) ;; Добавление очередного ребра в "лес" https://www.cyberforum.ru/ lisp/ thread1669768.html Lisp Запишите последовательность вызовов CAR и CDR, выделяющие из приведенных списков символ "а" https://www.cyberforum.ru/ lisp/ thread1669641.html
Запишите последовательность вызовов CAR и CDR, выделяющие из приведенных списков символ "а" (1(2((3 4(5(6 a))))))
Lisp Подскажите, как преобразовать строку в список
Возник еще один вопрос: На вход функции поступает Список. Каким образом можно преобразовать строку вида: "((x (y L) L) (z L) L))" в список вида '((x (y L) L) (z L) L)) ? Данная строка или множество подобных строк будут считываться из входного файла. Функции (concatenate 'list str) и (coerce "abc" 'list) не дают искомого, возвращают список с элементами вида #\x Заранее благодарен.
Lisp Разбор лямбда-функции, описывающей часть логической схемы Здравствуйте, друзья! Очень прошу помочь в следующей задаче (\lambda-исчисление): - имеются константы следующего вида: - xL ;логическое НЕ - xLy ;логическое ИЛИ - x(yL)L ;логическое И - имеется булева функция: f (x,y,z) = x & y & z, т.е. два последовательных конъюнктора (первый с входами X, Y и второй с входами ВЫХОД ПЕРВОГО, Z (т.е. включены каскадом)). Эта же... https://www.cyberforum.ru/ lisp/ thread1669106.html
Lisp Определите значение выражения https://www.cyberforum.ru/ lisp/ thread1668793.html
Определите значение выражения ‘(+ 2 (* 3 5)) И есть ли какие нибудь уроки по LispWork? И какие еще бывают компиляторы на Lisp?
Lisp Алгоритм Прима
Алгоритм Прима отличается от алгоритма Краскала тем, что на каждом шаге добавляется не ребро, a вершина (такая, чтобы длина добавляемого ребра при этом была минимальной). Вот неоптимальная реализация: ;; Дать список "свободных" вершин (defun get-free-v (graph tree) (let ((full-v (apply 'append (mapcar 'butlast graph)))) (setof (remove-if (lambda (x) (member x tree)) full-v))))
Lisp Реализовать алгоритм Краскала Добрый день, друзьяшки. Помогите пожалуйста, кому не будет трудным :) Препод дал такое задание: Напишите две компьютерные программы (На С++ и на lisp (или на F#)), решающие следующую задачу: Связный граф задан списком ребер. Каждое ребро представляет собой тройку (вершина, вершина, длина). Граф неориентированный. Найти минимальное остовное дерево (в виде списка образующих его ребер). ... https://www.cyberforum.ru/ lisp/ thread1661142.html Lisp Как посмотреть lisp-код стандартных функций? https://www.cyberforum.ru/ lisp/ thread1658133.html
Нужен просмотр кода стандартных функций В связи с плохим знаниям английского языка, мне, иной раз, проще глянуть код функции на лиспе, чем читать её описание. В homelisp это сделать легко: (getd 'length) ==> (EXPR (x) (COND ((ATOM x) 0) (T (PLUS 1 (length (CDR x)))))) А, вот, как действовать для других реализаций Lisp`а я не знаю. Но, должно же быть что-то, хотелось бы.
Widest Roman Prime Lisp
Widest Roman Prime Обсуждение на Hacker News Добавлено через 55 секунд > (format nil "~:@r" 3989) "MMMDCCCCLXXXVIIII"
Lisp James Edwards: Making a Mini-Lisp: Introduction to Transpilers James Edwards: Making a Mini-Lisp: Introduction to Transpilers Constants, Tokenizer, Parser, Code Generator https://www.cyberforum.ru/ lisp/ thread1655526.html
29 / 41 / 10
Регистрация: 12.09.2012
Сообщений: 334
27.02.2016, 13:24  [ТС] 0

Почему так работает "_line" ? - Lisp - Ответ 8807722

27.02.2016, 13:24. Показов 1470. Ответов 10
Метки (Все метки)

Ответ

Все равно ничего. Проблема похоже не в этом, а в Enlast либо чем то еще.
Задача:
Нарисовать квадрат 100 x 100 , с сопряжением в углах R=5
Код:
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
(defun c:my_point ()
 
  (setq p1 (getpoint "\nВведите базовую точку:"))
                    ; Задаем координаты точки p1
  (setq p2 (polar p1 pi 100))       ; Задаем координаты точки p2
  (setq p3 (polar p2 (/ (- pi) 2) 100)) ; Задаем координаты точки p3
  (setq p4 (polar p3 0 100))        ; Задаем координаты точки p3
 
                    ; Запоминаем и обнуляем системные переменные osmode , blipmode , cmdecho
  (setq osm (getvar 'osmode))
  (setvar 'osmode 0)
  (setq blm (getvar 'blipmode))
  (setvar 'blipmode 0)
  (setq cme (getvar 'cmdecho))
  (setvar 'cmdecho 0)
 
  (command "_line" p1 p2 "")        ; рисуем линию 1
  (setq line1 (entlast))        ; Записываем имя объекта
  (command "_line" p3 p2 "")        ; рисуем линию 2
  (setq line2 (entlast))        ; Записываем имя объекта
 
 
 
  (command "_line" p4 p1 "")        ; рисуем линию 1
  (setq line3 (entlast))        ; Записываем имя объекта
  (setvar 'osmode 0)
  (command "_line" p4 p3 "")        ; рисуем линию 2
  (setq line4 (entlast))        ; Записываем имя объекта
  (setvar 'osmode 0)
 
  (setvar "FILLETRAD" 10)       ; устанавливаем системную переменную радиуса
 
  (command "_Fillet" line1 line2)   ; Сопряжение
  (setvar "FILLETRAD" 10)
  (command "_Fillet" line3 line4)   ; Сопряжение
  (setvar "FILLETRAD" 10)
  (command "_Fillet" line2 line3)   ; Сопряжение
  (setvar "FILLETRAD" 10)
  (command "_Fillet" line1 line4)   ; Сопряжение
 
                    ; Восстанавливаем системные переменные osmode , blipmode , cmdecho
  (setvar 'osmode osm)
  (setvar 'blipmode blm)
  (setvar 'cmdecho cme)
)
Результат:
Почему так работает "_line" ?


т.е. в двух углах сопряжение нормальное, в двух других происходит что то не то...

Вернуться к обсуждению:
Почему так работает "_line" ? Lisp
0
Заказать работу у эксперта
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
Блог
27.02.2016, 13:24
Готовые ответы и решения:

Объясните, пожалуйста, почему так происходит в первом варианте и почему второй вариант работает корректно?
Я сидел и изучал списки и операции над ними. И написал вот такой простенький код: ...

Почему так работает, а так нет?
так работает // Возведение b в степень s по модулю m float powmod(float b, long s) { ...

Aa, bb, cc = [map(int, line) for line in lines] - генератор не работает
Ребят всем здрасте! Хочу присвоить переменным ,через генератор, int значения, но с генераторами...

Глобальные и локальные переменные, одна и та же прога в процедуре Не работает, а просто так работает. Почему?
Здравствуйте, есть программка которая переводит из 2-ной системы в 10-ную. Она работает. А вот...

В С++ так не работает, объясните пожалуйста, почему в Pythone работает
Здравствуйте! Помогите пожалуйста новичку, объясните почему так! Помнится, когда то решал такую...

10
27.02.2016, 13:24
BasicMan
Эксперт
19315 / 2622 / 84
Регистрация: 17.02.2009
Сообщений: 10,364
Блог
27.02.2016, 13:24
Помогаю со студенческими работами здесь

Почему работает не так?
Есть код для активации программы <?php error_reporting(0); if (isset($_GET)) { $mode = $_GET;...

Почему так не работает?
Привет всем я делаю программу для построения блок схем из .cpp файла но у меня не правильно...

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

Почему так работает?
Связал данные с сайта и поставил таймер на проверку. Вот почему так работает? Когда на сайте в...

Почему так не работает?
Почему не срабатывает передача строки в функцию? $(document).ready(function(){ function...

почему это так работает
по заданию надо создать два одинаковых массива с случайными числами от 0 до 99 for (i = 0; i <...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru