Contents

module RotationalCipher

open System

let private alphabet = ['a' .. 'z']

let private createKey shiftKey = 
    alphabet @ alphabet 
    |> List.skip shiftKey 
    |> List.take (List.length alphabet)

let private rotateLetter key c =
    let index = List.findIndex (fun x -> x = Char.ToLower(c)) alphabet
    let rotatedLetter = List.item index key

    match Char.IsUpper(c) with
    | false -> rotatedLetter
    | true  -> Char.ToUpper(rotatedLetter)

let private rotateChar shiftKey =
    let key = createKey shiftKey
    let rotate = rotateLetter key

    fun (c: char) -> 
        match Char.IsLetter(c) with
        | false -> c
        | true  -> rotate c

let rotate shiftKey input = String.map (rotateChar shiftKey) input

Version data entries

112 entries across 112 versions & 1 rubygems

Version	Path
trackler-2.2.1.180	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.179	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.178	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.177	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.176	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.175	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.174	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.173	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.172	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.171	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.170	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.169	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.167	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.166	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.165	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.164	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.163	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.162	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.161	tracks/fsharp/exercises/rotational-cipher/Example.fs
trackler-2.2.1.160	tracks/fsharp/exercises/rotational-cipher/Example.fs