Определить максимальное количество идущих подряд атомов

@nika-violet · Регистрация: 10.09.2016

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

пытаюсь написать программу, которая для списка определяет максимальное количество идущих подряд атомов.

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
(define (max a b) (cond ((> a b) a b)))
 
(define (one-elem-list l) (and (list? l) (and (not (null? l)) (null? (cdr l)))))
 
(define (f l)
    (define (go a b l)
        (cond ((null? l) (max a b)
              (one-elem-list (car l)) (go a (+ 1 b) (cdr l))
              (go (max a b) 0 (cdr l)))))
    (go 0 0 l))
 
(display (f '(1 1 1)))
(display (f '(1 (1) (1) 1 (1) ((1 1 1)) (1) (1) (1 1) (1) (1) 1 (1))))

в http://ideone.com/gMrzjU говорит что успешно, но результат неизвестен((( подскажите как его увидеть, где я не права?

@Catstail · 08.10.2016, 18:10

В stderr у тебя выводится нечто неопределенное. Вот рабочий код:

Lisp
1
2
3
4
5
6
7
8
(define (task lst)
  (define (count x c m)
     (cond ((null? x) (if (> c m) c m))
           ((list? (car x)) (if (> c m) (count (cdr x) 0 c) (count (cdr x) 0 m)))
           (#t (count (cdr x) (+ c 1) m))))
  (count lst 0 0))
  
  (display (task '(1 2 (1) (2) (3) 4 5 6)))

http://ideone.com/uotGn9

@nika-violet · 08.10.2016, 19:29 **[ТС]**

как я понимаю если задать (display (task '(1 2 3))), вроде должно быть 1? или я не до конца понимаю, а показывает 3.

@korvin_ · 08.10.2016, 20:05

Сообщение от nika-violet

где я не права?

В cond.

Сообщение от nika-violet

подскажите как его увидеть

Прочитать документацию по языку. В частности описание синтаксиса и семантики cond.

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@nika-violet 0 / 0 / 0 Регистрация: 10.09.2016 Сообщений: 24
	08.10.2016, 19:29 [ТС]
	как я понимаю если задать (display (task '(1 2 3))), вроде должно быть 1? или я не до конца понимаю, а показывает 3. 0