Alena Krasinskiene 路 Oct 30, 2023 go to post
Class codeGolf.ChineseZodiac
{
    ClassMethod Calendar(y As%Integer) As%String
    {
        Set startYear = 1924Set animals = "Rat,Ox,Tiger,Rabbit,Dragon,Snake,Horse,Goat,Monkey,Rooster,Dog,Pig"Set elements = "Wood,Fire,Earth,Metal,Water"Set diff = y - startYear
        
        If diff < 0Quit"Invalid Year"Set animalIndex = (diff + 12) % 12Set elementIndex = (diff / 2) % 5Set animal = $List(animals, animalIndex + 1)
        Set element = $List(elements, elementIndex + 1)
        
        Quit element_" "_animal    
    }
}