Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • Nice work, but still something lacking in the "show" function: both your version and SF's have too much repetition. What we really want to to say that there's a list of three actions to perform in one of three orders, with only one of the blocks moving. something like:

    sub show(%tree, Traversal $method) {
        return unless %tree;
        my @actions = (
            { show %tree<RIGHT>, $method },
            { show %tree<LEFT>, $method },
     
    • Am I the only one whose OCD goes on overdrive everytime he sees a fixed-function tree traversal sub?

      I immediately want to refactor &show into a general traversal sub:

      sub traverse(%tree, Traversal $order, &function) { ... &function(%tree<VALUE>); ... }

      and a trivial driver:

      sub show(%tree, Traversal $order) { traverse(%tree, $order, &take) }

      I guess that gets away from keeping the same overall form as the E02 code. Of course, I had the same reaction the first time I