Sergei Obrastsov Ymka2007скобки обрабатываются быстрее чем точки
прошлогодняя школа
Чушь. Быстрее точек обрабатывается только цикл в одну строчку

Профильнул такой код:
фома
TestSpd
d block
d parentheses
d while
d line
q
parentheses
n tn,count s tn="",count=0
f
{
s tn=$o(^|"KDRKDR"|ZSTV1(tn))
q:tn=""
s:$d(^|"KDRKDR"|ZSTV1(tn,"U")) count=count+1
}
q
block
n tn,count s tn="",count=0
f s tn=$o(^|"KDRKDR"|ZSTV1(tn)) q:tn="" d
.s:$d(^|"KDRKDR"|ZSTV1(tn,"U")) count=count+1
q
while
n tn,count s tn=$o(^|"KDRKDR"|ZSTV1("")),count=0
while tn'=""
{
s:$d(^|"KDRKDR"|ZSTV1(tn,"U")) count=count+1
s tn=$o(^|"KDRKDR"|ZSTV1(tn))
}
q
line
n tn,count s tn="",count=0
f s tn=$o(^|"KDRKDR"|ZSTV1(tn)) q:tn="" s:$d(^|"KDRKDR"|ZSTV1(tn,"U")) count=count+1
q


Перед профилированием несколько раз запустил. Результат:
фома
Routine Line RtnLine Time TotalTime Code
TestSpd 1 2 0.000009 0.000009 TestSpd ; Compiled April 3, 2008 11:25:34
2 2 0.00001 0.348848 d block
3 2 0.000011 0.349198 d parentheses
4 2 0.00001 0.345024 d while
5 2 0.000009 0.179140 d line
6 2 0.000016 0.000016 q
7 2 0.000003 0.000003 parentheses
8 2 0.000008 0.000008 n tn,count s tn="",count=0
9 2 0.000004 0.000004 f
10 0 0 0.000000 {
11 33032 0.106221 0.106221 " s tn=$o(^|""KDRKDR""|ZSTV1(tn))"
12 33032 0.052522 0.052522 " q:tn="""""
13 33030 0.187058 0.187058 " s:$d(^|""KDRKDR""|ZSTV1(tn,""U"")) count=count+1"
14 33030 0.053743 0.053743 }
15 2 0.000012 0.000012 q
16 2 0.000004 0.000004 block
17 2 0.000008 0.000008 n tn,count s tn="",count=0
18 2 0.11131 0.111310 f s tn=$o(^|"KDRKDR"|ZSTV1(tn)) q:tn="" d
19 33030 0.187116 0.187116 .s:$d(^|"KDRKDR"|ZSTV1(tn,"U")) count=count+1
20 2 0.000011 0.000011 q
21 2 0.000004 0.000004 while
22 2 0.000027 0.000027 n tn,count s tn=$o(^|"KDRKDR"|ZSTV1("")),count=0
23 2 0.000006 0.000006 while tn'=""
24 0 0 0.000000 {
25 33030 0.184975 0.184975 " s:$d(^|""KDRKDR""|ZSTV1(tn,""U"")) count=count+1"
26 33030 0.104489 0.104489 " s tn=$o(^|""KDRKDR""|ZSTV1(tn))"
27 33030 0.055496 0.055496 }
28 2 0.000014 0.000014 q
29 2 0.000004 0.000004 line
30 2 0.000008 0.000008 n tn,count s tn="",count=0
31 2 0.179096 0.179096 f s tn=$o(^|"KDRKDR"|ZSTV1(tn)) q:tn="" s:$d(^|"KDRKDR"|ZSTV1(tn,"U")) count=count+1
32 2 0.000021 0.000021 q
Totals for TestSpd 264288 1.222225 NA


Итого: (если сложить время выполнения строк, входящих в цикл)
block 0.298426
parentheses 0.399548
while 0.344993
line 0.179096

Результат удивил: до теста был уверен, что структура со скобками должна работать быстрее (т.к. не используется команда do), а на деле...

2 Sergei Obrastsov: а есть объяснение почему так? (кроме количества строк в теле цикла)