From f91742010423cb3ed252280be1c68a8cf64c59b0 Mon Sep 17 00:00:00 2001
From: davidon-top <me@davidon.top>
Date: Tue, 11 Feb 2025 08:52:15 +0100
Subject: [PATCH] 24

---
 ulohyfs/src/u24.fs     | 24 ++++++++++++++++++++++++
 ulohyfs/ulohyfs.fsproj |  1 +
 2 files changed, 25 insertions(+)
 create mode 100644 ulohyfs/src/u24.fs

diff --git a/ulohyfs/src/u24.fs b/ulohyfs/src/u24.fs
new file mode 100644
index 0000000..fcffa29
--- /dev/null
+++ b/ulohyfs/src/u24.fs
@@ -0,0 +1,24 @@
+module UlohyFs.u24
+
+open System.IO
+open System.Text.Unicode
+open UlohyFs.Attributes
+open System
+
+let noMessages = [| "Ups, vedľa ako tá jedľa!"; "No, toto ti nevyšlo."; "Skús ešte raz, možno sa stane zázrak."; "Tak toto bolo fakt mimo."; "Si vedľa, ako keby si spadol z višne."; "Nie, ale aspoň si sa snažil!"; "Skoro, ale len pre kone."; "To je síce pekné, ale nesprávne."; "Si na míle vzdialený od správnej odpovede."; "Nie, ale máš aspoň dobrú fantáziu!"; "Žiaľ, tvoja odpoveď je taká zlá, že ju ani nebudem komentovať. " |]
+
+[<Uloha(24)>]
+let uloha24() =
+    printfn "myslim si cislo od 1 do 10, hadaj:"
+    let rng = Random()
+    let cislo = rng.Next(1, 11)
+    let mutable hadane = 0
+    let mutable pokusy = 0
+    while hadane <> cislo do
+        hadane <- Console.ReadLine() |> int
+        pokusy <- pokusy + 1
+        if hadane <> cislo then
+            let r = rng.Next(0, noMessages.Length)
+            printfn "%s" noMessages.[r]
+
+    printfn "Gratulujem, uhádol si na %d. pokus!" pokusy
\ No newline at end of file
diff --git a/ulohyfs/ulohyfs.fsproj b/ulohyfs/ulohyfs.fsproj
index 2b4a4bd..f318fcc 100644
--- a/ulohyfs/ulohyfs.fsproj
+++ b/ulohyfs/ulohyfs.fsproj
@@ -16,6 +16,7 @@
         <Compile Include="src\u15.fs" />
         <Compile Include="src\u22.fs" />
         <Compile Include="src\u23.fs" />
+        <Compile Include="src\u24.fs" />
         <Compile Include="src\u17.fs" />
         <Compile Include="src\u18.fs" />
         <Compile Include="src\u19.fs" />