unmaintained/4DNav/deep/deep.factor

   1 USING: macros quotations math math.functions math.trig \r
   2 sequences.deep kernel make fry combinators grouping ;\r
   3 IN: 4DNav.deep\r
   4 \r
   5 ! USING: bake ;\r
   6 ! MACRO: deep-cleave-quots ( seq -- quot )\r
   7 !    [ [ quotation? ] deep-filter ]\r
   8 !    [ [ dup quotation? [ drop , ] when ] deep-map ]\r
   9 !    bi '[ _ cleave _ bake ] ;\r
  10 \r
  11 : make-matrix ( quot width -- matrix ) \r
  12     [ { } make ] dip group ; inline\r
  13 \r