Вывод нескольких переменных

@Nefilim14 · Регистрация: 17.04.2014

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

Всем привет. сделан код

Haskell

nero :: ( [Char] , Integer ) -> ( [Char], Integer ) -> ( [Char], Integer ) -> [Char]
nero (a1, b1) (a2, b2) (a3, b3) = if  ((b1 `mod` 5) /= 0) then a1
                                      else if  ((b2 `mod` 5) /= 0) then a2 else 
                                            if  ((b3 `mod` 5) /= 0) then a3 else  "N\a"

Как нужно изменить программу чтобы программа выводила несколько переменных удовлетворяющих условию? Спасибо

@soon · 16.06.2014, 20:09

Это имеете в виду?

Haskell

1
2
3

Prelude> let nero = map fst . filter (\(a, b) -> b `mod` 5 /= 0)
Prelude> nero [("first", 4), ("second", 5), ("third", 6)]
["first","third"]

@Catstail · 16.06.2014, 20:19

Боюсь, что только изменив интерфейс... т.е. изменив тип возвращаемого значения на [[Char]]. Тогда если условиям удовлетворяет одна переменная - функция вернет список из одного элемента. Иначе - список из нескольких.

@Nefilim14 · 16.06.2014, 20:27 **[ТС]**

Haskell

1	nero :: ( [Char] , Integer ) -> ( [Char], Integer ) -> ( [Char], Integer ) -> [[Char]]

так? а как дальше? если например условие if ((b1 `mod` 5) /= 0) && ((b2 `mod` 5) /= 0) then как тут вывести несколько элементов? и правильно ли условие?

Добавлено через 1 минуту
объясните пожалуйста все функции вашего кода

@Catstail · 16.06.2014, 20:32

Я имел в виду что-то вроде:

Haskell

nero :: ( String , Integer ) -> ( String, Integer ) -> ( String, Integer ) -> [String] 
nero (s1,i1) (s2,i2) (s3,i3) | (i1 > 5) && (i2 > 5) && (i3 > 5) = [s1,s2,s3]
                                    | (i1 > 5) && (i2 > 5) = [s1,s2]
                                    | (i1 > 5) = [s1]
                                    | otherwise = []

@Nefilim14 · 16.06.2014, 20:45 **[ТС]**

Haskell

nero :: ( String , Integer ) -> ( String, Integer ) -> ( String, Integer ) -> [String] 
nero (s1,i1) (s2,i2) (s3,i3) | (i1 > 5) && (i2 > 5) && (i3 > 5) = [s1,s2,s3]
                                    | (i1 > 5) && (i2 > 5) = [s1,s2]
                                    | (i1 > 5) = [s1]
                                    | otherwise = []

что за палочки и что означает otherwise

@Catstail · 16.06.2014, 21:06

"Палочки" задают т.н. охранные условия. Смысл: если *** и *** и *** то значение функции = тому-то
Otherwise - означает "иначе".

@Nefilim14 · 16.06.2014, 21:14 **[ТС]**

я дополнил код до всех условий, но почему то не все варианты работают, что именно у меня в коде не так?

Haskell

nero :: ( String , Integer ) -> ( String, Integer ) -> ( String, Integer ) -> [String] 
nero (s1,i1) (s2,i2) (s3,i3) | ((i1 `mod` 5) /= 0) && ((i2 `mod` 5) /= 0) && ((i3 `mod` 5) /= 0) = [s1,s2,s3]
                                    | ((i1 `mod` 5) /= 0) && ((i2 `mod` 5) /= 0) = [s1,s2]
                                    | ((i1 `mod` 5) /= 0) = [s1]
                                    | ((i2 `mod` 5) /= 0) = [s2]
                                    | ((i3 `mod` 5) /= 0) = [s3]
                                    | ((i1 `mod` 5) /= 0) && ((i3 `mod` 5) /= 0) = [s1,s3]
                                    | ((i2 `mod` 5) /= 0) && ((i3 `mod` 5) /= 0) = [s2,s3]
                                    | otherwise = ["N\a"]

@Araneo · 16.06.2014, 21:44

Haskell

--Ваше решение, но теперь все варианты работают. 
nero :: ( String , Integer ) -> ( String, Integer ) -> ( String, Integer ) -> [String] 
nero (s1,i1) (s2,i2) (s3,i3)
    | i1 `mod` 5 /= 0 && i2 `mod` 5 /= 0 && i3 `mod` 5 /= 0 = [s1,s2,s3]
    | i1 `mod` 5 /= 0 && i2 `mod` 5 /= 0                    = [s1,s2]
    | i1 `mod` 5 /= 0 && i3 `mod` 5 /= 0                    = [s1,s3]
    | i2 `mod` 5 /= 0 && i3 `mod` 5 /= 0                    = [s2,s3]
    | i1 `mod` 5 /= 0                                       = [s1]
    | i2 `mod` 5 /= 0                                       = [s2]
    | i3 `mod` 5 /= 0                                       = [s3]
    | otherwise                                             = ["N\\a"]
-- Чуть чуть модифицированое ваше решение
nero :: ( String , Integer ) -> ( String, Integer ) -> ( String, Integer ) -> [String] 
nero (s1,i1) (s2,i2) (s3,i3)
    | condition [i1,i2,i3] = [s1,s2,s3]
    | condition [i1,i2]    = [s1,s2]
    | condition [i1,i3]    = [s1,s3]
    | condition [i2,i3]    = [s2,s3]
    | condition [i1]       = [s1]
    | condition [i2]       = [s2]
    | condition [i3]       = [s3]
    | otherwise            = ["N\\a"]
    where
        condition = all (\x -> x`mod`5 /= 0)
-- Моё решение.
nero :: ( String , Integer ) -> ( String, Integer ) -> ( String, Integer ) -> [String] 
nero x y z = let r = case [x,y,z] of { x -> map fst $ filter (\x -> snd x `mod` 5 /= 0) x }
             in if r = [] then ["N\\a"] else r

@Catstail · 16.06.2014, 21:57

Я бы сделал так (несколько более громоздко - зато понятнее):

Haskell

nero :: ( String , Integer ) -> ( String, Integer ) -> ( String, Integer ) -> [String] 
nero (s1,i1) (s2,i2) (s3,i3) | ((i1 `mod` 5) == 0) &&  ((i2 `mod` 5) == 0) && ((i3 `mod` 5) == 0)  = ["N\a"]
                                    | ((i1 `mod` 5) == 0) &&  ((i2 `mod` 5) == 0) && ((i3 `mod` 5) /= 0) = [s3]
                                    | ((i1 `mod` 5) == 0) &&  ((i2 `mod` 5) /= 0) && ((i3 `mod` 5) == 0) = [s2]
                                    | ((i1 `mod` 5) == 0) &&  ((i2 `mod` 5) /= 0) && ((i3 `mod` 5) /= 0) = [s2,s3]
                                    | ((i1 `mod` 5) /= 0) &&  ((i2 `mod` 5) == 0) && ((i3 `mod` 5) == 0) = [s1]
                                    | ((i1 `mod` 5) /= 0) &&  ((i2 `mod` 5) == 0) && ((i3 `mod` 5) /= 0) = [s1,s3]
                                    | ((i1 `mod` 5) /= 0) &&  ((i2 `mod` 5) /= 0) && ((i3 `mod` 5) == 0) = [s1,s2]
                                    | ((i1 `mod` 5) /= 0) &&  ((i2 `mod` 5) /= 0) && ((i3 `mod` 5) /= 0) = [s1,s2,s3]

@Araneo · 17.06.2014, 00:15

Заглянул в соседнюю тему... в общем переписал своё решение чуть короче.

Haskell

1
2
3

nero :: ( String , Integer ) -> ( String, Integer ) -> ( String, Integer ) -> [String]
nero x y z = case [fst a | a <- [x,y,z], snd a `mod` 5 /= 0] of
    [] -> ["N\\a"]; x -> x

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,644 Записей в блоге: 13
	16.06.2014, 20:19	3
	Боюсь, что только изменив интерфейс... т.е. изменив тип возвращаемого значения на [[Char]]. Тогда если условиям удовлетворяет одна переменная - функция вернет список из одного элемента. Иначе - список из нескольких. 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,644 Записей в блоге: 13
	16.06.2014, 21:06	7
	"Палочки" задают т.н. охранные условия. Смысл: если * и * и *** то значение функции = тому-то Otherwise - означает "иначе". 0