This repository was archived by the owner on Jul 24, 2023. It is now read-only.

Commit 3f3e7bb

author

cd155

committed

add 1.2 implement dictionary

1 parent 47114f3 commit 3f3e7bbCopy full SHA for 3f3e7bb

File tree

+16

-0

lines changed

+16

-0

lines changed

Lines changed: 16 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,5 @@`
`1`	`1`	`module Array where`
	`2`	`+import Data.Map (Map, insert, member, adjust, empty)`
`2`	`3`
`3`	`4`	`{-`
`4`	`5`	`1.1`
`@@ -37,3 +38,18 @@ isUniqBFHelper c (x:xs) = (c /= x) && isUniqBFHelper c xs`
`37`	`38`
`38`	`39`	`final: r1 && r2`
`39`	`40`	`-}`
	`41`	`+`
	`42`	`+{-`
	`43`	`+ 1.2`
	`44`	`+ Given two strings, write a method to decide if two string have`
	`45`	`+ the set with the other.`
	`46`	`+-}`
	`47`	`+`
	`48`	`+isPerm :: String -> String -> Bool`
	`49`	`+isPerm xs ys = convToDict xs empty == convToDict ys empty`
	`50`	`+`
	`51`	`+convToDict :: String -> Map Char Int -> Map Char Int`
	`52`	`+convToDict [] dict = dict`
	`53`	`+convToDict (x:xs) dict`
	`54`	+ \| x `member` dict = convToDict xs (adjust (1+) x dict)
	`55`	`+ \| otherwise = convToDict xs (insert x 1 dict)`

Comments

(0)