Paste: 100 percent

Author: randy7
Mode: factor
Date: Sun, 11 Jan 2009 10:34:32
Plain Text |
: 100/ ( n -- n' )
[ 100 ] dip / ;

: 1/ ( n -- n' )
[ 1 ] dip / ;


: 100% ( n seq -- seq' )
swap 1/ [ * >float ] curry map ;

New Annotation

Summary:
Author:
Mode:
Body: