Подсчитать количество пустых списков в заданном списке - Haskell

@tatsianaK · Регистрация: 15.10.2015

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

Здравствуйте! Помогите, пожалуйста, очень срочно нужно решить задачу.

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

@Catstail · 15.10.2015, 10:57

Для двухуровневой структуры :

Haskell

1
2
3

task :: [[a]] -> Integer
task [] = 0
task (x:xs) = (task xs) + if null x then 1 else 0

а для многоуровневой структуры (в Haskell) - к белому медведю!

@tatsianaK · 15.10.2015, 11:05 **[ТС]**

Спасибо огромное! Может бы Вы можете эту же задачу на Scheme написать?

@Curry · 15.10.2015, 11:14

Сообщение от Catstail

а для многоуровневой структуры (в Haskell) - к белому медведю!

Haskell

data PolarBear a = P a | B [PolarBear a]
 
task :: PolarBear a -> Int
task (P _ ) = 0
task (B []) = 1
task (B b)  = sum $ map task b
 
main :: IO () 
main = print $ task $ B [ P 1, B [], B [ P 2, B [ P 3, B [], B []]]]

@Catstail · 15.10.2015, 11:23

KolodeznyDiver, но это не список...

Добавлено через 1 минуту

Сообщение от tatsianaK

Может бы Вы можете эту же задачу на Scheme написать?

- задавайте вопрос в теме "Лисп"

@Curry · 15.10.2015, 11:35

Не по теме:

Сообщение от Catstail

KolodeznyDiver, но это не список...

Я отвечал на Ваше "а для многоуровневой структуры (в Haskell) - к белому медведю!" ;)

@Catstail · 15.10.2015, 11:41

KolodeznyDiver, а кроме того, нельзя пользоваться встроенными функциями...

Haskell

data PolarBear a = P a | B [PolarBear a]
 
task :: [PolarBear a] -> Int
task []           = 0
task ((P _):ps)   = task ps 
task ((B p):ps) | null p = 1 + task ps 
                | otherwise = task ps  +  (task p)  
 
Main> task $ [B [ P 1, B [], B [ P 2, B [ P 3, B [], B []]]]]
3

@Curry · 15.10.2015, 11:49

Сообщение от Catstail

а кроме того, нельзя пользоваться встроенными функциями

Функции sum, map, null - стандартные, но не встроенные.

@tatsianaK · 19.10.2015, 12:11 **[ТС]**

Сообщение от Catstail

Для двухуровневой структуры :
Код Haskell
1
2
3
4
task :: [[a]] -> Integer
task [] = 0
task (x:xs) = (task xs) + if null x then 1 else 0

Подскажите, пожалуйста, какой компилятор Вы используете? у меня ругается..

@Catstail · 19.10.2015, 12:19

Сообщение от tatsianaK

у меня ругается..

- что выдает?

Я использую WinGHCi

@tatsianaK 0 / 0 / 0 Регистрация: 15.10.2015 Сообщений: 10
		1
	Подсчитать количество пустых списков в заданном списке - Haskell 15.10.2015, 10:27. Показов 541. Ответов 9 Метки нет (Все метки) Здравствуйте! Помогите, пожалуйста, очень срочно нужно решить задачу. Подсчитать количество пустых списков в заданном списке. При этом использование встроенных функций не допускается, считается, что списки имеют многоуровневую структуру. 0

@tatsianaK 0 / 0 / 0 Регистрация: 15.10.2015 Сообщений: 10
	15.10.2015, 11:05 [ТС]	3
	Спасибо огромное! Может бы Вы можете эту же задачу на Scheme написать? 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,641 Записей в блоге: 13
	15.10.2015, 11:23	5
	KolodeznyDiver, но это не список... Добавлено через 1 минуту Сообщение от tatsianaK Может бы Вы можете эту же задачу на Scheme написать? - задавайте вопрос в теме "Лисп" 1

@Curry
	15.10.2015, 11:35 #6
	Не по теме: Сообщение от Catstail KolodeznyDiver, но это не список... Я отвечал на Ваше "а для многоуровневой структуры (в Haskell) - к белому медведю!" ;) 0

@Curry Модератор 5047 / 3276 / 526 Регистрация: 01.06.2013 Сообщений: 6,806 Записей в блоге: 9
	15.10.2015, 11:49	8
	Сообщение от Catstail а кроме того, нельзя пользоваться встроенными функциями Функции sum, map, null - стандартные, но не встроенные. 1

@tatsianaK 0 / 0 / 0 Регистрация: 15.10.2015 Сообщений: 10
	19.10.2015, 12:11 [ТС]	9
	Сообщение от Catstail Для двухуровневой структуры : Код Haskell 1 2 3 4 task :: [[a]] -> Integer task [] = 0 task (x:xs) = (task xs) + if null x then 1 else 0 Подскажите, пожалуйста, какой компилятор Вы используете? у меня ругается.. 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,641 Записей в блоге: 13
	19.10.2015, 12:19	10
	Сообщение от tatsianaK у меня ругается.. - что выдает? Я использую WinGHCi Миниатюры 0