Chinese zodiac: Difference between revisions

Chinese zodiac (view source)

146 bytes added , 7 years ago

m

→‎{{header|Perl 6}}: return a hash rather than a string; allows customization of display

10,333

edits

Revision as of 13:30, 28 January 2017 (view source) Thundergnat (talk \| contribs) m (→‎{{header\|Perl 6}}: Remove stray whitespace) ← Older edit		Revision as of 14:08, 28 January 2017 (view source) Thundergnat (talk \| contribs) m (→‎{{header\|Perl 6}}: return a hash rather than a string; allows customization of display) Newer edit →
Line 68: my $i12 = $cycle_year % 12; %( ~~"$year: { @heaven[$i10].key }{ @earth[$i12].key } (" ~~~ "{ 'Han' => @heaven[$i10].~~value~~key ~~}-{~~~ @earth[$i12].~~value }~~key, ~~" ~~~ "{ ~~@element[$i10~~ ~~div~~ 2] }'pinyin' => "{ @~~animal~~heaven[$~~i12~~i10].value }; -{ @~~aspect~~earth[$i2i12].value })";, 'element' => @element[$i10 div 2], 'animal' => @animal[$i12], 'aspect' => @aspect[$i2] ) } # TESTING printf "%d: %s (%s, %s %s; %s)\n", say .&Chinese-zodiac for flat <1935 1938 1968 1972 1976>, DateTime(now).year;</lang>▼ $_, .&Chinese-zodiac<Han pinyin element animal aspect> ▲~~say~~ ~~.&Chinese-zodiac~~ ~~for~~ ~~flat~~ <for 1935, 1938, 1968, 1972, 1976>, DateTime(now).year;</lang> {{out}} <pre>1935: 乙亥 (yĭ-hài, Wood Pig; yin)