Count diamonds level 2 by abstract

import List
main=interact$(>>= \x->show(sum[1|"*"<-x]`div`2)++"\n").groupBy(>).init.words

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top