An extension of https://github.com/berthubert/bnt162b2/blob/master/side-by-side.csv with codons of the Moderna mRNA-1273 vaccine from https://github.com/NAalytics/Assemblies-of-putative-SARS-CoV2-spike-encoding-mRNA-sequences-for-vaccines-BNT-162b2-and-mRNA-1273

codon-table-grouped.csv

compare.hs

import Control.Monad
import qualified Data.ByteString.Lazy as BL
import qualified Data.Csv as Csv
import Data.Map.Strict (Map)
import qualified Data.Map.Strict as Map
import qualified Data.Vector as V


main :: IO ()
main = do
  s <- BL.readFile "codon-table-grouped.csv"
  let Right v = Csv.decode Csv.HasHeader s
      table :: Map String Char
      table = Map.fromList [(codon, aminoacid) | (aminoacid, codon) <- V.toList v]

  s <- BL.readFile "side-by-side.csv"
  let codons :: V.Vector (Int, String, String, String)
      Right codons = Csv.decode Csv.HasHeader s

  forM_ codons $ \(pos, orig, v1, v2) -> do
    let a0 = table Map.! orig
        a1 = table Map.! v1
        a2 = table Map.! v2
    unless (a0 == a1 && a1 == a2) $ do
      print (pos, (orig, a0), (v1, a1), (v2, a2))

side-by-side.csv