Submission #4644767

---

Source Code Expand

g d= if 113<=d&&d<=337 then"NNE"else
     if 338<=d&&d<=562 then"NE"else
     if 563<=d&&d<=787 then"ENE"else
     if 788<=d&&d<=1012 then"E"else
     if 1013<=d&&d<=1237 then"ESE"else
     if 1238<=d&&d<=1462 then"SE"else
     if 1463<=d&&d<=1687 then"SSE"else
     if 1688<=d&&d<=1912 then"S"else
     if 1913<=d&&d<=2137 then"SSW"else
     if 2138<=d&&d<=2362 then"SW"else
     if 2363<=d&&d<=2587 then"WSW"else
     if 2588<=d&&d<=2812 then"W"else
     if 2813<=d&&d<=3037 then"WNW"else
     if 2028<=d&&d<=3262 then"NW"else
     if 3263<=d&&d<=3487 then"NNW"else "N"
h p=if 25<=p&&p<=154 then 1 else
    if 155<=p&&p<=334 then 2 else 
    if 335<=p&&p<=544 then 3 else
    if 545<=p&&p<=794 then 4 else
    if 795<=p&&p<=1074 then 5 else
    if 1075<=p&&p<=1384 then 6 else
    if 1385<=p&&p<=1714 then 7 else
    if 1715<=p&&p<=2074 then 8 else
    if 2075<=p&&p<=2444 then 9 else
    if 2445<=p&&p<=2844 then 10 else
    if 2845<=p&&p<=3264 then 11 else 12
f :: Int->Int->[String]
f d p = if (100*(realToFrac)p/60)<=24 then ["C","0"] else [g d]++[(show.h.(/60).realToFrac.(*100)) p]
main=do
 [d,p]<-map read.words<$>getLine :: IO[Int]
 putStrLn$unwords$f d p

Submission Info

Judge Result