Chinese zodiac: Difference between revisions

m
m (→‎{{header|Wren}}: Minor tidy)
imported>Thebeez
Line 4,372:
dim @a(12) ' the animals
 
Push Dup("yang"), Dup("yin") ' fill Ying/Yang table
For i = 1 to 0 stepStep -1 : @y(i) = Pop() : Next i
' fill Elements table
Push Dup("Wood"), Dup("Fire"), Dup("Earth"), Dup("Metal"), Dup("Water")
For i = 4 to 0 stepStep -1 : @e(i) = Pop() : Next i
' fill Animals table
Push Dup("Rat"), Dup("Ox"), Dup("Tiger"), Dup( "Rabbit"), Dup( "Dragon"), "Snake"
Push Dup("SnakeHorse"), Dup("HorseGoat"), Dup("GoatMonkey"), "Rooster", Dup("MonkeyDog"), Dup( "RoosterPig")
Push Dup("Dog"), Dup("Pig")
 
For i = 11 to 0 step -1 : @a(i) = Pop() : Next i
Line 4,412 ⟶ 4,411:
0 OK, 0:1047
</pre>
 
=={{header|UNIX Shell}}==
{{works with|Bash|4+}}
Anonymous user