1 // The Great Computer Language Shootout
2 // http://shootout.alioth.debian.org
4 // Contributed by Ian Osgood
6 var last = 42, A = 3877, C = 29573, M = 139968;
9 last = (last * A + C) % M;
10 return max * last / M;
14 "GGCCGGGCGCGGTGGCTCACGCCTGTAATCCCAGCACTTTGG" +
15 "GAGGCCGAGGCGGGCGGATCACCTGAGGTCAGGAGTTCGAGA" +
16 "CCAGCCTGGCCAACATGGTGAAACCCCGTCTCTACTAAAAAT" +
17 "ACAAAAATTAGCCGGGCGTGGTGGCGCGCGCCTGTAATCCCA" +
18 "GCTACTCGGGAGGCTGAGGCAGGAGAATCGCTTGAACCCGGG" +
19 "AGGCGGAGGTTGCAGTGAGCCGAGATCGCGCCACTGCACTCC" +
20 "AGCCTGGGCGACAGAGCGAGACTCCGTCTCAAAAA";
23 a:0.27, c:0.12, g:0.12, t:0.27,
24 B:0.02, D:0.02, H:0.02, K:0.02,
25 M:0.02, N:0.02, R:0.02, S:0.02,
26 V:0.02, W:0.02, Y:0.02
36 function makeCumulative(table) {
38 for (var c in table) {
39 if (last) table[c] += table[last];
44 function fastaRepeat(n, seq) {
45 var seqi = 0, lenOut = 60;
47 if (n<lenOut) lenOut = n;
48 if (seqi + lenOut < seq.length) {
49 ret = seq.substring(seqi, seqi+lenOut);
52 var s = seq.substring(seqi);
53 seqi = lenOut - s.length;
54 ret = s + seq.substring(0, seqi);
61 function fastaRandom(n, table) {
62 var line = new Array(60);
63 makeCumulative(table);
65 if (n<line.length) line = new Array(n);
66 for (var i=0; i<line.length; i++) {
68 for (var c in table) {
84 var actual1 = fastaRepeat(2*count*100000, ALU);
85 var actual2 = fastaRandom(3*count*1000, IUB);
86 var actual3 = fastaRandom(5*count*1000, HomoSap);
88 assertEq(actual1, "CAAAAAGGCCGGGCGCGGTG");
89 assertEq(actual2, "VtttaDtKgcaaWaaaaatSccMcVatgtKgtaKgcgatatgtagtSaaaDttatacaaa");
90 assertEq(actual3, "ttggctatatttatgttgga");