2017-08-04 00:05:08 +03:00
|
|
|
:: Render all %%/{@u}.txt test cases
|
|
|
|
|
::
|
|
|
|
|
:::: /hoon/all/unmark/web
|
|
|
|
|
::
|
2017-11-14 05:40:15 +03:00
|
|
|
/+ cram
|
2017-08-04 01:34:16 +03:00
|
|
|
::
|
|
|
|
|
/= cor /^ (list {@ud wain})
|
|
|
|
|
/: /%%/ /_ @ud /txt/
|
2017-08-04 00:05:08 +03:00
|
|
|
::
|
|
|
|
|
|%
|
|
|
|
|
++ rolt |=(a/wall `tape`?~(a ~ ?~(t.a i.a :(weld i.a "\0a" $(a t.a)))))
|
|
|
|
|
++ wush
|
2017-08-04 01:34:16 +03:00
|
|
|
|= {wid/@u tan/tang} ^- tape
|
2017-08-04 00:05:08 +03:00
|
|
|
(rolt (zing (turn tan |=(a/tank (wash 0^wid a)))))
|
|
|
|
|
::
|
|
|
|
|
++ mads
|
|
|
|
|
|= a/wain ^- marl
|
2017-11-14 05:05:35 +03:00
|
|
|
=/ try (mule |.(~(shut ap (rash (nule ';>' a) apex:(sail &):vast))))
|
2017-08-04 00:05:08 +03:00
|
|
|
?- -.try
|
|
|
|
|
$& p.try
|
2017-08-04 03:47:25 +03:00
|
|
|
$| ;= ;div
|
|
|
|
|
;h3: ERROR
|
|
|
|
|
;pre: {(wush 120 p.try)}
|
|
|
|
|
== == ==
|
|
|
|
|
::
|
2017-08-04 01:34:16 +03:00
|
|
|
++ split-on
|
|
|
|
|
=| hed/wain
|
|
|
|
|
|= {mid/@t all/wain} ^+ [hed all]
|
|
|
|
|
?~ all !!
|
|
|
|
|
?: =(mid i.all) [(flop hed) t.all]
|
|
|
|
|
$(all t.all, hed :_(hed i.all))
|
2017-08-04 04:13:11 +03:00
|
|
|
::
|
|
|
|
|
++ strip
|
|
|
|
|
|= a/manx ^- manx
|
|
|
|
|
:_ (turn c.a ..$)
|
|
|
|
|
?+ g.a g.a
|
|
|
|
|
{@ {$id *} *} g.a(a t.a.g.a)
|
|
|
|
|
{$$ {$$ *} $~}
|
|
|
|
|
=< g.a(v.i.a (tufa (turn (tuba v.i.a.g.a) .)))
|
|
|
|
|
|=(b/@c `@`?+(b b $~-~201c. '"', $~-~201d. '"'))
|
|
|
|
|
==
|
2017-08-04 00:05:08 +03:00
|
|
|
--
|
2017-08-04 01:34:16 +03:00
|
|
|
::
|
2017-08-04 00:05:08 +03:00
|
|
|
^- manx
|
|
|
|
|
;ul
|
2017-08-04 01:34:16 +03:00
|
|
|
;li
|
|
|
|
|
;ul
|
|
|
|
|
;* ^- marl
|
|
|
|
|
%+ turn cor
|
|
|
|
|
|= {num/@u txt/wain}
|
|
|
|
|
;li: ;{p -[<num>]} *{(mads txt)} ;{hr}
|
|
|
|
|
==
|
|
|
|
|
==
|
2017-11-14 05:40:15 +03:00
|
|
|
==
|
