RosettaCodeData/Task/Sleep/J/sleep-1.j

8 lines
96 B
Plaintext

sleep =: 6!:3
sleeping=: monad define
smoutput 'Sleeping...'
sleep y
smoutput 'Awake!'
)