Create Data.Permutation
This commit is contained in:
parent
92fc8f00c9
commit
0177781c74
3 changed files with 68 additions and 4 deletions
|
|
@ -9,7 +9,7 @@ import Data.NP
|
|||
|
||||
|
||||
-- A Nat-based range function with better semantics
|
||||
public export
|
||||
export
|
||||
range : Nat -> Nat -> List Nat
|
||||
range x y = if x < y then assert_total $ takeBefore (>= y) (countFrom x S)
|
||||
else []
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue