Question

我想通过在haskell中提供年份和月份来创建一个返回天数和[sun..sat]月开始的函数。

就像这样

getDaysInMonth year month=(nDays,sDay) 
                      where nDays = gregorianMonthLength year month
                            sDay= toWeekDate(fromGregorian year month 01)

对于sDay函数toWeekDate的值，返回一个具有三个值（a，b，c）的元组，其中c是必需值，我该如何得到第三个值。

提前致谢

Answer 1

我做了以下来解决我的问题。我无法使用 toWeekDate 函数，因为我不知道如何从 toWeekDate 函数返回的元组中取出最后一个元素。我使用了 showWeekDate 函数。

import Data.Time.Calendar
import Data.Time.Calendar.WeekDate
import Data.Char
getDaysInMonth year month=(nDays,sDay) 
                          where nDays = gregorianMonthLength year month
                                sDay= digitToInt(last(showWeekDate (fromGregorian year month 01)))

ghc> getDaysInMonth 2014 4
(30,2)

如何通过在haskell中提供月份和年份来获得月份和开始日期（sun..sat）

1 个答案: