RosettaCodeData/Task/Enumerations/Shen/enumerations.shen

8 lines
103 B
Plaintext

(tc +)
(datatype fruit
if (element? Fruit [apple banana cherry])
_____________
Fruit : fruit;)