![my $height = @*ARGS[0] // 31;
my $width = $height;
my $max_iterations = 50;
my $upper-right = -2 + (5/4)i;
my $lower-left = 1/2 - (5/4)i;](https://image.slidesharecdn.com/perl6-by-example-100626082212-phpapp02/75/Perl-6-by-example-24-2048.jpg)
![my $height = @*ARGS[0] // 31;
my $width = $height;
my $max_iterations = 50;
my $upper-right = -2 + (5/4)i;
my $lower-left = 1/2 - (5/4)i;
Global variable and defined-or](https://image.slidesharecdn.com/perl6-by-example-100626082212-phpapp02/75/Perl-6-by-example-25-2048.jpg)
![my $height = @*ARGS[0] // 31;
my $width = $height;
my $max_iterations = 50;
my $upper-right = -2 + (5/4)i;
my $lower-left = 1/2 - (5/4)i;
Complex numbers (wow!)](https://image.slidesharecdn.com/perl6-by-example-100626082212-phpapp02/75/Perl-6-by-example-26-2048.jpg)
![(@line, $middle, @line.reverse).map
({ @color_map[$_] }).join(' ').say;
Method calls on a list](https://image.slidesharecdn.com/perl6-by-example-100626082212-phpapp02/75/Perl-6-by-example-33-2048.jpg)
![my $svg = :svg[
:width(200), :height(200),
circle => [
:cx(100), :cy(100), :r(50)
],
text => [
:x(10), :y(20), "hello"
]
];
Hash reference of hash references?](https://image.slidesharecdn.com/perl6-by-example-100626082212-phpapp02/75/Perl-6-by-example-62-2048.jpg)
![say $svg.perl;
"svg" => ["width" => 200,
"height" => 200, "circle" =>
["cx" => 100, "cy" => 100, "r"
=> 50], "text" => ["x" => 10,
"y" => 20, "hello"]]](https://image.slidesharecdn.com/perl6-by-example-100626082212-phpapp02/75/Perl-6-by-example-64-2048.jpg)
More Related Content
What's hot (20)
Similar to Perl 6 by example (20)
More from Andrew Shitov (20)
Recently uploaded (20)
Perl 6 by example
- 2. A talk about a kind of phylosophy of Perl 6 learning process
- 4. Proto is a hyper- lightweight dependency tracking and module installation system
- 5. pls is its new name
- 6. We don’t care of all that
- 7. What we do care of are
- 8. 54 Perl 6 projects are on proto.perl6.org
- 10. 2003
- 13. It observed the code from parrot/languages/ perl6/examples folder
- 14. Record #15 Example research. loop()
- 15. mandel.p6 was the most exciting
- 17. loop ($y=30; $C = $y*0.1 - 1.5, $y--;) { loop ($x=0; $c = $x*0.04 - 2.0, $z=0.0, $Z=0.0, $x++ < 75;) { loop ($r=$c, $i=$C, $k=0; $t = $z*$z - $Z*$Z + $r, $Z = 2.0*$z*$Z + $i, $z=$t, $k<112; $k++) { . . .
- 19. history.now()
- 21. The method: try to understand what you don’t understand
- 23. mandelbrot project Mandelbrot set in Perl 6
- 24. my $height = @*ARGS[0] // 31; my $width = $height; my $max_iterations = 50; my $upper-right = -2 + (5/4)i; my $lower-left = 1/2 - (5/4)i;
- 25. my $height = @*ARGS[0] // 31; my $width = $height; my $max_iterations = 50; my $upper-right = -2 + (5/4)i; my $lower-left = 1/2 - (5/4)i; Global variable and defined-or
- 26. my $height = @*ARGS[0] // 31; my $width = $height; my $max_iterations = 50; my $upper-right = -2 + (5/4)i; my $lower-left = 1/2 - (5/4)i; Complex numbers (wow!)
- 27. sub mandel(Complex $c) { my $z = 0i; for ^$max_iterations { $z = $z * $z + $c; return 1 if ($z.abs > 2); } return 0; }
- 28. sub mandel(Complex $c) { my $z = 0i; for ^$max_iterations { $z = $z * $z + $c; return 1 if ($z.abs > 2); } return 0; } 0..$max_iterations range
- 29. for subdivide($upper-right.re, $lower-left.re, $height) -> $re { ... (@line, $middle, @line.reverse).join(' ').say; }
- 30. for subdivide($upper-right.re, $lower-left.re, $height) -> $re { ... (@line, $middle, @line.reverse).join(' ').say; } Hyphens in variable names
- 31. for subdivide($upper-right.re, $lower-left.re, $height) -> $re { ... (@line, $middle, @line.reverse).join(' ').say; } for loop and its variable
- 32. for subdivide($upper-right.re, $lower-left.re, $height) -> $re { ... (@line, $middle, @line.reverse).join(' ').say; } Nested method calls
- 33. (@line, $middle, @line.reverse).map ({ @color_map[$_] }).join(' ').say; Method calls on a list
- 34. 53 Perl 6 projects still left
- 36. class FakeDBI:auth<mberends>:ver<0.0.1> { has $!err; has $!errstr; method connect( $dsn, $username, $password, :$RaiseError=0, :$PrintError=0, :$AutoCommit=1 ) { Declaring and defining a class
- 37. class FakeDBI:auth<mberends>:ver<0.0.1> { has $!err; has $!errstr; method connect( $dsn, $username, $password, :$RaiseError=0, :$PrintError=0, :$AutoCommit=1 ) { Who is the author
- 38. class FakeDBI:auth<mberends>:ver<0.0.1> { has $!err; has $!errstr; method connect( $dsn, $username, $password, :$RaiseError=0, :$PrintError=0, :$AutoCommit=1 ) { Version number
- 39. class FakeDBI:auth<mberends>:ver<0.0.1> { has $!err; has $!errstr; method connect( $dsn, $username, $password, :$RaiseError=0, :$PrintError=0, :$AutoCommit=1 ) { Class variables
- 40. class FakeDBI:auth<mberends>:ver<0.0.1> { has $!err; has $!errstr; method connect( $dsn, $username, $password, :$RaiseError=0, :$PrintError=0, :$AutoCommit=1 ) { Not too easy to guess
- 41. bash-3.2$ grep '$!' * -r S02-bits.pod: $!foo object attribute private storage
- 42. class FakeDBI:auth<mberends>:ver<0.0.1> { has $!err; has $!errstr; method connect( $dsn, $username, $password, :$RaiseError=0, :$PrintError=0, :$AutoCommit=1 ) { Twigils indicate private variables
- 43. class FakeDBI:auth<mberends>:ver<0.0.1> { has $!err; has $!errstr; method connect( $dsn, $username, $password, :$RaiseError=0, :$PrintError=0, :$AutoCommit=1 ) { Class method
- 44. class FakeDBI:auth<mberends>:ver<0.0.1> { has $!err; has $!errstr; method connect( $dsn, $username, $password, :$RaiseError=0, :$PrintError=0, :$AutoCommit=1 ) { Positional arguments
- 45. class FakeDBI:auth<mberends>:ver<0.0.1> { has $!err; has $!errstr; method connect( $dsn, $username, $password, :$RaiseError=0, :$PrintError=0, :$AutoCommit=1 ) { Named arguments
- 46. class FakeDBI:auth<mberends>:ver<0.0.1> { has $!err; has $!errstr; method connect( $dsn, $username, $password, :$RaiseError=0, :$PrintError=0, :$AutoCommit=1 ) { Default values
- 47. given $drivername { when 'CSV' {...} when 'mysql' { . . . } default {...} } given/when known from Perl 5.10 :-)
- 48. 52 Perl 6 projects still left
- 49. Really 52 left?
- 50. Much more!
- 51. perl6-examples on github cookbook module-management doc parsers euler perlmonks games shootout interpreters tutorial lib wsg
- 52. perl6-examples on github cookbook module-management doc parsers euler perlmonks games shootout interpreters tutorial lib wsg
- 53. eulerproject.net README prob005-unobe.pl prob025-polettix.pl prob001-cspencer.pl prob006-polettix.pl prob029-polettix.pl prob001-eric256.pl prob007-polettix.pl prob052-duff.pl prob001-hexmode.pl prob008-duff.pl prob053-duff.pl prob001-unobe.pl prob008-duff2.pl prob063-moritz.pl prob002-eric256.pl prob009-polettix.pl prob063-polettix.pl prob002-hexmode.pl prob010-polettix.pl prob081-matrix.txt prob003-eric256.pl prob011-moritz.pl prob081-moritz.pl prob003-hexmode.pl prob012-polettix.pl prob092-moritz.pl prob003-lanny.p6 prob017-duff.pl prob104-moritz.pl prob004-unobe.pl prob024-moritz.pl
- 54. eulerproject.net README prob005-unobe.pl prob025-polettix.pl prob001-cspencer.pl prob006-polettix.pl prob029-polettix.pl prob001-eric256.pl prob007-polettix.pl prob052-duff.pl prob001-hexmode.pl prob008-duff.pl prob053-duff.pl prob001-unobe.pl prob008-duff2.pl prob063-moritz.pl prob002-eric256.pl prob009-polettix.pl prob063-polettix.pl prob002-hexmode.pl prob010-polettix.pl prob081-matrix.txt prob003-eric256.pl prob011-moritz.pl prob081-moritz.pl prob003-hexmode.pl prob012-polettix.pl prob092-moritz.pl prob003-lanny.p6 prob017-duff.pl prob104-moritz.pl prob004-unobe.pl prob024-moritz.pl
- 55. # A simple implementation # of Eratosthenes' sieve sub primes_iterator { return sub { state %D; state $q //= 2; $q //= 2; Again, pure Perl 5.10 :-)
- 56. $ perl6 prob007-polettix.pl ===SORRY!=== Symbol '%D' not predeclared in primes_iterator (prob007-polettix.pl:17)
- 57. my %D; my $q; # A simple implementation # of Eratosthenes' sieve sub primes_iterator { return sub { #state %D; #state $q //= 2; $q //= 2; OK, let’s use global variables this time
- 58. $ perl6 prob007-polettix.pl . . . Time passed. . . result: 104743
- 59. my $it = primes_iterator(); for 1 .. $nth - 1 -> $i { $it(); say "found $i primes so far" unless $i % 100; } say 'result: ', $it(); Subroutine reference in a scalar
- 60. 51 + ∞ Perl 6 projects still left
- 61. SVG.pm
- 62. my $svg = :svg[ :width(200), :height(200), circle => [ :cx(100), :cy(100), :r(50) ], text => [ :x(10), :y(20), "hello" ] ]; Hash reference of hash references?
- 63. .perl() explains
- 64. say $svg.perl; "svg" => ["width" => 200, "height" => 200, "circle" => ["cx" => 100, "cy" => 100, "r" => 50], "text" => ["x" => 10, "y" => 20, "hello"]]
- 65. 50 + ∞ Perl 6 projects still left
- 66. Andrew Shitov talks.shitov.ru | andy@shitov.ru