|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
строю, ломаю Регистрация: 03.04.2008
Украина
Сообщений: 5,515
|
Ну все просто: берешь шашлык на шампуре и три шампура сверху, снимаешь мяско и нанизываешь на первый шампур, снимаешь помидорчик, нанизываешь на второй шампур. и так пока есть что снимать. потом помидорчики нанизываешь на третий шампур, потом мяско, в конце концом отдаешь третий шампур генацвале...
|
|||
|
||||
Регистрация: 21.04.2011
Сообщений: 135
|
Добрый день. Подыму тему.
Помогите пожалуйста, есть список (1 2 2 2 3 4 5 6 6 7 8 9 15 20 21 21 21 21 23 24 n) нужно получить два списка: 1. ((2 3)(6 2)(21 4)) где вторые числа подсписка количество первых в исходном списке 2. ((10 11 12 13 14)(16 17 18 19)(22)(25 26 .... n-2 n-1)) недостающие числа в исходном списке Последний раз редактировалось WST, 16.07.2021 в 13:34. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
Тупо в лоб:
Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
Две последние строчки как раз и возвращают просимое: одна - один список, вторая - второй. ПРисваивай своим переменным и вперед ))
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 21.04.2011
Сообщений: 135
|
Цитата:
(setq lst1(vl-remove-if-not (function (lambda (x) (= (cdr x) 1))) res) lst2(vl-remove-if (function (lambda (x) (= (cdr x) 1))) res) ) Command: !lst (1 2 2 2 3 4 5 6 6 7 8 9 15 20 21 21 21 21 23 24) Command: (reverse lst1) ((1 . 1) (3 . 1) (4 . 1) (5 . 1) (7 . 1) (8 . 1) (9 . 1) (15 . 1) (20 . 1) (23 . 1) (24 . 1)) Command: (reverse lst2) ((2 . 3) (6 . 2) (21 . 4)) |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
Ну и ?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
(mapcar (function car) (vl-sort (vl-remove-if (function (lambda (x) (= (cdr x) 1))) res) (function <))
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 21.04.2011
Сообщений: 135
|
Цитата:
((24 . 1) (23 . 1) (21 . 4) (20 . 1) (15 . 1) (9 . 1) (8 . 1) (7 . 1) (6 . 2) (5 . 1) (4 . 1) (3 . 1) (2 . 3) (1 . 1)) Command: (mapcar (function car) (vl-sort (vl-remove-if (function (lambda (x) (= (cdr x) 1))) res) (function <)) (_> ) bad argument type: VLA-OBJECT nil Command: (mapcar (function car) (vl-sort (vl-remove-if (function (lambda (x) (= (cdr x) 1))) res) (function <))) bad argument type: VLA-OBJECT nil скобки не хватает может я не там ее поставил? Command: (vl-remove-if (function (lambda (x) (= (cdr x) 1))) res) ((21 . 4) (6 . 2) (2 . 3)) Command: (vl-sort (vl-remove-if (function (lambda (x) (= (cdr x) 1))) res) (function <)) bad argument type: VLA-OBJECT nil что то не так |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
только для целых чисел
Код:
|
||||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Lisp показывает ошибку Плохо сформированный список на входе | BBLainer | LISP | 20 | 27.04.2010 18:40 |
Lisp, помогите с алгоритмом "подтягивания" поллиний | 2123 | LISP | 1 | 03.02.2010 23:58 |
Lisp: Список элементов в слоях | ALFMario | LISP | 4 | 29.04.2008 17:26 |
Помощь по Лире | Серега М | Лира / Лира-САПР | 52 | 28.05.2007 02:47 |
Помогите отладить lisp программу | Мишаня | LISP | 7 | 31.07.2006 12:54 |