update
This commit is contained in:
parent
1f1ad49427
commit
6f050a029e
2496 changed files with 37609 additions and 3031 deletions
|
|
@ -4,3 +4,6 @@ Write a program that does the following in this order:
|
|||
* Sleep the main [[thread]] for the given amount of time.
|
||||
* Print "Awake!"
|
||||
* End.
|
||||
|
||||
;Cf.:
|
||||
* [[Nautical bell]]
|
||||
|
|
|
|||
18
Task/Sleep/COBOL/sleep-1.cobol
Normal file
18
Task/Sleep/COBOL/sleep-1.cobol
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. Sleep-In-Seconds.
|
||||
|
||||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
01 Seconds-To-Sleep USAGE COMP-2.
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
ACCEPT Seconds-To-Sleep
|
||||
|
||||
DISPLAY "Sleeping..."
|
||||
|
||||
CALL "C$SLEEP" USING BY CONTENT Seconds-To-Sleep
|
||||
|
||||
DISPLAY "Awake!"
|
||||
|
||||
GOBACK
|
||||
.
|
||||
23
Task/Sleep/COBOL/sleep-2.cobol
Normal file
23
Task/Sleep/COBOL/sleep-2.cobol
Normal file
|
|
@ -0,0 +1,23 @@
|
|||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. Sleep-In-Nanoseconds.
|
||||
|
||||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
01 Seconds-To-Sleep USAGE COMP-2.
|
||||
01 Nanoseconds-To-Sleep USAGE COMP-2.
|
||||
01 Nanoseconds-Per-Second CONSTANT 1000000000.
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
ACCEPT Seconds-To-Sleep
|
||||
MULTIPLY Seconds-To-Sleep BY Nanoseconds-Per-Second
|
||||
GIVING Nanoseconds-To-Sleep
|
||||
|
||||
DISPLAY "Sleeping..."
|
||||
|
||||
CALL "CBL_OC_NANOSLEEP"
|
||||
USING BY CONTENT Nanoseconds-To-Sleep
|
||||
|
||||
DISPLAY "Awake!"
|
||||
|
||||
GOBACK
|
||||
.
|
||||
5
Task/Sleep/Julia/sleep.julia
Normal file
5
Task/Sleep/Julia/sleep.julia
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
print("Please enter sleep duration in seconds: ")
|
||||
input = int(readline(STDIN))
|
||||
println("Sleeping...")
|
||||
sleep(input)
|
||||
println("Awake!")
|
||||
Loading…
Add table
Add a link
Reference in a new issue