isRealRoom :: Room -> Bool
isRealRoom r = compute r == checksum r
  where compute = take 5 . order . hash
isRealRoom :: Room -> Bool
isRealRoom r = compute r == checksum r
  where compute = take 5 . order . hash
isRealRoom r = compute r == checksum r
  where compute = take 5 . order . hash