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

summary: adding summary of sets.

db4
John Benediktsson 2013-11-25 16:25:02 -08:00
parent 97530d86d4
commit 76e32e8a5f
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/summary/summary.factor
View File

@ -1,13 +1,12 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs classes continuations kernel make math USING: accessors assocs classes continuations kernel make math
math.parser sequences ; math.parser sequences sets ;
IN: summary IN: summary
GENERIC: summary ( object -- string ) GENERIC: summary ( object -- string )
: object-summary ( object -- string ) : object-summary ( object -- string ) class-of name>> ; inline
class-of name>> ; inline
M: object summary object-summary ; M: object summary object-summary ;
@ -27,6 +26,14 @@ M: assoc summary
" entries" % " entries" %
] "" make ; ] "" make ;
M: set summary
[
dup class-of name>> %
" with " %
cardinality #
" members" %
] "" make ;
! Override sequence => integer instance ! Override sequence => integer instance
M: f summary object-summary ; M: f summary object-summary ;