Дан список целых чисел. Найти наибольшее количество чисел идущих подряд

@_sg · Регистрация: 12.05.2012

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

Дан массив целых чисел. Найти наибольшее количество чисел идущих подряд

Кликните здесь для просмотра всего текста

Lisp

(defun max23 (w
              &optional (m 1) (ac 1)
              &aux (a (car w)) (d (cdr w)) (z (1+ m)))
  (cond ((null d) (if w ac 0))
        ((= (1+ a) (car d)) (max23 d z (if (> z ac) z ac)))
        ((max23 d 1 ac))))
 
> (max23 '(1 4 5))
2
> (max23 '(5))
1
> (max23 '())
0

@Catstail · 25.12.2018, 19:54

Lisp

(defun mark (lst &optional (c 1) (s nil))
  (cond ((null (cdr lst)) (+ 1 (apply 'max s))) 
        ((= 1 (- (cadr lst) (car lst))) (mark (cdr lst) (+ c 1) (cons c s)))
        (t (mark (cdr lst) 1 (cons 0 s)))))

@_sg · 25.12.2018, 19:59 **[ТС]**

@_sg 4699 / 4394 / 380 Регистрация: 12.05.2012 Сообщений: 3,096
	25.12.2018, 19:59 [ТС]	3
	1

Опции темы

Дан список целых чисел. Найти наибольшее количество чисел идущих подряд

Решение