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

Commit 2457d72

author

cd155

committed

add 1.4 permutation of a palindrome

1 parent b646ac8 commit 2457d72Copy full SHA for 2457d72

File tree

+14

-2

lines changed

+14

-2

lines changed

Lines changed: 14 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,5 @@`
`1`	`1`	`module Array where`
`2`		`-import Data.Map (Map, insert, member, adjust, empty)`
	`2`	`+import Data.Map (Map, insert, member, adjust, empty, elems)`
`3`	`3`	`import Data.Char (ord)`
`4`	`4`
`5`	`5`	`{-`
`@@ -65,7 +65,7 @@ isPerm' xs ys = fillAccii xs acciiArr == fillAccii ys acciiArr`
`65`	`65`
`66`	`66`	`fillAccii :: String -> [Integer] -> [Integer]`
`67`	`67`	`fillAccii [] arr = arr`
`68`		`-fillAccii (x:xs) arr =`
	`68`	`+fillAccii (x:xs) arr =`
`69`	`69`	`fillAccii xs (init firstHalf ++ [updated] ++ secondHalf)`
`70`	`70`	`where (firstHalf, secondHalf) = splitAt (ord x) arr`
`71`	`71`	`updated = (arr !! (ord x - 1)) + 1`
`@@ -88,3 +88,15 @@ repSpaceHelper (x:xs) isSpaPre`
`88`	`88`	`\| x == ' ' && isSpaPre = repSpaceHelper xs isSpaPre`
`89`	`89`	`\| otherwise = x:repSpaceHelper xs False`
`90`	`90`
	`91`	`+{-`
	`92`	`+ 1.4`
	`93`	`+ Given a string, write a function to check if it is a`
	`94`	`+ permutation of a palindrome.`
	`95`	`+-}`
	`96`	`+-- Lower case and Upper case are different`
	`97`	`+isPermPalin :: String -> Bool`
	`98`	`+isPermPalin xs`
	`99`	`+ \| length validValues == 0 \|\| length validValues == 1 = True`
	`100`	`+ \| otherwise = False`
	`101`	`+ where values = elems (convToDict xs empty)`
	`102`	`+ validValues = filter odd values`

Comments

(0)