enigma3.fs

let translate (text:String) (enigma:Enigma) =
    let(translated:char array =
        
        (enigma, text |> Seq.toList)
        ||> Seq.unfold(fun (enigma, letters) ->
            match letters with
            | letter :: remainder ->
                // Translate the head letter, and generate a new Enigma machine with the latest wheel positions
                let translatedLetter, updatedEnigma = letter |> translateChar enigma
                
                // Return back the translated letter and repeat with the remainder until nothing is left
                Some(translatedLetter, (updatedEnigma, remainder))
            | _ -> None)
    
    // Convert the char array back into a string
    String (translated |> Seq.toArray)