english: use ?pluralize in count-of-things.
parent
112d374aed
commit
05df842e85
|
@ -149,12 +149,12 @@ PRIVATE>
|
||||||
: plural? ( word -- ? )
|
: plural? ( word -- ? )
|
||||||
[ singularize pluralize ] [ = ] bi ;
|
[ singularize pluralize ] [ = ] bi ;
|
||||||
|
|
||||||
: count-of-things ( count word -- str )
|
|
||||||
over 1 = [ pluralize ] unless [ number>string ] dip " " glue ;
|
|
||||||
|
|
||||||
: ?pluralize ( count singular -- singular/plural )
|
: ?pluralize ( count singular -- singular/plural )
|
||||||
swap 1 = [ pluralize ] unless ;
|
swap 1 = [ pluralize ] unless ;
|
||||||
|
|
||||||
|
: count-of-things ( count word -- str )
|
||||||
|
dupd ?pluralize [ number>string ] dip " " glue ;
|
||||||
|
|
||||||
: a10n ( word -- numeronym )
|
: a10n ( word -- numeronym )
|
||||||
dup length 3 > [
|
dup length 3 > [
|
||||||
[ 1 head ] [ length 2 - number>string ] [ 1 tail* ] tri
|
[ 1 head ] [ length 2 - number>string ] [ 1 tail* ] tri
|
||||||
|
|
Loading…
Reference in New Issue