Цель состоит в том, чтобы создать код, который будет вычислять сумму всех целых чисел от a до b, и если a > b, то он должен равняться 0.
(define (sum-from-to a b)
(if (> a b)
0
(+ a (sum-from-to (- a 1) b))))
Моя проблема в том, что когда я запускаю это, у меня заканчивается память. Что не так с моим кодом?
Рекурсивный шаг неверен. Предполагая, что a <= b исправление так же просто, как это:
(define (sum-from-to a b)
(if (> a b)
0
(+ a (sum-from-to (+ a 1) b)))) ; add 1, don't subtract
Подумайте об этом, мы хотим, чтобы a приближался к b на каждом шагу, пока не перепрыгнул через него. Если мы уменьшим a, то оно удалится от b, что является полной противоположностью тому, что мы хотим. Вот почему вашей процедуре не хватает памяти, a так и не достигла b.
Что ж, вот один ответ, который дал бы математик: сумма всех целых чисел от a до b равна половине суммы целых чисел от a до b плюс сумма всех целых чисел от b до a. А это a + b + a + 1 + b - 1 + ... + b + a, то есть a + b + a + b + ... + a + b. А это в свою очередь (a + b) * (b - a + 1). Таким образом, окончательная сумма равна (a + b) * (a - b + 1) / 2. Так что просто напишите это на Лиспе с дополнительным условием, указанным для b < a:
(define (sum-a-b a b)
(if (> a b)
0
(/ (* (+ a b) (+ (- b a) 1)) 2)))
Конечно, то, что, вероятно, ищут, является либо рекурсивным, либо итеративным ответом. Любой из них является ужасным решением проблемы: рекурсивный ответ ужасен как по временной, так и по пространственной сложности, а итеративный просто ужасен с точки зрения временной сложности.
Людям, преподающим Лисп, следует прекратить активно пытаться учить людей плохо программировать.
{1, 2, 3}, гдеa = 1иb = 3. Подумайте о том, что производит(- a 1). - person assefamaru schedule 23.02.2019