diff --git a/ulohyfs/src/u20.fs b/ulohyfs/src/u20.fs new file mode 100644 index 0000000..52bb379 --- /dev/null +++ b/ulohyfs/src/u20.fs @@ -0,0 +1,13 @@ +module UlohyFs.u20 + +open System.IO +open UlohyFs.Attributes +open System + +[] +let uloha15() = + let hostia = ["Novak"; "Novaková"; "novy"; "mlinar"; "mlinarová"; "kovac"; "kovacová"; "rybar"; "rybarová"; "farmar"; "gazdová"] + let hostiaZ = hostia |> List.filter _.EndsWith("ová") |> List.sort + let hostiaM = hostia |> List.filter (fun x -> not(x.EndsWith("ová"))) |> List.sort + printfn "Zeny: %A" hostiaZ + printfn "Muzi: %A" hostiaM \ No newline at end of file diff --git a/ulohyfs/ulohyfs.fsproj b/ulohyfs/ulohyfs.fsproj index e84b335..96116b9 100644 --- a/ulohyfs/ulohyfs.fsproj +++ b/ulohyfs/ulohyfs.fsproj @@ -13,6 +13,7 @@ +