bradclawsie · March 19, 2014 04:38
diff --git a/ss b/ss
 substring a b = ss a b
  where
    ss (x:xs) (y:ys) = if (x == y) then ss xs ys else substring a ys
    ss (x:xs) _ = False
    ss _ _ = True
	substring a b = ss a b
	where
	ss (x:xs) (y:ys) = if (x == y) then ss xs ys else substring a ys
	ss (x:xs) _ = False
	ss _ _ = True