ハスケル：テストであればリストの長さ<4

Question

私持ってStringがより短い4つの文字であればNothingを返し、次のHaskellの機能：

stringToMove :: String -> Maybe Move 
    stringToMove [] = Nothing 
    stringToMove [a] = Nothing 
    stringToMove [a, b] = Nothing 
    stringToMove [a, b, c] = Nothing 
    stringToMove (l1:n1:l2:n2:rest) = Just (stringToCoords l1 n1, stringToCoords l2 n2) 

私はlength stringでテストが、可能性としてこれまで私は、これを読んでStringが長ければ、すべてが評価されるからです。

各行にNothingを繰り返さなくても、これを書くための洗練された方法がありますか？

Answer 1

stringToMove :: String -> Maybe Move 
    stringToMove (l1:n1:l2:n2:rest) = Just (stringToCoords l1 n1, stringToCoords l2 n2) 
    stringToMove _ = Nothing 

Answer 2

私はちょうどあなたがこのようなチェックの多くを持っていて、Maybeを返すようにしたい場合は、あなたがdo表記を使用することができ、中に鳴るように感じる：

stringToMove :: String -> Maybe Move 
stringToMove s = do 
    l1:n1:l2:n2:_ <- return s 
    return (stringToCoords l1 n1, stringToCoords l2 n2) 

あなたにfailableバインディングを行うことができますあなたが何度も好きなように何度も失敗すると、関数はNothingを返します。