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
|