Script Library: 1238 scripts
 

round.r

REBOL [ Title: "Round" Date: 31-Aug-2002 Name: 'Round Version: 1.0.1 File: %round.r Author: "Andrew Martin" Purpose: { ^-^-Rounds a number at any given place. ^-^-} eMail: %Al--Bri--xtra--co--nz Web: http://valley.150m.com Acknowledgements: { ^-^-Thanks to Geo Massar and for his example code. ^-^-Thanks to Christian "CHE" Ensel for inspiration. ^-^-} Example: [ round 123.45 round 123.55 round -123.45 round -123.55 round/at 123.344 2 round/at 123.345 2 round/at 12345 -2 round/at -12345 -2 round/at (1.22 // 1E-2) 2 round/at 214748.36471 4 round/at 214748.36477 4 ] library: [ level: 'beginner platform: none type: 'tool domain: 'math tested-under: none support: none license: none see-also: none ] ] Round: func [ "Rounds a Number At any given Place." [catch] Number [number!] "Number to round." /At Place [integer!] "Optional Places." ][ throw-on-error [ Place: either none? Place [1] [10 ** Place] Number: Place * Number Number: Number + either positive? Number [0.5][-0.5] Number: Number - (Number // 1) Number / Place ] ]
halt ;; to terminate script if DO'ne from webpage
<< round-2.r · rpps.r >>
Notes
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (Al:Bri:xtra:co:nz)