Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
19
Task/Loops-Continue/Prolog/loops-continue.pro
Normal file
19
Task/Loops-Continue/Prolog/loops-continue.pro
Normal file
|
|
@ -0,0 +1,19 @@
|
|||
:- initialization(main).
|
||||
|
||||
print_list(Min, Max) :-
|
||||
Min < Max,
|
||||
write(Min),
|
||||
Min1 is Min + 1,
|
||||
(
|
||||
Min mod 5 =:= 0
|
||||
-> nl
|
||||
; write(',')
|
||||
),
|
||||
print_list(Min1, Max).
|
||||
|
||||
print_list(Max, Max) :-
|
||||
write(Max),
|
||||
nl.
|
||||
|
||||
main :-
|
||||
print_list(1, 10).
|
||||
Loading…
Add table
Add a link
Reference in a new issue