Chinese zodiac: Difference between revisions

Content added Content deleted
(Forth version)
Line 1,837: Line 1,837:
{{out}}
{{out}}
<pre>
<pre>
; for (x in 1935 1938 1968 1972 1976 1984 2017) {printf ''%s '' $x; gforth zodiac.f $x}
; for (x in 1935 1938 1968 1972 1976 1984 2017) {printf '%s ' $x; gforth zodiac.f $x}
1935 Wood Pig (yin)
1935 Wood Pig (yin)
1938 Earth Tiger (yang)
1938 Earth Tiger (yang)
Line 1,846: Line 1,846:
2017 Fire Rooster (yin)
2017 Fire Rooster (yin)
</pre>
</pre>

=={{header|FreeBASIC}}==
=={{header|FreeBASIC}}==
<syntaxhighlight lang="freebasic">dim as string yy(0 to 1) = {"yang", "yin"}
<syntaxhighlight lang="freebasic">dim as string yy(0 to 1) = {"yang", "yin"}