с последующим их суммированием. Обычная
| (defun ряд_цел (M N) (cond ((> M N) Nil) (T(cons M (ряд_цел (1+ M) N))))) (defun сумма (X) (cond ((= X 0) 0) (T (+ (car X)( сумма (cdr X))))) ) |
| Пример 9.1. Построение ряда целых от M до N с последующим их суммированием. Обычная формула: |
| Закрыть окно |
