Chinese zodiac: Difference between revisions

=={{header|F Sharp|F#}}==

<lang F Sharp>

open System

let animals = ["Rat";"Ox";"Tiger";"Rabbit";"Dragon";"Snake";"Horse";"Goat";"Monkey";"Rooster";"Dog";"Pig"]

let elements = ["Wood";"Fire";"Earth";"Metal";"Water"]

let years = [1935;1938;1968;1972;1976;1984;1985;2017]

let getZodiac(year: int) =

let animal = animals.Item((year-4)%12)

let element = elements.Item(((year-4)%10)/2)

let yy = if year%2 = 0 then "(Yang)" else "(Ying)"

String.Format("{0} is the year of the {1} {2} {3}", year, element, animal, yy)

[<EntryPoint>]

let main argv =

let mutable string = ""

for i in years do

string <- getZodiac(i)

printf "%s" string

Console.ReadLine() |> ignore

0 // return an integer exit code

</lang>

{{out}}

<pre>

1935: Wood Pig, Yin, Cycle year 12 乙亥

1938: Earth Tiger, Yang, Cycle year 15 戊寅

1968: Earth Monkey, Yang, Cycle year 45 戊申

1972: Water Rat, Yang, Cycle year 49 壬子

1976: Fire Dragon, Yang, Cycle year 53 丙辰

</pre>