Paste: suggestions plz
Author: | randy |
Mode: | factor |
Date: | Fri, 5 Dec 2008 07:16:01 |
Plain Text |
: ordered-perms
[
[ length >array [ 1+ ] map ]
[ ] bi
'[ _ swap clump ] each
] [ length ] bi narray ;
Author: | randy |
Mode: | factor |
Date: | Fri, 5 Dec 2008 07:21:55 |
Plain Text |
: ordered-perms
[ length >array [ 1+ ] map ]
[ ] bi
'[ _ swap clump ] map ;
Author: | randy |
Mode: | factor |
Date: | Fri, 5 Dec 2008 08:03:34 |
Plain Text |
USING: ;
IN: phrases
: (number-of-branches)
length >array [ 1+ ] map ;
: just-alpha " " split [ [ alpha? ] filter ] map ;
: trim-empty [ "" = ] trim ;
: possible-phrases
just-alpha trim-empty
[ (number-of-branches) ] [ ] bi
'[ _ swap clump [ " " join ] map ] map ;
New Annotation