mirror of
https://github.com/urbit/shrub.git
synced 2024-12-13 16:03:36 +03:00
40 lines
711 B
Plaintext
40 lines
711 B
Plaintext
!:
|
|
:: Define ::
|
|
=> |%
|
|
++ isin |= [a=tape b=tape]
|
|
?. (gte (lent a) (lent b)) |
|
|
?: =(b (scag (lent b) a)) &
|
|
$(a +.a)
|
|
::
|
|
++ range |= [[a=tape b=tape] c=wain]
|
|
^- wain
|
|
?~ c ~
|
|
?. (isin (trip i.c) a) $(c t.c)
|
|
:- i.c => .(c t.c)
|
|
|- ^- wain
|
|
?~ c ~
|
|
?: (isin (trip i.c) b) ~
|
|
[i.c $(c t.c)]
|
|
::
|
|
++ vanes
|
|
%- turn :_ |=([a=@t ~] a)
|
|
(~(tap by r:;;(arch .^(cy//=arvo=))))
|
|
--
|
|
|= ^
|
|
|= [a=@tas ~]
|
|
=- ~[te/-]~
|
|
%- zing
|
|
%+ turn vanes |= b=@t
|
|
=- ?~ - ~
|
|
[(cat 3 '%' b) -]
|
|
%+ range ["++ {(trip a)}" "++"]
|
|
=- (lore ;;(,@ .^(cx//=arvo=/[b]/hoon)))
|
|
'''
|
|
++ by
|
|
my
|
|
stuff
|
|
++ron
|
|
|
|
as
|
|
'''
|