iritmaximus/haskell
1
0
Fork 0
mirror of https://github.com/iritmaximus/haskell.git synced 2026-10-12 19:13:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

4b ex5

Browse Source
This commit is contained in:
Aaro Koivukangas
2025-12-22 21:26:30 +02:00
parent 74c1527a4a
commit 2fa25f7fe6
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
exercises/Set4b.hs
+6 -1
View File
@@ -87,7 +87,12 @@ concatHelper x acc = x ++ acc
largest :: [Int] -> [Int] largest :: [Int] -> [Int]
largest xs = foldr largestHelper [] xs largest xs = foldr largestHelper [] xs
largestHelper = todo largestHelper :: Int -> [Int] -> [Int]
largestHelper x acc
| acc == [] = x : []
| x == maximum acc = x : acc
| x > maximum acc = x : []
| otherwise = acc
------------------------------------------------------------------------------ ------------------------------------------------------------------------------