LINUX.ORG.RU

История изменений

Исправление 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]
так как подобные языки практически не ограничены в расширении.