Sha256: 897469b7baa56b3b2dec525f7a91085ecf4af7d9097fa75aa7adf2983ffff827
Contents?: true
Size: 499 Bytes
Versions: 154
Compression:
Stored size: 499 Bytes
Contents
fun toRna dna =
let
fun translate #"G" = SOME #"C"
| translate #"C" = SOME #"G"
| translate #"T" = SOME #"A"
| translate #"A" = SOME #"U"
| translate _ = NONE
fun reducer (_, NONE) = NONE
| reducer (x, SOME acc) =
let
val t = translate x
in
case t of
NONE => NONE
| SOME c => SOME (c :: acc)
end
in
Option.map implode (foldr reducer (SOME []) (explode dna))
end
Version data entries
154 entries across 154 versions & 1 rubygems