Problem Statement

Traditionally, the Chinese have counted years using two lists of labels, one of length 10 (the "celestial stems") and one of length 12 (the "terrestrial branches"). The labels do not really have any meaning outside their positions in the two lists; they're simply a traditional enumeration device, used much as Westerners use letters and numbers. They were historically used for months and days as well as years, and the stems are still sometimes used for school grades. Years cycle through both lists concurrently, so that both stem and branch advance each year; if we used Roman letters for the stems and numbers for the branches, consecutive years would be labeled A1, B2, C3, etc. Since the two lists are different lengths, they cycle back to their beginning at different points: after J10 we get A11, and then after B12 we get C1. The result is a repeating 60-year pattern within which each pair of names occurs only once. Mapping the branches to twelve traditional animal deities results in the well-known "Chinese zodiac", assigning each year to a given animal. For example, Sunday, January 22, 2023 CE (in the common Gregorian calendar) began the lunisolar Year of the Rabbit. The celestial stems do not have a one-to-one mapping like that of the branches to animals; however, the five pairs of consecutive stems are each associated with one of the five traditional Chinese elements (Wood, Fire, Earth, Metal, and Water). Further, one of the two years within each element is assigned to yin, the other to yang. Thus, the Chinese year beginning in 2023 CE is also the yin year of Water. Since 12 is an even number, the association between animals and yin/yang doesn't change; consecutive Years of the Rabbit will cycle through the five elements, but will always be yin. You may optionally provide more information in the form of the year's numerical position within the 60-year cycle and/or its actual Chinese stem-branch name (in Han characters or Pinyin transliteration). Thus, year 1 of a cycle is the year of the Wood Rat (yang), year 2 the Wood Ox (yin), and year 3 the Fire Tiger (yang). The year 2023 - which, as already noted, is the year of the Water Rabbit (yin) - is the 40th year of the current cycle. Therefore 1984 was 甲子 (jiă-zĭ, or jia3-zi3). 2023 is 癸卯 (gŭi-măo or gui3-mao3).

Let's start with the solution:

dim @y(2)                              ' yin or yang
dim @e(5)                              ' the elements
dim @a(12)                             ' the animals

Push "yang", "yin"                     ' fill Ying/Yang table
For i = 1 to 0 Step -1 : @y(i) = Pop() : Next i
                                       ' fill Elements table
Push "Wood", "Fire", "Earth", "Metal", "Water"
For i = 4 to 0 Step -1 : @e(i) = Pop() : Next i
                                       ' fill Animals table
Push "Rat",   "Ox",   "Tiger",  "Rabbit",  "Dragon", "Snake"
Push "Horse", "Goat", "Monkey", "Rooster", "Dog",    "Pig"

For i = 11 to 0 step -1 : @a(i) = Pop() : Next i
                                       ' now push all the test years
Push 76543, 2186, 2020, 1984, 1861, 1801
                                       ' and process them all
Do While Used()                        ' until the stack is empty
  Print Show(FUNC(_Chinese(Pop())))    ' call function
Loop

End
 
_Chinese                               ' compose string
  Param (1)
  Local (3)
  
  b@ = a@ % 2
  c@ = (a@ - 4) % 5
  d@ = (a@ - 4) % 12
Return (Join(Str (a@), " is the year of the ", @e(c@), " ", @a(d@), " (", @y(b@), ")."))