JVERSION Engine: j806/j32/linux Beta: GPL3/2018-07-18T21:38:57 Library: 8.05.14 Platform: Linux 32 Installer: unknown InstallPath: /home/wheagy/tmp/jbld/j32 Contact: [email protected] (or j64nonavx)
max =: >./@:|@, bits =: ] (1 >. ] + [ >: 2x&^@]) <.@(2&^.)@(1&>.) abase1 =: #:~ $&2@bits@max NB. under "floating point" (#: -: abase1) x=:o._500+?1000 This fails for o.0, i.e. if ?1000 gives 500. (Why just test for one random value, and not the whole range?) ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
