haskell - 随机 haskell 错误。计算永远不会结束

Question

我写了一个小程序来执行广义凯撒密码。我不明白为什么我的暴力破解功能不起作用。我想做的就是尝试乘数和偏移量小于 26 的所有可能组合。此外，如果有人能为“tryallcombinations”函数提出更好的方法，我们将不胜感激。

import Data.Char

caesarencipher::Int->Int->String->String
caesarencipher r s p = map chr $ map encipher plaintext
    where
        plaintext = map (\x->(ord x) - 97) p
        encipher p =  (mod (r*p + s) 26) + 97

caesardecipher::Int->Int->String->String
caesardecipher r s c = map chr $ map decipher ciphertext
    where
        ciphertext = map (\x->(ord x) - 97) c
        inverser x | mod (r * x) 26 == 1 = x
                   | otherwise = inverser (x + 1)
        decipher c = (mod ((inverser 1) * (c - s)) 26) + 97

tryallcombinations::String->[String]
tryallcombinations ciphertext = map (\x->x ciphertext) possibilities
    where
        rs = map caesardecipher [0..25]
        possibilities = concat $ map (\x-> map x [0..25]) rs

Answer 1

26 不是素数，因此并非所有数字都有模逆 mod 26。这意味着逆函数有时永远不会返回，但会永远递归。