mirror of
https://github.com/c3lang/c3c.git
synced 2026-02-27 12:01:16 +00:00
104 lines
2.0 KiB
C
104 lines
2.0 KiB
C
module fasta;
|
|
import libc;
|
|
|
|
const IM = 139968;
|
|
const IA = 3877;
|
|
const IC = 29573;
|
|
const SEED = 42;
|
|
|
|
global uint seed = SEED;
|
|
|
|
fn float fasta_rand(float max)
|
|
{
|
|
seed = (seed * IA + IC) % IM;
|
|
return max * seed / IM;
|
|
}
|
|
|
|
private global char[] alu =
|
|
"GGCCGGGCGCGGTGGCTCACGCCTGTAATCCCAGCACTTTGG"
|
|
"GAGGCCGAGGCGGGCGGATCACCTGAGGTCAGGAGTTCGAGA"
|
|
"CCAGCCTGGCCAACATGGTGAAACCCCGTCTCTACTAAAAAT"
|
|
"ACAAAAATTAGCCGGGCGTGGTGGCGCGCGCCTGTAATCCCA"
|
|
"GCTACTCGGGAGGCTGAGGCAGGAGAATCGCTTGAACCCGGG"
|
|
"AGGCGGAGGTTGCAGTGAGCCGAGATCGCGCCACTGCACTCC"
|
|
"AGCCTGGGCGACAGAGCGAGACTCCGTCTCAAAAA";
|
|
|
|
|
|
global char[] iub = "acgtBDHKMNRSVWY";
|
|
global double[] iub_p = {
|
|
0.27,
|
|
0.12,
|
|
0.12,
|
|
0.27,
|
|
0.02,
|
|
0.02,
|
|
0.02,
|
|
0.02,
|
|
0.02,
|
|
0.02,
|
|
0.02,
|
|
0.02,
|
|
0.02,
|
|
0.02,
|
|
0.02 };
|
|
|
|
global char[] homosapiens = "acgt";
|
|
global double[] homosapiens_p = {
|
|
0.3029549426680,
|
|
0.1979883004921,
|
|
0.1975473066391,
|
|
0.3015094502008
|
|
};
|
|
|
|
const LINELEN = 60;
|
|
|
|
// slowest character-at-a-time output
|
|
fn void repeat_fasta(char[] seq, int n)
|
|
{
|
|
usize len = seq.len;
|
|
int i = void;
|
|
for (i = 0; i < n; i++)
|
|
{
|
|
libc::putchar(seq[i % len]);
|
|
if (i % LINELEN == LINELEN - 1) libc::putchar('\n');
|
|
}
|
|
if (i % LINELEN != 0) libc::putchar('\n');
|
|
}
|
|
|
|
fn void random_fasta(char[] symb, double[] probability, int n)
|
|
{
|
|
assert(symb.len == probability.len);
|
|
int len = probability.len;
|
|
int i = void;
|
|
for (i = 0; i < n; i++)
|
|
{
|
|
double v = fasta_rand(1.0);
|
|
/* slowest idiomatic linear lookup. Fast if len is short though. */
|
|
int j = void;
|
|
for (j = 0; j < len - 1; j++)
|
|
{
|
|
v -= probability[j];
|
|
if (v < 0) break;
|
|
}
|
|
libc::putchar(symb[j]);
|
|
if (i % LINELEN == LINELEN - 1) libc::putchar('\n');
|
|
}
|
|
if (i % LINELEN != 0) libc::putchar('\n');
|
|
}
|
|
|
|
fn void main(int argc, char **argv)
|
|
{
|
|
int n = 1000;
|
|
if (argc > 1) n = libc::atoi(argv[1]);
|
|
|
|
libc::printf(">ONE Homo sapiens alu\n");
|
|
repeat_fasta(alu, n * 2);
|
|
|
|
libc::printf(">TWO IUB ambiguity codes\n");
|
|
random_fasta(iub, iub_p, n * 3);
|
|
|
|
libc::printf(">THREE Homo sapiens frequency\n");
|
|
random_fasta(homosapiens, homosapiens_p, n * 5);
|
|
|
|
}
|