하스켈에서 주어진 카드 갑판에서 가져올 수있는 것보다 5 카드 손의 모든 조합을 반환하는 함수를 작성하는 방법

Question

프로그래밍에 익숙하지 않아서 생각할 수없는 문제가 있습니다. 아웃. 내가 유형이 있습니다

newtype Hand = Hand { unHand :: [Card] } deriving (Eq, Show) 
type Deck = [Card] 

내가 그것을 주어진 갑판에서 취할 수 5 개 카드의 가능한 모든 조합을 반환 allHands하도록 함수를 작성하고자합니다. combs :: Int -> [a] -> [[a]]

allHands :: Deck -> [Hand] 
allHands deck = combs 5 deck 

는리스트에서 n 개의 요소를 고려하여 형성 될 수있는 모든 가능한 조합을 리턴 I 만든 함수이다.

내 함수 (combs 5 deck)의 결과가 [[Card]]이고 내 값이 [Hand]이되기를 원하기 때문에 내 기능이 작동하지 않습니다. 아무도 이것으로 나를 도울 수 있습니까?

Answer 1

거의 가지고 있습니다. 그것을하지 않는 방법 Data.List를 사용

이

import Data.List (permutations) 

allHands = map Hand . map (take 5) . permutations 

Answer 2

allHands = filter ((5==).length) . subsequences