source:
doc/theses/jiada_liang_MMath/test1.ml@
d7cb0f7
Last change on this file since d7cb0f7 was 1725989, checked in by , 16 months ago | |
---|---|
|
|
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.