Author: wmb Date: 2007-04-28 00:17:00 +0200 (Sat, 28 Apr 2007) New Revision: 330
Modified: forth/lib/util.fth Log: Added rounded-/ to forth/lib/util.fth so it can be used more generally.
Modified: forth/lib/util.fth =================================================================== --- forth/lib/util.fth 2007-04-27 21:50:36 UTC (rev 329) +++ forth/lib/util.fth 2007-04-27 22:17:00 UTC (rev 330) @@ -135,6 +135,13 @@ \ : ux. ( adr -- ) base @ >r hex (u.) type r> base ! ; \ ' ux. is showaddr
+\ Integer division which rounds to nearest instead of truncating +: rounded-/ ( dividend divisor -- rounded-result ) + swap 2* swap / ( result*2 ) + dup 1 and + \ add 1 to the result if it is odd + 2/ ( rounded-result ) +; + \ LICENSE_BEGIN \ Copyright (c) 2006 FirmWorks \