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

math.parser: simplify { integer ratio } >base.

db4
John Benediktsson 2015-07-19 16:45:46 -07:00
parent 89e3cc511e
commit 0dbc5e7d67
1 changed files with 11 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
core/math/parser/parser.factor
View File

@ -420,24 +420,19 @@ GENERIC# >base 1 ( n radix -- str )
: >hex ( n -- str ) 16 >base ; inline
M: integer >base
over 0 = [
2drop "0"
] [
over 0 > [
positive>base
] [
[ neg ] dip positive>base CHAR: - prefix
] if
] if ;
{
{ [ over 0 = ] [ 2drop "0" ] }
{ [ over 0 > ] [ positive>base ] }
[ [ neg ] dip positive>base CHAR: - prefix ]
} cond ;
M: ratio >base
[ [ 0 < ] [ abs 1 /mod ] bi ]
[ [ positive>base ] curry ] bi*
[
[ [ numerator ] [ denominator ] bi ] dip bi@ "/" glue
] keep rot [ drop ] [
swap call pick "-" "+" ? rot 3append
] if-zero swap [ CHAR: - prefix ] when ;
[ >fraction [ /mod ] keep ] [ [ >base ] curry tri@ ] bi*
"/" glue over first-unsafe {
{ CHAR: 0 [ nip ] }
{ CHAR: - [ append ] }
[ drop "+" glue ]
} case ;
<PRIVATE