1 USING: tools.test quotations math kernel sequences
2 assocs namespaces make compiler.units compiler.test
4 IN: compiler.tests.curry
6 [ 3 ] [ 5 [ [ 2 - ] curry call ] compile-call ] unit-test
7 [ 3 ] [ [ 5 [ 2 - ] curry call ] compile-call ] unit-test
8 [ 3 ] [ [ 5 2 [ - ] 2curry call ] compile-call ] unit-test
9 [ 3 ] [ 5 [ 2 [ - ] 2curry call ] compile-call ] unit-test
10 [ 3 ] [ 5 2 [ [ - ] 2curry call ] compile-call ] unit-test
11 [ 3 ] [ 5 2 [ [ - ] 2curry 9 swap call /i ] compile-call ] unit-test
12 [ 3 ] [ 5 2 [ [ - ] 2curry [ 9 ] dip call /i ] compile-call ] unit-test
14 [ -10 -20 ] [ 10 20 -1 [ [ * ] curry bi@ ] compile-call ] unit-test
16 [ [ 5 2 - ] ] [ 5 [ [ 2 - ] curry ] compile-call >quotation ] unit-test
17 [ [ 5 2 - ] ] [ [ 5 [ 2 - ] curry ] compile-call >quotation ] unit-test
18 [ [ 5 2 - ] ] [ [ 5 2 [ - ] 2curry ] compile-call >quotation ] unit-test
19 [ [ 5 2 - ] ] [ 5 [ 2 [ - ] 2curry ] compile-call >quotation ] unit-test
20 [ [ 5 2 - ] ] [ 5 2 [ [ - ] 2curry ] compile-call >quotation ] unit-test
25 [ [ [ + ] curry ] dip 0 < [ -2 ] [ 6 ] if swap curry ]
26 compile-call >quotation
32 [ [ [ + ] curry ] dip 0 < [ -2 ] [ 6 ] if swap curry call ]
36 : foobar ( quot: ( ..a -- ..b ) -- )
37 [ call ] keep swap [ foobar ] [ drop ] if ; inline recursive
39 [ ] [ [ [ f ] foobar ] compile-call ] unit-test
41 [ { 6 7 8 } ] [ { 1 2 3 } 5 [ [ + ] curry map ] compile-call ] unit-test
42 [ { 6 7 8 } ] [ { 1 2 3 } [ 5 [ + ] curry map ] compile-call ] unit-test
44 : funky-assoc>map ( assoc quot -- seq )
46 [ call f ] curry assoc-find 3drop
50 1000 <iota> [ drop 1,000,000 random 1,000,000 random ] H{ } map>assoc :> a-hashtable
51 a-hashtable [ [ drop , ] funky-assoc>map ] compile-call
55 [ 3 ] [ 1 [ 2 ] [ curry [ 3 ] [ 4 ] if ] compile-call ] unit-test
57 [ 3 ] [ t [ 3 [ ] curry 4 [ ] curry if ] compile-call ] unit-test
59 [ 3 ] [ t [ 3 [ ] curry [ 4 ] if ] compile-call ] unit-test
61 [ 4 ] [ f [ 3 [ ] curry 4 [ ] curry if ] compile-call ] unit-test
63 [ 4 ] [ f [ [ 3 ] 4 [ ] curry if ] compile-call ] unit-test