Compare commits
2 commits
b294467587
...
24bfa426ab
Author | SHA1 | Date | |
---|---|---|---|
24bfa426ab | |||
e087e5f29f |
2 changed files with 6 additions and 6 deletions
|
@ -1,13 +1,13 @@
|
||||||
login :-
|
login :-
|
||||||
getdata(_, _),
|
getdata,
|
||||||
writeln('Welcome!').
|
writeln('Welcome!').
|
||||||
login :-
|
login :-
|
||||||
repeat,
|
repeat,
|
||||||
writeln('Sorry, you are not permitted.'),
|
writeln('Sorry, you are not permitted.'),
|
||||||
getdata(_, _),
|
getdata,
|
||||||
writeln('Welcome').
|
writeln('Welcome').
|
||||||
|
|
||||||
getdata(Name, Password) :-
|
getdata :-
|
||||||
write('Username: '),
|
write('Username: '),
|
||||||
read(Name),
|
read(Name),
|
||||||
write('Password: '),
|
write('Password: '),
|
||||||
|
|
|
@ -28,8 +28,8 @@ options :-
|
||||||
writeln('(1) A password prompt basics password.pl'),
|
writeln('(1) A password prompt basics password.pl'),
|
||||||
writeln('(2) Add i in [a..b] maths summer.pl'),
|
writeln('(2) Add i in [a..b] maths summer.pl'),
|
||||||
writeln('(3) A translator meta mib_voorbeelden.pl'),
|
writeln('(3) A translator meta mib_voorbeelden.pl'),
|
||||||
writeln('(4) A tale of a ceremony cont. ceremony.pl'),
|
writeln('(4) A tale of a ceremony del.con. ceremony.pl'),
|
||||||
writeln('(5) Maths with Shift/Reset cont. continuations.pl'),
|
writeln('(5) Maths with Shift/Reset del.con. continuations.pl'),
|
||||||
% writeln('(6) Alternative lists meta my_list.pl'),
|
% writeln('(6) Alternative lists meta my_list.pl'),
|
||||||
nl,
|
nl,
|
||||||
writeln('(interpreter) to enter the interpreter'),
|
writeln('(interpreter) to enter the interpreter'),
|
||||||
|
@ -155,7 +155,7 @@ continue :-
|
||||||
write('Write anything to continue... '),
|
write('Write anything to continue... '),
|
||||||
read(_).
|
read(_).
|
||||||
|
|
||||||
clear :- clear(30).
|
clear :- clear(50).
|
||||||
|
|
||||||
clear(0) :- !.
|
clear(0) :- !.
|
||||||
clear(N) :-
|
clear(N) :-
|
||||||
|
|
Reference in a new issue