Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lisp
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lisp Как реализовать метод резолюций для логики предикатов первого порядка http://www.cyberforum.ru/lisp/thread891750.html
Добрый день! помогите пожалуйста выполнить задание на Лиспе. Написать программу, реализующую метод резолюций для логики предикатов первого порядка, позволяющий строить доказательство возможности...
Lisp Как сделать такую фигуру? Из полилинии, а потом выдавливании?
http://www.cyberforum.ru/lisp/thread876324.html
Lisp производная
В качестве параметра создаваемая Вами функция получает функцию действительного переменного, запрограммированную при помощи лишь сложения и умножения. Посчитать ее производную. Алгебраические...
Lisp Списки и функции Списки и функции http://www.cyberforum.ru/lisp/thread890221.html
Lisp Экспертная система тождественных преобразований рациональных ф-ий http://www.cyberforum.ru/lisp/thread889960.html
Написать на алгоритмическом языке ЛИСП программу, реализующую экспертную систему тождественных преобразований рациональных функций от двух переменных. Создать не менее 14 правил, позволяющих, по...
Lisp Создание примитива "паз"
Всем добрый день! Помогите, пожалуйста, нужно с помощью функций лиспа нарисовать данный примитив: с помощью каких команд можно построить данный примитив?
Является ли третье число результатом возведения в степень первого числа с показателем, равным второму Lisp
Написать функцию, которая для трех аргументов-чисел проверяет, является ли третье число результатом возведения в степень первого числа с показателем, равным второму числу. Выручите плиз! Заранее...
Lisp Функция, лисп Пусть x – числовой список, n и m – целые числа (n<m). Определить функцию высшего порядка (udalen f n m x), выдающую список x без элементов, связанных некоторым условием с интервалом . Функция f... http://www.cyberforum.ru/lisp/thread889162.html
Lisp Наибольшая общая подстрока http://www.cyberforum.ru/lisp/thread887850.html
Из ветки Рефал другого форума: Найти самую длинную подстроку двух строк, (f "ababab" "bababa") > "ababa".
Lisp определить, является ли матрица симметричной определить, является ли матрица симметричной http://www.cyberforum.ru/lisp/thread887636.html
Catstail
Модератор
24382 / 12324 / 2237
Регистрация: 12.02.2012
Сообщений: 20,017
05.06.2013, 19:48 0

Обратный порядок цифр в атоме. Рекурсия

05.06.2013, 19:48. Просмотров 660. Ответов 3
Метки (Все метки)

Ответ

Номе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
;; Преобразование списка
 
(defun f1 (lst)
  (let ((lstn (reverse (remove-if-not #'numberp lst))))
       (mapcar #'(lambda (x) (if (numberp x) (pop lstn) x)) lst))) 
         
 
==> f1
 
(f1 '(1 2 a s 3 4 c v 5))
 
==> (5 4 a s 3 2 c v 1)
 
;; Решение задачи
 
(defun task (lst)
  (mapcar #'(lambda (x) (if (atom x) (implode (f1 (explode x))) (task x))) lst))
 
==> task
 
(task '(a53r2 (bh78w3 h34-y71)))
 
==> (a23r5 (bh38w7 h17-y43))
Добавлено через 6 секунд
Номе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
;; Преобразование списка
 
(defun f1 (lst)
  (let ((lstn (reverse (remove-if-not #'numberp lst))))
       (mapcar #'(lambda (x) (if (numberp x) (pop lstn) x)) lst))) 
         
 
==> f1
 
(f1 '(1 2 a s 3 4 c v 5))
 
==> (5 4 a s 3 2 c v 1)
 
;; Решение задачи
 
(defun task (lst)
  (mapcar #'(lambda (x) (if (atom x) (implode (f1 (explode x))) (task x))) lst))
 
==> task
 
(task '(a53r2 (bh78w3 h34-y71)))
 
==> (a23r5 (bh38w7 h17-y43))


Вернуться к обсуждению:
Обратный порядок цифр в атоме. Рекурсия
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.06.2013, 19:48

Обратный порядок цифр числа
В вводе имеем положительное число меньше чем 32768. Нужно, чтобы на выводе было число с обратным...

Обратный порядок цифр в числе
После ввода числа (in) не выводится выходное число (out). Код: #include &lt;iostream&gt; #define...

Поменять порядок цифр числа n на обратный
Вести число n.Поменять порядок цифр числа n на обратный.То есть число 12345 перевести в 54321. ...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru