mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-23 08:28:26 +03:00
add http://localhost:8443/unmark/all test frontend
This commit is contained in:
parent
431671883f
commit
d6365680e7
@ -1,3 +1,5 @@
|
||||
{pathological case}
|
||||
|
||||
## A digital home base
|
||||
|
||||
What you need is a digital home base. What is that computer? Is
|
||||
|
@ -1 +1 @@
|
||||
> - + ! ;div.test;
|
||||
> - + ! ;div.test: nesting
|
||||
|
31
web/unmark/all.hoon
Normal file
31
web/unmark/all.hoon
Normal file
@ -0,0 +1,31 @@
|
||||
:: Render all %%/{@u}.txt test cases
|
||||
::
|
||||
:::: /hoon/all/unmark/web
|
||||
::
|
||||
/= sam /^ (list (pair @ud wain))
|
||||
/: /%%/ /_ @ud /txt/
|
||||
::
|
||||
|%
|
||||
++ rolt |=(a/wall `tape`?~(a ~ ?~(t.a i.a :(weld i.a "\0a" $(a t.a)))))
|
||||
++ wush
|
||||
|= {wid/@u tan/tang}
|
||||
^- tape
|
||||
(rolt (zing (turn tan |=(a/tank (wash 0^wid a)))))
|
||||
::
|
||||
++ mads
|
||||
|= a/wain ^- marl
|
||||
=/ try (mule |.(~(shut ap (ream (nule '---' a)))))
|
||||
?- -.try
|
||||
$& p.try
|
||||
$| ;= ;h3: ERROR
|
||||
;pre: {(wush 120 p.try)}
|
||||
== ==
|
||||
--
|
||||
^- manx
|
||||
;ul
|
||||
;* |-
|
||||
?~ sam ~
|
||||
:+ ;li: ;{p -[<p.i.sam>]} *{(mads q.i.sam)}
|
||||
;hr;
|
||||
$(sam t.sam)
|
||||
==
|
Loading…
Reference in New Issue
Block a user