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 |
; 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"} |