1 ! Copyright (C) 2008 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel math.parser namespaces sequences
4 sequences.generalizations ;
8 : get-building-seq ( n -- seq )
11 : n, ( obj n -- ) get-building-seq push ;
12 : n% ( seq n -- ) get-building-seq push-all ;
13 : n# ( num n -- ) [ number>string ] dip n% ;
15 : 0, ( obj -- ) 0 n, ;
16 : 0% ( seq -- ) 0 n% ;
17 : 0# ( num -- ) 0 n# ;
18 : 1, ( obj -- ) 1 n, ;
19 : 1% ( seq -- ) 1 n% ;
20 : 1# ( num -- ) 1 n# ;
21 : 2, ( obj -- ) 2 n, ;
22 : 2% ( seq -- ) 2 n% ;
23 : 2# ( num -- ) 2 n# ;
24 : 3, ( obj -- ) 3 n, ;
25 : 3% ( seq -- ) 3 n% ;
26 : 3# ( num -- ) 3 n# ;
27 : 4, ( obj -- ) 4 n, ;
28 : 4% ( seq -- ) 4 n% ;
29 : 4# ( num -- ) 4 n# ;
31 MACRO: finish-nmake ( exemplars -- quot )
32 length [ firstn ] curry ;
34 :: nmake ( quot exemplars -- )
35 exemplars [ 0 swap new-resizable ] map
39 exemplars [ [ like ] 2map ] [ finish-nmake ] bi
40 ] with-variable ; inline