Sync

2013-10-27 22:24:23 +00:00 · 2013-10-27 22:24:23 +00:00 · 776bba907c
commit 776bba907c
parent 6f050a029e
3887 changed files with 59894 additions and 7280 deletions
--- a/Task/User-input-Text/Logtalk/user-input-text-1.logtalk
+++ b/Task/User-input-Text/Logtalk/user-input-text-1.logtalk
@ -0,0 +1,16 @@
+:- object(user_input).
+
+    :- public(test/0).
+    test :-
+        repeat,
+            write('Enter an integer: '),
+            read(Integer),
+        integer(Integer),
+        !,
+        repeat,
+            write('Enter an atom: '),
+            read(Atom),
+        atom(Atom),
+        !.
+
+:- end_object.
--- a/Task/User-input-Text/Logtalk/user-input-text-2.logtalk
+++ b/Task/User-input-Text/Logtalk/user-input-text-2.logtalk
@ -0,0 +1,4 @@
+| ?- user_input::test.
+Enter an integer: 75000.
+Enter an atom: 'Hello world!'.
+yes