作者：TimToady

编写一个程序或脚本，返回给定年份每个月的最后一个星期五。年份可以通过您语言中的任何简单输入方法给出（命令行、标准输入等）。

更多

http://rosettacode.org/wiki/Last_Fridays#Raku

使用的功能

MAIN 子例程 - https://doc.perl6.org/language/functions#sub_MAIN

日期对象 - https://doc.perl6.org/type/Date

源代码：last-fridays-of-year.pl

use v6;

sub MAIN (Int $year = Date.today.year) {
    my @fri;
    for Date.new("$year-01-01") .. Date.new("$year-12-31") {
        @fri[.month] = .Str if .day-of-week == 5;
    }
    .say for @fri[1..12];
}