> 1 <
| Автор | Сообщение |
Apcu
1 сообщений |
#7788 2017-10-08 18:22 GMT+3 часа(ов) |
|
15. Написать программу, которая в каждом слове исходного текста меняет порядок букв на обратный и порядок слов на обратный.
(("Было" "у" "бабуси" "два" "весёлых" "гуся" ".") ("Один" "белый" "," "другой" "серый" "-" "два" "весёлых" "гуся" ".")) & (("." "гуся" "весёлых" "два" "бабуси" "у" "Было") ("." "гуся" "весёлых" "два" "-" "серый" "другой" "," "белый" "Один")) |
|
_sg
42 сообщений |
#7789 2017-10-24 16:13 GMT+3 часа(ов) |
|
(defun revv (w)
(mapcar #'(lambda (a) (mapcar #'reverse (reverse a))) w)) > (revv '(("ab" "cd") ("ef" "gh"))) (("dc" "ba") ("hg" "fe")) |
|
_sg
42 сообщений |
#7790 2017-10-24 16:16 GMT+3 часа(ов) |
|
(defun revv (w)
(loop for a in w collect (mapcar #'reverse (reverse a)))) > (revv '(("ab" "cd" ".") ("ef" "gh" "."))) (("." "dc" "ba") ("." "hg" "fe")) |
|
_sg
42 сообщений |
#7791 2017-10-24 16:19 GMT+3 часа(ов) |
|
(defun revv (w)
(loop for a in w collect (loop for e in (reverse a) collect (reverse e)))) > (revv '(("ab" "cd" ".") ("ef" "gh" "."))) (("." "dc" "ba") ("." "hg" "fe")) |
|
_sg
42 сообщений |
#7792 2017-10-24 16:22 GMT+3 часа(ов) |
|
(defun revv (w &optional ac)
(cond ((null w) ac) ((revv (cdr w) (cons (reverse (car w)) ac))))) > (revv '(("ab" "cd" ".") ("ef" "gh" "."))) (("." "gh" "ef") ("." "cd" "ab")) |
|
_sg
42 сообщений |
#7793 2017-10-24 16:23 GMT+3 часа(ов) |
|
(defun revv (w &optional ac)
(if w (revv (cdr w) (cons (reverse (car w)) ac)) ac)) > (revv '(("ab" "cd" ".") ("ef" "gh" "."))) (("." "gh" "ef") ("." "cd" "ab")) |
|
> 1 <