Colin Paul Adams wrote:
> I have the following function:
> northern_range:: Piece_type -> Int
> northern_range piece
| elem piece [Lance, Reverse_chariot, Vertical_mover, etc.] = 11
| elem piece [Bishop, Kylin, etc.] = 0
| otherwise = 1
if you have an Eq instance for Piece_type.
Cheers Christian