아래 파이썬과제 Perl 6 한줄로 풀어봤다.

[cc(121.163)]

1번

[+] gather for (1..^2000) -> $n { take $n if $n % any(3, 5) == 0  }

2번

([+] (1..100)) ** 2 - [+] (1..100).map: * ** 2

3번은 한줄로 안될거 같아서 포기

뻘6좀 잘쓰고싶다이기야