Реализовать алгоритм Маркова

@sodda · Регистрация: 28.07.2018

A= {a,b} //где алфавит - a, б;

Преобразование типа

ab -> ba //все подстроки ab заменить на подстроки ba, пока в слове не останется подстрок ab

слово для изменения abaabbab

@zeroalef · 23.10.2019, 13:46

Это шутка?

Lisp

1	(string-replace "abaabbab" "ab" "ba")

@Catstail · 23.10.2019, 14:21

zeroalef, точнее (HomeLisp):

Lisp

(defun ma (s)
  (if (zerop (strInd s "ab")) s (ma (strRep s "ab" "ba"))))
 
==> MA
 
(ma "abaabbab")
==> "bbbbaaaa"

@sodda · 23.10.2019, 14:50 **[ТС]**

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

(string-replace "abaabbab" "ab" "ba")

Это так не работает, потому что преобразования нужно проводит, пока не останется подстрок "ab"

@zeroalef · 23.10.2019, 15:07

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

потому что преобразования нужно проводит, пока не останется подстрок "ab"

Значит не точная постановка задачи. Линк на "алгоритм Маркова" тоже не мешало бы прилепить для ясности

Lisp

(define (foo s old new)
  (let loop ((s s) (s2 (string-replace s old new)))
    (if (string-contains? s old)
        (loop s2 (string-replace s2 old new))
        s)))

@sodda · 23.10.2019, 15:14 **[ТС]**

zeroalef, у меня указано

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

пока в слове не останется подстрок ab

Catstail всё понял и сделал правильно.

zeroalef, давай чуть сложнее ab -> ba; a -> b

@zeroalef · 23.10.2019, 15:18

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

Catstail всё понял и сделал правильно.

Очевидно он знает о чем идет речь. Я же -- нет. Где-то в закромах памяти может и помню что это относится к грамматикам, но настолько смутно, что даже не поверхностно.

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

давай чуть сложнее ab -> ba; a -> b

Не понимаю вас. Вы об этом?

Lisp

1	(foo (foo "abaabbab" "ab" "ba") "a" "b")

@sodda · 23.10.2019, 15:20 **[ТС]**

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

(foo (foo "abaabbab" "ab" "ba") "a" "b")

да, только в рамках одной функции)

@zeroalef · 23.10.2019, 15:41

Lisp

(define (foo s . expression-patterns)
  (if (null? expression-patterns)
      s
      (let-values (((old new) (apply values (car expression-patterns))))
        (let loop ((s s) (s2 (string-replace s old new)))
          (if (string-contains? s old)
              (loop s2 (string-replace s2 old new))
              (apply foo s2 (rest expression-patterns)))))))
 
(foo "abaabbab" '("ab" "ba") '("a" "b") '("bb" "ab"))
;"abababab"

@sodda · 23.10.2019, 15:50 **[ТС]**

zeroalef,

@sodda Нарушитель 151 / 146 / 9 Регистрация: 28.07.2018 Сообщений: 840
		1
	Реализовать алгоритм Маркова 23.10.2019, 12:37. Просмотров 1098. Ответов 9 Метки нет (Все метки) A= {a,b} //где алфавит - a, б; Преобразование типа ab -> ba //все подстроки ab заменить на подстроки ba, пока в слове не останется подстрок ab слово для изменения abaabbab 0

@sodda Нарушитель 151 / 146 / 9 Регистрация: 28.07.2018 Сообщений: 840
	23.10.2019, 14:50 [ТС]	4
	Сообщение от zeroalef (string-replace "abaabbab" "ab" "ba") Это так не работает, потому что преобразования нужно проводит, пока не останется подстрок "ab" 0

@sodda Нарушитель 151 / 146 / 9 Регистрация: 28.07.2018 Сообщений: 840
	23.10.2019, 15:14 [ТС]	6
	zeroalef, у меня указано Сообщение от sodda пока в слове не останется подстрок ab Catstail всё понял и сделал правильно. zeroalef, давай чуть сложнее ab -> ba; a -> b 0

@sodda Нарушитель 151 / 146 / 9 Регистрация: 28.07.2018 Сообщений: 840
	23.10.2019, 15:20 [ТС]	8
	Сообщение от zeroalef (foo (foo "abaabbab" "ab" "ba") "a" "b") да, только в рамках одной функции) 0

@sodda Нарушитель 151 / 146 / 9 Регистрация: 28.07.2018 Сообщений: 840
	23.10.2019, 15:50 [ТС]	10
	zeroalef, 0

Опции темы

Реализовать алгоритм Маркова

Решение