Commit b70274be authored by Mart Lubbers's avatar Mart Lubbers

resolv discussion about uselect

parent 18eff4b5
Pipeline #15398 passed with stage
in 1 minute and 41 seconds
...@@ -10,6 +10,8 @@ unsafeCreateArray size = code { ...@@ -10,6 +10,8 @@ unsafeCreateArray size = code {
unsafeUselect :: u:(a v:b) Int -> *(v:b,u:(a v:b)) | Array a b, [u<=v] unsafeUselect :: u:(a v:b) Int -> *(v:b,u:(a v:b)) | Array a b, [u<=v]
unsafeUselect arr index = code { unsafeUselect arr index = code {
push_a 0 update_a 3 7
select _ 1 0 pop_a 7
jsr_ap 2
repl_args 2 2
} }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment