urbit/try/bin/reverse.hoon

!:
::  /=try=/bin/reverse/hoon
::
|=  *
|=  ~
:-  ~  :-  ~
:-  ^-  (list slip)
    :~  [~ %$ %atom %t]
    ==
|=  [now=@da pax=path nut=note]
^-  bowl
?+    -.nut  !!
    %$
  ?~  p.nut
    [~ ~]
  =+  liz=((hard (list ,@t)) q.u.p.nut)
  :-  ^-  (list gift)
      :~  :+  %mu  [%atom %t]
          (turn liz |=(a=@t (rap 3 (flop (trip a)))))
      ==
  :-  ~
  :-  ^-  (list slip)
      :~  [~ %$ %atom %t]
      ==
  ..$
==
Cleaning up old code 2013-09-29 00:21:18 +04:00			`!:`
			`:: /=try=/bin/reverse/hoon`
			`::`
			`\|= *`
			`\|= ~`
			`:- ~ :- ~`
			`:- ^- (list slip)`
			`:~ [~ %$ %atom %t]`
			`==`
			`\|= [now=@da pax=path nut=note]`
			`^- bowl`
			`?+ -.nut !!`
			`%$`
Ye olde whitespace cleanup Run using find . -type f \| xargs sed -i '\s\+$' And not even glanced at. It's fine. Don't worry about it. 2013-12-09 01:23:03 +04:00			`?~ p.nut`
Cleaning up old code 2013-09-29 00:21:18 +04:00			`[~ ~]`
			`=+ liz=((hard (list ,@t)) q.u.p.nut)`
			`:- ^- (list gift)`
			`:~ :+ %mu [%atom %t]`
			`(turn liz \|=(a=@t (rap 3 (flop (trip a)))))`
			`==`
			`:- ~`
			`:- ^- (list slip)`
			`:~ [~ %$ %atom %t]`
			`==`
Ye olde whitespace cleanup Run using find . -type f \| xargs sed -i '\s\+$' And not even glanced at. It's fine. Don't worry about it. 2013-12-09 01:23:03 +04:00			`..$`
			`==`