diff --git a/hobit.txt b/hobit.txt new file mode 100644 index 0000000..2de835b --- /dev/null +++ b/hobit.txt @@ -0,0 +1,9 @@ +Zil raz v podzemnej diere isty hobit. +Nebola to odporna, blatista, mokra diera +plna podochnutych cervikov a slizkeho pachu, +ani sucha, hola, piescita diera, +kde si clovek nema kde sadnut +a do coho hryznut. +Bola to hobitia diera, a to znamena +pohodlie. +KONIEC diff --git a/ulohyfs/src/u28.fs b/ulohyfs/src/u28.fs new file mode 100644 index 0000000..a23f5f8 --- /dev/null +++ b/ulohyfs/src/u28.fs @@ -0,0 +1,30 @@ +module UlohyFs.u28 + +open System.IO +open System.Text.RegularExpressions +open System.Text.Unicode +open UlohyFs.Attributes +open System + +let (./.) l r = $"{l}{Path.PathSeparator}{r}" + + +let getHobit = + Environment.GetFolderPath(Environment.SpecialFolder.Desktop) ./. "maturita" ./. "ZADANIE č.19" ./. "hobit.txt" + |> fun x -> if File.Exists x then Some(x) else None + |> function + | Some(v) -> File.ReadAllText v + | None -> + printfn "Nepodarilo sa najst hobit.txt zadaj cestu k hobit.txt" + let inp = Console.ReadLine() + File.ReadAllText inp + +[] +let uloha28() = + let h = getHobit + let mutable spaces = 0 + h + |> String.iter (fun c -> if c = ' ' then spaces <- spaces + 1) + printfn "medzery: %d" spaces + h + |> printfn "%s" \ No newline at end of file diff --git a/ulohyfs/ulohyfs.fsproj b/ulohyfs/ulohyfs.fsproj index b945bcf..1c77b94 100644 --- a/ulohyfs/ulohyfs.fsproj +++ b/ulohyfs/ulohyfs.fsproj @@ -6,10 +6,6 @@ UlohyFs - - - - @@ -20,6 +16,7 @@ +