Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lisp
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Death of Hell
-14 / 0 / 0
Регистрация: 13.11.2013
Сообщений: 27
1

Найти количество положительных элементов в списке через Dolist

18.06.2014, 15:07. Просмотров 548. Ответов 2
Метки нет (Все метки)

Найти количество положительных элементов в списке через Dolist.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.06.2014, 15:07
Ответы с готовыми решениями:

Количество положительных элементов в списке
Код должен считать количество положительных элементов в списке,не до конца понимаю зачем нам...

Найти через индекс количество отрицательных и количество положительных элементов массива
Нужно найти через индекс количество отрицательных и количество положительных элементов.

Подсчитать количество положительных элементов в списке
Помогите чуть - чуть , не проходите мимо. Как мне подсчитать количество положительных элементов в...

Подсчитать количество положительных и отрицательных элементов в списке
Динамические структуры данных. Списки Подсчитайте количество положительных и отрицательных...

В списке найти отдельно суммы отрицательных и положительных элементов.
в списке n найдите отдельно суммы отрицательных и положительных элементов. Не могу...

2
korvin_
2406 / 1883 / 341
Регистрация: 28.04.2012
Сообщений: 6,481
18.06.2014, 15:15 2
Цитата Сообщение от Death of Hell Посмотреть сообщение
Найти количество положительных элементов в списке через Dolist.
Lisp
1
2
3
4
5
6
7
8
9
(defun count-positives (xs)
  (let ((positives 0))
    (dolist (x xs)
      (when (plusp x)
        (incf positives)))
    positives))
 
(count-positives '(0 1 2 -3 4 -5))
; 3
3
Catstail
Модератор
24393 / 12332 / 2241
Регистрация: 12.02.2012
Сообщений: 20,036
18.06.2014, 15:43 3
Можно на 1 строку короче:

Lisp
1
2
3
4
5
(defun count-positives (xs)
  (let ((positives 0))
    (dolist (x xs positives)
      (when (plusp x)
        (incf positives))))
Добавлено через 2 минуты
Или даже на две:

Lisp
1
2
3
4
(defun count-positives (xs &aux (positives 0))
    (dolist (x xs positives)
      (when (plusp x)
        (incf positives))))
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.06.2014, 15:43

Заменить в списке все элементы, равные 0, на -1 и найти сумму положительных элементов списка
Ребята, помогите пожалуйста! Написать программу для замены в списке всех элементов, равных 0, на -1...

Найти наименьший элемент среди положительных и его индекс, посчитать количество положительных элементов
...

Найти количество строк, в которых количество отрицательных элементов больше, чем количество положительных.
Двумерные массивы. Задание 1. В каждом варианте дан двумерный массив A из N строк и М...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru