playground

-module(rna_transcription).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([to_rna/1]).

-file("/Users/bradleymehder/Developer/Frameworks/Gleam/playground/src/rna_transcription.gleam", 18).
-spec complement(binary()) -> {ok, binary()} | {error, nil}.
complement(Nucleotide) ->
    case Nucleotide of
        <<"C"/utf8>> ->
            {ok, <<"G"/utf8>>};

        <<"G"/utf8>> ->
            {ok, <<"C"/utf8>>};

        <<"T"/utf8>> ->
            {ok, <<"A"/utf8>>};

        <<"A"/utf8>> ->
            {ok, <<"U"/utf8>>};

        _ ->
            {error, nil}
    end.

-file("/Users/bradleymehder/Developer/Frameworks/Gleam/playground/src/rna_transcription.gleam", 9).
-spec to_rna(binary()) -> {ok, binary()} | {error, nil}.
to_rna(Dna) ->
    _pipe = Dna,
    _pipe@1 = gleam@string:to_graphemes(_pipe),
    _pipe@2 = gleam@list:try_map(_pipe@1, fun complement/1),
    gleam@result:map(_pipe@2, fun gleam@string:concat/1).