Useful F# finctions

splice.fs

let splice index array =
    match array with
    | [] -> (array, [])
    | array -> if array.Length < index then (array, []) else (array.[..index - 1], array.[index..])

validCssSelectorCharacters.fs

let characters = seq { 
    // 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z'
    for asciiCode = 0x61 to 0x7A do yield (char) asciiCode // [a-z]
    // 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z'
    for asciiCode = 0x41 to 0x5A do yield (char) asciiCode // [A-Z]
    // '0', '1', '2', '3', '4', '5', '6', '7', '8', '9'
    for asciiCode = 0x30 to 0x39 do yield (char) asciiCode // [0-9]
    // '-'
    yield '-'
}

//As literal list:  
let characters = ['a';'b';'c';'d';'e';'f';'g';'h';'i';'j';'k';'l';'m';'n';'o';'p';'q';'r';'s';'t';'u';'v';'w';'x';'y';'z';'A';'B';'C';'D';'E';'F';'G';'H';'I';'J';'K';'L';'M';'N';'O';'P';'Q';'R';'S';'T';'U';'V';'W';'X';'Y';'Z';'0';'1';'2';'3';'4';'5';'6';'7';'8';'9';'-';]