Задается словарь, найти в нем все анаграммы

@Mihailo1997 · Регистрация: 08.12.2021

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

Всем привет, попалась в интернет источнике интересная задачка, сколько не пытался не могу найти решение, может у кого нибудь получится, буду благодарен.
Суть задачки
Задается словарь. Найти в нем все анаграммы (слова, составленные из одних и тех же букв).
Слово-список.
Словарь-набор списков.
Реализовать на языке common lisp.
Спасибо заранее кто откликнется!

@Catstail · 08.12.2021, 22:08

Lisp

(defun check-pair (w1 w2)
  (cond ((and (null w1) (null w2)) t)
           ((/= (length w1) (length w2)) nil)
           (t (let ((ww1 (remove (car w1) (cdr w1)))
                    (ww2 (remove (car w1) w2)))
            (check-pair ww1 ww2)))))
  
(defun scan (w dict)
  (cond ((null dict) nil)
        ((check-pair w (car dict)) (cons (list w (car dict)) (scan w (cdr dict))))
        (t (scan w (cdr dict)))))        
 
(defun task (dict)
  (if (null dict) nil (append (scan (car dict) (cdr dict)) (task (cdr dict)))))
 
(task '((a s d) (n b a) (y u i) (d s a) (b a n)))
==> (((A S D) (D S A)) ((N B A) (B A N)))

@chessman2 · 09.12.2021, 07:15

Сообщение от Mihailo1997

Задается словарь.

Да, задачка интересная. Но где взять словарь? Объем словаря?

@Mihailo1997 0 / 0 / 0 Регистрация: 08.12.2021 Сообщений: 3
		1
	Common Lisp Задается словарь, найти в нем все анаграммы 08.12.2021, 21:17. Показов 480. Ответов 2 Метки common lisp, lisp, логика (Все метки) Всем привет, попалась в интернет источнике интересная задачка, сколько не пытался не могу найти решение, может у кого нибудь получится, буду благодарен. Суть задачки Задается словарь. Найти в нем все анаграммы (слова, составленные из одних и тех же букв). Слово-список. Словарь-набор списков. Реализовать на языке common lisp. Спасибо заранее кто откликнется! 0

@chessman2 155 / 135 / 9 Регистрация: 21.10.2012 Сообщений: 413
	09.12.2021, 07:15	3
	Сообщение от Mihailo1997 Задается словарь. Да, задачка интересная. Но где взять словарь? Объем словаря? 0