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>

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

</pre>

 

=={{header|Ada}}==

{{works with|GNAT|8.3.0}}

 

with Ada.Text_IO; use Ada.Text_IO;

with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;

end loop;

end Main;

 

{{out}}

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

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

</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 乙亥 木 豬 阴

=={{header|AutoHotkey}}==

Chinese Animal/Element/Yin/Yang Characters Copied From "AppleScript"

Animal := StrSplit("Rat,Ox,Tiger,Rabbit,Dragon,Snake,Horse,Goat,Monkey,Rooster,Dog,Pig", ",")

AnimalCh := StrSplit("鼠牛虎兔龍蛇馬羊猴鸡狗豬")

Bn := BranchName[Mod12]

return year "`t" S B " " Sn "-" Bn " `t" E " " Ec " " En "`t" A " " Ac " " An "`t" YY " " Yr

{

n := 1983+A_Index

}

MsgBox % output "`n" Chinese_zodiac(2017)

{{out}}

<pre>1984 甲子 jiă-zĭ Wood 木 mù Rat 鼠 shǔ yáng 阳 1/60

 

2017 丁酉 dīng-yŏu Fire 火 huǒ Rooster 鸡 jī yīn 阴 34/60</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 sharp|C#}}==

{{trans|Java}}

 

namespace ChineseZodiac {

}

}

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

1010 poke 53281,7: rem yellow background

1020 poke 53280,2: rem red border

3310 rem year-mod function

3320 def fnym(d) = y - int(y/d)*d

{{Out}}

https://i.imgur.com/f3Fo1xm.png

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

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

34/60 fire rooster </pre>

=={{header|Delphi}}==

{{libheader| Winapi.Windows}}

{{libheader| System.Math}}

{{Trans|C#}}

program Chinese_zodiac;

 

CloseFile(Outfile);

Readln;

{{out}}

<pre>

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

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

 

=={{header|Excel}}==

 

{{Works with|Office 365 betas 2021}}

=LAMBDA(y,

APPENDCOLS(

)

)

 

and also assuming the following generic bindings in the Name Manager for the WorkBook:

 

=LAMBDA(xs,

LAMBDA(ys,

)

)

 

{{Out}}

 

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

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

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

</pre>

 

=={{header|FreeBASIC}}==

dim as string elements(0 to 4) = {"Wood", "Fire", "Earth", "Metal", "Water"}

dim as string animals(0 to 11) = {"Rat", "Ox", "Tiger", "Rabbit", "Dragon", "Snake",_

print outstr

{{out}}

<pre>

2186 is the year of the Earth Dog (yang).

76543 is the year of the Water Rabbit (yin).</pre>

 

=={{header|Go}}==

 

import "fmt"

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

}

{{out}}

<pre>

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

</pre>

=={{header|Groovy}}==

{{trans|Java}}

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

final static String[] elements = ["Wood", "Fire", "Earth", "Metal", "Water"]

}

}

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

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

 

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

<$> zip fieldWidths (f生肖五行年份 y)

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|Mathematica}} / {{header|Wolfram Language}}==

"戊" -> "wù", "己" -> "jĭ", "庚" -> "gēng", "辛" -> "xīn",

"壬" -> "rén", "癸" -> "gŭi", "子" -> "zĭ", "丑" -> "chŏu",

calculate[1968]

calculate[1972]

{{out}}

<pre>1935: 乙亥 (yĭ-hài, Wood Pig; yin)

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

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

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

{{trans|C++}}

FROM FormatString IMPORT FormatString;

FROM Terminal IMPORT WriteString,ReadChar;

 

ReadChar

=={{header|Nim}}==

{{trans|Rust}}

 

const ANIMALS: array[12, string] = ["Rat", "Ox",

echo "---- ------- ------ ------- ------ ------ -----"

for year in years:

 

{{out}}

2020 庚子 gēng-zĭ Metal Rat Yang 37/60

</pre>

 

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

(formerly Perl 6)

{{trans|Ruby}}

 

my @heaven = <甲 jiă 乙 yĭ 丙 bĭng 丁 dīng 戊 wù 己 jĭ 庚 gēng 辛 xīn 壬 rén 癸 gŭi>.pairup;

my @earth = <子 zĭ 丑 chŏu 寅 yín 卯 măo 辰 chén 巳 sì 午 wŭ 未 wèi 申 shēn 酉 yŏu 戌 xū 亥 hài>.pairup;

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

$_, .&Chinese-zodiac<Han pinyin element animal aspect cycle>

 

{{out}}

1984: 甲子 (jiăzĭ, Wood Rat; yang - year 1 in the cycle)

2017: 丁酉 (dīngyŏu, Fire Rooster; yin - year 34 in the cycle)</pre>

=={{header|Ring}}==

yinyang = ["yang", "yin"]

elements = ["Wood", "Fire", "Earth", "Metal", "Water"]

? output

next

{{out}}

<pre>

2186 is the year of the Earth Dog (yang).

76543 is the year of the Water Rabbit (yin).

</pre>

 

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

% cn_zodiac 2017

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

</pre>

 

=={{header|UNIX Shell}}==

{{works with|Bash|4+}}

 

<pre>#!/usr/bin/env bash

BaseYear=4

 

if (( !$# )); then

set -- $(date +%Y)

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

1976:丙辰(bĭng-chén, Fire Dragon; yang)</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|Wren}}==

{{trans|Kotlin}}

{{libheader|Wren-fmt}}

 

class ChineseZodiac {

System.print("---- ------- --------- ------- ------- ------ -----")

ChineseZodiac.init()

 

{{out}}

</pre>

 

 

=={{header|Yabasic}}==

dim Animals$(12) : for a = 0 to 11 : read Animals$(a) : next a

dim Elements$(5) : for a = 0 to 4 : read Elements$(a): next a

data "Yang","Yin"

data 1935, 1938, 1968, 1972, 1976, 1984, 2017

{{out}}

<pre>

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>