我正在尝试做一些告诉我黄道带标志的事情，如果年份是闰年，所有这些都在 Prolog 中
一切看起来都很棒，但是当我尝试做 cosnult 时，它向我显示了一个错误
这是我的代码
/* 7. Horóscopo
horoscopo(Signo,DiaIni,MesIni,DiaFin,MesFin)
<- son del signo Signo los nacidos entre el Dia
Ini/MesIni y el DiaFin/MesFin */
horoscopo(aries,21,3,21,4).
horoscopo(tauro,21,4,21,5).
horoscopo(geminis,21,5,21,6).
horoscopo(cancer,21,6,21,7).
horoscopo(leo,21,7,21,8).
horoscopo(virgo,21,8,21,9).
horoscopo(libra,21,9,21,10).
horoscopo(escorpio,21,10,21,11).
horoscopo(sagitario,21,11,21,12).
horoscopo(capricornio,21,12,21,1).
horoscopo(acuario,21,1,21,2).
horoscopo(piscis,21,2,21,3).
mes(1,31,enero).
mes(2,28,febrero).
mes(3,31,marzo).
mes(4,30,abril).
mes(5,31,mayo).
mes(6,30,junio).
mes(7,31,julio).
mes(8,31,agosto).
mes(9,30,septiembre).
mes(10,31,octubre).
mes(11,30,noviembre).
mes(12,31,diciembre).
signo(Dia,Mes,Signo) :-horoscopo(Signo,D1,M1,D2,M2),((Mes=M1,Dia>=D1,mes(M1,D,_),Dia=<D);(Mes=M2,Dia=<D2,Dia>0)).
anio_bisiesto(L) :-
partition(es_anio_bisiesto,L,LIn,LOut),
format('año bisiesto:~w~n',[LIn]),
format('no año bisiesto:~w~n',[LOut]).
corre:-write('Presiona s para salir, c para continuar: '),
read(Z),
proceso(Z).
proceso(c):-write('Introduce tu día de nacimiento: '),
read(X),
write('Introduce tu mes de nacimiento: '),
read(Y),
calcula(X,Y).
write('Introduce el año: '),
read(a).
es_anio_bisiesto(anio) :-
R4 is anio mod 4,
R100 is anio mod 100,
R400 is anio mod 400,
((R4 = 0, R100 \= 0); R400 = 0).
proceso(s):-!.
calcula(X,Y):-write('Tu signo es: '),
signo(X,Y,Signo),
write(Signo),nl,corre.
这是我的错误
ERROR: c:/users/alaenvargut/desktop/a.pl:53:
Full stop in clause-body? Cannot redefine ,/2
Warning: c:/users/alaenvargut/desktop/a.pl:62:
Clauses of proceso/1 are not together in the source-file
% c:/Users/Alaenvargut/Desktop/a.pl compiled 0.00 sec, 1 clauses
请帮我
抱歉我的英语不好：S 请