software-engineering-amsterdam / ST2017_WG_14

0 stars 1 forks source link

Lab1: Exercise 8 #1

Closed BertLisser closed 7 years ago

BertLisser commented 7 years ago
honest, guilty :: [Boy]
honest = accusers $ head guilty

The last remark starting with If the puzzle is well-designed was not an assumption. So better code would be:

honest :: [Boy]
honest = concat [accusers x | x <-guilty]

Well done!