aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/sqrt.frt
blob: 577d37015dcbd6e190d2d125d900d7c30874a717 (plain)
1
2
3
\ Paul E Bennet comp.arch.embedded 4 May 2008
: sqrt  -1 swap over do  2 +  dup +loop  2/ ;