Что мешает сделать вот так? class Cipher a where encode :: a

Question

Что мешает сделать вот так? class Cipher a where encode :: a

-> String -> String
decode :: a -> String -> String

data OneTimePad = OTP String

instance Cipher OneTimePad where
encode (OTP pad) text = applyOTP pad text
decode (OTP pad) text = applyOTP pad text

myOTP :: OneTimePad
myOTP = OTP (cycle [minBound .. maxBound])

#haskell #programming #russian

0

23.04.2024