From ade48bd64ed2a8cbcb49d05eada0f5902cf0e579 Mon Sep 17 00:00:00 2001 From: Aadhavan Srinivasan Date: Tue, 29 Apr 2025 22:02:49 -0400 Subject: [PATCH] Proof of concept for leftmostLongest function --- test.hs | 5 +++++ 1 file changed, 5 insertions(+) create mode 100644 test.hs diff --git a/test.hs b/test.hs new file mode 100644 index 0000000..3b2d6f5 --- /dev/null +++ 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