Разложение числа на сумму трех кубов - Lisp

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Разложение числа на сумму трех кубов»

textual
Листинг программы
  1. CL-USER 5 > (defun task (n)
  2.   (let ((m (truncate (expt n (/ 1.0 3.0))))
  3.         (res nil))
  4.     (dotimes (i m res)
  5.        (dotimes (j (- m i) t)
  6.           (dotimes (k (- m j) t)
  7.             (let ((ii (+ i 1))
  8.                   (jj (+ j i 1))
  9.                   (kk (+ k j 1)))
  10.             (when (= n (+ (expt ii 3) (expt jj 3) (expt kk 3))) (push (list ii jj kk) res))))))))
  11. TASK
  12.  
  13. CL-USER 6 > (task 216)
  14.  
  15. ((4 5 3) (3 5 4) (3 4 5))

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.143 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы