Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 10.10.2012
Сообщений: 25

Создать список, в котором каждый из элементов исходного списка повторяется n раз

22.12.2013, 20:11. Показов 2494. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
22.12.2013, 20:11
Ответы с готовыми решениями:

На входе список и число N, создать новый список, в котором каждый элемент из исходного повторяется N раз
То есть function('(1 2 3 4), 2) -> '(11 22 33 44), помогите решить, заранее спасибо)

Для исходного сложного числового списка, построить список, состоящий из элементов исходного списка, отрицательные числа в котором заменены 0
Для исходного сложного числового списка, построить список, состоящий из элементов исходного списка, отрицательные числа в котором заменены...

Формировать список, в котором отсутствует каждый третий элемент исходного списка
Моя работает неправильно.Помогите найти ошибку.пользоваться можно только car cdr cons (defun third1 (n) ...

3
 Аватар для _sg
4710 / 4405 / 380
Регистрация: 12.05.2012
Сообщений: 3,102
22.12.2013, 21:52
Lisp
1
2
3
4
5
6
7
(defun n-elm (n w &optional (m n))
  (cond ((null w) nil)
        ((= m 1) (cons (car w) (n-elm n (cdr w) n)))
        (t (cons (car w) (n-elm n w (1- m))))))
 
> (n-elm 3 '(a b c))
(A A A B B B C C C)
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38203 / 21135 / 4310
Регистрация: 12.02.2012
Сообщений: 34,741
Записей в блоге: 14
22.12.2013, 22:30
Lisp
1
2
3
4
5
6
7
8
9
(defun mult (n lst &aux res)
  (dolist (i lst (reverse res))
    (dotimes (j n t) (push i res)))) 
 
==> mult
 
(mult 5 '(a b c d))
 
==> (a a a a a b b b b b c c c c c d d d d d)
0
defun
603 / 617 / 44
Регистрация: 30.04.2011
Сообщений: 702
23.12.2013, 13:07
Lisp
1
2
3
4
5
(defun f (l n)
           (mapcan
            #'(lambda (x)
                (make-list n :initial-element x))
            l))
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
23.12.2013, 13:07
Помогаю со студенческими работами здесь

Создать список, состоящий из положительных элементов исходного списка
Помогите пожалуйста. Разработать рекурсивную(-ные) функцию(ии) для работы со списками: создать список, состоящий из положительных...

Из массива A длины N получить массив B, в котором каждый элемент массива A повторяется K раз подряд
Из массива A длины N получить массив B, в котором каждый элемент массива A повторяется K раз подряд. Печатать массивы A и B.

Создать новый список из отличных друг от друга элементов исходного списка
Помогите, плиз. В чём может быть ошибка? domains n=integer* predicates zad1(n,n) remove(integer,n,n) clauses

Создать список, состоящий из элементов исходного списка, только тех, которые являются списком
Пишу код, но выскакивает ошибка "Stack overflow (deep)" (defun func-list(List) (cond ((atom (car List)) (func-list(cdr List)))...

Поместить в результирующий список каждый элемент исходного списка с заданной вероятностью
Помогите написать программу на Prolog: поместить в результирующий список каждый элемент исходного списка с заданной вероятностью. Буду...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru