chore: Small cleanups

This commit is contained in:
Tibo De Peuter 2025-05-19 09:12:37 +02:00
parent e087e5f29f
commit 24bfa426ab
Signed by: tdpeuter
GPG key ID: 38297DE43F75FFE2
2 changed files with 4 additions and 4 deletions

View file

@ -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: '),

View file

@ -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) :-