Skip to content
Adam Bliss edited this page Oct 25, 2013 · 1 revision

Implementation

++  rep                                                 ::  assemble single
  ~/  %rep
  |=  [a=bloq b=(list ,@)]
  ^-  @
  =+  c=0
  |-
  ?@  b
    0
  (con (lsh a c (end a 1 i.b)) $(c +(c), b t.b))

Comments



Parts of this document are generated automatically. Edits within the comments section will be preserved.

Clone this wiki locally