Determine if a string has all unique characters: Difference between revisions

m
Line 541:
(zip [0 ..] xs))
where
go k [_] mb = mb -- Unique.
go k xs Nothing = Just (k, xs) -- Duplicate.Duplicated
go k xs@(x:_) (Just (c, ys@(y:_))) =
if| x < y = Just (k, xs) -- Earlier duplication
| otherwise then= Just (kc, xsys) -- Earlier duplicate.
else Just (c, ys)
 
 
---------------------------TEST----------------------------
Line 566 ⟶ 564:
duplicatedCharIndices_
["", ".", "abcABC", "XYZ ZYX", "1234567890ABCDEFGHIJKLMN0PQRSTUVWXYZ"]
 
 
--------------------------DISPLAY--------------------------
9,659

edits