Тонкие синтаксические извращения

[jangle]

Иногда работая с давно известным компилятором обнаруживаешь забавные его свойства.
Например сможете понять, что делает этот код на PB не запуская его?
И еще заинтересовал вопрос, можно ли использовать "извращения" с практической целью?

Код: Выделить всё

#Compile Exe
#Dim All

Function PBMain () As Long
Local y,z,f As Long
f=1
Begin:
  Incr y
  f *= y
  On -Not y=10 GoTo Begin
  MsgBox Str$(f)
End Function
                     

[NashRus]

факториал считает до 10?

[jangle]

факториал считает до 10?

ага, только цикл организован черед одно нехорошее место

[Qwertiy]

Достаточно просто... По крайней мере, учитывая что я Not так периодически использую.

И еще заинтересовал вопрос, можно ли использовать "извращения" с практической целью?

Вот так, например?

А вообще, ещё вопрос, что извращение, а что - нет. Если постоянно пишешь while(~--n), то понимаешь эту конструкцию не задумываясь. Так же, как некоторые конструкции, до которых когда-то догадался.