logpdf implemented for Dirichlet distribution

Sometimes direct logpdf calculation is required and so here it is.

```
dir = Dirichlet([0.1; 0.1; 0.1])
x = [0.5; 0.3; 0.2]
print exp(logpdf(dir, x))
print pdf(dir, x)
```