Last change
on this file since 2980ccb8 was
1725989,
checked in by Peter A. Buhr <pabuhr@…>, 6 months ago
|
add enumeration test programs for different programming languages
|
-
Property mode set to
100644
|
File size:
482 bytes
|
Line | |
---|
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.