steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fixed a stupid implementation of nth-root

cvs
Doug Coleman 2006-01-28 18:41:45 +00:00
parent 133793ced1
commit 7b33785b03
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/math/analysis.factor
View File

@ -56,7 +56,7 @@ IN: math-contrib
] if ; ] if ;
: nth-root ( n x -- ) : nth-root ( n x -- )
log >r recip r> * e swap ^ ; over 0 = [ "0th root is undefined" throw ] when >r recip r> swap ^ ;
! Forth Scientific Library Algorithm #1 ! Forth Scientific Library Algorithm #1
! !