Chinese zodiac: Difference between revisions

{{task}}Determine the Chinese zodiac sign and related associations for a given year.

 

 

 

 

;Task: Create a subroutine or program that will return or output the animal, yin/yang association, and element for the lunisolar year that begins in a given CE year.

;Requisite information:

* The animal cycle runs in this order: Rat, Ox, Tiger, Rabbit, Dragon, Snake, Horse, Goat, Monkey, Rooster, Dog, Pig.

 

 

;Information for optional task:

* The twelve terrestrial branches are '''子''' ''zĭ'', '''丑''' ''chŏu'', '''寅''' ''yín'', '''卯''' ''măo'', '''辰''' ''chén'', '''巳''' ''sì'', '''午''' ''wŭ'', '''未''' ''wèi'', '''申''' ''shēn'', '''酉''' ''yŏu'', '''戌''' ''xū'', '''亥''' ''hài''. In ASCII Pinyin, those are "zi3", "chou3", "yin2", "mao3", "chen2", "si4", "wu3", "wei4", "shen1", "you3", "xu1", and "hai4".

 

 

 

=={{header|Common Lisp}}==

{{trans|Ruby}}

(defconstant base-year 1984)

 

(loop for cz in (apply #'chinese-zodiac (mapcar #'read-from-string (get-args)))

doing

 

{{Out}}

1976: 丙辰 (bĭng-chén, Fire Dragon; yang)

</pre>

 

=={{header|Haskell}}==

(We can use Chinese characters in Haskell names, as long as the first character is lower-case alphabetic)

 

 

 

 

 

chars :: String -> [String]

chars = (flip (:) [] <$>)

 

let i年份 = y - 4

i天干 = rem i年份 10

i地支 = rem i年份 12

 

 

unlines $

where

{{Out}}

<pre>1935 乙亥 木 豬 阴

yĭhài mù zhū yīn

 

1938 戊寅 土 虎 阳

wùyín tǔ hǔ yáng

 

1968 戊申 土 猴 阳

wùshēn tǔ hóu yáng

 

1972 壬子 水 鼠 阳

rénzĭ shuǐ shǔ yáng

 

1976 丙辰 火 龍 阳

bĭngchén huǒ lóng yáng

 

1984 甲子 木 鼠 阳

jiăzĭ mù shǔ yáng

 

2017 丁酉 火 鸡 阴

dīngyŏu huǒ jī yīn

 

 

 

 

)

}

 

 

{{out}}

 

=={{header|PowerShell}}==

{{trans|Ruby}}

function Get-ChineseZodiac

{

}

}

1935, 1938, 1968, 1972, 1976 | Get-ChineseZodiac | Format-Table

{{Out}}

<pre>

</pre>

Defaults to the current year:

Get-ChineseZodiac

{{Out}}

<pre>

</pre>

Using the '''Year''' property of a <code>[DateTime]</code> object:

Get-Date "11/8/2016" | Get-ChineseZodiac

{{Out}}

<pre>

</pre>

Emulate the Ruby script's output:

$zodiacs = 1935, 1938, 1968, 1972, 1976 | Get-ChineseZodiac

 

$zodiac.YearOfCycle

}

{{Out}}

<pre>

1976: 丙辰 (bĭng-chén, Fire Dragon; yang - year 53 of the cycle)

</pre>

 

=={{header|Python}}==

{{trans|Ruby}}

# coding: utf-8

 

years = [1935, 1938, 1968, 1972, 1976, current_year]

for year in years:

 

 

=={{header|Racket}}==

{{trans|Common Lisp}}

 

 

(require racket/date)

(module+ test

(for ((ce-year (in-list '(1935 1938 1941 1947 1968 1972 1976))))

 

{{out}}

1972: 壬子 (rén-zĭ, Water Rat; yang)

1976: 丙辰 (bĭng-chén, Fire Dragon; yang)</pre>

 

=={{header|Ruby}}==

This is written as a command-line tool that takes a list of CE year numbers as arguments and outputs their information; if no arguments are supplied, it displays the information for the current year.

 

pinyin = {

'甲' => 'jiă',

print stem_han, branch_han

puts " (#{stem_pinyin}-#{branch_pinyin}, #{element} #{animal}; #{aspect} - year #{index} of the cycle)"

 

{{Output}}

<pre>丁酉 (dīng-yŏu, Fire Rooster; yin - year 34 of the cycle)</pre>