seiza.ml

(* seiza int -> string *)
let seiza md =
  if md < 0120 then
    "牡羊座"
  else if md <= 0218 then
    "水瓶座"
  else if md <= 0320 then
    "魚座"
  else if md <= 0419 then
    "牡羊座"
  else if md <= 0520 then
    "牡牛座"
  else if md <= 0621 then
    "双子座"
  else if md <= 0722 then
    "蟹座"
  else if md <= 0822 then
    "獅子座"
  else if md <= 0922 then
    "乙女座"
  else if md <= 1023 then
    "天秤座"
  else if md <= 1121 then
    "蠍座"
  else if md <= 1221 then
    "射手座"
  else
    "山羊座"

let seiza0120 = seiza 0101 = "牡羊座"
let seiza0120 = seiza 0119 = "牡羊座"
let seiza0120 = seiza 0120 = "水瓶座"
let seiza0218 = seiza 0218 = "水瓶座"
let seiza0320 = seiza 0319 = "魚座"
let seiza0320 = seiza 0320 = "魚座"
let seiza0419 = seiza 0321 = "牡羊座"
let seiza0419 = seiza 0419 = "牡羊座"
let seiza0520 = seiza 0420 = "牡牛座"
let seiza0520 = seiza 0520 = "牡牛座"
let seiza0621 = seiza 0521 = "双子座"
let seiza0621 = seiza 0621 = "双子座"
let seiza0722 = seiza 0622 = "蟹座"
let seiza0722 = seiza 0722 = "蟹座"
let seiza0822 = seiza 0723 = "獅子座"
let seiza0822 = seiza 0822 = "獅子座"
let seiza0922 = seiza 0823 = "乙女座"
let seiza0922 = seiza 0922 = "乙女座"
let seiza1023 = seiza 0923 = "天秤座"
let seiza1023 = seiza 1023 = "天秤座"
let seiza1121 = seiza 1024 = "蠍座"
let seiza1121 = seiza 1121 = "蠍座"
let seiza1221 = seiza 1122 = "射手座"
let seiza1221 = seiza 1221 = "射手座"
let seiza1231 = seiza 1222 = "山羊座"
let seiza1231 = seiza 1231 = "山羊座"