urbit/main/bin/diff.hoon
2013-09-28 13:21:18 -07:00

16 lines
304 B
Plaintext

!:
:: /=main=/toy/cat/hoon
::
|= *
|= [del=path dev=path ~]
:_ ~
:_ ~
^- gift
=+ [hel=(lore ((hard ,@) .^(%cx del))) hev=(lore ((hard ,@) .^(%cx dev)))]
=+ dis=(loss hel hev)
=+ puc=(lusk hel hev dis)
=+ rev=(lurk hel puc)
=+ ver=(lurk hev (berk puc))
?> &(=(rev hev) =(ver hel))
[%la >puc<]