任意型リストのjoin

join.fsx

let join (elm:'a) (lis:'a list) =
    lis
    |> List.fold (fun a x -> elm::x::a) [] // a=処理済みリスト x=現在の要素
    |> (function
        | x::xs -> xs
        | xs -> xs) // 要素数2以上なら1つスキップ もう少し簡潔に書けないものか
    |> List.rev
let test1 = join 0 [1;2;3;4;5;6] = [1;0;2;0;3;0;4;0;5;0;6] // -> true
let test2 = join 0 [] = [] // -> true