Sha256: 64067c0ac6acfaa5ff7eda0cefc25a4bb552ef0b36a34f17e36dd3b79bb6cff3
Contents?: true
Size: 597 Bytes
Versions: 310
Compression:
Stored size: 597 Bytes
Contents
-module(example).
-export([count/2, nucleotide_counts/1, validate/1, test_version/0]).
count(Dna, N) ->
validate(N),
lists:foldl(
fun(X, Sum) ->
case [X] =:= N of
true -> 1 + Sum;
false -> Sum
end
end,
0, Dna).
% Check if N is a valid nucleotide.
validate(N) ->
case lists:member(N, ["A", "T", "C", "G"]) of
true -> true;
_ -> erlang:error("Invalid nucleotide")
end.
nucleotide_counts(Dna) ->
[{"A", count(Dna, "A")},
{"T", count(Dna, "T")},
{"C", count(Dna, "C")},
{"G", count(Dna, "G")}].
test_version() ->
1.
Version data entries
310 entries across 310 versions & 1 rubygems