替换mathematica中列表中的列表

Question

我有一个列表列表，类似于下面的内容，我需要用一个数字替换整个列表中的每个{“S”，“D”，“U”}列表..提前感谢！

A = {{"S", "D", "U"}, {"S", "D", "U"}, {"S", "D", "U"}, {"S", "D", 
  "U"}, {"S", "D", "U"}, {"S", "D", "U"}, 1, {"S", "D", "U"}, {"S", 
  "D", "U"}, {"S", "D", "U"}, {"S", "D", "U"}, {"S", "D", "U"}, {"S", 
  "D", "U"}, {"S", "D", "U"}, {"S", "D", "U"}, {"S", "D", "U"}, {"S", 
  "D", "U"}, 1, {"S", "D", "U"}}

Answer 1

A /. {"S" -> 1, "D" -> 2, "U" -> 3}