More float syntax fixes
parent
1c68b389cc
commit
da38a25963
|
@ -42,7 +42,7 @@ PRIVATE>
|
|||
#! gamma(x) = integral 0..inf [ t^(x-1) exp(-t) ] dt
|
||||
#! gamma(n+1) = n! for n > 0
|
||||
dup { [ 0.0 <= ] [ 1.0 mod zero? ] } 1&& [
|
||||
drop 1./0.
|
||||
drop 1/0.
|
||||
] [
|
||||
[ abs gamma-lanczos6 ] keep dup 0 > [ drop ] [ gamma-neg ] if
|
||||
] if ;
|
||||
|
@ -51,7 +51,7 @@ PRIVATE>
|
|||
#! gammaln(x) is an alternative when gamma(x)'s range
|
||||
#! varies too widely
|
||||
dup 0 < [
|
||||
drop 1./0.
|
||||
drop 1/0.
|
||||
] [
|
||||
[ abs gammaln-lanczos6 ] keep dup 0 > [ drop ] [ gamma-neg ] if
|
||||
] if ;
|
||||
|
|
|
@ -1,15 +1,16 @@
|
|||
! Copyright (C) 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors assocs db.sqlite furnace furnace.actions furnace.alloy
|
||||
furnace.auth furnace.auth.features.deactivate-user
|
||||
USING: accessors assocs db.sqlite furnace furnace.actions
|
||||
furnace.alloy furnace.auth furnace.auth.features.deactivate-user
|
||||
furnace.auth.features.edit-profile
|
||||
furnace.auth.features.recover-password
|
||||
furnace.auth.features.registration furnace.auth.login
|
||||
furnace.boilerplate furnace.redirection html.forms http.server
|
||||
http.server.dispatchers kernel namespaces site-watcher site-watcher.db
|
||||
site-watcher.private urls validators io.sockets.secure.unix.debug
|
||||
io.servers.connection db db.tuples sequences webapps.site-watcher.common
|
||||
webapps.site-watcher.watching webapps.site-watcher.spidering ;
|
||||
io.servers.connection io.files.temp db db.tuples sequences
|
||||
webapps.site-watcher.common webapps.site-watcher.watching
|
||||
webapps.site-watcher.spidering ;
|
||||
QUALIFIED: assocs
|
||||
IN: webapps.site-watcher
|
||||
|
||||
|
|
Loading…
Reference in New Issue