Rangeを使った無限リスト

(1...Inf)

Inf を * と表現することもできるのでもっと簡潔に書くこともできます。

(1...*)

関数を使った無限リスト

無限リストということで、Sub...Inf のように書くことで関数も扱うことが出来ます。
たとえばランダムで True または False が返る無限リストを作ることができます。

(-> { (True, False).pick } ... *)

さらに、初期値を与えることで、前回の値をもとに次の値を生成するといったこともできます。
等差数列を簡単につくることができますね。

(1, -> $n { $n + 3 } ... *)

なお、値を取る場合は、引数を * で表すことでラムダ式を以下のように簡易的に書くこともできます。

(1, * + 3 ... *)

2つ以上の値を初期値として取ることもできます。

(0, 1, * + * * 2 ... *)

これを発展させると、mattnさんの Perl6 の無限リストとダイナミックバインディングが最強すぎるで書かれているようなフィボナッチ数列を表す無限リストを書くことができます。
詳しくは tokuhiromさんが解説しているのでそっちを読むと良いです。

当たり前に無限リストに対するmap/grepなどもできます。

(1...*) ==> map { $_ + 2 }

FizzBuzzでもやってみましょうかね！
mapで書いてみる。

(1...*) ==> map { $_ % 15 == 0 ?? "FizzBuzz" !!  $_ % 5 == 0 ?? "Buzz" !! $_ % 3 == 0 ?? "Fizz" !! $_ }

関数でも書いてみる。
クロージャにすることでうまくいった。もっとすっきり書けそう。

my $n = 0;
(-> { $n++; $n % 15 == 0 ?? "FizzBuzz" !! $n % 5 == 0 ?? "Buzz" !! $n % 3 == 0 ?? "Fizz" !! $n } ... *)

無限リストでデータベースを扱うことも可能かもしれませんね！（愚直にやるとクソクエリ吐きそうだけど）

my ($user1, $user2, $user3) = DB.users()[1..3]

無限リストたのしい！

明日は @B73W56H84 さんによる "Perl6 Cookbook的な内容！" です。おたのしみに！