1/* Higher-level interface to the rate function.       -*- mfl -*-
2   Copyright (C) 2009-2021 Sergey Poznyakoff
3
4   This program is free software; you can redistribute it and/or modify
5   it under the terms of the GNU General Public License as published by
6   the Free Software Foundation; either version 3, or (at your option)
7   any later version.
8
9   This program is distributed in the hope that it will be useful,
10   but WITHOUT ANY WARRANTY; without even the implied warranty of
11   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12   GNU General Public License for more details.
13
14   You should have received a copy of the GNU General Public License
15   along with this program.  If not, see <http://www.gnu.org/licenses/>. */
16
17module 'rateok'.
18
19func rateok(string key, number timespan, number threshold; number mincnt)
20  returns number
21do
22  if not defined(mincnt)
23    set mincnt 4
24  fi
25  return rate(key, timespan, mincnt, threshold) <= threshold
26done
27