steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

crontab: simplify logic max days of month.

windows-drag
John Benediktsson 2019-03-24 15:41:19 -07:00
parent 6e1d23a931
commit 2bb6e58eb0
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/crontab/crontab.factor
View File

@ -50,10 +50,9 @@ CONSTANT: aliases H{
[ days-of-week>> [ 0 6 between? ] all? ] [ days-of-week>> [ 0 6 between? ] all? ]
[ months>> [ 1 12 between? ] all? ] [ months>> [ 1 12 between? ] all? ]
[ [
[ days>> 1 ] [ months>> ] bi [ days>> 1 ] [ months>> ] bi [
dup { 2 } sequence= [ drop 29 ] [ { 0 31 29 31 30 31 30 31 31 30 31 30 31 } nth
[ day-counts nth ] map supremum ] map supremum [ between? ] 2curry all?
] if [ between? ] 2curry all?
] ]
[ minutes>> [ 0 59 between? ] all? ] [ minutes>> [ 0 59 between? ] all? ]
[ hours>> [ 0 23 between? ] all? ] [ hours>> [ 0 23 between? ] all? ]