steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2008-09-06 23:58:24 -05:00
parent dbd7b4f546 0589e061e1
commit b8a273bc0f
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/money/money.factor
View File

@ -6,14 +6,16 @@ IN: money
: dollars/cents ( dollars -- dollars cents ) : dollars/cents ( dollars -- dollars cents )
100 * 100 /mod round ; 100 * 100 /mod round ;
: money. ( object -- ) : money>string ( object -- string )
dollars/cents dollars/cents [
[
"$" % "$" %
swap number>string swap number>string
<reversed> 3 group "," join <reversed> % <reversed> 3 group "," join <reversed> %
"." % number>string 2 CHAR: 0 pad-left % "." % number>string 2 CHAR: 0 pad-left %
] "" make print ; ] "" make ;
: money. ( object -- )
money>string print ;
ERROR: not-a-decimal x ; ERROR: not-a-decimal x ;

1
extra/spheres/tags.txt
View File

@ -1,2 +1,3 @@
opengl opengl
glsl glsl
demos