extra/fries/fries.factor

   1 USING: arrays vectors combinators effects kernel math sequences splitting
   2 strings.parser parser fry sequences.extras ;
   3 IN: fries
   4 : str-fry ( str on -- quot ) split
   5     [ unclip-last [ [ spin glue ] reduce-r ] 2curry ]
   6     [ length 1 - 1 <effect> [ call-effect ] 2curry ] bi ;
   7 : gen-fry ( str on -- quot ) split
   8     [ unclip-last [ [ spin 1array glue ] reduce-r ] 2curry ]
   9     [ length 1 - 1 <effect> [ call-effect ] 2curry ] bi ;
  10
  11 SYNTAX: i" parse-string rest "_" str-fry append! ;
  12 SYNTAX: i{ \ } parse-until >array { _ } gen-fry append! ;
  13 SYNTAX: iV{ \ } parse-until >vector V{ _ } gen-fry append! ;