Форум программистов, компьютерный форум, киберфорум
Наши страницы
AutoLISP
Войти
Регистрация
Восстановить пароль
Другие темы раздела
AutoLISP Построить 2 фигуры http://www.cyberforum.ru/autolisp/thread1605939.html
Здравствуйте, помогите построить 2 фигуры(отдельно) через AutoLisp. Первая - фигура в виде чашки, ввторая - в виде гриба, особых параметров или указаний нет, спасибо большое.
AutoLISP AutoLisp Программирование с использованием двумерных списков Собственно, предыстория. Выбирая профессию для учебы, сильно лоханулся и начиная со второго курса мало что понимаю. Прошу помочь, возможно кому-то это легко. Помогите сдать сессию:cry: В данной... http://www.cyberforum.ru/autolisp/thread1603856.html
AutoLisp относительные координаты AutoLISP
Всем привет! Есть команда (command "pline" A "@10<45" "@10<0" "@-10<45" "") Она отлично работает при использовании константных значений в записи координат. Подскажите, каким образом возможно...
AutoLISP Отрисовка поверхности трохоиды (AutoLISP, 3dmesh)
Помогите разработать программу отрисовки поверхности с использованием команды “3dmesh”. Команда 3dmesh строит поверхность с помощью сетки (mesh): Command: 3dmesh M: число N: число Point(1,1):...
AutoLISP Обход двумерного массива на AutoLisp http://www.cyberforum.ru/autolisp/thread1589303.html
Преподаватель задал задачку. Необходимо совершить обход массива в соответствии с картинкой. Массив задается как список подсписков: каждая строка - подсписок. Буду очень благодарна, если натолкнете...
AutoLISP AutoLISP работа с файлом Здравствуйте! Необходимо реализовать вывод и ввод в файлы. Программа чертит заданную по условию фигуру и проверяет попадает ли точка в заштрихованную область. Пользователь может выбрать вводить ли... подробнее
vlisp
509 / 481 / 114
Регистрация: 10.08.2015
Сообщений: 1,715
Завершенные тесты: 1
08.01.2016, 19:27 0

AutoLisp, поменять порядок цифр числа

08.01.2016, 19:27. Просмотров 1072. Ответов 6
Метки (Все метки)

Ответ

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 explode ( num / lst)
  ;; Разбивает число на список его цифр
  ;; (explode 153) ==> (1 5 3)
  (while (> num 0)
    (setq lst   (cons (rem num 10) lst)
          num (/ num 10)))
  lst
)
 
(defun implode ( lst / num )
  ;; Восстанавливает число из списка его цифр
  ;; (implode '(1 5 3)) ==> 153
  (setq num 0
        len (1- (length lst)))
  (while lst
   (setq num (+ num (* (car lst) (expt 10 len) ))
         len (1-  len)
         lst (cdr lst)))
  num
)
 
(if (member 3 (setq num 153 lst (explode num)))
  (implode (reverse lst)))


Вернуться к обсуждению:
AutoLisp, поменять порядок цифр числа
3
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.01.2016, 19:27

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

Поменять порядок цифр заданного числа на обратный
I. Дано натуральное число n. Поменять порядок цифр числа n на обратный. Проанализировать...

Поменять порядок следования цифр целого числа
Описать функцию InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на...

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