urbit/try/bin/app.hoon

28 lines
428 B
Plaintext
Raw Normal View History

2013-11-26 02:59:17 +04:00
!:
:: /=main=/bin/tach/hoon
::
=> %= .
+
=> +
|%
2013-11-26 02:59:17 +04:00
++ word
%hello
2013-12-18 13:48:24 +04:00
::
++ spag :: index
|# [a=@ b=(list)]
?~ b
~|('snag-fail' !!)
?: =(0 a)
~_ b
i.b
$(b t.b, a (dec a))
2013-11-26 02:59:17 +04:00
--
==
|= *
2013-12-18 13:48:24 +04:00
|= ~
2013-11-26 02:59:17 +04:00
^- bowl
:_ ~ :_ ~
:- %$
2013-11-26 02:59:17 +04:00
!>
2013-12-18 13:48:24 +04:00
(spag 3 `(list ,@)`[1 2 3 4 5 ~])