Snippet saved on:
1/12/2024, 2:07:44 AM (raw)
1/12/2024, 2:07:44 AM (raw)
importData.List
importData.Function
importData.Ord
main::IO()
main = do
putStrLn "hello"
data Comparison s = forall a. Ord a => Comparison (s -> a)
myList::ComparisonString
myList =
[ Comparison $ \str -> 2
, Comparison $ \str -> "hello: " <> str
]
sortC::Comparisona->a->a
sortC (Comparison f) xs = sortOn f xs
myFunction::String->String
myFunction xs = sortC (myList !! 0) xs
GHC output
Errors
Output