unmaintained/4DNav/deep/deep.factor

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