sufficient :: ResourceCount -> ResourceCount -> Bool
sufficient r c = and [lumber', wool', wheat', brick', ore']
  where lumber' = lumber r >= lumber c
        wool' = wool r >= wool c
        wheat' = wheat r >= wheat c
        brick' = brick r >= brick c
        ore' = ore r >= ore c
sufficient :: ResourceCount -> ResourceCount -> Bool
sufficient r c = and [lumber', wool', wheat', brick', ore']
  where lumber' = lumber r >= lumber c
        wool' = wool r >= wool c
        wheat' = wheat r >= wheat c
        brick' = brick r >= brick c
        ore' = ore r >= ore c
sufficient r c = and [lumber', wool', wheat', brick', ore']
  where lumber' = lumber r >= lumber c
        wool' = wool r >= wool c
        wheat' = wheat r >= wheat c
        brick' = brick r >= brick c
        ore' = ore r >= ore c