Sha256: 941071be8accdc00345be832926cc311e621223a309e1054761f759942664b0f
Contents?: true
Size: 658 Bytes
Versions: 396
Compression:
Stored size: 658 Bytes
Contents
(defmodule dna
(export (count 2)
(nucleotide-counts 1)))
(defun validate (nucleotide)
(if (lists:member nucleotide '("A" "C" "G" "T"))
`#(ok ,nucleotide)
(erlang:error (++ "Invalid nucleotide: '" nucleotide "'"))))
(defun count (strand nucleotide)
;; `validate` will throw iff `nucleotide` is invalid.
(validate nucleotide)
(lists:foldl
(lambda (nucleotide* sum)
(if (=:= (validate `(,nucleotide*)) `#(ok ,nucleotide))
(+ sum 1)
sum))
0
strand))
(defun nucleotide-counts (strand)
(lists:map
(lambda (nucleotide)
`#(,nucleotide ,(count strand nucleotide)))
`("A" "C" "G" "T")))
Version data entries
396 entries across 396 versions & 1 rubygems