仅生成工作日的随机日期

Question

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

Answer 1

尝试：

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

循环不会太多次。