type CardType=|Guard|Priest|Baron|Handmaid|Prince|King|Countess|Princesstype Card={power:int;cardType:CardType}letguard={power=1;cardType=CardType.Guard}letpriest={power=2;cardType=CardType.Priest}letbaron={power=3;cardType=CardType.Baron}lethandmaid={power=4;cardType=CardType.Handmaid}letprince={power=5;cardType=CardType.Prince}letking={power=6;cardType=CardType.King}letcountess={power=7;cardType=CardType.Countess}letprincess={power=8;cardType=CardType.Princess}letseedDeckWithTypex=matchxwith|Guard->[guard;guard;guard;guard;]|Priest->[priest;priest]|Baron->[baron;baron]|Handmaid->[handmaid;handmaid]|Prince->[prince;prince]|King->[king]|Countess->[countess]|Princess->[princess]letseedDeck()=lettypes=[Guard;Priest;Baron;Handmaid;Prince;King;Countess;Princess]List.collect(funx->seedDeckWithTypex)typesletdeck=seedDeckletgrabARandomCard(deck:Cardlist)=letrandomGenerator=System.Random()letindex=randomGenerator.Nextdeck.Lengthdeck.Itemindexletshowx=deck.ItemxletwriteCardx=printfn"%Awithapowerof %i"x.cardTypex.power
Comments (0)
HTTPSSSH
You can clone a snippet to your computer for local editing.
Learn more.