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

2024-11-19 14:58:01 +03:00
parent e90dfd6816
commit b9cf0e7fe3
1 changed files with 2 additions and 2 deletions
--- a/lab3/src/Lib.hs
+++ b/lab3/src/Lib.hs
@@ -113,5 +113,5 @@ extractBitsFromImage bitsPerByte img =

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