История изменений
Исправление quantum-troll, (текущая версия) :
Я бы сказал
: f ( x y z -- t)
drop [ dup * ] dip ! x², y
[ dup * ] [ abs ] bi - ! x², y² - |y|
+ ;
USING: kernel locals math ;
:: f ( x y z -- num )
x sqrt y sqrt + y abs - ;
Исходная версия quantum-troll, :
Я бы сказал
[code]
: f ( x y z — num )
drop [ dup * ] dip ! x², y
[ dup * ] [ abs ] bi - ! x², y² - |y|
+ ;
[/code]
Но внезапно можно
[code]
USING: kernel locals math ;
:: f ( x y z — num )
x sq y sq + y abs - ;
[/code]
так как подобные языки практически не ограничены в расширении.