Perl 6 Perl 6 series operator #9

Geometric series

say ~(1, 2, 4 ... 1000)
# 1 2 4 8 16 32 64 128 256 512
continued...
Copyright © 2010
http://www.pmichaud.com/2010/pres/