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