@verb #4214:"percent" this none this rxdo #8438
@program #4214:"percent" this none this
"Syntax: :percent(dividend, divisor) => x%"
per = typeof(args[1]) == $LIST ? length(args[1]) | args[1]
div = typeof(args[2]) == $LIST ? length(args[2]) | args[2]
per = tofloat(toint(per) * 100)
div = tofloat(toint(div))
per = per / div
return tostr(per, "%")
"Last modified by Dax (#789) on Tue May  3 13:55:56 2005 MDT."
.