mirror of
https://github.com/Kindelia/Kind2.git
synced 2024-10-26 16:20:40 +03:00
b01874a713
this commit was done using @elmattic's script https://gist.github.com/elmattic/e3817b670a53bea45e846312809319cf
8 lines
265 B
Plaintext
8 lines
265 B
Plaintext
List.update_at<A: Type>(index: Nat, fn: A -> A, list: List<A>): List<A>
|
|
case list{
|
|
nil : List.nil!
|
|
cons: case index{
|
|
zero: List.cons!(fn(list.head), list.tail)
|
|
succ: List.cons!(list.head, List.update_at<A>(index.pred, fn, list.tail))
|
|
}
|
|
} |