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

Implementation

++  long                                                ::  
  |*  a=(gear)
  =+  b=0
  |-  ^-  @
  =+  c=(a)
  ?~  c
    b
  $(b +(b), a t.c)

Comments



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

Clone this wiki locally