/*
  Leap year

  Nope.

*/
data(leap_year,Data,Vars,Unknown,Ops,Constants,MaxC) :-
  Data = [ [[Year], LeapYear] : Year in 1900..1908, LeapYear = cond(leap_year(Year),1,0)],
  println(Data),
  % get_global_map().put("debug",true),
  Ops = new_map([infix=["*","mod","/\\","\\/"]
                , user3=["if_then_else"]
                , conditions=["!=","=="]
                ]),
  Constants = [0,4,100,400],
  Vars = ["Year"],
  MaxC = 10,  
  Unknown = [2022].
           

leap_year(Year) :- 
  (Year mod 4 == 0, Year mod 100 != 0) 
  ; 
  Year mod 400 == 0.