> 1 <

Автор Сообщение

Apcu

Members


Статус

1 сообщений

Где: Russia
Род занятий:
Возраст:

#7788   2017-10-08 18:22 GMT+3 часа(ов)      
15. Написать программу, которая в каждом слове исходного текста меняет порядок букв на обратный и порядок слов на обратный.

(("Было" "у" "бабуси" "два" "весёлых" "гуся" ".") ("Один" "белый" "," "другой" "серый" "-" "два" "весёлых" "гуся" "."))

&񗤂 (("." "гуся" "весёлых" "два" "бабуси" "у" "Было") ("." "гуся" "весёлых" "два" "-" "серый" "другой" "," "белый" "Один"))

_sg

Members


Статус

37 сообщений

Где: Russia
Род занятий:
Возраст:

#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

Members


Статус

37 сообщений

Где: Russia
Род занятий:
Возраст:

#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

Members


Статус

37 сообщений

Где: Russia
Род занятий:
Возраст:

#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

Members


Статус

37 сообщений

Где: Russia
Род занятий:
Возраст:

#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

Members


Статус

37 сообщений

Где: Russia
Род занятий:
Возраст:

#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 <


Онлайн :

0 пользователь(ей), 44 гость(ей) :




Реклама на сайте: