Платформа: CodeWars

 Название задачи: Count characters in your string (Посчитай количество букв в твоей строке)

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

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

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

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

The main idea is to count all the occurring characters in a string. If you have a string like aba, then the result should be {'a': 2, 'b': 1}.

What if the string is empty? Then the result should be empty object literal, {}.

Пояснение:

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

Решение:

Для начала нам необходимо создать структуру, куда мы будем добавлять символы и число их вхождений. Далее пишем цикл, перебираем все символы исходной строки, получаем их количество вхождений и добавляем в нашу структуру. Далее из структуры получаем JSON строку и выводим! Вот как это будет выглядеть в коде:

ИсходнаяСтрока = "aba";
//
КонечнаяСтруктура = Новый Структура;
Для НомерСтроки = 1 По СтрДлина(ИсходнаяСтрока) Цикл
	КонечнаяСтруктура.Вставить(Сред(ИсходнаяСтрока,НомерСтроки,1),СтрЧислоВхождений(ИсходнаяСтрока,Сред(ИсходнаяСтрока,НомерСтроки,1)));
КонецЦикла;
//
ЗаписьJSON = Новый ЗаписьJSON;
ЗаписьJSON.УстановитьСтроку();
ЗаписатьJSON(ЗаписьJSON,КонечнаяСтруктура);
Вывод = ЗаписьJSON.Закрыть();

Заключение:

Простая и интересная получилась задача! Идём дальше:

 Платформа: CodeWars

 Название задачи: "Stringing"+"Me"+"Along" (Привяжи и меня)

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

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

 Тэги: Функциональное программирование, Фундаментальные

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

Implement a function that receives a string, and lets you extend it with repeated calls. When no argument is passed you should return a string consisting of space-separated words you've received earlier.

Note: There will always be at least 1 string; all inputs will be non-empty.

For example:

create_message("Hello")("World!")("how")("are")("you?")() == "Hello World! how are you?"

Tip (helpful, but not necessary): Try using classes!

Good luck and happy coding!

Пояснение:

По условию задачи нам необходимо собрать строку с помощью независимых вызовов функции. Так чтобы результат одной функции объединялся с результатом предыдущей функции. Конкретно в нашем случае решим эту задачу с помощью одного массива, так как мы решаем все задачи в рамках одной процедуры. Давайте решать!

Решение:

Для решения этой задачи нам необходимо просто прибавить все элементы массива друг к другу. Для этого можем воспользоваться функцией "СтрСоединить", которая в качестве аргументов принимает массив и разделитель. Вот как будет выглядеть решение:

ИсходныйМассив = Новый Массив;
ИсходныйМассив.Добавить("Hello");
ИсходныйМассив.Добавить("World!");
ИсходныйМассив.Добавить("how");
ИсходныйМассив.Добавить("are");
ИсходныйМассив.Добавить("you?");
//
Вывод = СтрСоединить(ИсходныйМассив," ");

Заключение:

В силу того что решение пришлось поменять под себя, оно получилось весьма коротким. Но тем не менее, решение исходной версии задачи не было бы сильно больше! Давайте перейдем к следующей задаче:

 Платформа: CodeWars

 Название задачи: Split Strings (Раздели строки)

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

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

 Тэги: Регулярные выражения, Строки, Алгоритмы

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

Complete the solution so that it splits the string into pairs of two characters. If the string contains an odd number of characters then it should replace the missing second character of the final pair with an underscore ('_').

Examples:

* 'abc' =>  ['ab', 'c_']
* 'abcdef' => ['ab', 'cd', 'ef']

Пояснение:

Цель задачи заключается в том чтобы из исходной строки получить массив строк, длина которых равны двум. Например если дана строка "abc", нам необходимо разбить эту строку на элементы по два символа. Если длина строки нечетная то к последнему символу без пары просто добавляем символ "_". В итоге получится массив из строк "ab", "c_". Звучит просто, давайте приступим к решению!

Решение:

Для начала объявим массив, куда будем добавлять куски исходной строки. Далее пишем цикл для перебора всех элементов массива. В каждой итерации будем добавлять текущий символ к текущей строке и проверять её длину. Если её длина равна двум то добавляем её в массив и обнуляем строку. После всех итераций проверяем есть ли лишние символы в текущей строке. Если есть то добавляем к этому символу "_" и добавляем в массив и эту пару. Звучит просто, давайте попробуем описать это кодом:

ИсходнаяСтрока = "abc";
//
КонечныйМассив = Новый Массив;
ТекущаяСтрока = "";
Для НомерСтроки = 1 По СтрДлина(ИсходнаяСтрока) Цикл
	ТекущаяСтрока = ТекущаяСтрока + Сред(ИсходнаяСтрока,НомерСтроки,1);
	Если СтрДлина(ТекущаяСтрока) = 2 Тогда
		КонечныйМассив.Добавить(ТекущаяСтрока);
		ТекущаяСтрока = "";
	КонецЕсли;
КонецЦикла;
//
Если Не ПустаяСтрока(ТекущаяСтрока) Тогда
	ТекущаяСтрока = ТекущаяСтрока + "_";
	КонечныйМассив.Добавить(ТекущаяСтрока);
КонецЕсли;
//
Вывод = СтрСоединить(КонечныйМассив,", ");

Заключение:

Интересная получилась задача со строками! Давайте приступим к решению следующей задачи:

 Платформа: CodeWars

 Название задачи: +1 Array (+1 массив)

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

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

 Тэги: Алгоритмы, Массивы

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

Given an array of integers of any length, return an array that has 1 added to the value represented by the array.

If the array is invalid (empty, or contains negative integers or integers with more than 1 digit), return nil (or your language's equivalent).

Examples

Valid arrays

• [4, 3, 2, 5] would return [4, 3, 2, 6] (4325 + 1 = 4326)
• [1, 2, 3, 9] would return [1, 2, 4, 0] (1239 + 1 = 1240)
• [9, 9, 9, 9] would return [1, 0, 0, 0, 0] (9999 + 1 = 10000)
• [0, 1, 3, 7] would return [0, 1, 3, 8] (0137 + 1 = 0138)

Invalid arrays

• [] is invalid because it is empty
• [1, -9] is invalid because -9 is not a non-negative integer
• [1, 2, 33] is invalid because 33 is not a single-digit integer

Пояснение:

По условию задачи нам будет дан массив из элементов которого мы должны собрать одно число, добавить к этому числу единицу и после разбить это число на массив элементов и вернуть. Например из массива [4, 3, 2, 5] получится массив [4, 3, 2, 6]. Давайте начнём решение:

Решение:

Для начала проверим массив на содержание каких либо значений. Затем проверим массив на наличие отрицательных и двузначных чисел. Если все проверки пройдены то можно приступать к основной части. Всё что нам остаётся так это объявить цикл, перебрать все элементы массива и собрать их в одно число. Затем прибавить к этому числу единицу, разбить это число на элементы и вернуть массив! Вот как это будет выглядить в коде:

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

Заключение:

Получилась интересная задача с массивами. Давайте приступим к решению последней задачи:

 Платформа: CodeWars

 Название задачи: IP Validation (Валидация IP адреса)

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

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

 Тэги: Регулярные выражения, Алгоритмы

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

Write an algorithm that will identify valid IPv4 addresses in dot-decimal format. IPs should be considered valid if they consist of four octets, with values between 0 and 255, inclusive.

Valid inputs examples:

Examples of valid inputs:
1.2.3.4
123.45.67.89

Invalid input examples:

1.2.3
1.2.3.4.5
123.456.78.90
123.045.067.089

Notes:

• Leading zeros (e.g. 01.02.03.04) are considered invalid
• Inputs are guaranteed to be a single string

Пояснение:

Суть задачи заключается в том чтобы проверить данную строку на то является ли она валидным IP адресом. Валидным IP адрес можно считать если каждое число адреса больше либо равно 0, меньше либо равно 255 а также если не содержит два символа с нулём в начале. Звучит понятно, давайте решать!

Решение:

Для начала разобьем строку на элементы используя в качестве разделителя точку. Затем запустим цикл по этим элементам и в каждой итерации будем проверять находится ли число в диапазоне 0 - 255 и если это двузначное число, проверяем не начинается ли оно с нуля. Давайте напишем код:

ИсходнаяСтрока = "192.168.0.1";
//
Вывод = Истина;
Для Каждого Стр Из СтрРазделить(ИсходнаяСтрока,".") Цикл
	Если Число(Стр) >= 0 И Число(Стр) <= 255 Тогда
		Если СтрДлина(Стр) > 1 Тогда
			Если Сред(Стр,1,1) = "0" Тогда
				Вывод = Ложь;
			КонецЕсли;
		КонецЕсли;
	Иначе
		Вывод = Ложь;
	КонецЕсли;	
КонецЦикла;

Заключение:

Получилась простая и познавательная задача!

https://github.com/SalavatovNabiulla/Algo1C

- 0.5 : Добавлена возможность выбирать контекст исполнения кода, например: НаСервере или НаКлиенте

- 0.4 : Исправлена ошибка при выводе содержимого исключения

- 0.3 : Добавлена возможность сохранять и загружать задачи; Внесены небольшие изменения в интерфейс

- 0.2 : Исправлена ошибка при выводе результата (Отдельная благодарность SAShikutkin)