urbit/ares
1
1
Fork 0
mirror of https://github.com/urbit/ares.git synced 2024-11-23 00:25:49 +03:00
Code Issues Packages Projects Releases Wiki Activity

hoon: add +fil

Browse Source
This commit is contained in:
Alex Shelkovnykov 2023-09-05 13:27:42 -06:00
parent ff2650cf3a
commit da6d1547a9
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
hoon/scaffolding/playpen.hoon
View File

@ -318,6 +318,17 @@
=/ [=bloq =step] ?^(a a [a *step]) =/ [=bloq =step] ?^(a a [a *step])
(mod b (bex (mul (bex bloq) step))) (mod b (bex (mul (bex bloq) step)))
:: ::
++ fil :: fill bloqstream
~/ %fil
|= [a=bloq b=step c=@]
=| n=@ud
=. c (end a c)
=/ d c
|- ^- @
?: =(n b)
(rsh a d)
$(d (add c (lsh a d)), n +(n))
::
++ lsh :: left-shift ++ lsh :: left-shift
~/ %lsh ~/ %lsh
|= [a=bite b=@] |= [a=bite b=@]