Skip to content

Instantly share code, notes, and snippets.

@Ryan1729

Ryan1729/fastCompareMonth.elm

Created October 30, 2016 10:08
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Ryan1729/4fdf3f9437e44ff2576926a30e6b4adb to your computer and use it in GitHub Desktop.
Save Ryan1729/4fdf3f9437e44ff2576926a30e6b4adb to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fastCompareMonth.elm
module Main exposing (..)
import Date exposing (Month(..))
compareMonth : Month -> Month -> Order
compareMonth m1 m2 =
case m1 of
Jan ->
case m2 of
Jan ->
EQ
_ ->
LT
Feb ->
case m2 of
Jan ->
GT
Feb ->
EQ
_ ->
LT
Mar ->
case m2 of
Jan ->
GT
Feb ->
GT
Mar ->
EQ
_ ->
LT
Apr ->
case m2 of
Jan ->
GT
Feb ->
GT
Mar ->
GT
Apr ->
EQ
_ ->
LT
May ->
case m2 of
Jan ->
GT
Feb ->
GT
Mar ->
GT
Apr ->
GT
May ->
EQ
_ ->
EQ
Jun ->
case m2 of
Jan ->
GT
Feb ->
GT
Mar ->
GT
Apr ->
GT
May ->
GT
Jun ->
EQ
_ ->
EQ
Jul ->
case m2 of
Dec ->
LT
Nov ->
LT
Oct ->
LT
Sep ->
LT
Aug ->
LT
Jul ->
EQ
_ ->
GT
Aug ->
case m2 of
Dec ->
LT
Nov ->
LT
Oct ->
LT
Sep ->
LT
Aug ->
EQ
_ ->
GT
Sep ->
case m2 of
Dec ->
LT
Nov ->
LT
Oct ->
LT
Sep ->
EQ
_ ->
GT
Oct ->
case m2 of
Dec ->
LT
Nov ->
LT
Oct ->
EQ
_ ->
GT
Nov ->
case m2 of
Dec ->
LT
Nov ->
EQ
_ ->
GT
Dec ->
case m2 of
Dec ->
EQ
_ ->
GT
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment