Форум программистов, компьютерный форум, киберфорум
Наши страницы
Другие языки программирования
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
vic_one
47 / 7 / 0
Регистрация: 20.03.2015
Сообщений: 56
14.09.2015, 07:19  [ТС]

[V] Хорош ли синтаксис языка программирования V?

14.09.2015, 07:19. Просмотров 14074. Ответов 77
Метки (Все метки)

Ответ

Fortran
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
_Counter Print(_String) <- _ОтобразитьСтроку;
_String ToString(_Text) <- _ВСтрокуТекст;
_String ToString(_Counter) <- _СчетчикВСтроку;
 
Type TFnBaseT(_String name):{
}
 
?Template TFnBaseExtT - Type1 FnType1(
    Function TFnBaseExtT(_String name, (FnType1) fn):{
        Return {
            Type TFnBaseExtT__ TFnBaseT+((FnType1) fn):{
            }
 
            (_String name, (FnType1) fn):
                TFnBaseExtT__ lTFnBaseExt__; 
                lTFnBaseExt__.name=name; lTFnBaseExt__.fn=fn;
                Return lTFnBaseExt__;
        }(name, fn);
    }
)
 
List LFnBaseT[TFnBaseT]:{
}
Var LFnBaseT gLFnBaseT;
 
?Template GetFn - Type2 FnType1(
    Function GetFn(_String name, (FnType1) fn)(gLFnBaseT):{
        *lForT=TFnBaseExtT(name, fn);
        @el,ind++ gLFnBaseT:
            If el.name==name:
                el._lForT_:
                    Print("Попалась "+name+"\n");
                    Return el.fn;
                .
            .
        .
        gLFnBaseT+=TFnBaseExtT(name, fn);
        Return fn;
    }
    Function GetFn(_Text name, (FnType1) fn):{
        Return GetFn(name.ToString, fn);
    }
)
 
?Template SetFn - Type2 FnType1(
    Function SetFn(_String name, (FnType1) fn)(gLFnBaseT):{
        *lForT=TFnBaseExtT(name, fn);
        @el,ind++ gLFnBaseT:
            If el.name==name:
                el._lForT_:
                    el.fn=fn;
                    Print("Попалась "+name+"\n");
                    Return 1;
                .
            .
        .
        gLFnBaseT+=TFnBaseExtT(name, fn);
        Return 0;
    }
    Function SetFn(_Text name, (FnType1) fn):{
        Return SetFn(name.ToString, fn);
    }
)
 
?Template CreateList - Type2(
    Function CreateList(Type2 t2):{
        Return {
            List List__[Type2]:.
 
            ():
                List__ lList__;
                =lList__;
        }();
    }
);
 
?Template GetFns - FnType1(
    Function GetFns((FnType1) fn)(gLFnBaseT):{
        _String name;
        *lForT=TFnBaseExtT(name, fn);
        *lRes=CreateList(lForT);
        @el,ind++ gLFnBaseT:
            el._lForT_:
                lRes+=TFnBaseExtT(el.name, el.fn);
                Print("Нашлась "+el.name+"\n");
            .
        .
        Return lRes;
    }
)
 
Program Prog(): // начало исполнения
 
    *fn1=GetFn"A2"{_Counter A:=A+A};
    *fn2=GetFn"A3"{_Counter A:=A+A};
    Print(fn1(10).ToString+"==20\n");
    SetFn"A2"{_Counter A:=A*A};
    fn1=GetFn"A2"{_Counter A:=A+A};
    Print(fn1(10).ToString+"==100\n");
    Print(GetFn("A2",fn1)(11).ToString+"==121\n");
 
    @lel,ind++ GetFns{_Counter A:=A}:
        Print(ind.ToString+") "+lel.name+"(3)="+lel.fn(3).ToString+"\n");
    .
 
    End 0; // возврат кода завершения
.


Вернуться к обсуждению:
[V] Хорош ли синтаксис языка программирования V?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.09.2015, 07:19
Готовые ответы и решения:

Выбор языка программирования
Добрый день, посетители форума. Мой путь в программирование начался 2 года...

Ребят, презентация нового языка программирования ObjectScript
Сколько же существует всяких языков программирования, еще один? Ну можно и так...

Синтаксис какого языка программирования наиболее читабелен?
Здравия всем! Пытаюсь тут ЯП пилить, но вот проблема, не могу подобрать...

Что мне может дать знание языка Perl и чем он хорош?
Думаю начать изучать язык Perl. Чем то он мне понравился. Но думаю - стоит или...

По русскому названию языка программирования определить английское название этого языка
Задача на перечисляемый тип P=(ада, бейсик, модула2, лисп, паскаль, пл2,...

77
Другие темы раздела
Программирование ПИД регулятор на языке NXC http://www.cyberforum.ru/other-lang/thread1401702.html
Здраствуйте!Такой вопрос, нужно написать программу адаптивного пид регулятор,или с нейросетью на языке NXC для NXT роботов. Обычный ПИД регулятор уже написан,но с автоматической настройкой параметров...
Программирование [КуМир] Нерекурсивное для нахождения НОД четырёх натуральных чисел Составить программу для нахождения наибольшего общего делителя четырёх натуральных чисел. программа должна быть нерекурсивной. я сделала рекурсивно, не могу понять как переделать, чтоб она не... http://www.cyberforum.ru/other-lang/thread1400912.html
Программирование Беда с русификацией
Уважаемые форумчане, каждый из Вас хоть 1 раз но говорил "я не Ванга" или "Экстрасенсы в отпуске". Сейчас я Вас попрошу стать Вангой и вернуть экстрасенсов из отпуска. В общем по делу. Занялся...
Программирование Язык Promela - написать игру пятнашки 3 на 3
подскажите, пожалуйста, нужно написать игру пятнашки 3 на 3 на этом языке, вроде написал, но не работае, выдает все нули, z1 z2 ит.д. это значение ячеек, 0 это значит пустая. int z1 = 3, ...
Программирование Idl язык программирования которого не найти http://www.cyberforum.ru/other-lang/thread1388271.html
Здравствуйте, форумчане. Возникла необходимость в изучении языка IDL. Все языки учатся со стандартного так сказать "Hello world", но немного в другом смысле. Нужно вычислить NDVI.pro ndvi ...
Программирование Язык программирования GRASS У кого-нибуть есть информация по этому языку программирования? Поисковые системы выдают информацию что что это какой-то бейсико-подобный язык, но более совершенный. Хотелось бы узнать о нем чуточку... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru