RosettaCodeData/Task/Pick-random-element/XPL0/pick-random-element.xpl0

6 lines
138 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
code Ran=1, Text=12;
int List;
[List:= ["hydrogen", "helium", "lithium", "beryllium", "boron"]; \(Thanks REXX)
Text(0, List(Ran(5)));
]