This commit is contained in:
Anton Dyudin 2017-08-03 14:05:08 -07:00
parent 431671883f
commit d6365680e7
3 changed files with 34 additions and 1 deletions

View File

@ -1,3 +1,5 @@
{pathological case}
## A digital home base
What you need is a digital home base. What is that computer? Is

View File

@ -1 +1 @@
> - + ! ;div.test;
> - + ! ;div.test: nesting

31
web/unmark/all.hoon Normal file
View 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)
==