blob: 53e0093f13c3b9c61ae62818ad0f56c7a688f070 (
plain)
1
2
3
4
5
6
7
8
9
10
|
--Testing data type and constructor shadowing with functions
data Planet = Mercury | Venus | Earth
let pn Mercury = "M" ; pn Venus = "V" ; pn Earth = "E"
pn Mercury
data Planet = Mercury | Venus | Mars
pn Mercury
pn Venus
pn Mars
pn Earth
let pn Mercury = "M" ; pn Venus = "V" ; pn Earth = "E" ; pn Mars = "M"
|
