सूची

Question

से किसी विशिष्ट निर्माता के पहले अवसर को लाने का बेवकूफ तरीका क्या नीचे दिए गए नमूने में स्पष्ट रिकर्सन के बिना किसी सूची में किसी निर्माता की पहली घटना को खोजने का कोई अच्छा तरीका है?

data Elem = A Int | B Char deriving Show 

getA :: [Elem] -> Maybe Elem 
getA [] = Nothing 
getA (e:es) = 
    case e of 
     A a -> Just (A a) 
     _ -> getA es 

Answer 1

सीधे शब्दों में

import Data.Maybe (listToMaybe) 
getA xs = listToMaybe [e | e@(A _) <- xs] 

परिशिष्ट: और भी बेहतर, भविष्य-रहित एक खाली रिकॉर्ड पद्धति का उपयोग कर (प्रशंसा Hammar):

getA xs = listToMaybe [e | e@(A{}) <- xs] 

नोट तथापि, कि यह केवल इसलिए बड़े करीने से बाहर काम करता है रचनाकारों से मेल खाने के लिए। सामान्य गुणों के लिए, find अच्छे है:

get prop xs = listToMaybe [e | e <- xs, prop e] 
get prop xs = listToMaybe (filter prop xs) 
get prop xs = find prop xs 

Answer 2

आप पा इस्तेमाल कर सकते हैं:

data Elem = A Int | B Char deriving Show 
getA elements = find (\x->case x of (A _) -> True; _ -> False) elements 

Answer 3

आप Data.List.find उपयोग कर सकते हैं।

getA = find isA 
    where isA (A {}) = True 
     isA _ = False