date - 获取该日期所在季度之前的季度的最后一天的日期

Question

给定日期，返回该日期所在季度之前的季度最后一天的日期。例如

2020-04-25 => 2020-03-31
2020-06-25 => 2020-03-31
2020-09-25 => 2020-06-30
2020-10-25 => 2020-09-30

如果给定的日期在第一季度，则年份减去1

2020-03-25 => 2019-12-31

Answer 1

sub MAIN(Date(Str) $date) {
    say $date.earlier(months => ($date.month - 1) % 3 + 1).last-date-in-month
}

这至少需要Rakudo 2020.05。