USING: accessors arrays ascii assocs calendar calendar.english
calendar.private combinators combinators.short-circuit io kernel
-literals locals math math.order math.parser math.ranges
-sequences splitting ;
+literals math math.order math.parser ranges sequences splitting ;
IN: crontab
"/" split1 [ quot seq parse-value 0 over length 1 - ] dip
string>number <range> swap nths ] }
{ [ CHAR: - over member? ] [
- "-" split1 quot bi@ [a,b] ] }
+ "-" split1 quot bi@ [a..b] ] }
[ quot call 1array ]
} cond ; inline recursive