|
|
Другие темы раздела | |
Lisp Сжатие английских слов Всем привет! Не могу решить одну задачку. Заранее благодарен за помощь. Задача: Построить программу «сжатия», назначение которой - преобразование английских слов в их "звуковой" код. Этот процесс предусматривает "сжатие" примерно одинаково звучащих слов в одинаковый их код - своего рода, аббревиатуру этих слов. Слова "сжимаются" в соответствии со следующими правилами: первая буква слова... https://www.cyberforum.ru/ lisp/ thread763128.html |
Найти пересечение всех отрезков Lisp дан список вещественных чисел (a1 b1 a2 b2....an bn), ai<bi. Рассматривая ai и bi, как левые и правые концы отрезков на одной и той же прямой, определить функцию, выдающую концы отрезка, являющегося пересечением всех этих отрезков. если такого отрезка нет, то выдать nil. Коментарии к задачи: нужно написать функции для нахождения (min b), (max a) и функцию которая проверяет входят они в один... |
Lisp Lisp -> Erlang: Определять, является ли сумма элементов списка из целых чисел четным числом Помогите пожалуйста, очень надо перевести, а у самого никак не получается((( Очень надо Определять, является ли сумма элементов списка из целых чисел четным числом >(name ‘(1 2 3)) T >(name ‘(1 3 3)) NIL https://www.cyberforum.ru/ lisp/ thread763096.html |
Lisp структура. Исправить задание одной функции
https://www.cyberforum.ru/ lisp/ thread762935.html Заменить операторы функции show-ironian на простые (cond, car, if ,and). Очень срочно! (defstruct student name city str num apt age) (defun sp (n) (cond ((= n 0) nil) (t(cons (make-student :name (read) :city (read) :str (read) |
Lisp Определить структуру Задать структуру. Вывести студентов, живущих по одному адресу в разных городах. С помощью функций. (defstruct STUDENT surname city street home room age) (defun sp (n) (cond ((= n 0) nil) (t(cons (make-student :surname (read) :city (read) :street (read) :home (read) |
Lisp Поиск по последней букве имеется код который ищет количество слов, я хочу переделать его что бы искал слова по последней букве... Помогите (prog nil (try (dlgDestroy '_Dlg_) except Nil) (dlgCreate '_Dlg_ 314 160 "" &H8000000F) (dlgAddControl '_Dlg_ '_TXT_1 _TEXT 80 10 207 15 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005) (dlgAddControl '_Dlg_ '_TXT_2 _TEXT 80 35 207 15 '("Tahoma" 8 1 0 0)... https://www.cyberforum.ru/ lisp/ thread762538.html |
Lisp Структуры
https://www.cyberforum.ru/ lisp/ thread762455.html Помогите пожалуйста! Нужно написать через defstruct самыми простыми функциями (car, cdr, cond, cons, if, defun, list) и без блокировки. На плоскости задано N точек в декартовой системе координат. Выполнить перевод координат из декартовой системы в полярную. Напечатать координаты точки, наиболее удаленной от начала координат (в декартовой и полярной системах координат). |
Дописать рекурсию Lisp Помогите заменить функцию listp. Мы такой не проходили, а на что ее заменить не знаю=( CL-USER 25 : 3 > (defun all-left (x) (cond ((and (listp (car x)) (cdr x)) (all-left (car x))) ((cdr x) t) (t nil))) ALL-LEFT CL-USER 26 : 3 > (all-left '(((2 3) 5) 6 7)) |
Lisp Структуры На плоскости заданы координаты N точек. Проверить принадлежат ли они кругу заданного радиуса R. Найти расстояние от первой точки до последней. Нужно без усложнений. Заранее спасибо! https://www.cyberforum.ru/ lisp/ thread762162.html | Lisp Программа пишущая комментарии и код по комментариям (полезно всем новичкам) Здравствуйте. Думаю эта программа поможет всем. Закопавшись в литературе и обнаружив, что вобщем кодить стало не так просто как раньше, точнее осваивать тот или иной язык. Наэксперементировавшись над методами конспектирования обнаружил что вряд ли какой из них станет эффективным( и что всё таки способ тут за 5 минут или даже за месяц новый не изобретёшь-нужно конкретно рассматривать предмет... https://www.cyberforum.ru/ lisp/ thread762152.html |
Определить фамилию победителя соревнования и разницу между лучшим и худшим результатом Lisp Условие задачи: Известны результаты бега спортсменов на длинную дистанцию. Время представлено в минутах и секундах. Определить фамилию победителя соревнования и разницу между лучшим и худшим результатом. Функции которые можно использовать: append, apply, atom, car, cdr, cond, cons, defstruct, defun, eq, eval, format, funcall, if, let, list, mapcar, maplist, member, print, prog1, prog2,... |
Lisp реализация на основе стеков - SECD - машина
https://www.cyberforum.ru/ lisp/ thread761473.html Помогите составить таблицу состояния SECD-машины (LDC NIL LDC (Москва Вашингтон) CONS LDC (Россия США) CONS LDC США CONS LDF (LD (0 . 0) LD (0 . 1) CAR EQL SEL (LD (0 . 2) CAR JOIN) (LDC NIL JOIN) RTN) AP) |
0 / 0 / 0
Регистрация: 06.09.2011
Сообщений: 20
|
|
16.03.2013, 16:27 [ТС] | 0 |
Проверка правильности римских чисел - Lisp - Ответ 426390116.03.2013, 16:27. Показов 6720. Ответов 20
Метки (Все метки)
Ответ
Я пишу на Xlisp.
В Лиспе этот код не работоспособен. Почитал в Вики статью, посвященную римским цифрам и, думаю, логически задачу можно разделить на 3 этапа: 1. Проверить порядок расположения римских цифр (сначала должны быть тысячи, потом сотни, потом десятки, потом единицы, меньшая цифра может быть записана слева, но только один раз и эта цифра может быть только I,X,C,M) 2. I, X, C, M могут повторяться, но не более трех раз. 3. В случае невыполнения первых двух условий- запись числа римскими цифрами неправильна. Вернуться к обсуждению: Проверка правильности римских чисел Lisp
0
|
16.03.2013, 16:27 | |
Готовые ответы и решения:
20
Перевод списка арабских чисел в список соответствующих им римских чисел Проверка правильности записи числа римскими цифрами Проверка правильности ввода чисел Проверка правильности ввода в TextBox - диапазона чисел |
16.03.2013, 16:27 | |
16.03.2013, 16:27 | |
Помогаю со студенческими работами здесь
0
Проверка правильности ввода. Запретить ввод чисел Проверка правильности записи целых чисел (в обычном, шестнадцатеричном, экспоненциальном видах) Проверка правильности. проверка правильности бд |