Barnsley fern: Difference between revisions
Content added Content deleted
(Added Sidef) |
m (→{{header|Perl}}: added image) |
||
| Line 118: | Line 118: | ||
=={{header|Perl}}== |
=={{header|Perl}}== |
||
[[File:BarnsleyFernPerl.png|250px|thumb|right]] |
|||
<lang perl>use Imager; |
<lang perl>use Imager; |
||
| Line 128: | Line 129: | ||
my ($x, $y) = (0, 0); |
my ($x, $y) = (0, 0); |
||
foreach (1 .. |
foreach (1 .. 2e5) { |
||
my $r = rand(100); |
my $r = rand(100); |
||
($x, $y) = do { |
($x, $y) = do { |
||