Sha256: d8924003c15e65150ffb784f3579a5b6f9eff465d0abae056903b7aee9e9069e
Contents?: true
Size: 746 Bytes
Versions: 392
Compression:
Stored size: 746 Bytes
Contents
nucleotide_count(Strand, Counts) :-
atom_chars(Strand, Nucleotides),
count_nucleotides(Nucleotides, [('A', 0), ('C', 0), ('G', 0), ('T', 0)], Counts).
count_nucleotides([], Counts, Counts).
count_nucleotides([Nucleotide | Rest], Running, Counts) :-
count_single_nucleotide(Nucleotide, Running, NewCounts),
count_nucleotides(Rest, NewCounts, Counts).
count_single_nucleotide(Nucleotide, [(OtherNucleotide, OtherCount) | Rest], NewCounts) :-
count_single_nucleotide(Nucleotide, Rest, RestCounts),
append([(OtherNucleotide, OtherCount)], RestCounts, NewCounts).
count_single_nucleotide(Nucleotide, [(Nucleotide, Count) | Rest], NewCounts) :-
NewCount is Count + 1,
append([(Nucleotide, NewCount)], Rest, NewCounts).
Version data entries
392 entries across 392 versions & 1 rubygems