Вычисление суммы кубов чисел от 25 до 125 - Lisp

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

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

Не так давно начал изучать lisp.Помогите пожалуйста с написанием программы.Составьте программу вычисления суммы кубов чисел от 25 до 125.Если такое возможно,то с комментариями пожалуйста
Вообщем,я тут нашел...Похожий вопрос уже задавали
(defun sum-qube (n1 n2)
  (iter (for i from n1 to n2) (summing (* i i i))))
Но при вводе (sum-qube 25 55) выдает: EVFUN: Не найдена функция ITER (пишу в homelisp)

Решение задачи: «Вычисление суммы кубов чисел от 25 до 125»

textual
Листинг программы
(defun sum-cube (n m)
  (loop for a from n to m sum (expt a 3)))
 
> (sum-cube 25 125)
61925625
> (sum-cube 2 4)
99

Объяснение кода листинга программы

В коде определена функция sum-cube, которая принимает два аргумента - n и m. Функция использует цикл loop, который выполняет следующие действия:

  1. Итерируется по числам от n до m (включительно).
  2. Для каждого числа a вычисляется куб числа a с помощью оператора expt a 3.
  3. Полученное значение куба числа a прибавляется к сумме.
  4. После завершения цикла возвращается полученная сумма. При вызове функции sum-cube с аргументами 25 и 125 будет вычислена сумма кубов чисел от 25 до 125. При вызове функции sum-cube с аргументами 2 и 4 будет вычислена сумма кубов чисел от 2 до 4, что равно 99.

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


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

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

10   голосов , оценка 4.2 из 5
Похожие ответы