16 lines
348 B
Factor
16 lines
348 B
Factor
|
IN: scratchpad
|
||
|
|
USE: inference
|
||
|
|
USE: lists
|
||
|
|
USE: math
|
||
|
|
USE: test
|
||
|
|
USE: logic
|
||
|
|
USE: combinators
|
||
|
|
|
||
|
|
[ t ] [ \ + [ 2 2 + ] dataflow tree-contains? >boolean ] unit-test
|
||
|
|
[ t ] [ 3 [ [ sq ] [ 3 + ] ifte ] dataflow tree-contains? >boolean ] unit-test
|
||
|
|
|
||
|
|
: inline-test
|
||
|
|
car car ; inline
|
||
|
|
|
||
|
|
[ t ] [ \ car [ inline-test ] dataflow tree-contains? >boolean ] unit-test
|