Задание 4

open System

let palindrome m = m = (m |> List.rev)

[<EntryPoint>]
let main argv =
    let RND = new Random()
    let m = [1; 2; 1] // true
    //let m = [1; 2; 4] // false
    printfn "%A\n%b" m (palindrome m)
    0 // return an integer exit code