extra/4DNav/deep/deep.factor

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