Предыдущая тема :: Следующая тема |
Вам нравицца этот язык? |
Я Коллесников |
|
0% |
[ 0 ] |
Ахуеть!! Пиздатый язык!! |
|
16% |
[ 1 ] |
Вы че охуели!! Че за поебень?! |
|
33% |
[ 2 ] |
Да так, язык как язык |
|
16% |
[ 1 ] |
Хуй когда буду на нем кодить |
|
33% |
[ 2 ] |
|
Всего голосов : 6 |
|
Автор |
Сообщение |
bee Админ c яйцами
Зарегистрирован: 18.03.2007 Сообщения: 727 Откуда: Из жопы
|
Добавлено: Вс Май 20, 2007 15:23 Заголовок сообщения: Рефал |
|
|
Удалить из введенной цепочки каждый пятый символ. Если в оставшейся части отсутствуют цифры и имеется дублирования символов, записать рядом все одинаковые символы, причем к символу, который встретился первый, остальные его повторения должны быть приписаны справа. В противном случае, убрать из цепочки все цифры.
Код: |
*Ковалев Кирилл Вар7
Var7 START
entry GO
extrn CARD,PRINT
GO=<PRINT<F2<F1<CARD>>>>
*Удаляем каждый 5й символ
F1 S1S2S3S4S5E6 = S1S2S3S4<F1 E6>
E1 = E1
*Проверка на наличие цифр и выбор действия
F2 E1S(D)2E3 = <F3 E1S(D)2E3>
E1 = <F4 E1>
*Удаление цифр
F3 E1S(D)2E3 = E1<F3 E3>
E1 = E1
*Сортировка символов
F4 E1S2E3S2E4 = E1S2<F4 S2E3E4>
E1 = E1
end
|
_________________ Хер, шлибы нах !!! |
|
Вернуться к началу |
|
|
Armalon Длинный модератор
Зарегистрирован: 18.03.2007 Сообщения: 344
|
Добавлено: Вс Май 20, 2007 19:47 Заголовок сообщения: |
|
|
Лучше на Си или на Паскале задание это сделать. Код будет побольше, но приятно будет кодить.
А эту поебень, бля, расшифровывать пиздец нахуй! _________________ Передаю привет всем кто меня знает! =) |
|
Вернуться к началу |
|
|
bee Админ c яйцами
Зарегистрирован: 18.03.2007 Сообщения: 727 Откуда: Из жопы
|
Добавлено: Вс Май 20, 2007 19:54 Заголовок сообщения: |
|
|
Зато тут хууууу..... рекурсия _________________ Хер, шлибы нах !!! |
|
Вернуться к началу |
|
|
Green--Snake Длинный модератор
Зарегистрирован: 18.03.2007 Сообщения: 86
|
Добавлено: Вс Май 20, 2007 20:40 Заголовок сообщения: |
|
|
kibabiba писал(а): | Зато тут хууууу..... рекурсия |
Хуюрсия... |
|
Вернуться к началу |
|
|
Armalon Длинный модератор
Зарегистрирован: 18.03.2007 Сообщения: 344
|
Добавлено: Вс Май 20, 2007 23:01 Заголовок сообщения: |
|
|
Где вы там рекурсию углядели!? _________________ Передаю привет всем кто меня знает! =) |
|
Вернуться к началу |
|
|
bee Админ c яйцами
Зарегистрирован: 18.03.2007 Сообщения: 727 Откуда: Из жопы
|
Добавлено: Вс Май 20, 2007 23:44 Заголовок сообщения: |
|
|
Armalon писал(а): | Где вы там рекурсию углядели!? |
Хуяссе! Там рекурсией все делается, даже итерации простые. Загляни в первую же функцию
F1 S1S2S3S4S5E6 = S1S2S3S4<F1 E6>. А E1=E1 - условие выхода из рекурсии. _________________ Хер, шлибы нах !!! |
|
Вернуться к началу |
|
|
PiCSeL Главбух
Зарегистрирован: 23.03.2007 Сообщения: 284 Откуда: С Мамруйска
|
Добавлено: Пн Май 21, 2007 11:49 Заголовок сообщения: |
|
|
Голос свыше:
Попизди мне еще тут _________________ Я, блять, всех вас ненавижу |
|
Вернуться к началу |
|
|
|