Snippet saved on:
1/12/2024, 1:38:35 AM (raw)
1/12/2024, 1:38:35 AM (raw)
LANGUAGE
importData.List
importData.Function
importData.Ord
main::IO()
main = do
putStrLn "hello"
data StringOrd where
StringOrd :: Ord a => (String -> a) -> StringOrd
myList::StringOrd
myList =
[ StringOrd $ \str -> 2
, StringOrd $ \str -> "hello: " <> str
]
sort'::StringOrd->String->String
sort' (StringOrd f) xs = sortBy (comparing f) xs
myFunction::String->String
myFunction xs = sort' (myList !! 0) xs
GHC output
Errors
Output