Proof of concept for leftmostLongest function

2025-04-29 22:02:49 -04:00
parent 8e07a5ed0e
commit ade48bd64e
1 changed files with 5 additions and 0 deletions
--- a/test.hs
+++ b/test.hs
@@ -0,0 +1,5 @@
+leftmostLongest :: (Foldable t) => [t a] -> t a
+leftmostLongest xs = 
+        let lastElem = (last xs)
+            filteredLst = (filter (\val -> (length val) == (length lastElem)) xs)
+        in head filteredLst