Rosetta Code

Caesar cipher: Difference between revisions

Page Discussion

Caesar cipher (view source)

Revision as of 05:25, 7 October 2011

78 bytes removed ,  12 years ago
→‎{{header|F_Sharp|F#}}
Line 225:
 
=={{header|F_Sharp|F#}}==
<lang fsharp>open System
 
module caesar =
let cipher (k : int) (m : string) =
m.ToUpper().ToCharArray()
|> Array.filter CharSeq.IsLettertoArray
|> Array.map (fun c -> ((int c - 65 + k) % 26 + 65) |> char)
|> Array.map (fun cs -> new string((c - 65 + ks) % 26 + 65) |> char)
|> (fun s -> new string(s))
let decryptencrypt k = cipher (26 - k)▼
 
let encryptdecrypt k = cipher (26 - k)
▲ let decrypt k = cipher (26 - k)
</lang>
<pre>&gt; caesar.encrypt 2 HI
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/188237"