mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +03:00
41 lines
729 B
Plaintext
41 lines
729 B
Plaintext
!:
|
|
:: /=main=/bin/tach/hoon
|
|
::
|
|
=> %= .
|
|
+
|
|
=> +
|
|
|%
|
|
++ word
|
|
%hello
|
|
::
|
|
++ spag :: index
|
|
|# [a=@ b=(list)]
|
|
?~ b
|
|
~|('snag-fail' !!)
|
|
?: =(0 a)
|
|
~_ b
|
|
i.b
|
|
$(b t.b, a (dec a))
|
|
::
|
|
++ humo :: homogenize
|
|
|# a=(list)
|
|
|-
|
|
^- $_ =< $
|
|
|%
|
|
+- $
|
|
?: _?
|
|
~
|
|
[i=(snag 0 a) t=$]
|
|
--
|
|
a
|
|
--
|
|
==
|
|
|= *
|
|
|= ~
|
|
^- bowl
|
|
:_ ~ :_ ~
|
|
:- %$
|
|
!>
|
|
=+ foo=[1 2 3 4 5 ~]
|
|
(homo foo)
|