Написать функцию, считывающую числа до тех пор, пока их сумма не станет больше некоторого заданного N

@rdevil23 · Регистрация: 05.12.2017

Author24 — интернет-сервис помощи студентам

Написать функцию, считывающую числа до тех пор, пока их сумма не станет больше некоторого заданного N (без использования рекурсии, в функции должен быть только один аргумент).
Желательно, чтобы в коде был "print" для онлайн редакторов лиспа)

@Catstail · 17.05.2021, 23:47

Lisp

(defun read-to-n (n)
  (let ((sum 0) (a 0))
    (loop (setq sum (+ sum (read))) 
          (when (> sum n) (return sum)))))
 
(read-to-n 123)
12
34
67
14
 
==> 127

Ах, здесь нет print... Тогда:

Lisp

(defun read-to-n (n)
  (let ((sum 0) (a 0))
    (loop (setq sum (+ sum (read))) 
          (print sum)
          (when (> sum n) (return sum)))))
 
(read-to-n 123)

Ввод:

12
34
56
78
910

Вывод:

12
46
102
180

@Catstail · 18.05.2021, 13:59

Еще раз:

Lisp

(defun read-to-n (n)
  (let ((sum 0) (a 0))
    (loop (setq sum (+ sum (read))) 
          (format t "sum=~D" sum)(terpri)
          (when (> sum n) (return sum))) (print 'OK)))
 
(read-to-n 123)

@_sg · 18.05.2021, 19:31

Lisp

(defun read-up-sum-n (n)
  (loop with a = 0 do (setf a (+ a (read)))
        (format t "~a~%" a) until (> a n)))
 
> (read-up-sum-n 200)
59
59
47
106
81
187
25
212
NIL

@rdevil23 0 / 0 / 0 Регистрация: 05.12.2017 Сообщений: 14
		1
	Написать функцию, считывающую числа до тех пор, пока их сумма не станет больше некоторого заданного N 17.05.2021, 17:20. Показов 1420. Ответов 3 Метки нет (Все метки) Написать функцию, считывающую числа до тех пор, пока их сумма не станет больше некоторого заданного N (без использования рекурсии, в функции должен быть только один аргумент). Желательно, чтобы в коде был "print" для онлайн редакторов лиспа) 0

	18.05.2021, 19:31

Написать функцию, считывающую числа до тех пор, пока их сумма не станет больше некоторого заданного N

Решение