20/05/09 22:25:02 146lBXch.net
>>467
haskell
f [] _=1
f _ []=0
f (x:xs) (y:ys)
| x==y = f xs ys+(f (x:xs) ys)
| otherwise = f (x:xs) ys
f "odai" "odadai" -> 3
20/05/09 22:25:02 146lBXch.net
>>467
haskell
f [] _=1
f _ []=0
f (x:xs) (y:ys)
| x==y = f xs ys+(f (x:xs) ys)
| otherwise = f (x:xs) ys
f "odai" "odadai" -> 3