[ create a new paste ] login | about

Link: http://codepad.org/mjME3TGV    [ raw code | output | fork ]

Haskell, pasted on Feb 18:
1
2
3
4
5
6
7
8
9
10
import List
data T=Char:=Int|N T T Int
s(x:=_)=show x
s(N a b _)='(':s a++s b++")"
g(_:=a)=a
g(N _ _ a)=a
i[a]=a
i(a:b:x)=t$N a b(g a+g b):x
t=i.sortBy((.g).(compare.g))
main=interact$s.t.map(\x->x!!0:=length x).group.sort


Output:
1
2

Program error: pattern match failure: i []


Create a new paste based on this one


Comments: