Lisp

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Lisp Работа с файлами данных https://www.cyberforum.ru/ lisp/ thread1284783.html Используя заданный текст, сформировать из него новый, в котором будут удалены лишние пробелы и длина любой строки не должна превышать заданного числа символов. Считывать исходный текст из файла данных и записывать вновь сформированный текст как выходной файл данных	Lisp Пожалуйста, помогите упорядочить по возрастанию элементы каждой строки матрицы обработать на ЭВМ матрицу. Вывести на печать результаты в исходную матрицу в общепринятом виде. Имя матрицы: V(15,10). Действия: Упорядочить по возрастанию элементы каждой строки матрицы
Lisp Помогите поменять местами два элемента массива, имеющие максимальное и минимальное значения https://www.cyberforum.ru/ lisp/ thread1284771.html написать программу, меняющую местами два элемента массива, имеющего максимальное и минимальное значения	Lisp В правильной четырехугольной пирамиде провести сечение через диагональ основания и середину бокового ребра https://www.cyberforum.ru/ lisp/ thread1284769.html написать функцию, которая в правильной четырехугольной пирамиде проводит сечение, проходящее через диагональ основания и середину бокового ребра
Найдите сумму чисел Lisp найдите сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2,4 и 8	Lisp Рекурсия Помогите пожалуйста с заданием: Связать базу данных (потомок, родители) с глобальной переменной FAMILY: (setf family '((colin nil nil) (deirdre nil nil) (arthur nil nil) (kate nil nil) (frank nil nil) https://www.cyberforum.ru/ lisp/ thread1284254.html
Lisp Сравнение элементов списка с числами Как сравнить элементы списка с определенным числом? Вот например мне нужна функция, которая будет проверять голову списка на равенство нулю. Я писал так- (defun func (x) (cond ((<> (car x) 0) nil) ((= (car x) 0) t))) не работает. Что не так? https://www.cyberforum.ru/ lisp/ thread1282948.html	Список, исключающий повторения Lisp Формировать список, являющийся объединением двух исходных списков, за исключением элементов, встречающихся в обоих списках рекурсивно и итерационно для рекурсии можно использовать можно только car, cdr, cons пытался сделать вот что вышло (defun name( list1 list2) (cond (( null list1) nil) ( null list2) nil) ((= (car list1) (car list2)) ) (t (cons(((car list1) ) ...
Lisp Функ. CONS https://www.cyberforum.ru/ lisp/ thread1282735.html Задание 3 Построить список, соответствующий номеру варианта, используя только числовые атомы и функцию CONS. Изобразить структуру полученного списка при помощи списочных ячеек и стрелок. Вот мой Задание 4. (((1 2) 3) 4 (5)) Пользовался notepad++ синтаксисы lisp:	Lisp Количество атомов на каждом уровне вложенности https://www.cyberforum.ru/ lisp/ thread1282551.html Здравствуйте! Собственно, задача состоит в том, чтобы сформировать список следующего вида: ((lvl1 cnt1) (lvl2 cnt2 ... (lvln cntn))), где lvli и cnti - уровень вложенности и кол-во атомов на нем. Вот моя попытка решения: (defun atomsCount (L) (labels ((iter (L newL curLvL cnt ans) (if (null L) (if (null newL) ans (iter newL () (+ curLvL 1) 0 (append...
Lisp Описать функцию, выполняющую обработку Здравствуйте! Помогите пожалуйста сделать задание в Lisp. Есть список, содержащий атомы и списки, если элементом является список, то он содержит символьный атом и номера позиций на которых должен размещаться символьный атом в результирующем списке. К примеру: ((a 1 3 6) c (d 2 5)) представить в виде (a d a c d a).	Lisp Язык Factor - конкатенативный Lisp Можно ли считать язык Factor конкатенативным лиспоподобным языком? Допустим, если я хочу на нем что-то разработать, вопросы можно постить в эту ветку? Хочу повторить этот подвиг. https://www.cyberforum.ru/ lisp/ thread1281512.html

Catstail

Модератор

Эксперт функциональных языков программирования

36606 / 20334 / 4221

Регистрация: 12.02.2012

Сообщений: 33,651

Записей в блоге: 13

28.10.2014, 12:08

Напишите функцию (f N ), которая выдает список всех последовательностей (списков) - Lisp - Ответ 6778457

28.10.2014, 12:08. Показов 1464. Ответов 9

Метки (Все метки)

Ответ

Lisp

(defun task (n)
  (let ((b (^ 3 n)) (e (- (^ 3 (+ n 1)) 1)) (res nil))
    (dolist (i (range b e) res)
       (let ((l (conv i)))
         (if (chk l) (push l res) nil)))))
 
==> task
 
(task 5)
 
==> ((2 1 2 1 2 1) (2 1 2 1 2 0) (2 1 2 1 0 2) (2 1 2 1 0 1) (2 1 2 0 2 1) (2 1 2 0 2 0) (2 1 2 0 1 2) (2 1 2 0 1 0) (2 1 0 2 1 2) (2 1 0 2 1 0) (2 1 0 2 0 2) (2 1 0 2 0 1) (2 1 0 1 2 1) (2 1 0 1 2 0) (2 1 0 1 0 2) (2 1 0 1 0 1) (2 0 2 1 2 1) (2 0 2 1 2 0) (2 0 2 1 0 2) (2 0 2 1 0 1) (2 0 2 0 2 1) (2 0 2 0 2 0) (2 0 2 0 1 2) (2 0 2 0 1 0) (2 0 1 2 1 2) (2 0 1 2 1 0) (2 0 1 2 0 2) (2 0 1 2 0 1) (2 0 1 0 2 1) (2 0 1 0 2 0) (2 0 1 0 1 2) (2 0 1 0 1 0) (1 2 1 2 1 2) (1 2 1 2 1 0) (1 2 1 2 0 2) (1 2 1 2 0 1) (1 2 1 0 2 1) (1 2 1 0 2 0) (1 2 1 0 1 2) (1 2 1 0 1 0) (1 2 0 2 1 2) (1 2 0 2 1 0) (1 2 0 2 0 2) (1 2 0 2 0 1) (1 2 0 1 2 1) (1 2 0 1 2 0) (1 2 0 1 0 2) (1 2 0 1 0 1) (1 0 2 1 2 1) (1 0 2 1 2 0) (1 0 2 1 0 2) (1 0 2 1 0 1) (1 0 2 0 2 1) (1 0 2 0 2 0) (1 0 2 0 1 2) (1 0 2 0 1 0) (1 0 1 2 1 2) (1 0 1 2 1 0) (1 0 1 2 0 2) (1 0 1 2 0 1) (1 0 1 0 2 1) (1 0 1 0 2 0) (1 0 1 0 1 2) (1 0 1 0 1 0))

Вернуться к обсуждению:
Напишите функцию (f N ), которая выдает список всех последовательностей (списков) Lisp

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

28.10.2014, 12:08

Готовые ответы и решения:

Напишите функцию (f X Y), которая возвращает список Z - "пересечение" списков X г: Y, т.е. список, содержащий их общие
Здравствуйте , из-за моих плохих занний lisp возникла проблема с задачей, буду благодарен если...

Определить функцию, зависящую от списков u и v, которая вычисляет список всех элементов
Здравствуйте всем. Задали задание, выполнил, все работает нормально, но нужно с использованием...

Clojure Определить функцию , которая выдает список всех элементов списка (V) встречающихся в нем более одного раза
Помогите решить такую задачку : Определить функцию (f V) , которая выдает список всех элементов...

напишите функцию, которая спрашивает у пользователя ФИО студента из группы (список группы составлен раньше) и выдает следующие данные о нем: год рожде
Помогите пожалуйста тошо вообще не пойму как делать напишите функцию, которая спрашивает у...

	28.10.2014, 12:08

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

28.10.2014, 12:08

Помогаю со студенческими работами здесь

Напишите функцию remove_duplicates, которая берет список и возвращает новый список без повторов
Напишите функцию remove_duplicates, которая берет список и возвращает новый список, в котором...

Описать функцию, которая, чередуя элементы списков, образует новый список
Описать функцию, которая, чередуя элементы списков: (a b c … ) и (1 2 3 …), образует новый список...

Опишите неименованные функцию, которая: объединяет остальные элементы трех списков в один список.
1) Опишите неименованные функцию, которая: объединяет остальные элементы трех списков в один...

Запишите, пожалуйста, функцию, которая позволяет объединить главы трех списков в один список:
Запишите, пожалуйста, функцию, которая позволяет объединить главы трех списков в один список: (T Y...

Наверх