Список форумов Жопно-Сортирный Форум Жопно-Сортирный Форум
Срать - естественная потребность. Срите сколько вылезет
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Главная

Галерея

Рефал

 
Начать новую тему   Ответить на тему    Список форумов Жопно-Сортирный Форум -> Программинг
Предыдущая тема :: Следующая тема  

Вам нравицца этот язык?
Я Коллесников
0%
 0%  [ 0 ]
Ахуеть!! Пиздатый язык!!
16%
 16%  [ 1 ]
Вы че охуели!! Че за поебень?!
33%
 33%  [ 2 ]
Да так, язык как язык
16%
 16%  [ 1 ]
Хуй когда буду на нем кодить
33%
 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    Заголовок сообщения: Ответить с цитатой

Лучше на Си или на Паскале задание это сделать. Код будет побольше, но приятно будет кодить.
А эту поебень, бля, расшифровывать пиздец нахуй! Laughing
_________________
Передаю привет всем кто меня знает! =)
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
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    Заголовок сообщения: Ответить с цитатой

Голос свыше:
Попизди мне еще тут Evil or Very Mad
_________________
Я, блять, всех вас ненавижу
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Жопно-Сортирный Форум -> Программинг Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Rambler's Top100 Powered by phpBB
© 2001, 2005 phpBB Group
Русская поддержка phpBB