RosettaCodeData/Task/Flatten-a-list/Standard-ML/flatten-a-list-1.ml
2016-12-05 22:15:40 +01:00

3 lines
87 B
Standard ML

datatype 'a nestedList =
L of 'a (* leaf *)
| N of 'a nestedList list (* node *)