#!/usr/bin/perl
use warnings;
use strict;
die "Usage: $0 r x_0 steps\n" unless @ARGV == 3;
my ($r, $x, $steps) = @ARGV;
for(my $i = 0; $i < $steps; $i++) {
print "$i $x\n";
$x = $r * $x * (1 - $x);
}
Download