如何僅使用A到Z和0到9來使用ORD和CHR？

Question

我正在嘗試編寫一個Caesar密碼，但只使用大寫字母數字。 使用ord或chr使用整個ASCII表。 怎么能做到這一點？

這是我到目前為止：

alphabet = ['A'..'Z'] ++ ['0'..'9']

c2I = ord c - ord 'A'

i2C = chr (n + ord 'A')

Answer 1

基本的想法是使用mod來包裝到開頭。

現在它效率不高（但是嘿，你使用的是最不安全的密碼所以你可能不在乎）但我會告訴你只使用字母和索引函數：

import Data.List (elemIndex)

alphabet :: [Char]
alphabet = ['A'..'Z'] ++ ['0'..'9']

ith :: Int -> Char
ith i = alphabet !! j
  where j = i `mod` length alphabet

index :: Char -> Int
index c = case c `elemIndex` alphabet of
            Just i -> i
            Nothing -> error "not inalphabet"

encode :: Int -> String -> String
encode n xs = [ ith $ index x + n | x <- xs ]

這會給你

λ> encode 3 "ABCXYZ012789"
"DEF012345ABC"

現在你可能想要找到一種使用ord和chr - 如果你在AZ和0-9之間進行區分，兩者都有效，因為范圍是：

• AZ為65-90
• 0-48為48-57

所以你不能采取一個公式，沒有很多技巧

你應該嘗試，但是這里的數學更多（你可能想要一些類似ord c - ord 'A'代表字母而26 + ord c - ord '0'代表數字首先得到它在0-35范圍內。