tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Pick-random-element/OCaml/pick-random-element-1.ocaml
+++ b/Task/Pick-random-element/OCaml/pick-random-element-1.ocaml
@ -0,0 +1,3 @@
+let list_rand lst =
+  let len = List.length lst in
+  List.nth lst (Random.int len)
--- a/Task/Pick-random-element/OCaml/pick-random-element-2.ocaml
+++ b/Task/Pick-random-element/OCaml/pick-random-element-2.ocaml
@ -0,0 +1,3 @@
+let array_rand ary =
+  let len = Array.length ary in
+  ary.(Random.int len)