Removing duplicate values from a formula field

This app begs for a table solution where the children are the animals instead of being drawn from a multi select field, but this works,
.

var text MultiInTextFormat = "American Warmblood;Hound;Morgan;Persian";


var text Yorkie = If(Contains($MultiInTextFormat, "Yorkie"), "Dog");
var text Dobmerman = If(Contains($MultiInTextFormat, "Doberman"), "Dog");
var text Clydesdale =If(Contains($MultiInTextFormat, "Clydesdale"), "Horse");
var text Amnesia = If(Contains($MultiInTextFormat, "Amnesia"), "Cat");
var text Hound = If(Contains($MultiInTextFormat, "Hound"), "Dog");
var text Persian = If(Contains($MultiInTextFormat, "Persian"), "Cat");
var text Morgan = If(Contains($MultiInTextFormat, "Morgan"), "Horse");
var text AmericanWarmblood = If(Contains($MultiInTextFormat, "American Warmblood"), "Horse");

var text AnimalTypesOne = $Yorkie;

var text AnimalTypesTwo = If(not Contains($AnimalTypesOne,$Dobmerman),
List("\n", $AnimalTypesOne, $Dobmerman), $AnimalTypesOne);

var text AnimalTypesThree = If(not Contains($AnimalTypesTwo,$Clydesdale),
List("\n", $AnimalTypesTwo, $Clydesdale), $AnimalTypesTwo);

var text AnimalTypesFour = If(not Contains($AnimalTypesThree, $Amnesia),
List("\n", $AnimalTypesThree, $Amnesia), $AnimalTypesThree);

var text AnimalTypesFive = If(not Contains($AnimalTypesFour, $Hound),
List("\n", $AnimalTypesFour, $Hound), $AnimalTypesFour);

var text AnimalTypesSix = If(not Contains($AnimalTypesFive, $Persian),
List("\n", $AnimalTypesFive, $Persian), $AnimalTypesFive);

var text AnimalTypesSeven = If(not Contains($AnimalTypesSix, $Morgan),
List("\n", $AnimalTypesSix, $Morgan), $AnimalTypesSix);

var text AnimalTypesEight = If(not Contains($AnimalTypesSeven, $AmericanWarmblood),
List("\n", $AnimalTypesSeven, $AmericanWarmblood), $AnimalTypesSeven);

$AnimalTypesEight

------------------------------
Mark Shnier (YQC)
Quick Base Solution Provider
Your Quick Base Coach
http://QuickBaseCoach.com
mark.shnier@gmail.com
------------------------------