Hoon wood

Implementation

++  wood
  |=  a=@t
  ^-  @ta
  %+  rap  3
  |-  ^-  (list ,@)
  ?:  =(0 a)  
    ~
  =+  b=(teff a)
  =+  c=(turf (end 3 b a))
  =+  d=$(a (rsh 3 b a))
  ?:  ?|  &((gte c 'a') (lte c 'z')) 
          &((gte c 'A') (lte c 'Z'))
          &((gte c '0') (lte c '9'))
          =('-' c)
      ==
    [c d]
  ?+  c  :-  '~' 
         |-  ^-  tape
         ?:  =(0 c)
           ['.' d]
         =+  e=(dec (met 2 c))
         =+  f=(rsh 2 e c)
         [(add ?:((lte f 9) 48 87) f) $(c (end 2 e a))]
    ' '  ['.' d]
    '.'  ['~' '.' d]
    '~'  ['~' '~' d]
  ==

Comments

---

---

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