функционалы в mulisp

11.05.2011, 20:03. **Показов** 2206. **Ответов** 7

Студворк — интернет-сервис помощи студентам

Добрый день) помогите пожалуйста с решением задачи.

Дан текст. В каждом слове каждого предложения для повторяющихся литер произвести следующую замену : повторные вхождения литер удалить, к первому вхождению литеры приписать число вхождений литеры в слово. Пример :
‘((aaabb ccccddd)(eeefggg hhkl)) преобразуется в ‘((a3b2 c4d3)(e3fg3 h2kl))

@Catstail · 16.03.2013, 11:01

Вот решение для HomeLisp:

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
;; Преобразование атома
 
(defun press-atom (a)
  (let* ((lst (explode a)) (c nil) (p (car lst)) (k 1) (r nil))
       (dolist (c (cdr lst) t)
         (if (eq c p) 
           (setq k (+ k 1))   
           (if (> k 1) (progn 
                         (setq r (append r (list p k)))
                         (setq k 1))
                       (setq r (append r (list p)))))
         (setq p c))
         (if (> k 1) (setq r (append r (list p k)))
                     (setq r (append r (list p))))
       (implode r)))
 
==> press-atom
 
;; Проверка:
 
(press-atom 'assd)
 
==> as2d
 
(press-atom 'assdd)
 
==> as2d2
 
(press-atom 'assddd)
 
==> as2d3
 
;; Решение
 
(defun task (lst)
  (mapcar #'(lambda (x) (if (atom x) (press-atom x) (task x))) lst))
 
==> task
 
(task '((aaabb ccccddd)(eeefggg hhkl)))
 
==> ((a3b2 c4d3) (e3fg3 h2kL))

Для muLisp надо вместо explode вызывать unpack, а вместо implode - pack

@_sg · 16.03.2013, 11:53

как вариант Common Lisp:

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
(defun ss (w)
  (mapcar #'sw (mapcar #'string w)))
 
(defun sw (s)
 (map 'list #'string s))
 
(defun cn (w &optional (n 1) (acc ""))
  (cond ((null w) acc)
        ((equal (car w) (cadr w))
         (cn  (cdr w) (1+ n) acc))
        ((cn (cdr w) 1 (concatenate
                        'string acc
                        (car w)
                        (if (> n 1)
                            (write-to-string n)
                            ""))))))
 
(defun squeeze (w)
  (mapcar #'cn (ss w)))
 
(defun compress-words (w)
  (mapcar #'squeeze w))
 
> (compress-words '((aaabb ccccddd)(eeefggg hhkl)))
(("A3B2" "C4D3") ("E3FG3" "H2KL"))

и MuLisp (наугад):

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
(defun compress-words (w)
  (mapcar #'(lambda (x) (cn (unpack x) 1 "")) w))
 
(defun cn (w n ac)
  (cond ((null w) ac)
        ((equal (car w) (cadr w)) (cn  (cdr w) (1+ n) ac))
        ((cn (cdr w)
             1
             (pack (list ac (car w) (if (> n 1) n "")))))))
 
> (compress-words '((aaabb ccccddd)(eeefggg hhkl)))
((A3B2 C4D3) (E3FG3 H2KL))

@Catstail · 16.03.2013, 12:10

Боюсь, что в 5-й строке пропущена скобка...

Добавлено через 12 минут
Вот чисто рекурсивное уплотнение списка литер:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(defun press-list (lst &optional (k 0) (p (car lst)) (res nil))
  (cond ((null lst) (cond ((> k 1) (append res (list p k)))
                          (t (append res (list p)))))
        ((eq (car lst) p) (press-list (cdr lst) (+ k 1) p res))
        (t (cond ((> k 1) (press-list (cdr lst) 1 (car lst) (append res (list p k))))
                 (t (press-list (cdr lst) 1 (car lst) (append res (list p)))))))) 
 
 
==> press-list
 
(press-list '(a a a b c c s))
 
==> (a 3 b c 2 s)
 
(press-list '(a a a b c c s s))
 
==> (a 3 b c 2 s 2)

@_sg · 16.03.2013, 12:27

Common Lisp:

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
(defun ss (w)
  (mapcar #'sw (mapcar #'string w)))
 
(defun sw (s)
 (map 'list #'string s))
 
(defun cn (w &optional (n 1) (acc ""))
  (cond ((null w) acc)
        ((equal (car w) (cadr w)) (cn  (cdr w) (1+ n) acc))
        ((cn (cdr w) 1 (concatenate
                        'string acc (car w)
                        (if (> n 1) (write-to-string n) ""))))))
 
(defun squeeze (w)
  (mapcar #'cn (ss w)))
 
(defun str-sym (w)
  (mapcar #'(lambda (a) (read-from-string a)) w))
 
(defun compress-words (w)
  (mapcar #'str-sym (mapcar #'squeeze w)))
 
> (compress-words '((aaabb ccccddd)(eeefggg hhkl)))
((A3B2 C4D3) (E3FG3 H2KL))

@vovanus1991 · 02.04.2013, 23:07

Уважаемый _sg, не могли бы вы подробно описать свою последнюю запись: как можно подробнее, что делает каждая функция и т.д. У меня идентичное задание, а ваше решение подходит, но не могу разобраться в самом коде - что именно делае каждая из функций. Буду очень благодарен.

@_sg · 02.04.2013, 23:29

Вы можете попробовать вызвать отдельные функции со списком или подсписком:

Lisp
1
2
3
4
5
6
> (ss '(aaabb ccccddd))
(("A" "A" "A" "B" "B") ("C" "C" "C" "C" "D" "D" "D"))
> (cn '("A" "A" "A" "B" "B"))
"A3B2"
> (squeeze '(aaabb ccccddd))
("A3B2" "C4D3")

и записать, что они делают.

@vovanus1991 · 03.04.2013, 00:04

Спасибо, я в принципе так и делал)

Добавлено через 3 минуты
А вот у меня задание с использованием графического итерфейса. Сможете посмотреть:
Написать программу, которая создает два окна: окно меню и рабочее окно. Окно меню может быть расположено горизонтально или вертикально, сверху или, соответственно, справа экрана. Размеры экранов выбрать самостоятельно. Меню должно обеспечивать вызовы всех функций, реализованных в лабораторных работах 2 и 3. Ввода исходных данных и вывод результата осуществлять в рабочем окне.
Работаю в среде LispWorks.

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

Blooddrunk-11

	функционалы в mulisp 11.05.2011, 20:03. Показов 2206. Ответов 7 Метки нет (Все метки) Добрый день) помогите пожалуйста с решением задачи. Дан текст. В каждом слове каждого предложения для повторяющихся литер произвести следующую замену : повторные вхождения литер удалить, к первому вхождению литеры приписать число вхождений литеры в слово. Пример : ‘((aaabb ccccddd)(eeefggg hhkl)) преобразуется в ‘((a3b2 c4d3)(e3fg3 h2kl))

@vovanus1991 7 / 7 / 1 Регистрация: 07.12.2010 Сообщений: 53
	02.04.2013, 23:07
	Уважаемый _sg, не могли бы вы подробно описать свою последнюю запись: как можно подробнее, что делает каждая функция и т.д. У меня идентичное задание, а ваше решение подходит, но не могу разобраться в самом коде - что именно делае каждая из функций. Буду очень благодарен. 0

@vovanus1991 7 / 7 / 1 Регистрация: 07.12.2010 Сообщений: 53
	03.04.2013, 00:04
	Спасибо, я в принципе так и делал) Добавлено через 3 минуты А вот у меня задание с использованием графического итерфейса. Сможете посмотреть: Написать программу, которая создает два окна: окно меню и рабочее окно. Окно меню может быть расположено горизонтально или вертикально, сверху или, соответственно, справа экрана. Размеры экранов выбрать самостоятельно. Меню должно обеспечивать вызовы всех функций, реализованных в лабораторных работах 2 и 3. Ввода исходных данных и вывод результата осуществлять в рабочем окне. Работаю в среде LispWorks. 0