Найти представление первого числа списка суммой последовательных элементов этого списка - Lisp

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

Дается последовательность целых чисел L= (M, A1, A2,…, AN). Найти ~~подстроки~~

подсписки

(если они есть) L1= (Ai, Ai+1,…,Ai+k ), i+ k <= N , i>=1 для которых M=Ai + Ai+1 + …+ Ai+k . Помогите решить на Lisp

Решение задачи: «Найти представление первого числа списка суммой последовательных элементов этого списка»

textual
                            Листинг программы 
                        

                            (defun chk-pos (m lst)
  (let ((r nil) (s 0))
   (dolist (a lst nil)
    (setq s (+ s a))
    (push a r)
    (cond ((> s m) (return nil))
          ((= s m) (return (reverse r)))))))
      
==> CHK-POS
 
(defun task (lst)
  (remove nil (maplist (lambda (x) (chk-pos (car lst) x)) (cdr lst))))
 
==> TASK
 
(task '(15 1 2 3 4 5 5 5 10 5))
 
==> ((1 2 3 4 5) (5 5 5) (5 10) (10 5))
                        

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

14 голосов , оценка 3.929 из 5

Похожие ответы