mirror of
https://github.com/urbit/shrub.git
synced 2024-12-24 20:47:27 +03:00
19 lines
361 B
Markdown
19 lines
361 B
Markdown
|
zuze patch:
|
||
|
|
```hoon
|
||
|
|
++ decompress-point
|
||
|
|
|= dat=@
|
||
|
|
^- pont
|
||
|
|
:: ~& "custom decompress point"
|
||
|
|
=+ x=(end 3 w dat)
|
||
|
|
?> =(3 (mod ^p 4))
|
||
|
|
=+ y=(exp.p (div +(^p) 4) :(sum.p (exp.p 3 x) (pro.p a x) b))
|
||
|
|
=+ s=(rsh 3 32 dat)
|
||
|
|
~| [`@ux`s `@ux`dat]
|
||
|
|
?> |(=(2 s) =(3 s))
|
||
|
|
:: check parity
|
||
|
|
::
|
||
|
|
=? y !=((sub s 2) (mod y 2))
|
||
|
|
(sub ^p y)
|
||
|
|
[x y]
|
||
|
|
```
|