mirror of
https://github.com/urbit/shrub.git
synced 2024-12-29 15:14:17 +03:00
hoon: removes +end, +lsh, and +rsh
This commit is contained in:
parent
ac4b2a46f2
commit
9e713a5e10
@ -854,11 +854,6 @@
|
||||
|= [a=bloq [b=step c=step] d=@]
|
||||
(new-end [a c] (new-rsh [a b] d))
|
||||
::
|
||||
++ end :: tail
|
||||
~/ %end
|
||||
|= [a=bloq b=step c=@]
|
||||
(mod c (bex (mul (bex a) b)))
|
||||
::
|
||||
++ new-end :: tail
|
||||
~/ %new-end
|
||||
|= [a=bite b=@]
|
||||
@ -875,11 +870,6 @@
|
||||
(new-rsh a d)
|
||||
$(d (add c (new-lsh a d)), n +(n))
|
||||
::
|
||||
++ lsh :: left-shift
|
||||
~/ %lsh
|
||||
|= [a=bloq b=step c=@]
|
||||
(mul (bex (mul (bex a) b)) c)
|
||||
::
|
||||
++ new-lsh :: left-shift
|
||||
~/ %new-lsh
|
||||
|= [a=bite b=@]
|
||||
@ -934,11 +924,6 @@
|
||||
?: =(0 b) ~
|
||||
[(new-end a b) $(b (new-rsh a b))]
|
||||
::
|
||||
++ rsh :: right-shift
|
||||
~/ %rsh
|
||||
|= [a=bloq b=step c=@]
|
||||
(div c (bex (mul (bex a) b)))
|
||||
::
|
||||
++ new-rsh :: right-shift
|
||||
~/ %new-rsh
|
||||
|= [a=bite b=@]
|
||||
|
Loading…
Reference in New Issue
Block a user