Sleep: Difference between revisions

Content added Content deleted

Inline

@@ Line 93: / Line 93: @@
 =={{header|OCaml}}==
- #load "unix.cma";;
+<ocaml>#load "unix.cma";;
- let seconds = read_int ();;
+let seconds = read_int ();;
- print_endline "Sleeping...";;
+print_endline "Sleeping...";;
- Unix.sleep seconds;; (* number is integer in seconds *)
+Unix.sleep seconds;; (* number is integer in seconds *)
- print_endline "Awake!";;
+print_endline "Awake!";;</ocaml>
+or
+<ocaml>#load "unix.cma";;
+#directory "+threads";;
+#load "threads.cma";;
+let seconds = read_float ();;
+print_endline "Sleeping...";;
+Thread.delay seconds;; (* number is in seconds ... but accepts fractions *)
+print_endline "Awake!";;</ocaml>
 =={{header|Perl}}==