Платформа: Codewars

 Название задачи: Find the unique number

 Ссылка на задачу: https://www.codewars.com/kata/585d7d5adb20cf33cb000235 (Нажмите на строку)

 Сложность: 6 kyu

 Тэги: Фундаментальные, Алгоритмы, Массивы

 Оригинальное описание задачи:

There is an array with some numbers. All numbers are equal except for one. Try to find it!

find_uniq([ 1, 1, 1, 2, 1, 1 ]) == 2
find_uniq([ 0, 0, 0.55, 0, 0 ]) == 0.55

It’s guaranteed that array contains at least 3 numbers.

The tests contain some very huge arrays, so think about performance.

Пояснение:

Суть задачи максимально проста и заключается она в том чтобы найти единственное уникальное число из данного нам массива. Условия задачи подразумевают что могут быть даны действительно тяжелые массива, поэтому рекомендуют нам позаботиться о производительности!

Решение:

Первое что приходит на ум так это просто перебрать все элементы массива и затем в каждой итерации считать количество элементов но у Массивов в 1С нет встроенного метода подсчета вхождений. Будет лучше придумать другой вариант. Например можно воспользоваться Таблицей Значений, у которой есть метод "НайтиСтроки", который вернет список найденных значений. Но для того чтобы не менять условия задачи, давайте исходные данные оставим как массив, заполним его и уже будем все переносить в Таблицу Значений! Приступим?

ИсходныйМассив = Новый Массив;
Для НомерСтроки = 1 По 10000 Цикл
	ИсходныйМассив.Добавить(НомерСтроки);	
	Если ?(НомерСтроки%10 = 0,Истина,Ложь) Тогда	
		ИсходныйМассив.Добавить(5);
	КонецЕсли;
КонецЦикла;
//
ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("ЗначениеМассива");
Для Каждого Стр Из ИсходныйМассив Цикл
	НС = ТЗ.Добавить();
	НС.ЗначениеМассива = Стр;
КонецЦикла;
//
ПроверенныеЗначения = Новый Массив;
ПараметрыОтбора = Новый Структура;
ПараметрыОтбора.Вставить("ЗначениеМассива",Неопределено);
//
Для Каждого Стр Из ИсходныйМассив Цикл
	Если ПроверенныеЗначения.Найти(Стр) = Неопределено Тогда
		ПараметрыОтбора.ЗначениеМассива = Стр;
		Если ТЗ.НайтиСтроки(ПараметрыОтбора).Количество() > 1 Тогда
			Вывод = Стр;
		Иначе
			ПроверенныеЗначения.Добавить(Стр);
		КонецЕсли; 		
	КонецЕсли;
КонецЦикла;

Заключение:

Интересная задача, на самом деле. Я думаю есть еще более быстрое решение ибо если входной массив будет еще больше, обработка может затянуться. Предлагайте свои решения!

 Платформа: CodeWars

 Название задачи: Which are in?

 Ссылка на задачу: https://www.codewars.com/kata/550554fd08b86f84fe000a58 (Нажмите на строку)

 Сложность: 6 kyu

 Тэги: Массивы, Списки, Строки, Рефакторинг

 Оригинальное описание задачи:

Given two arrays of strings a1 and a2 return a sorted array r in lexicographical order of the strings of a1 which are substrings of strings of a2.

Example 1:

a1 = ["arp", "live", "strong"]

a2 = ["lively", "alive", "harp", "sharp", "armstrong"]

returns ["arp", "live", "strong"]

Example 2:

a1 = ["tarp", "mice", "bull"]

a2 = ["lively", "alive", "harp", "sharp", "armstrong"]

returns []

Notes:

• Arrays are written in "general" notation. See "Your Test Cases" for examples in your language.
• In Shell bash a1 and a2 are strings. The return is a string where words are separated by commas.
• Beware: In some languages r must be without duplicates.

Пояснение:

Что от нас требуется? Даны два неотсортированных массива со значениями строкового типа. Необходимо из этих двух массивов получить один отсортированный массив со строками из первого массива, которые являлись подстроками строк второго массива. Звучит интересно, давайте попробуем!

Решение:

Для начала создадим цикл для перебора элементов первого массива, ибо именно эти подстроки мы будем искать во втором массиве. Затем, внутри этого цикла, создаём другой цикл для перебора элементов второго массива. Уже внутри второго цикла проверяем является ли текущий элемент первого цикла вхождением элемента второго цикла. Если является и если ранее это слово не обрабатывалось то добавляем всё это в новый массив. В итоге будем иметь массив со всеми элементами первого массива, которые являются подстроками элементов второго массива. Теперь осталось отсортировать этот массив. Так как у Массивов в 1С нет встроенного метода сортировки, мы воспользуемся Списком Значений. Переносим все данные в список значений, сортируем с помощью встроенного метода СортироватьПоЗначению(), переводит обратно в массив ну и само выводим результат для проверки. Давайте опишем всё это кодом!

ПервыйИсходныйМассив = Новый Массив;
ПервыйИсходныйМассив.Добавить("arp");
ПервыйИсходныйМассив.Добавить("strong");
ПервыйИсходныйМассив.Добавить("live");
//
ВторойИсходныйМассив = Новый Массив;
ВторойИсходныйМассив.Добавить("lively");
ВторойИсходныйМассив.Добавить("alive");
ВторойИсходныйМассив.Добавить("harp");
ВторойИсходныйМассив.Добавить("sharp");
ВторойИсходныйМассив.Добавить("armstrong");
//
КонечныйМассив = Новый Массив;
Для Каждого Стр Из ПервыйИсходныйМассив Цикл
	Для Каждого ПодСтр Из ВторойИсходныйМассив Цикл
		Если СтрЧислоВхождений(ПодСтр,Стр) <> 0 Тогда
			Если КонечныйМассив.Найти(Стр) = Неопределено Тогда
				КонечныйМассив.Добавить(Стр);
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;	
КонецЦикла;
//
СЗ = Новый СписокЗначений;
СЗ.ЗагрузитьЗначения(КонечныйМассив);
СЗ.СортироватьПоЗначению();
КонечныйМассив = СЗ.ВыгрузитьЗначения();
//
Вывод = СтрСоединить(КонечныйМассив, ",");

Заключение:

Как видим данные успешно отбираются и сортируются. Задачи про структуры данных всегда интересны!

 Платформа: CodeWars

 Название задачи: Unique In Order

 Ссылка на задачу: https://www.codewars.com/kata/54e6533c92449cc251001667 (Нажмите на строку)

 Сложность: 6 kyu

 Тэги: Алгоритмы, Фундаментальные

 Оригинальное описание задачи:

Description:

Implement the function unique_in_order which takes as argument a sequence and returns a list of items without any elements with the same value next to each other and preserving the original order of elements.

For example:

unique_in_order('AAAABBBCCDAABBB') == ['A', 'B', 'C', 'D', 'A', 'B']
unique_in_order('ABBCcAD')         == ['A', 'B', 'C', 'c', 'A', 'D']
unique_in_order([1, 2, 2, 3, 3])   == [1, 2, 3]
unique_in_order((1, 2, 2, 3, 3))   == [1, 2, 3]

Пояснение:

По условию задачи нам необходимо обработать строку так, чтобы не было последовательности из одинаковых символов но при этом остался оригинальный порядок этих элементов. Звучит несложно, давайте попробуем!

Решение:

Создадим массив, в котором будем хранить нашу новую последовательность. Затем нам надо перебрать все символы исходной строки. При каждой итерации мы будем проверять не является ли текущий символ предыдущим (по индексу) элементом в конечном массиве. Если нет, то добавляем его в конечный массив. В итоге получаем нужный нам результат. Давайте посмотрим на код решения:

ИсходнаяСтрока = "AAAABBBCCDAABBB";
//
КонечныйМассив = Новый Массив;
Для НомерСимвола = 1 По СтрДлина(ИсходнаяСтрока) Цикл
	Если КонечныйМассив.Количество() = 0 Тогда
		КонечныйМассив.Добавить(Сред(ИсходнаяСтрока,НомерСимвола,1));
	Иначе
		Если Сред(ИсходнаяСтрока,НомерСимвола,1) <> КонечныйМассив[КонечныйМассив.Количество()-1] Тогда
			КонечныйМассив.Добавить(Сред(ИсходнаяСтрока,НомерСимвола,1));
		КонецЕсли; 
	КонецЕсли;
КонецЦикла;
//
Вывод = СтрСоединить(КонечныйМассив,",")

Заключение:

Как видим всё успешно отрабатывается. Задача была весьма интересной!

 Платформа: CodeWars

 Название задачи: Decode the Morse code

 Ссылка на задачу: https://www.codewars.com/kata/54b724efac3d5402db00065e (Нажмите на строку)

 Сложность: 6 kyu

 Тэги: Алгоритмы

 Оригинальное описание задачи:

In this kata you have to write a simple Morse code decoder. While the Morse code is now mostly superseded by voice and digital data communication channels, it still has its use in some applications around the world.

The Morse code encodes every character as a sequence of "dots" and "dashes". For example, the letter A is coded as ·−, letter Q is coded as −−·−, and digit 1 is coded as ·−−−−. The Morse code is case-insensitive, traditionally capital letters are used. When the message is written in Morse code, a single space is used to separate the character codes and 3 spaces are used to separate words. For example, the message HEY JUDE in Morse code is ···· · −·−−   ·−−− ··− −·· ·.

NOTE: Extra spaces before or after the code have no meaning and should be ignored.

In addition to letters, digits and some punctuation, there are some special service codes, the most notorious of those is the international distress signal SOS (that was first issued by Titanic), that is coded as ···−−−···. These special codes are treated as single special characters, and usually are transmitted as separate words.

Your task is to implement a function that would take the morse code as input and return a decoded human-readable string.

For example:

decode_morse('.... . -.--   .--- ..- -.. .')
#should return "HEY JUDE"

NOTE: For coding purposes you have to use ASCII characters . and -, not Unicode characters.

All the test strings would contain valid Morse code, so you may skip checking for errors and exceptions. In C#, tests will fail if the solution code throws an exception, please keep that in mind. This is mostly because otherwise the engine would simply ignore the tests, resulting in a "valid" solution.

Good luck!

Пояснение:

Несмотря на огромное описание, суть задачи максимально проста. Нам необходимо написать декодер Азбуки Морзе. Оригинальная платформа предоставляет нам готовый список символов, которым нам разрешено пользоваться. В нашем же случае такую базу предоставлю я сам!

Решение:

Небольшая теория по Азбуке Морзе. Символы между собой разделяются Одним пробелом. Слова же разделяются Тремя пробелами. Зная это нам достаточно разбить исходную строку на небольшие элементы и обрабатывать по отдельности. Сначала разобьем строку на массив используя как разделитель три пробела, затем начнем перебирать этот массив и снова будем разбивать элемент на массив используя в качестве разделителя один пробел. В конечном итоге значение каждого символа мы будем получать из готовой базы символов и затем собирать наши слова и предложения. Давайте попробуем!

(Выгрузил файл на Dropmefiles чтоб получить файл HTTP запросом. На момент когда вы будете пробовать возможно работать не будет ибо Dropmefiles удаляет файлы. Можете скачать файл отсюда (нажмите на текст) и просто поменять ссылку в коде. Либо просто загрузите файл к себе на комп и читайте его локально. Если вдруг не получается скачать/открыть, напишите комментарий, решим вопрос вместе!)

////////////////////////////////////////////////////////////////////
ЗС = Новый ЗащищенноеСоединениеOpenSSL();
HTTPСоединение = Новый HTTPСоединение("drop3.dropmefile.com",,,,,,ЗС);
//
Заголовки = Новый Соответствие;
Заголовки.Вставить("Accept","text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/png,image/svg+xml,*/*;q=0.8");
Заголовки.Вставить("Accept-Encoding","gzip, deflate, br, zstd");
Заголовки.Вставить("Accept-Language","en-US,ru-RU;q=0.8,ru;q=0.5,en;q=0.3");
Заголовки.Вставить("Connection","keep-alive");
Заголовки.Вставить("Host","drop3.dropmefile.com");
Заголовки.Вставить("Priority","u=0, i");
Заголовки.Вставить("Referer","https://dropmefiles.com/U3nos");
Заголовки.Вставить("Sec-Fetch-Dest","document");
Заголовки.Вставить("Sec-Fetch-Mode","navigate");
Заголовки.Вставить("Sec-Fetch-Site","cross-site");
Заголовки.Вставить("Sec-Fetch-User","?1");
Заголовки.Вставить("Upgrade-Insecure-Requests","1");
Заголовки.Вставить("User-Agent","Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:130.0) Gecko/20100101 Firefox/130.0");
//
HTTPЗапрос = Новый HTTPЗапрос("/dl/U3nos",Заголовки);
HTTPОтвет = HTTPСоединение.Получить(HTTPЗапрос);
ВременноеИмяФайла = ПолучитьИмяВременногоФайла("xls");
HTTPОтвет.ПолучитьТелоКакДвоичныеДанные().Записать(ВременноеИмяФайла);
ТабДок = Новый ТабличныйДокумент;
ТабДок.Прочитать(ВременноеИмяФайла,СпособЧтенияЗначенийТабличногоДокумента.Текст);
АзбукаМорзе = Новый Соответствие;
Для НомерСтроки = 2 По ТабДок.ВысотаТаблицы Цикл
	ТекущийСимвол = Строка(ТабДок.Область("R"+Строка(НомерСтроки)+"C1").Текст);
	ТекущийКод= Строка(ТабДок.Область("R"+Строка(НомерСтроки)+"C2").Текст);	
	АзбукаМорзе.Вставить(ТекущийКод,ТекущийСимвол);
КонецЦикла;
////////////////////////////////////////////////////////////////////

ИсходнаяСтрока = ".... . -.--   .--- ..- -.. .";
//
Вывод = "";
Слова = СтрРазделить(СтрЗаменить(ИсходнаяСтрока,"   ","|"),"|");
Для Каждого Слово Из Слова Цикл
	Если Слово <> "" И Слово <> " " Тогда
		Буквы = СтрРазделить(Слово," ",Ложь);
		Для Каждого Буква Из Буквы Цикл
			Если Буква <> "" И Буквы <> " " Тогда
				Вывод = Вывод + АзбукаМорзе.Получить(Буква);
			КонецЕсли;
		КонецЦикла;
	КонецЕсли;
	Вывод = Вывод + " ";
КонецЦикла;

Заключение:

Всегда любил Азбуку Морзе, поэтому задача была максимально интересной. Ради справедливости стоит учесть что процесс загрузки символов Азбуки в код, для удобного пользования, занимает больше места чем сам декодер XD!

 Платформа: CodeWars

 Название задачи: Stop gninnipS My sdroW!

 Ссылка на задачу: https://www.codewars.com/kata/5264d2b162488dc400000001 (Нажмите на строку)

 Сложность: 6 kyu

 Тэги: Строки, Алгоритмы

 Оригинальное описание задачи:

Write a function that takes in a string of one or more words, and returns the same string, but with all words that have five or more letters reversed (Just like the name of this Kata). Strings passed in will consist of only letters and spaces. Spaces will be included only when more than one word is present.

Examples:

"Hey fellow warriors"  --> "Hey wollef sroirraw" 
"This is a test        --> "This is a test" 
"This is another test" --> "This is rehtona test"

Пояснение:

Суть задачи заключается в том чтобы в исходном предложении инвертировать слова, у которых 5 и более букв, например "fellow" на "wollef". Все остальное не трогаем! Звучит очень просто, давайте попробуем!

Решение:

Для начала, само собой, надо разбить предложение на слова и затем пройтись циклом по каждому слову, проверить его длину, перевернуть слово если оно имеет 5 или более символов, ну и затем собрать предложение из всего этого. Опишем всё это кодом!

ИсходнаяСтрока = "Hey fellow warriors";
//
Вывод = "";
Для Каждого Стр Из СтрРазделить(ИсходнаяСтрока," ") Цикл
	Если СтрДлина(Стр) >= 5 Тогда
		Инверт = "";
		//
		Для НомерСтроки = 1 По СтрДлина(Стр) Цикл
			Инверт = Инверт + Сред(Стр,СтрДлина(Стр)-НомерСтроки+1,1);
		КонецЦикла;
		//
		Вывод = Вывод + Инверт + " ";
	Иначе
		Вывод = Вывод + Стр + " ";
	КонецЕсли;
КонецЦикла;

Заключение:

Весьма интересная задача. Мне кажется решение можно было бы сделать даже еще короче. Но даже так неплохо!