comment on

Just for interest, here's a Perl 6 solution that works for arbitrary sets of input characters and arbitrary input lengths:

    #! /usr/bin/env perl6
    use v6;

    my @data = < AABBC BAABC AABBD AACBB >;

    # Use mixhashes (self-totalling, and they default to zero)
    my @freq = MixHash.new xx max @datať.chars;

    # Count everything
    for @datať.comb -> @chars {
        for @chars.kv -> $pos, $char {
            @freq[$pos]{$char}++;
        }
    }

    # Column labels
    my @labels = @data.join.comb.unique.sort;
    say join "\t", '', @labels;

    # Table rows
    for @freq.kv -> $pos, %score {
        say join "\t",
            ($pos+1).fmt("%2d"),
            %score{@labels}.map( * / %score.total )ť.fmt("%.2f")
    }
[download]

...and the output:

           A       B       C       D
    1      0.75    0.25    0.00    0.00
    2      1.00    0.00    0.00    0.00
    3      0.25    0.50    0.25    0.00
    4      0.00    1.00    0.00    0.00
    5      0.00    0.25    0.50    0.25
[download]

Or with:

    my @data = < AABBC BAABC AABBD AECBBF >;
[download]

...you get:

           A       B       C       D       E       F
    1      0.75    0.25    0.00    0.00    0.00    0.00
    2      0.75    0.00    0.00    0.00    0.25    0.00
    3      0.25    0.50    0.25    0.00    0.00    0.00
    4      0.00    1.00    0.00    0.00    0.00    0.00
    5      0.00    0.25    0.50    0.25    0.00    0.00
    6      0.00    0.00    0.00    0.00    0.00    1.00
[download]

In reply to Re: Tallying overall frequency of characters in a set of strings by position by TheDamian
in thread Tallying overall frequency of characters in a set of strings by position by Anonymous Monk

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


XP is just a number
	PerlMonks