September 2017 Update

Task/Sleep/BASIC/sleep-2.basic

@@ -1,5 +1,6 @@
-10 REM s is the number of seconds
-20 LET s = 5
-30 PRINT "Sleeping"
-40 PAUSE s * 50
-50 PRINT "Awake"
+10 PRINT "HOW LONG SHOULD I SLEEP FOR?"
+20 PRINT "(IN TELEVISION FRAMES)"
+30 INPUT SLEEPTIME
+40 PRINT "SLEEPING... ";
+50 PAUSE SLEEPTIME
+60 PRINT "AWAKE."

Task/Sleep/BASIC/sleep-3.basic

@@ -0,0 +1,5 @@
+10 REM s is the number of seconds
+20 LET s = 5
+30 PRINT "Sleeping"
+40 PAUSE s * 50
+50 PRINT "Awake"

Task/Sleep/Kotlin/sleep.kotlin

@@ -0,0 +1,9 @@
+// version 1.0.6
+
+fun main(args: Array<String>) {
+    print("Enter number of milliseconds to sleep: ")
+    val ms = readLine()!!.toLong()
+    println("Sleeping...")
+    Thread.sleep(ms)
+    println("Awake!")
+}

Task/Sleep/Nimrod/sleep.nimrod

@@ -1,7 +0,0 @@
-import os, strutils
-
-echo("Enter how long I should sleep (in milliseconds):")
-var timed = parseInt(readLine(stdin).string)
-echo("Sleeping...")
-sleep(timed)
-echo("Awake!")

Task/Sleep/OoRexx/sleep.rexx

@@ -0,0 +1,3 @@
+Say time()
+Call sysSleep 10 -- wait 10 seconds
+Say time()

Task/Sleep/Protium/sleep-1.protium

@@ -1,4 +0,0 @@
-<@ SAYLIT>Number of seconds: </@><@ GETVAR>secs</@>
-<@ SAYLIT>Sleeping</@>
-<@ ACTPAUVAR>secs</@>
-<@ SAYLIT>Awake</@>

Task/Sleep/Protium/sleep-2.protium

@@ -1,4 +0,0 @@
-<# MontrezLittéralement>Number of seconds: </#><# PrenezUneValeurVariable>secs</#>
-<# MontrezLittéralement>Sleeping</#>
-<# AgissezFaireUnePauseVariable>secs</#>
-<# MontrezLittéralement>Awake</#>

Task/Sleep/Protium/sleep-3.protium

@@ -1,4 +0,0 @@
-<@ 显示_字串_>Number of seconds: </@><@ 获取_变量_>secs</@>
-<@ 显示_字串_>Sleeping</@>
-<@ 运行_暂停动变量_>secs</@>
-<@ 显示_字串_>Awake</@>

Task/Sleep/Rust/sleep.rust

@@ -0,0 +1,19 @@
+use std::{io, time, thread};
+
+fn main() {
+    println!("How long should we sleep in milliseconds?");
+
+    let mut sleep_string = String::new();
+
+    io::stdin().read_line(&mut sleep_string)
+               .expect("Failed to read line");
+
+    let sleep_timer: u64 = sleep_string.trim()
+                                       .parse()
+                                       .expect("Not an integer");
+    let sleep_duration = time::Duration::from_millis(sleep_timer);
+
+    println!("Sleeping...");
+    thread::sleep(sleep_duration);
+    println!("Awake!");
+}

Task/Sleep/Stata/sleep.stata

@@ -0,0 +1,8 @@
+program sleep_awake
+	* pass duration in milliseconds
+	display "Sleeping..."
+	sleep `0'
+	display "Awake!"
+end
+
+sleep_awake 2000

Task/Sleep/X86-Assembly/sleep.x86

@@ -0,0 +1,14 @@
+; x86_64 linux nasm
+
+section .text
+
+Sleep:
+  mov rsi, 0 ; we wont use the second sleep arg, pass null to syscall
+  sub rsp, 16
+  mov qword [rsp], rdi ; number of seconds the caller requested
+  mov qword [rsp + 8], rsi ; we won't use the nanoseconds
+  mov rdi, rsp ; pass the struct that's on the stack to
+  mov rax, 35 ; sys_nanosleep
+  syscall
+  add rsp, 16 ; clean up stack
+  ret

Task/Sleep/Zkl/sleep.zkl

@@ -0,0 +1,4 @@
+seconds:=ask("Seconds to sleep: ").toFloat();
+println("Sleeping...");
+Atomic.sleep(seconds); # float, usually millisecond resolution
+println("Awake!");