Last change
on this file since 1842167 was
1725989,
checked in by Peter A. Buhr <pabuhr@…>, 2 months ago
|
add enumeration test programs for different programming languages
|
-
Property mode set to
100644
|
File size:
482 bytes
|
Rev | Line | |
---|
[1725989] | 1 | type character_class = |
---|
| 2 | Barbarian |
---|
| 3 | | Bard |
---|
| 4 | | Cleric |
---|
| 5 | | Druid |
---|
| 6 | | Fighter |
---|
| 7 | | Monk |
---|
| 8 | | Paladin |
---|
| 9 | | Ranger |
---|
| 10 | | Rogue |
---|
| 11 | | Sorcerer |
---|
| 12 | | Wizard |
---|
| 13 | |
---|
| 14 | type rectitude = Evil | R_Neutral | Good |
---|
| 15 | |
---|
| 16 | type firmness = Chaotic | F_Neutral | Lawful |
---|
| 17 | |
---|
| 18 | let rectitude_to_french = function |
---|
| 19 | | Evil -> "Mauvais" |
---|
| 20 | | R_Neutral -> "Neutre" |
---|
| 21 | | Good -> "Bon" |
---|
| 22 | |
---|
| 23 | let X : string = rectitude_to_french( Evil ); |
---|
| 24 | |
---|
| 25 | (* Local Variables: *) |
---|
| 26 | (* tab-width: 4 *) |
---|
| 27 | (* compile-command: "ocaml test1.ml" *) |
---|
| 28 | (* End: *) |
---|
Note: See
TracBrowser
for help on using the repository browser.