|
Last change
on this file since 28182444 was 1725989, checked in by Peter A. Buhr <pabuhr@…>, 15 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.
