Определите возведение в целую степень (^ x n) через умножение и деление

@Triglav86 · Регистрация: 13.06.2019

Есть код, вроде правильный, но не могу сообразить как его запустить
Помогите пожалуйста

Lisp

(defun ^ (x n)
  (if (zerop n) 1
   (if (minusp n)
    (/ 1 (^ x (- n)))
    (* x (^ x (1- n))))))

@Catstail · 09.12.2021, 18:58

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

Есть код, вроде правильный

- сам писал?

А как запустить - зависит от системы, в которой ты работаешь

@Triglav86 · 09.12.2021, 19:22 **[ТС]**

Сам нашёл

Запускаю в xlisp

@Catstail · 10.12.2021, 06:17

Triglav86, да, это трудная задача (а говорят, что молодежь "умная и во всем быстро разбирается"

)

@chessman2 · 10.12.2021, 14:58

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

как его запустить

Сохраните свой код в файле к примеру pow.lisp

Lisp

(defun ^ (x n)
  (if (zerop n) 1
   (if (minusp n)
    (/ 1 (^ x (- n)))
    (* x (^ x (1- n))))))
 
(print (^ 2 16))

Запуск из консоли

sbcl --script pow.lisp

выхлоп: 65536

@Catstail Модератор 36609 / 20336 / 4222 Регистрация: 12.02.2012 Сообщений: 33,660 Записей в блоге: 13
	09.12.2021, 18:58	2
	Сообщение от Triglav86 Есть код, вроде правильный - сам писал? А как запустить - зависит от системы, в которой ты работаешь 0

@Triglav86 2 / 2 / 0 Регистрация: 13.06.2019 Сообщений: 66
	09.12.2021, 19:22 [ТС]	3
	Сам нашёл Запускаю в xlisp 0

@Catstail Модератор 36609 / 20336 / 4222 Регистрация: 12.02.2012 Сообщений: 33,660 Записей в блоге: 13
	10.12.2021, 06:17	4
	Сообщение было отмечено Triglav86 как решение Решение Triglav86, да, это трудная задача (а говорят, что молодежь "умная и во всем быстро разбирается" ) Миниатюры 1

	10.12.2021, 14:58

Решение