- or download this
#!/usr/bin/perl -w
...
treeprint( $root->{right} );
}
}
- or download this
#!/usr/bin/perl -w
...
printf( "%4d %s\n", count, word );
}
}
- or download this
Benchmark: timing 50000 iterations of inline, perl...
inline: 13 wallclock secs (12.42 usr + 0.00 sys = 12.42 CPU) @
4025.76/s (n=50000)
perl: 12 wallclock secs (12.27 usr + 0.00 sys = 12.27 CPU) @
4074.98/s (n=50000)