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

11.05.2011, 20:03. **Показов** 2202. **Ответов** 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.

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

Blooddrunk-11

	функционалы в mulisp 11.05.2011, 20:03. Показов 2202. Ответов 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