graph-store lib: skip trip and crip, use rap

This commit is contained in:
Logan Allen 2021-04-20 15:58:12 -05:00
parent 624e5c2692
commit c8565e2c3b

View File

@ -145,18 +145,17 @@
== ==
:: ::
++ index ++ index
|= i=^index |= ind=^index
^- json ^- json
?: =(~ i) s+'/' :- %s
=/ j=^tape "" ?: =(~ ind)
|- '/'
?~ i [%s (crip j)] %+ roll ind
=/ k=json (numb i.i) |= [cur=@ acc=@t]
?> ?=(%n -.k) ^- @t
%_ $ =/ num (numb cur)
i t.i ?> ?=(%n -.num)
j (weld j (weld "/" (trip +.k))) (rap 3 acc '/' p.num ~)
==
:: ::
++ uid ++ uid
|= u=^uid |= u=^uid