Haskell 检查整数第一个元素以处理 ID 号

Question

我是haskell的新手！ 我需要编写一个处理 ID 号的函数。我需要检查整数的第一位。如果数字是 1 或 3，那么客户是男性，如果数字是 2 或 4，那么客户是女性。我想我需要一个辅助函数，它将长整数拆分为整数列表。 函数名为 szemelyinem，它有一个参数/参数，是一个 11 长整数。

这是分割函数：

split :: Integral x => x -> [x]      
split 0 = []
split x = split (x `div` 10) ++ [x `mod` 10]

在我的脑海中，概念是拆分长数字，然后将其加载到函数中，然后检查列表中的第一个元素并返回一个字符串。但我不知道如何开始这个：/

我有一个这样的例子：

szemelyinem 40504291247
Result: "female"

Answer 1

这是第一步。

split :: Integral x => x -> [x]
split 0 = []
split x = split (x `div` 10) ++ [x `mod` 10]

这是第二个。

rev:: [Integer] -> [Integer]
rev [] = []
rev (h:t) = rev t ++ [h]

这是第三步

nemdel :: [Integer] -> [Integer]          
nemdel  [] = []
nemdel (h:t) = drop 10 (h:t)

这是第四个。

listtonumb:: [Integer] -> Integer
listtonumb = foldl addDigit 0
   where addDigit num d = 10*num + d

还有最后一个。

szemelyinem :: Integer -> [Char]
szemelyinem szam =
    if listtonumb(nemdel(rev(split szam)))  == 1 || listtonumb(nemdel(rev(split szam))) == 3
         then "male"
    else if listtonumb(nemdel(rev(split szam))) == 2 || listtonumb(nemdel(rev(split szam))) == 4
         then "Female"
         else error "Bad ID"

我敢肯定这是一种复杂的方法来做这件事。