Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: implementation of formula in perl

by hdb (Prior)
on Feb 28, 2014 at 10:25 UTC ( #1076516=note: print w/replies, xml ) Need Help??


in reply to implementation of formula in perl

Not sure what you mean. Something like this?

use strict; use warnings; my @seqs = qw( DFGR----- ----AERGD DOGRGERG- ---QWERTY -----ER-- ---EF +BEGB -ASDF---- AFBDFBA-- -FGDFBD-- ); my $i=0; while ($seqs[0]) { my $col = join '', map { substr $_, 0, 1, '' } @seqs; my $na = $col =~ tr/A/A/; my $n = $col =~ tr/-/-/c; printf "%d: na=%d n=%d fau=%.2f\n", $i++, $na, $n, $na/$n; }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1076516]
help
Chatterbox?
[Corion]: Meh. I think I have now the parts down that I want from a simple Javascript frontend for single-page- applications with a aPerl backend. But it seems that all Javascript templating modules either don't support two-way binding (which would be nice) or ...
[Corion]: ... don't support server-side precompilation (which means the client has to compile all templates to Javascript themselves), or are giant frameworks that expect to do everything (which is not what I want)
[Corion]: I feel that there is a talk somewhere in there, either about the structure and parts, or how I used several parts to get a complete whole.
[Corion]: Maybe I can still find something that is compatible with handlebars.js (which has JS precompilation) but allows for two-way data binding (which is great for the UI)

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2017-03-30 07:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should Pluto Get Its Planethood Back?



    Results (355 votes). Check out past polls.