DavidOnTop/cs-fs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

u20

Browse source
This commit is contained in:
DavidOnTop 2025-01-15 09:25:58 +01:00
parent 52677dbb23
commit 3db57eabca
Signed by: DavidOnTop
GPG key ID: 8D3E9A75E3E13D89
2 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
ulohyfs/src/u20.fs Normal file
View file

@ -0,0 +1,13 @@
module UlohyFs.u20
open System.IO
open UlohyFs.Attributes
open System
[<Uloha(20)>]
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

1
ulohyfs/ulohyfs.fsproj
View file

@ -13,6 +13,7 @@
<Compile Include="src\u17.fs" /> <Compile Include="src\u17.fs" />
<Compile Include="src\u18.fs" /> <Compile Include="src\u18.fs" />
<Compile Include="src\u19.fs" /> <Compile Include="src\u19.fs" />
<Compile Include="src\u20.fs" />
<Compile Include="src\Program.fs" /> <Compile Include="src\Program.fs" />
</ItemGroup> </ItemGroup>