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|360 Assembly}}==

{{trans|VBScript}}

CHINEZOD CSECT

USING CHINEZOD,R13 base register

XDEC DS CL12 temp for xdeco

REGEQU

{{out}}

<pre>

1984 is the year of the Wood Rat (Yang). 1/60

2017 is the year of the Fire Rooster (Yin ). 34/60

</pre>

 

{{Trans|JavaScript}}

{{Trans|Haskell}}

-- TRADITIONAL STRINGS ---------------------------------------------------

map(result, items 1 thru ¬

minimum({length of xs, length of ys, length of zs}) of xs)

{{Out}}

<pre>1935 乙亥 木 豬 阴

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

34/60 fire rooster </pre>

=={{header|AWK}}==

# syntax: GAWK -f CHINESE_ZODIAC.AWK

BEGIN {

exit(0)

}

{{out}}

<pre>

2017 Fire Rooster Yin

</pre>

# Chinese zodiac

 

Next i

End

{{out}}

<pre>

2017: 丁酉 (dīng-yŏu, Fire Rooster; Yin - ciclo 34/60)

</pre>

 

=={{header|Befunge}}==

 

v"Aspect: "0++88*5%2\0\+1%"<":p01++66/2%<

>00g5g7-0" :laminA"10g5g"<"+0" :tnemelE"v

$'-4;AGLS[_ %*06yang yin Rat Ox Tiger R |

abbit Dragon Snake Horse Goat Monkey Roo |

 

{{out}}

Aspect: yang

Cycle: 35 / 60</pre>

=={{header|C}}==

{{trans|C++}}

#include <stdio.h>

 

 

return 0;

{{out}}

<pre>1935 is the year of the Wood Pig (yin).

1976 is the year of the Fire Dragon (yang).

2017 is the year of the Fire Rooster (yin).</pre>

 

=={{header|C++}}==

#include <cmath>

 

}

return 0;

{{out}}

<pre>

2017 is the year of the Fire Rooster (yin).

</pre>

=={{header|Clojure}}==

(def celestial-stems ["甲" "乙" "丙" "丁" "戊" "己" "庚" "辛" "壬" "癸"])

(def terrestrial-branches ["子" "丑" "寅" "卯" "辰" "巳" "午" "未" "申" "酉" "戌" "亥"])

(defn -main [& args]

(doseq [years (map read-string args)]

 

{{out}}

2017: 丁酉 (dīng-yŏu, Fire Rooster; yin - cycle 34/60)

</pre>

 

=={{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|D}}==

{{trans|haskell}}

 

// 10 heavenly stems

}

}

 

{{Out}}

34/60 fire rooster </pre>

 

 

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

open System

 

Console.ReadLine() |> ignore

0 // return an integer exit code

{{out}}

<pre>

2017 is the year of the Fire Rooster (Yin)

</pre>

=={{header|Factor}}==

sequences.repeating ;

IN: rosetta-code.zodiac

[ zodiac print ] each ;

 

{{out}}

<pre>

2017 is the year of the Fire Rooster (yin).

</pre>

 

=={{header|Go}}==

 

import "fmt"

yr, e, a, yy, cy, sb)

}

{{out}}

<pre>

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

</pre>

 

=={{header|Haskell}}==

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

 

ats :: Array Int (Char, String)

ats =

listArray (0, 9) $

 

ads :: Array Int (String, String)

ads =

listArray (0, 11) $

 

aws :: Array Int (String, String, String)

aws =

listArray (0, 4) $

 

axs :: Array Int (String, String, String)

axs =

listArray (0, 11) $

 

ays :: Array Int (String, String)

 

chars :: String -> [String]

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

 

f生肖五行年份 y =

let i年份 = y - 4

(h生肖, p生肖, e生肖) = axs ! i地支

(h阴阳, p阴阳) = ays ! rem i年份 2

 

fieldWidths :: [[Int]]

 

showYear :: Int -> String

showYear y =

unlines $

where

{{Out}}

<pre>1935 乙亥 木 豬 阴

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

34/60 fire rooster </pre>

=={{header|J}}==

YEARS=: 1935 1938 1968 1972 1976 2017

 

1976 丙 辰 ( yang )

2017 丁 酉 ( yin )

=={{header|Java}}==

 

final static String animals[]={"Rat","Ox","Tiger","Rabbit","Dragon","Snake","Horse","Goat","Monkey","Rooster","Dog","Pig"};

}

}

{{out}}

<pre>

2017 is the year of the Fire Rooster (yin). 丁酉

</pre>

=={{header|JavaScript}}==

 

===ES6===

{{Trans|Haskell}}

 

 

);

 

 

// ads :: Array Int (String, String)

 

// aws :: Array Int (String, String, String)

 

// axs :: Array Int (String, String, String)

 

// ays :: Array Int (String, String)

 

const zodiac = y => {

const

iStem = iYear % 10,

iBranch = iYear % 12,

return [

];

};

 

// fieldWidths :: [[Int]]

const fieldWidths = [

[6, 11, 8, 8, 4]

];

 

// showYear :: Int -> String

const showYear = y =>

 

)

{{Out}}

<pre>1935 乙亥 木 豬 阴

1/60 wood rat

 

 

=={{header|Julia}}==

{{trans|Python}}

 

pinyin = Dict(

"甲" => "jiă",

curryr = Dates.year(now())

yrs = [1935, 1938, 1968, 1972, 1976, curryr]

 

{{out}}

 

=={{header|Kotlin}}==

 

class ChineseZodiac(val year: Int) {

println("---- ------- --------- ------- ------- ------ -----")

for (year in years) println(ChineseZodiac(year))

 

{{out}}

2017 丁酉 dīng-yŏu Fire Rooster Yin 34/60

</pre>

=={{header|Lua}}==

{{trans|C}}

local ELEMENTS = {"Wood","Fire","Earth","Metal","Water"}

 

zodiac(1972)

zodiac(1976)

{{out}}

<pre>1935 is the year of the Wood Pig (yin)

1976 is the year of the Fire Dragon (yang)

2017 is the year of the Fire Rooster (yin)</pre>

=={{header|Maple}}==

zodiac:=proc(year::integer)

local year60,yinyang,animal,element;

return sprintf("%a",cat(year," is the year of the ",element[(year60 mod 10)+1]," ",animal[(year60 mod 12)+1]," (",yinyang[(year60 mod 2)+1],")"));

end proc:

=={{header|Modula-2}}==

{{trans|C++}}

FROM FormatString IMPORT FormatString;

FROM Terminal IMPORT WriteString,ReadChar;

 

ReadChar

 

=={{header|Perl}}==

my $year = shift;

my @animals = qw/Rat Ox Tiger Rabbit Dragon Snake Horse Goat Monkey Rooster Dog Pig/;

 

printf("%4d: %s%s (%s-%s) %s %s; %s - year %d of the cycle\n", zodiac($_))

{{out}}

<pre>

2017: 丁酉 (dīng-yŏu) Fire Rooster; yin - year 34 of the cycle

</pre>

=={{header|Phix}}==

{{out}}

<pre>

2018: Earth Dog; yang, year 35 of the cycle.

</pre>

 

=={{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|PureBasic}}==

#BASE=4

#SPC=Chr(32)

Stem: : Data.s "jiă\yĭ\bĭng\dīng\wù\jĭ\gēng\xīn\rén\gŭi"

Branch: : Data.s "zĭ\chŏu\yín\măo\chén\sì\wŭ\wèi\shēn\yŏu\xū\hài"

{{Out}}

<pre>Year Element Animal Aspect YearOfCycle ASCII Chinese

1984 Wood Rat yang 1 jiă-zĭ 甲子

2017 Fire Rooster yin 34 dīng-yŏu 丁酉</pre>

=={{header|Python}}==

{{trans|Ruby}}

# coding: utf-8

 

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

for year in years:

 

 

Or, segmenting tokens just in time, and writing out wiki tables:

{{Works with|Python|3.7}}

 

from functools import (reduce)

# MAIN ---

if __name__ == '__main__':

{{Out}}

{| class="wikitable"

|dark

|}

 

=={{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}}

=={{header|Rust}}==

{{trans|Kotlin}}

static ANIMALS: [&str; 12] = [

"Rat", "Ox", "Tiger", "Rabbit", "Dragon", "Snake",

println!("{}", chinese_zodiac(year));

}

{{out}}

<pre>Year Chinese Pinyin Element Animal Aspect Cycle

1984 甲子 jiă-zĭ Wood Rat Yang 01/60

2017 丁酉 dīng-yŏu Fire Rooster Yin 34/60</pre>

=={{header|Scala}}==

val years = Seq(1935, 1938, 1968, 1972, 1976, 1984, 1985, 2017, 2018)

 

+ animalChars((year - 4) % 12))

}

{{Out}}See it in running in your browser by [https://scalafiddle.io/sf/O6MUr27/0 ScalaFiddle (JavaScript)] or by [https://scastie.scala-lang.org/KXC0j71ORFaQxNZSCCZ1Aw Scastie (JVM)].

=={{header|Seed7}}==

The standard output file of Seed7 accepts only Latin-1 (byte) output.

The library [http://seed7.sourceforge.net/libraries/console.htm console.s7i] defines STD_CONSOLE.

 

include "console.s7i";

 

([0] ("yang", "yin"))[year rem 2] <& "). " <& elementChars[year rem 2][eIdx] <& animalChars[aIdx]);

end for;

 

{{out}}

2017 is the year of the Fire Rooster (yin). 丁酉

</pre>

=={{header|Sidef}}==

{{trans|Perl}}

var animals = %w(Rat Ox Tiger Rabbit Dragon Snake Horse Goat Monkey Rooster Dog Pig)

var elements = %w(Wood Fire Earth Metal Water)

[1935, 1938, 1968, 1972, 1976, 2017].each { |year|

printf("%4d: %s%s (%s-%s) %s %s; %s - year %d of the cycle\n", zodiac(year))

{{out}}

<pre>

2017: 丁酉 (dīng-yŏu) Fire Rooster; yin - year 34 of the cycle

</pre>

=={{header|tbas}}==

DATA "甲","乙","丙","丁","戊","己","庚","辛","壬","癸"

DECLARE celestial$(10)

PRINT TAB(50);"year";index;"of the cycle"

NEXT

<pre>

$ tbas chinZod.bas

</pre>

=={{header|Tcl}}==

proc cn_zodiac year {

set year0 [expr $year-4]

return $res

}

% cn_zodiac 1984

甲子 jia3-zi3 Wood Rat (yang) year 1

丁酉 ding1-you3 Fire Rooster (yin) year 34

</pre>

 

=={{header|UTFool}}==

 

···

http://rosettacode.org/wiki/Chinese_zodiac

System.out.printf " %-2s/60 %-7s %s\n\n", cycle \ 60 + 1,

wuxing[2][stem / 2], shengxiao[2][branch]

=={{header|VBScript}}==

To run in console mode with cscript.

 

Animals = array( "Rat","Ox","Tiger","Rabbit","Dragon","Snake","Horse","Goat","Monkey","Rooster","Dog","Pig" )

msgbox xYear & " is the year of the " & yElement & " " & yAnimal & " (" & yYinYang & ").",, _

xYear & " : " & nn & "/60"

{{out}}

<pre>

2017 is the year of the Fire Rooster (Yin).

</pre>

=={{header|Visual Basic .NET}}==

{{trans|C#}}

 

ReadOnly ANIMALS As String() = {"Rat", "Ox", "Tiger", "Rabbit", "Dragon", "Snake", "Horse", "Goat", "Monkey", "Rooster", "Dog", "Pig"}

End Sub

 

{{out}}

<pre>1935 is the year of the Wood Pig (yin). 乙亥

1985 is the year of the Wood Ox (yin). 乙丑

2017 is the year of the Fire Rooster (yin). 丁酉</pre>

 

=={{header|zkl}}==

{{trans|Ruby}}

# encoding: utf-8

var [const] pinyin=SD( // create some static variables, SD is small fixed dictionary

return(stem_han,branch_han,

stem_pinyin,branch_pinyin, element,animal,aspect)

println("%d: %s%s (%s-%s, %s %s; %s)"

.fmt(ce_year,ceToChineseZodiac(ce_year).xplode()));

{{out}}

<pre>