>>623
% Prolog

星座判定(_月,_日,_星座) :-
星座(_星座,_月下限/_日下限-_月上限/_日上限),
_月 >= _月下限,
_日 >= _日下限,
_月 =< _月上限,
_日 =< _日上限.

星座(牡牛座,4/21-5/21).
星座(双子座,5/22-6/21).
星座(蟹座,6/22-7/22).
星座(獅子座,7/23-8/22).
星座(乙女座,8/23-9/23).
星座(天秤座,9/24-10/23).
星座(蠍座,10/24-11/22).
星座(射手座,11/23-12/21).
星座(山羊座,12/22-12/31).
星座(山羊座,1/1-1/20).
星座(水瓶座,1/21-2/18).
星座(魚座,2/19-3/20).