univer-5th-semester/functional-programming
Code Actions Releases 7

Баг с извлечением смещения

Browse Source
This commit is contained in:
Артём Тищенко
2024-11-19 14:58:01 +03:00
parent e90dfd6816
commit b9cf0e7fe3
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lab3/src/Lib.hs
View File

@@ -113,5 +113,5 @@ extractBitsFromImage bitsPerByte img =
extractShift :: String -> Maybe Int extractShift :: String -> Maybe Int
extractShift path = extractShift path =
let prefix = takeWhile (`elem` ['0'..'9']) (reverse $ takeWhile (/= '_') (reverse path)) let shift = takeWhile (`elem` ['0'..'9']) (reverse $ takeWhile (/= '_') (reverse path))
in readMaybe (reverse prefix) in readMaybe shift