aboutsummaryrefslogtreecommitdiff
path: root/frontend/src/Utils.elm
blob: 825e4b7c2927a375a0e667d669f1fa42ae25a5d7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
module Utils exposing (..)


between : ( Float, Float ) -> Float -> Bool
between ( l, u ) v =
    v >= l && v <= u


range : Int -> Int -> Int -> List Int
range start stop step =
    if start >= stop then
        []

    else
        start :: range (start + step) stop step