Rosetta Code

Chinese zodiac: Difference between revisions

Page Discussion

Chinese zodiac (view source)

Revision as of 00:18, 25 November 2021

13 bytes added ,  2 years ago
m
→‎{{header|Action!}}
(Added solution for Action!)
Line 137:
 
=={{header|Action!}}==
<lang Action!>DEFINE PTR="CARD"
<lang Action!>CARD ARRAY animals(12),elements(5),stems(10),branches(12),yinYangs(2)▼
 
▲<lang Action!>CARDPTR ARRAY animals(12),elements(5),stems(10),branches(12),yinYangs(2)
 
PROC Init()
Line 163 ⟶ 165:
RETURN
 
CARDPTR FUNC GetAnimal(INT y)
RETURN (animals((y-4) MOD 12))
 
CARDPTR FUNC GetElement(INT y)
RETURN (elements(((y-4) MOD 10)/2))
 
CARDPTR FUNC GetStem(INT y)
RETURN (stems((y-4) MOD 10))
 
CARDPTR FUNC GetBranch(INT y)
RETURN (branches((y-4) MOD 12))
 
CARDPTR FUNC GetYinYang(INT y)
RETURN (yinYangs(y MOD 2))
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/274037"