Pick random element: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: syntax coloured, extended to show mixed types) |
(Added Hare) |
||
Line 751: | Line 751: | ||
70 PRINT ARR(C)</lang> |
70 PRINT ARR(C)</lang> |
||
{{out}}<pre> 81</pre> |
{{out}}<pre> 81</pre> |
||
=={{header|Hare}}== |
|||
<lang hare>use fmt; |
|||
use math::random; |
|||
use datetime; |
|||
export fn main() void = { |
|||
const array = ["one", "two", "three", "four", "five"]; |
|||
const seed = datetime::now(); |
|||
const seed = datetime::nsec(&seed); |
|||
let r = math::random::init(seed: u32); |
|||
fmt::printfln("{}", array[math::random::u32n(&r, len(array): u32)])!; |
|||
};</lang> |
|||
=={{header|Haskell}}== |
=={{header|Haskell}}== |