Исходное сообщение
"Названы победители 27 конкурса по написанию запутанного кода..." Отправлено n00by, 05-Янв-21 08:47
> Лучше уж полноценный > интепретатор языка нормульного. Вообще, мой пример не про программирование в командной строке. Он про сравнение исходника на Си, где goto в каждой 5-й строке, с гипотетической возможностью изобразить аналог на Паскале. Интересно, что даже будучи сбитыми столку сменой темы, в результате Вы сделали подходящий о том исходнике вывод. Полноценным назвать его сложно, но подсчитать в потоке ввода строки и операторы позволяет: #!refal go = <count 0 0 0 <Card>>; count {   ?total ?goto ?case 0 = <Prout 'Всего строк: ' ?total ', goto: ' ?goto ', case: ' ?case>;   ?total ?goto ?case . 'goto' … = <count <?total + 1> <?goto + 1> ?case <Card>>;   ?total ?goto ?case . 'case' … = <count <?total + 1> ?goto <?case + 1> <Card>>;   ?total ?goto ?case .line = <count <?total + 1> ?goto ?case <Card>>; }

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>> Лучше уж полноценный >> интепретатор языка нормульного. > Вообще, мой пример не про программирование в командной строке. Он про сравнение > исходника на Си, где goto в каждой 5-й строке, с гипотетической > возможностью изобразить аналог на Паскале. Интересно, что даже будучи сбитыми столку > сменой темы, в результате Вы сделали подходящий о том исходнике вывод. > Полноценным назвать его сложно, но подсчитать в потоке ввода строки и > операторы позволяет: > [code] > #!refal > go = <count 0 0 0 <Card>>; > count { > ?total ?goto ?case 0 = <Prout 'Всего строк: ' ?total > ', goto: ' ?goto ', case: ' ?case>; > ?total ?goto ?case . 'goto' … = <count <?total + > 1> <?goto + 1> ?case <Card>>; > ?total ?goto ?case . 'case' … = <count <?total + > 1> ?goto <?case + 1> <Card>>; > ?total ?goto ?case .line = <count <?total + 1> ?goto > ?case <Card>>; > } > [/code]
	Введите код, изображенный на картинке: