aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Task/Sleep/Ada/sleep.ada
View file

@ -1,11 +0,0 @@
with Ada.Text_Io; use Ada.Text_Io;
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
procedure Sleep is
In_Val : Float;
begin
Get(In_Val);
Put_Line("Sleeping...");
delay Duration(In_Val);
Put_Line("Awake!");
end Sleep;

6
Task/Sleep/AutoIt/sleep.autoit
View file

@ -1,6 +0,0 @@
#AutoIt Version: 3.2.10.0
$sleep_me=InputBox("Sleep", "Number of seconds to sleep", "10", "", -1, -1, 0, 0)
Dim $sleep_millisec=$sleep_me*1000
MsgBox(0,"Sleep","Sleeping for "&$sleep_me&" sec")
sleep ($sleep_millisec)
MsgBox(0,"Awake","... Awaking")

15
Task/Sleep/COBOL/sleep-1.cobol
View file

@ -1,15 +0,0 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. Sleep-In-Seconds.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Seconds-To-Sleep USAGE IS FLOAT-LONG.
PROCEDURE DIVISION.
ACCEPT Seconds-To-Sleep
DISPLAY "Sleeping..."
CONTINUE AFTER Seconds-To-Sleep SECONDS
DISPLAY "Awake!"
GOBACK.
END PROGRAM Sleep-In-Seconds.

18
Task/Sleep/COBOL/sleep-2.cobol
View file

@ -1,18 +0,0 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. Sleep-In-Seconds.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Seconds-To-Sleep USAGE IS COMP-2.
*> Note: COMP-2, while supported on most implementations, is
*> non-standard. FLOAT-SHORT is the proper USAGE for Native
*> IEEE 754 Binary64 Floating-point data items.
PROCEDURE DIVISION.
ACCEPT Seconds-To-Sleep
DISPLAY "Sleeping..."
CALL "C$SLEEP" USING BY CONTENT Seconds-To-Sleep
DISPLAY "Awake!"
GOBACK.
END PROGRAM Sleep-In-Seconds.

26
Task/Sleep/COBOL/sleep-3.cobol
View file

@ -1,26 +0,0 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. Sleep-In-Nanoseconds.
OPTIONS.
DEFAULT ROUNDED MODE IS NEAREST-AWAY-FROM-ZERO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Seconds-To-Sleep USAGE IS FLOAT-LONG.
01 Nanoseconds-To-Sleep USAGE IS FLOAT-LONG.
01 Nanoseconds-Per-Second CONSTANT AS 1000000000.
PROCEDURE DIVISION.
ACCEPT Seconds-To-Sleep
COMPUTE Nanoseconds-To-Sleep
= Seconds-To-Sleep * Nanoseconds-Per-Second
END-COMPUTE
DISPLAY "Sleeping..."
CALL "CBL_OC_NANOSLEEP"
USING BY CONTENT Nanoseconds-To-Sleep
END-CALL
DISPLAY "Awake!"
GOBACK.
END PROGRAM Sleep-In-Nanoseconds.

8
Task/Sleep/Elena/sleep.elena
View file

@ -1,9 +1,9 @@
import extensions;
public program()
public Program()
{
int sleep := console.readLine().toInt();
console.printLine("Sleeping...");
system'threading'threadControl.sleep(sleep);
console.printLine("Awake!")
Console.printLine("Sleeping...");
system'threading'Thread.sleep(sleep);
Console.printLine("Awake!")
}

4
Task/Sleep/Emacs-Lisp/sleep.l
View file

@ -1,4 +0,0 @@
(let ((seconds (read-number "Time in seconds: ")))
(message "Sleeping ...")
(sleep-for seconds)
(message "Awake!"))

4
Task/Sleep/PowerShell/sleep.psh
View file

@ -1,4 +0,0 @@
$d = [int] (Read-Host Duration in seconds)
Write-Host Sleeping ...
Start-Sleep $d
Write-Host Awake!

9
Task/Sleep/REBOL/sleep.rebol
View file

@ -1,9 +0,0 @@
REBOL [
Title: "Sleep Main Thread"
URL: http://rosettacode.org/wiki/Sleep_the_Main_Thread
]
naptime: to-integer ask "Please enter sleep time in seconds: "
print "Sleeping..."
wait naptime
print "Awake!"

5
Task/Sleep/REXX/sleep-3.rexx
View file

@ -1,6 +1,7 @@
include Settings
-- 24 Aug 2025
include Setting
say 'SLEEP - 2 Mar 2025'
say 'SLEEP'
say version
say
call Sleep 1

4
Task/Sleep/VBScript/sleep.vb
View file

@ -1,4 +0,0 @@
iSeconds=InputBox("Enter a time in seconds to sleep: ","Sleep Example for RosettaCode.org")
WScript.Echo "Sleeping..."
WScript.Sleep iSeconds*1000 'Sleep is done in Milli-Seconds
WScript.Echo "Awake!"