Anonymous user
Sleep: Difference between revisions
Add Logtalk implementation
(new Emacs Lisp) |
(Add Logtalk implementation) |
||
Line 692:
print [Awake.]
end
</lang>
=={{header|Logtalk}}==
Works when using SWI-Prolog, XSB, or YAP as the backend compilers:
<lang logtalk>
:- object(sleep).
:- public(how_long/1).
how_long(Seconds) :-
write('Sleeping ...'), nl,
thread_sleep(Seconds),
write('... awake!'), nl.
:- end_object.
</lang>
Sample output:
<lang text>
| ?- sleep::how_long(5).
Sleeping ...
... awake!
yes
</lang>
| |||