remove comment

This commit is contained in:
s473615 2024-05-27 17:46:39 +02:00
parent 68f2456058
commit 6a4f9a1e21
2 changed files with 6 additions and 8 deletions

View File

@ -41,12 +41,12 @@ library
, ansi-terminal
, base >=4.7 && <5
, bytestring
, cipher-aes
, containers
, hashable
, hspec
, sqlite-simple
, text
, utf8-string
, containers
default-language: Haskell2010
executable HasswordManager-exe
@ -64,12 +64,12 @@ executable HasswordManager-exe
, ansi-terminal
, base >=4.7 && <5
, bytestring
, cipher-aes
, containers
, hashable
, hspec
, sqlite-simple
, text
, utf8-string
, containers
default-language: Haskell2010
test-suite HasswordManager-test
@ -88,11 +88,10 @@ test-suite HasswordManager-test
, ansi-terminal
, base >=4.7 && <5
, bytestring
, cipher-aes
, containers
, hashable
, hspec
, sqlite-simple
, text
, utf8-string
, containers
, hspec
default-language: Haskell2010

View File

@ -21,6 +21,5 @@ encrypt' = caesar_cipher (+)
decrypt' :: String -> String -> String
decrypt' = caesar_cipher (-)
-- modulo trzeba zrobić
caesar_cipher :: (Int -> Int -> Int) -> String -> String -> String
caesar_cipher operation key text = zipWith (\k t -> chr $ mod (operation (ord t) (ord k)) (ord maxBound)) (cycle key) text