Платформа: CodeWars

 Название задачи: Who likes it? (Кому это нравится?)

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

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

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

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

You probably know the "like" system from Facebook and other pages. People can "like" blog posts, pictures or other items. We want to create the text that should be displayed next to such an item.

Implement the function which takes an array containing the names of people that like an item. It must return the display text as shown in the examples:

[]                                -->  "no one likes this"
["Peter"]                         -->  "Peter likes this"
["Jacob", "Alex"]                 -->  "Jacob and Alex like this"
["Max", "John", "Mark"]           -->  "Max, John and Mark like this"
["Alex", "Jacob", "Mark", "Max"]  -->  "Alex, Jacob and 2 others like this"

Note: For 4 or more names, the number in "and 2 others" simply increases.

Пояснение:

Задача описывают систему "Лайков" в популярных социальных сетях, когда под постом показывают несколько имён конкретных людей (Например твои друзья) и затем количество остальных людей. По условию нам будет дан массив имён из которого мы должны сформировать строку, которая подходит для системы лайков. Звучит интересно, давайте попробуем.

Решение:

Для начала напишем одно условие, которое проверяет меньше ли или равно количество людей единице. Почему сначала такое условие? Как вы можете заметить, первые 2 примера и остальные, помимо имён, отличаются одной деталью. Это форма слова "like". Если список пустой или в нем только один человек, форма слова "like" выглядит вот так "likes". Если больше одного то слово "like" всегда выглядит как есть. Далее уже в двух ветках этого условия просто будем проверять количество и менять шаблон вывода в зависимости от этого, придерживаясь условий задачи. Всё очень просто, давайте опишем кодом:

ИсходныйМассив = Новый Массив;
ИсходныйМассив.Добавить("Peter");
ИсходныйМассив.Добавить("Jacob");
ИсходныйМассив.Добавить("Alex");
ИсходныйМассив.Добавить("Max");
ИсходныйМассив.Добавить("John");
ИсходныйМассив.Добавить("Mark");
//
Шаблон = "";
Параметр = "";
Если ИсходныйМассив.Количество() <= 1 Тогда
	Шаблон = "%1 likes this";
	//
	Если ИсходныйМассив.Количество() = 0 Тогда
		Параметр = "no one";
	Иначе
		Параметр = ИсходныйМассив[0];
	КонецЕсли;
Иначе
	Шаблон = "%1 like this";
	//
	Если ИсходныйМассив.Количество() = 2 Тогда
		Параметр = ИсходныйМассив[0] + " and " + ИсходныйМассив[1];
	ИначеЕсли ИсходныйМассив.Количество() = 3 Тогда
		Параметр = ИсходныйМассив[0] + ", " + ИсходныйМассив[1] + " and " + ИсходныйМассив[2];
	ИначеЕсли ИсходныйМассив.Количество() > 3 Тогда
		Параметр = ИсходныйМассив[0] + ", " + ИсходныйМассив[1] + " and " + Строка(ИсходныйМассив.Количество()-2) + " others";
	КонецЕсли; 
КонецЕсли;
//
Вывод = СтрШаблон(Шаблон,Параметр);

Заключение:

Очень интересная была задача. Мне кажется решение тоже получилось неплохим! Далее у нас:

 Платформа: CodeWars

 Название задачи: Find the odd int (Найди нечетное число)

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

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

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

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

Given an array of integers, find the one that appears an odd number of times.

There will always be only one integer that appears an odd number of times.

Examples

[7] should return 7, because it occurs 1 time (which is odd).
[0] should return 0, because it occurs 1 time (which is odd).
[1,1,2] should return 2, because it occurs 1 time (which is odd).
[0,1,0,1,0] should return 0, because it occurs 3 times (which is odd).
[1,2,2,3,3,3,4,3,3,3,2,2,1] should return 4, because it appears 1 time (which is odd).

Пояснение:

Суть задачи заключается в том чтобы определить количество какого из чисел в данном массиве является нечетным. Например в массиве [1, 1, 2], число два встречается только один раз, следовательно тем самым числом с нечетным количеством вхождений будет два. Также по условию уточняется что такое число в массиве может встретиться только 1 раз. Давайте попробуем решить:

Решение:

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

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

Заключение:

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

 Платформа: CodeWars

 Название задачи: Array.diff

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

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

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

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

Your goal in this kata is to implement a difference function, which subtracts one list from another and returns the result.

It should remove all values from list a, which are present in list b keeping their order.

array_diff([1,2],[1]) == [2]

If a value is present in b, all of its occurrences must be removed from the other:

array_diff([1,2,2,2,3],[2]) == [1,3]

Пояснение:

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

Решение:

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

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

Заключение:

Простая задачка про обработку массивов, отличная разминочка! Что у нас там следующее?

 Платформа: CodeWars

 Название задачи: Sum of Digits / Digital Root

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

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

 Тэги: Математика, Алгоритмы

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

Digital root is the recursive sum of all the digits in a number.

Given n, take the sum of the digits of n. If that value has more than one digit, continue reducing in this way until a single-digit number is produced. The input will be a non-negative integer.

Examples

    16  -->  1 + 6 = 7
   942  -->  9 + 4 + 2 = 15  -->  1 + 5 = 6
132189  -->  1 + 3 + 2 + 1 + 8 + 9 = 24  -->  2 + 4 = 6
493193  -->  4 + 9 + 3 + 1 + 9 + 3 = 29  -->  2 + 9 = 11  -->  1 + 1 = 2

Пояснение:

По условию нам будет даваться число из которого мы должны будем получить цифровой корень. Цифровой корень это результат итеративного сложения цифр числа. Например если дано число 16 то мы должны будем прибавить 1 и 6 в результате чего получим 7. Цифровым корнем числа 16 будет 7. Также попробуем с числом 942. Прибавив все три числа мы получим 15. Чтобы получить цифровой корень нам нужно продолжать процесс до тех пор пока не останется только одна цифра. Значит идем дальше, 1 + 5 = 6. В итоге цифровым корнем числа 942 будет 6. Думаю принцип вполне себе понятен. Давайте попробуем решить:

Решение:

Само собой первое что приходит на ум так это использовать рекурсию так как число итераций заведомо не определено. Но так как я решаю задачи в своей конфигурации, я не могу объявлять Функции и Процедуры. Все задачи должны быть решены в рамках одной процедуры. Но это не важно, это ничего не усложняет. Для начала напишем цикл, который будет жить до тех пор пока длина текущего обрабатываемого числа будет больше одного. Внутри каждой итерации будем разбивать число на отдельные цифры и прибавлять как в примере из пояснения. Ну и затем просто обновлять конечное число. Итого в какой-то момент текущее число станет одной цифрой и главный цикл завершится. Вот как это выглядит в коде:

ИсходноеЧисло = 493193;
//
ТекущееЧисло = ИсходноеЧисло;
Пока Вывод = Неопределено Цикл
	Если СтрДлина(СтрЗаменить(Строка(ТекущееЧисло), ",", ""))> 1 Тогда
		ПромежуточноеЧисло = 0;
		Для НомерСтроки = 1 По СтрДлина(СтрЗаменить(Строка(ТекущееЧисло), ",", "")) Цикл
			ПромежуточноеЧисло = ПромежуточноеЧисло + Число(Сред(СтрЗаменить(Строка(ТекущееЧисло), ",", ""),НомерСтроки,1));	
		КонецЦикла;
		ТекущееЧисло = ПромежуточноеЧисло;
	Иначе
		Вывод = ТекущееЧисло;
	КонецЕсли;
КонецЦикла;

Заключение:

Отличная задача. Было весьма познавательно и интересно!

 Платформа: CodeWars

 Название задачи: Multiples of 3 or 5

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

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

 Тэги: Математика, Алгоритмы

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

If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.

Finish the solution so that it returns the sum of all the multiples of 3 or 5 below the number passed in.

Additionally, if the number is negative, return 0.

Note: If the number is a multiple of both 3 and 5, only count it once.

Пояснение:

Суть очень проста. Нам будет даваться какое-то число в котором мы должны будем найти все кратные 3 и 5 числа и затем прибавить их все друг к другу. Очень кратко и понятно, давайте решать!

Решение:

По условию задачи нам сказано вернуть 0 если число отрицательное, так что давайте сразу объявим это условие. Затем внутри напишем цикл для всех чисел от 1 до исходного числа. В каждой итерации будем проверять текущее число на кратность 3 и 5. Если совпадение есть, прибавляем текущее число к конечному числу. Вот что у меня получилось:

ИсходноеЧисло = 10;
//
КонечноеЧисло = 0;
Если ИсходноеЧисло > 0 Тогда
	Для НомерСтроки = 1 По ИсходноеЧисло-1 Цикл
		Если НомерСтроки % 3 = 0 Или НомерСтроки % 5 = 0 Тогда
			КонечноеЧисло = КонечноеЧисло + НомерСтроки;	
		КонецЕсли;	 
	КонецЦикла;
КонецЕсли;
//
Вывод = КонечноеЧисло;

Заключение:

Получилось кратко и понятно. Более и добавить нечего!

https://github.com/SalavatovNabiulla/Algo1C

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

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

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

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