Skip to main content

Quick actions

cmd+k|ctrl+k

Search actions and languages

Navigation

Languages

Perl Weekly Challenge 137, Task 1

Snippet info

Language

Raku

Visibility

public

Author

seaker

Created

2021-11-02T05:14:02.608145Z

Updated

2021-11-03T03:06:59.465977Z

12345

put (1900..2100)

.grep({ Date("$_-12-31").week[1] == 53 })

.rotor(5, :partial)

.map({ $_.join(', ') })

.join(",\n");

put (1900..2100)
    .grep({ Date("$_-12-31").week[1] == 53 })
    .rotor(5, :partial)
    .map({ $_.join(', ') })
    .join(",\n");

Raku

INFO

Home Public snippets Account Contact Privacy