urbit/main/bin/diff.hoon

16 lines
304 B
Plaintext
Raw Normal View History

2013-09-29 00:21:18 +04:00
!:
:: /=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<]