Skip to content

Instantly share code, notes, and snippets.

@nomeata
Created September 8, 2015 19:42
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 nomeata/8ca9e63fec0c90835916 to your computer and use it in GitHub Desktop.
Save nomeata/8ca9e63fec0c90835916 to your computer and use it in GitHub Desktop.
-> case (compare a1_acXB b1_acXJ) of {
LT -> LT
EQ
-> case (compare a2_acXC b2_acXK) of {
LT -> LT
EQ
-> case (compare a3_acXD b3_acXL) of {
LT -> LT
EQ
-> case (compare a4_acXE b4_acXM) of {
LT -> LT
EQ
-> case (compare a5_acXF b5_acXN) of {
LT -> LT
EQ
-> case (compare a6_acXG b6_acXO) of {
LT -> LT
EQ
-> case (compare a7_acXH b7_acXP) of {
LT -> LT
EQ -> (a8_acXI `compare` b8_acXQ)
GT -> GT }
GT -> GT }
GT -> GT }
GT -> GT }
GT -> GT }
GT -> GT }
GT -> GT } } }
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment