Cosimo (>): > the "Amazing Perl 6" thread was amazing. > It reminded me how Perl 6 looks interesting and fun. > So... > > how can I write "properly", for some meaning of properly, > the Perl 6 equivalent of this: > > http://search.cpan.org/dist/Games-BonDigi/ > > ?
Not sure if I grokked the whole set of rules, but here's a one-liner that does it: $ perl6 -e 'say (<bon digi bon digi>, "bon" xx ++$*n, "digi" xx $*n).join(", ") while *' // Carl