Kindelia/Kind2
1
1
Fork 0
mirror of https://github.com/Kindelia/Kind2.git synced 2024-10-26 08:09:22 +03:00
Code Issues Projects Releases Wiki Activity

temp fix def

Browse Source
This commit is contained in:
Rheidner 2021-06-25 15:20:49 -03:00
parent b8bc18045f
commit 3375fabc6a
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
base/Array/mut.kind
View File

@ -2,10 +2,14 @@
Array.mut<A:Type, depth:Nat>(idx: Word(depth), f: A -> A, arr: Array<A,depth>): Array<A,depth>
def P = (depth) Array<A,depth> -> Array<A,depth>
def nil = (arr) Array.tip<A>(f(Array.extract_tip<A>(arr)))
def w0 = <idx.size> (rec) (arr)
Word.foldl<P, depth>(
nil,
<idx.size> (rec) (arr)
let {arr_l,arr_r} = Array.extract_tie<A, idx.size>(arr)
Array.tie<A, idx.size>(rec(arr_l), arr_r),
<idx.size> (rec) (arr)
let {arr_l,arr_r} = Array.extract_tie<A, idx.size>(arr)
Array.tie<A, idx.size>(rec(arr_l), arr_r)
def w1 = <idx.size> (rec) (arr)
let {arr_l,arr_r} = Array.extract_tie<A, idx.size>(arr)
Array.tie<A, idx.size>(arr_l, rec(arr_r))
Word.foldl<P, depth>(nil, w0, w1, idx, arr)
Array.tie<A, idx.size>(arr_l, rec(arr_r)),
idx,
arr)