Script Library: 1213 scripts
 

oneliner-nfrac.r

Rebol [ Title: "Fractional length" Date: 20-Jul-2003 File: %oneliner-nfrac.r Purpose: {nfrac 33 => 0 ; nfrac "456" => 0 ; nfrac 0.2104 => 4 ; nfrac "1256.63" => 2 ; nfrac 1.0 => 0} One-liner-length: 53 Version: 1.0.0 Author: {collective contribution on www.codeur.org/forum/forum.php?theme=17} Library: [ level: 'beginner platform: 'all type: [How-to FAQ one-liner function] domain: [math] tested-under: none support: none license: none see-also: none ] ] nfrac: func [d][length? second parse join d ".." "."]
halt ;; to terminate script if DO'ne from webpage