From ab62355cbe004eb96e3fc8d40c7a648337401ac1 Mon Sep 17 00:00:00 2001
From: rexim <reximkut@gmail.com>
Date: Mon, 1 Apr 2024 14:17:54 +0700
Subject: [PATCH] =?UTF-8?q?=D0=A2=D0=B5=D1=81=D1=82=20=D1=81=D1=80=D0=B0?=
 =?UTF-8?q?=D0=B2=D0=BD=D0=B5=D0=BD=D0=B8=D1=8F=20=D1=81=D1=82=D1=80=D0=BE?=
 =?UTF-8?q?=D0=BA?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 модули/прелюдия.хуя |  8 ++++++++
 тесты/тест.хуя      | 10 ++++++++++
 2 files changed, 18 insertions(+)

diff --git a/модули/прелюдия.хуя b/модули/прелюдия.хуя
index 7d15356..520bff6 100644
--- a/модули/прелюдия.хуя
+++ b/модули/прелюдия.хуя
@@ -65,3 +65,11 @@
     кц
     вернуть символ;
 кц
+
+про строки_равны(одна: строка, другая: строка): лог нч
+    если размер(одна) != размер(другая) то вернуть ложь;
+    для индекс := 1..размер(одна) то
+        если одна(индекс-1) != другая(индекс-1) то
+            вернуть ложь;
+    вернуть истина;
+кц
diff --git a/тесты/тест.хуя b/тесты/тест.хуя
index bb08b68..35ff70a 100644
--- a/тесты/тест.хуя
+++ b/тесты/тест.хуя
@@ -154,6 +154,15 @@
     сравнить_какие_то_структуры(одна, вторая);
 кц
 
+про тест_строки_равны(одна: строка, другая: строка) то
+    печать("    «",одна,"» = «",другая,"» => ",строки_равны(одна, другая),«\н»);
+
+про сравнение_строк() нч
+    печать(«Сравнение строк:\н»);
+    тест_строки_равны(«Hello», «World»);
+    тест_строки_равны(«Foo», «Foo»);
+кц
+
 про главная() нч
     печать(«Печать чисел: », 0, «, », 69, «, », 1234567890, «\н»);
     печать(«Печать логических: », 69 = 69, «, », 69 = 420, «\н»);
@@ -176,4 +185,5 @@
     тест_подбрить_строку_слева(«»);
     индексация_срезов_внутри_структуры();
     сравнение_структур();
+    сравнение_строк();
 кц