english: use ?pluralize in count-of-things.

windows-high-dpi
John Benediktsson 2018-02-15 15:15:58 -08:00
parent 112d374aed
commit 05df842e85
1 changed files with 3 additions and 3 deletions

View File

@ -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