RosettaCodeData/Task/Enumerations/Oz/enumerations-3.oz
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

8 lines
138 B
Text

declare
proc {Enumeration Xs}
Xs = {List.number 1 {Length Xs} 1}
end
[Apple Banana Cherry] = {Enumeration}
in
{Show Cherry}