2013-09-29 00:21:18 +04:00
|
|
|
!:
|
2014-07-31 03:38:10 +04:00
|
|
|
:: /=main=/bin/cat/hoon
|
2013-09-29 00:21:18 +04:00
|
|
|
::
|
|
|
|
|
|= *
|
|
|
|
|
|= ape=(list path)
|
2014-07-31 03:38:10 +04:00
|
|
|
=- ~[-]~
|
|
|
|
|
^- gift :- %te
|
|
|
|
|
%- zing
|
|
|
|
|
%+ turn ape |= pax=path
|
2014-08-13 10:21:59 +04:00
|
|
|
^- wain
|
|
|
|
|
=+ ark=;;(arch .^(%cy pax))
|
|
|
|
|
?~ q.ark
|
|
|
|
|
?- r.ark
|
|
|
|
|
~
|
2014-08-19 08:40:11 +04:00
|
|
|
~[(crip "~ {(spud pax)}")]
|
2014-08-13 10:21:59 +04:00
|
|
|
[[@t ~] ~ ~]
|
|
|
|
|
$(pax (welp pax /[p.n.r.ark]))
|
|
|
|
|
*
|
2014-08-19 08:40:11 +04:00
|
|
|
:- (crip "* {(spud pax)}")
|
2014-09-03 11:20:08 +04:00
|
|
|
%- sort :_ aor
|
|
|
|
|
%- turn :_ |=([a=@t ~] a)
|
|
|
|
|
(~(tap by `(map ,@t ,~)`r.ark))
|
2014-08-13 10:21:59 +04:00
|
|
|
==
|
|
|
|
|
:- (crip (spud pax))
|
2014-07-31 03:38:10 +04:00
|
|
|
(lore ;;(,@t .^(%cx pax)))
|
