Name: Anonymous 2011-05-15 20:11
Lisp
Haskell
Lisp
Haskell
pSym A [B:A@Rest] -> [[B Rest]]Haskell
pSym a (b:rest) = if a == b then [(b,rest)] else []
pSym a [] = []Lisp
Tree =: [[n 5 [n 5 n]] 4 [[n 5 n] 6 n]]Haskell
data Tree a = Empty | Node (Tree a) a (Tree a)
tree = Node (Node Empty 5 (Node Empty 5 Empty)) 4 (Node (Node Empty 5 Empty) 6 Empty)