Функция, считающая количество четных чисел в списке

@overlordwk · Регистрация: 20.01.2022

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

Здравствуйте! Помогите, пожалуйста, написать функцию, которая считает количество чётных чисел числового списка.

@Catstail · 20.01.2022, 18:05

Честное решение:

Lisp

(defun count-even (list)
  (if (null list) 0
      (+ (if (evenp (car list)) 1 0) (count-even (cdr list)))))
 
(count-even '(1 2 5 7 9 12 16))
==> 3

Не очень честное:

Lisp

(defun count-even (list)
  (count-if 'evenp list))
 
(count-even '(1 2 5 7 9 12 16))
==> 3

@Mishanka · 20.01.2022, 18:18

на каком языке программа? На Delphi примерно так будет выглядеть:

Pascal

var i, n: integer; Arr_nums: array[0..9] of integer;
begin
n:=0;
for i:=0 to High(Arr_nums) do
     if Arr[i] mod 2 = 0 then inc(n);
     //n - количество четных чисел, Length(Arr_nums)-n - количество нечетных чисел
end;

@overlordwk · 20.01.2022, 18:31 **[ТС]**

Спасибо большое!

@Catstail · 20.01.2022, 18:49

Mishanka, странный вопрос в разделе "Лисп".

@overlordwk 0 / 0 / 0 Регистрация: 20.01.2022 Сообщений: 10
		1
	Common Lisp Функция, считающая количество четных чисел в списке 20.01.2022, 17:32. Показов 1550. Ответов 4 Метки lisp, функция (Все метки) Здравствуйте! Помогите, пожалуйста, написать функцию, которая считает количество чётных чисел числового списка. 0

@overlordwk 0 / 0 / 0 Регистрация: 20.01.2022 Сообщений: 10
	20.01.2022, 18:31 [ТС]	4
	Спасибо большое! 0

@Catstail Модератор 36608 / 20335 / 4222 Регистрация: 12.02.2012 Сообщений: 33,660 Записей в блоге: 13
	20.01.2022, 18:49	5
	Mishanka, странный вопрос в разделе "Лисп". 0