仅生成工作日的随机日期


Generate random date for only weekdays

我正在尝试生成随机日期,当天之后 10 到 30 天的任何一天,生成的日期不应该是星期六和星期日。我搜索了很多,但还没有找到解决方案。

尝试:

repeat
  day <- pickRandomDay(10 ... 30)
until (not satOrSun(day))
return day

你不会得到太多次循环。