Home Explore Help
Sign In
CNI
/
HaskellCourse
3
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Browse Source

Improve function but duplicates

DricomDragon 5 years ago
parent
bd074afb49
commit
dfed770022
1 changed files with 2 additions and 2 deletions
Split View Show Diff Stats
  1. 2 2
      anagram.hs

+ 2 - 2
anagram.hs
View File 

@@ -2,8 +2,8 @@ import Data.List
 
 
 sweep::(String -> [String]) -> String -> String -> [String]
 
 sweep f l stack = case stack of
 
-	[] -> []
 
+	[] -> [l]
 
 	cur:substack -> concat [map (\l -> cur:l) (f (delete cur l)), sweep f l substack]
 
 
 ana::String -> [String]
 
-ana l = sweep ana l l
 
+ana l = sweep (ana) l l