Рекурсивная функция.Вхождение в список

@Дарья03 · Регистрация: 06.03.2019

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

Помогите не могу решить задачу:
Для решения задачи определить рекурсивные функции .
Вывести номер последнего вхождения в список натуральных чисел четного элемента. При отсутствии четных элементов вывести -1.

@Curry · 06.03.2019, 13:29

Haskell

lastEvenIx ::  Integral a => [a] -> Int
lastEvenIx = go (-1) 0
    where go r _ [] = r
          go r i (x:xs) = go (if even x then i else r) (i+1) xs

@Catstail · 06.03.2019, 14:19

Или так:

Haskell

task :: [Integer] -> Integer
task z = if (null w) then (-1) else head w 
     where w=delEven z                
           delEven [] = []
           delEven (x:xs) | even x = (delEven xs) ++ [x]
                          | otherwise = (delEven xs)

@Дарья03 0 / 0 / 0 Регистрация: 06.03.2019 Сообщений: 2
		1
	Рекурсивная функция.Вхождение в список 06.03.2019, 13:17. Показов 1229. Ответов 2 Метки нет (Все метки) Помогите не могу решить задачу: Для решения задачи определить рекурсивные функции . Вывести номер последнего вхождения в список натуральных чисел четного элемента. При отсутствии четных элементов вывести -1. 0

	06.03.2019, 14:19

Опции темы