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

Implementation

++  load                                                ::  load compatible
  |=  [yen=@ ova=(list ovum) dub=vase nyf=pane]
  ^+  [ova +>]
  =:  eny  yen
      bud  dub
      fan  nyf
    ==
  |-  ^+  [ova +>.^$]
  ?~  ova
    [~ +>.^$]
  ?:  ?=(%veer -.q.i.ova)
    $(ova t.ova, +>.^$ (veer +.q.i.ova))
  =+(avo=$(ova t.ova) [[i.ova -.avo] +.avo])

Comments



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

Clone this wiki locally