Платформа: CodeWars

 Название задачи: Mumbling (Бормотание)

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

 Сложность: 7 kyu (7 / 8)

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

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

This time no story, no theory. The examples below show you how to write function accum:
Examples:
accum("abcd") -> "A-Bb-Ccc-Dddd"
accum("RqaEzty") -> "R-Qq-Aaa-Eeee-Zzzzz-Tttttt-Yyyyyyy"
accum("cwAt") -> "C-Ww-Aaa-Tttt"
The parameter of accum is a string which includes only letters from a..z and A..Z.

Пояснение:

Суть задачи заключается в том чтобы их исходной строки построить строку, похожую на бормотание. Под такой строкой подразумевается строка, где каждый символ исходной строки встречается несколько раз. Количество вхождений увеличивается с каждым разом по мере прохождения по исходной строке. Последовательности каждой буквы разделяются с помощью дефиса. Также каждая последовательность должна начинаться с большой буквы. Например строка "abcd" должна в итоге преобразоваться в строку "A-Bb-Ccc-Dddd". Думаю суть понятна, давайте приступим к решению:

Решение:

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

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

Результат:

R-Qq-Aaa-EEEE-Zzzzz-Tttttt-Yyyyyyy

Интересная получилась задача. Думаю решение тоже неплохое!

 Платформа: CodeWars

 Название задачи: How Many Streets? (Сколько улиц?)

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

 Сложность: 7 kyu (7 / 8)

 Тэги: Массивы, Поиск, Производительность

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

The longest street in the world, MAX_STREET, is crossed by many other streets and driven by many drivers. Determine how many streets each driver crosses. Inputs (1) A list of streets that intersect MAX_STREET. (2) A list of drivers. Each driver is represented by a pair of streets. The first element of the pair is the street where they enter MAX_STREET; the second is the street they exit. The driver crosses all the streets between those two streets. Output A list showing how many streets each driver crosses.

Example
count_streets(["first", "second", "third", "fourth", "fifth", "sixth", "seventh"], [("first", "second"), ("second", "seventh"), ("sixth", "fourth")]) should return [0,4,1].

Details: (1) Each street name is a non-empty word of no more than 10 letters. There are no duplicate street names. (2) The entry and exit streets for each driver are distinct. They are guaranteed to come from the list of streets. (3) The number of streets n satisfies 2 ≤ n ≤ 105. The number of drivers d satisfies 1 ≤ d ≤ 105. So efficiency is important. Source: International Collegiate Programming Contest, North Central North American Regional, 2022.

Пояснение:

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

Например:
Большая улица: ["first", "second", "third", "fourth", "fifth", "sixth", "seventh"]
Водители: [("first", "second"), ("second", "seventh"), ("sixth", "fourth")]
Первый водитель начал путь с улицы "First" и затем завернул на улицу "second", он пересёк 0 улиц. По такому же принципу получаем 4 у второго водителя и 1 у третьего водителя.
Итого вывод: 0,4,1
Думаю суть понятна, давайте попробуем решить:

Решение:

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

 ИсходныйМассивУлиц = Новый Массив;
ИсходныйМассивУлиц.Добавить("first");
ИсходныйМассивУлиц.Добавить("second");
ИсходныйМассивУлиц.Добавить("third");
ИсходныйМассивУлиц.Добавить("fourth");
ИсходныйМассивУлиц.Добавить("fifth");
ИсходныйМассивУлиц.Добавить("sixth");
ИсходныйМассивУлиц.Добавить("seventh");
//
ИсходныйМассивВодителей = Новый Массив;
ПервыйВодитель = Новый Массив;
ПервыйВодитель.Добавить("first");
ПервыйВодитель.Добавить("second");
ВторойВодитель = Новый Массив;
ВторойВодитель.Добавить("second");
ВторойВодитель.Добавить("seventh");
ТретийВодитель = Новый Массив;
ТретийВодитель.Добавить("sixth");
ТретийВодитель.Добавить("fourth");
ИсходныйМассивВодителей.Добавить(ПервыйВодитель);
ИсходныйМассивВодителей.Добавить(ВторойВодитель);
ИсходныйМассивВодителей.Добавить(ТретийВодитель);
//
Вывод = Новый Массив;
Для Каждого Стр Из ИсходныйМассивВодителей Цикл
  Вывод.Добавить((Макс(ИсходныйМассивУлиц.Найти(Стр[0]),ИсходныйМассивУлиц.Найти(Стр[1]))-1) - Мин(ИсходныйМассивУлиц.Найти(Стр[0]),ИсходныйМассивУлиц.Найти(Стр[1])));    
КонецЦикла;
Вывод = СтрСоединить(Вывод,",");

Результат:

0,4,1

Вполне себе неплохая задача. Интересный факт: В описании задачи написано что она была на ICPC 2022

 Платформа: CodeWars

 Название задачи: Odder Than the Rest (Более нечетный чем остальные)

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

 Сложность: 7 kyu (7 / 8)

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

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

Create a method that takes an array/list as an input, and outputs the index at which the sole odd number is located. This method should work with arrays with negative numbers. If there are no odd numbers in the array, then the method should output -1.

Examples:
odd_one([2,4,6,7,10]) # => 3
odd_one([2,16,98,10,13,78]) # => 4
odd_one([4,-8,98,-12,-7,90,100]) # => 4
odd_one([2,4,6,8]) # => -1

Пояснение:

Суть задачи заключается в том чтобы определить индекс нечетного числа в исходном числовом массиве. Поиск должен работать независимо от знаков чисел. Если нечетных чисел нет, то возвращаем -1. Думаю всё понятно, давайте приступим к решению:

Решение:

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

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

Результат:

3

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

 Платформа: CodeWars

 Название задачи: Channelling power of Primes into a new Number (Преобразование силы простых чисел в новое число)

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

 Сложность: 7 kyu (7 / 8)

 Тэги: Математика

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

Let's look on natural numbers
(counting from 1 =( ) and mark each number as 1 if it is prime and 0 otherwise. 1 2 3 4 5 6 7 8 ... 0 1 1 0 1 0 1 0 ...
For given number n output an integer whose bits are exactly bits of sequence above up to (including) n.
Consider little-endian order. n <= 10 000.

Example
Let n be 9.
1 2 3 4 5 6 7 8 9 - naturals
0 1 1 0 1 0 1 0 0 - "prime" bits
1 2 4 8 16 32 64 128 256 - corresponding powers of two
 So channelling_powers(9) equals 2 + 4 + 16 + 64 = 86.

Пояснение:

Суть задачи заключается в двух шагах. Для начала нам необходимо из исходного числа получить последовательность нулей и единиц. Каждый элемент нового массива соответствует числу внутри диапазона исходного числа. Ноль будем записывать если число не является простым, и наоборот с единицей. Например дано число 9, внутри девятки всего 9 натуральных чисел, то есть 1 2 3 4 5 6 7 8 9 Далее проверяем каждое число на простоту и получаем следующую последовательность: 0 1 1 0 1 0 1 0 0 Теперь приступаем ко второму шагу. Нам необходимо получить все степени двойки. Количество степеней будет равно количеству элементов предыдущей последовательность. Далее необходимо сопоставить последовательность со степенями, в итоге получится: 0 1 1 0 1 0 1 0 0 1 2 4 8 16 32 64 128 256 Ну и затем отберем только те степени, которые соответствуют числу 1, то есть простому числу в исходных данных. Ну и затем прибавим друг к другу все отобранные числа и вернем в качестве результата: 2 + 4 + 16 + 64 = 86 Вполне себе понятно, давайте попробуем решить:

Решение:

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

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

Результат:

86

Весьма занимательная задача. Я думаю решение тоже получилось неплохим!

 Платформа: CodeWars

 Название задачи: Simple string characters (Простые строковые символы)

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

 Сложность: 7 kyu (7 / 8)

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

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

In this Kata, you will be given a string and your task will be to return a list of ints detailing the count of uppercase letters, lowercase, numbers and special characters, as follows.
Solve("*'&ABCDabcde12345") = [4,5,5,3].
--the order is: uppercase letters, lowercase, numbers and special characters. More examples in the test cases. Good luck!

Пояснение:

Цель задачи заключается в том чтобы посчитать количество символов в строке. Нам нужно узнать сколько символов в верхнем регистре, нижнем регистре, сколько чисел и сколько специальных символов. Например в строке *'&ABCDabcde12345 мы получим четыре символа в верхнем регистре, пять в нижнем, пять цифр и три спецсимвола. Итого вернем массив [4,5,5,3] Звучит просто, давайте попробуем решить:

Решение:

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

 ИсходнаяСтрока = "*'&ABCDabcde12345";
//
Вывод = Новый Массив;
Вывод.Добавить(0);
Вывод.Добавить(0);
Вывод.Добавить(0);
Вывод.Добавить(0);
//
Для НомерЭлемента = 1 По СтрДлина(ИсходнаяСтрока) Цикл
  ТекущийСимвол = Сред(ИсходнаяСтрока,НомерЭлемента,1);
  Если СтрРазделить("A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"," ",Ложь).Найти(ВРег(ТекущийСимвол)) <> Неопределено Тогда
    Если ТекущийСимвол = ВРег(ТекущийСимвол) Тогда
      Вывод[0] = Вывод[0] + 1;
    Иначе
      Вывод[1] = Вывод[1] + 1;
    КонецЕсли;
  ИначеЕсли СтрРазделить("1 2 3 4 5 6 7 8 9 0"," ",Ложь).Найти(ТекущийСимвол) <> Неопределено Тогда
    Вывод[2] = Вывод[2] + 1;
  Иначе
    Вывод[3] = Вывод[3] + 1;
  КонецЕсли; 
КонецЦикла;
//
Вывод = СтрСоединить(Вывод,",");

Результат:

4,5,5,3

Небольшая но зато весьма интересная задача!

https://github.com/SalavatovNabiulla/Algo1C

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

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

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

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