@@ -2,7 +2,7 @@
22
33Literal rendering engine
44
5−A [door]() that contains arms that operate on the sample coin `lot`.
5+A door that contains arms that operate on the sample coin `lot`.
66
77Accepts
88-------
@@ -10,27 +10,24 @@ Accepts
1010Produces
1111--------
1212
13−`lot` is a [`++coin`]().
13+`lot` is a `++coin`.
1414
1515Source
1616------
1717
18− ++ co
19− =< |_ lot=coin
18+ ++ co !.
19+ ~% %co ..co ~
20+ =< |_ lot/coin
21+
2022
2123Examples
2224--------
2325
24− ~zod/try=> ~(. co many/~[`ta/'mo' `ud/5])
25− < 3.dhd
26− [ [ %many
27− [%~ %ta @t]
28− [%~ %ud @ud]
29− %~
30− ]
31− <10.utz 3.zid [rex="" <414.hmb 100.xkc 1.ypj %164>]>
32− ]
33− >
26+ ~zod/try=> < 3.nta
27+ { lot/{$many {$~ $ta @t} {$~ $ud @ud} $~}
28+ <10.cfg 4.jjn {rep/"" <402.arm 110.jyx 1.ztu $151>}>
29+ }
30+ >
3431
3532------------------------------------------------------------------------
3633
@@ -38,7 +35,7 @@ Examples
3835
3936Prepend & render as tape
4037
41−Renders a coin `lot` as a [tape]() prepended to the sample tape `rom`.
38+Renders a coin `lot` as a tape prepended to the sample tape `rom`.
4239
4340Accepts
4441-------
@@ -46,14 +43,14 @@ Accepts
4643Produces
4744--------
4845
49−`rom` is a [`pe`]()
46+`rom` is a `pe`
5047
51−`lot` is a [`++coin`]().
48+`lot` is a `++coin`.
5249
5350Source
5451------
5552
56− ++ rear |=(rom=tape =>(.(rex rom) rend))
53+ ++ rear |=(rom/tape =>(.(rex rom) rend))
5754
5855Examples
5956--------
@@ -75,7 +72,7 @@ Accepts
7572Produces
7673--------
7774
78−`lot` is a [`++coin`]().
75+`lot` is a `++coin`.
7976
8077Source
8178------
@@ -104,216 +101,145 @@ Accepts
104101Produces
105102--------
106103
107−`lot` is a [`++coin`]().
104+`lot` is a `++coin`.
108105
109106Source
110107------
111108
112− ++ rend
113− ^- tape
114− ?: ?=(%blob -.lot)
115− ['~' '0' ((v-co 1) (jam p.lot))]
116− ?: ?=(%many -.lot)
117− :- '.'
118− |- ^- tape
119− ?~ p.lot
120− ['_' '_' rex]
121− ['_' (weld (trip (wack rent(lot i.p.lot))) $(p.lot t.p.lot))]
122− =+ [yed=(end 3 1 p.p.lot) hay=(cut 3 [1 1] p.p.lot)]
123− |- ^- tape
124− ?+ yed (z-co q.p.lot)
125− %c ['~' '-' (weld (rip 3 (wood (tuft q.p.lot))) rex)]
126− %d
127− ?+ hay (z-co q.p.lot)
128− %a
129− =+ yod=(yore q.p.lot)
130− => ^+(. .(rex ?~(f.t.yod rex ['.' (s-co f.t.yod)])))
131− => ^+ .
132− %= .
133− rex
134− ?: &(=(~ f.t.yod) =(0 h.t.yod) =(0 m.t.yod) =(0 s.t.yod))
135− rex
136− => .(rex ['.' (y-co s.t.yod)])
137− => .(rex ['.' (y-co m.t.yod)])
138− ['.' '.' (y-co h.t.yod)]
139− ==
140− => .(rex ['.' (a-co d.t.yod)])
141− => .(rex ['.' (a-co m.yod)])
142− => .(rex ?:(a.yod rex ['-' rex]))
143− ['~' (a-co y.yod)]
144− ::
145− %r
146− =+ yug=(yell q.p.lot)
147− => ^+(. .(rex ?~(f.yug rex ['.' (s-co f.yug)])))
148− :- '~'
149− ?: &(=(0 d.yug) =(0 m.yug) =(0 h.yug) =(0 s.yug))
150− ['.' 's' '0' rex]
151− => ^+(. ?:(=(0 s.yug) . .(rex ['.' 's' (a-co s.yug)])))
152− => ^+(. ?:(=(0 m.yug) . .(rex ['.' 'm' (a-co m.yug)])))
153− => ^+(. ?:(=(0 h.yug) . .(rex ['.' 'h' (a-co h.yug)])))
154− => ^+(. ?:(=(0 d.yug) . .(rex ['.' 'd' (a-co d.yug)])))
155− +.rex
156− ==
157− ::
158− %f
159− ?: =(& q.p.lot)
160− ['.' 'y' rex]
161− ?:(=(| q.p.lot) ['.' 'n' rex] (z-co q.p.lot))
162− ::
163− %n ['~' rex]
164− %i
165− ?+ hay (z-co q.p.lot)
166− %f ((ro-co [3 10 4] |=(a=@ ~(d ne a))) q.p.lot)
167− %s ((ro-co [4 16 8] |=(a=@ ~(x ne a))) q.p.lot)
168− ==
169− ::
170− %p
171− =+ dyx=(met 3 q.p.lot)
172− :- '~'
173− ?: (lte dyx 1)
174− (weld (trip (tod:po q.p.lot)) rex)
175− ?: =(2 dyx)
176− ;: weld
177− (trip (tos:po (end 3 1 q.p.lot)))
178− (trip (tod:po (rsh 3 1 q.p.lot)))
179− rex
180− ==
181− =+ [dyz=(met 5 q.p.lot) fin=|]
182− |- ^- tape
183− ?: =(0 dyz)
184− rex
185− %= $
186− fin &
187− dyz (dec dyz)
188− q.p.lot (rsh 5 1 q.p.lot)
189− rex
190− =+ syb=(wren:un (end 5 1 q.p.lot))
191− =+ cog=~(zig mu [(rsh 4 1 syb) (end 4 1 syb)])
192− ;: weld
193− (trip (tos:po (end 3 1 p.cog)))
194− (trip (tod:po (rsh 3 1 p.cog)))
195− `tape`['-' ~]
196− (trip (tos:po (end 3 1 q.cog)))
197− (trip (tod:po (rsh 3 1 q.cog)))
198− `tape`?:(fin ['-' ?:(=(1 (end 0 1 dyz)) ~ ['-' ~])] ~)
199− rex
109+ ++ rend
110+ ^- tape
111+ ?: ?=($blob -.lot)
112+ ['~' '0' ((v-co 1) (jam p.lot))]
113+ ?: ?=($many -.lot)
114+ :- '.'
115+ |- ^- tape
116+ ?~ p.lot
117+ ['_' '_' rep]
118+ ['_' (weld (trip (wack rent(lot i.p.lot))) $(p.lot t.p.lot))]
119+ =+ [yed=(end 3 1 p.p.lot) hay=(cut 3 [1 1] p.p.lot)]
120+ |- ^- tape
121+ ?+ yed (z-co q.p.lot)
122+ $c ['~' '-' (weld (rip 3 (wood (tuft q.p.lot))) rep)]
123+ $d
124+ ?+ hay (z-co q.p.lot)
125+ $a
126+ =+ yod=(yore q.p.lot)
127+ => ^+(. .(rep ?~(f.t.yod rep ['.' (s-co f.t.yod)])))
128+ => ^+ .
129+ %= .
130+ rep
131+ ?: &(=(~ f.t.yod) =(0 h.t.yod) =(0 m.t.yod) =(0 s.t.yod))
132+ rep
133+ => .(rep ['.' (y-co s.t.yod)])
134+ => .(rep ['.' (y-co m.t.yod)])
135+ ['.' '.' (y-co h.t.yod)]
200136 ==
201− ==
202− ::
203− %r
204− ?+ hay (z-co q.p.lot)
205− %d
206− =+ r=(rlyd q.p.lot)
207− ?~ e.r
208− ['.' '~' (r-co r)]
209− ['.' '~' u.e.r]
210− %h ['.' '~' '~' (r-co (rlyh q.p.lot))]
211− %q ['.' '~' '~' '~' (r-co (rlyq q.p.lot))]
212− %s ['.' (r-co (rlys q.p.lot))]
213− ==
214− ::
215− %u
216− =- (weld p.gam ?:(=(0 q.p.lot) `tape`['0' ~] q.gam))
217− ^= gam ^- [p=tape q=tape]
218− ?+ hay [~ ((ox-co [10 3] |=(a=@ ~(d ne a))) q.p.lot)]
219− %b [['0' 'b' ~] ((ox-co [2 4] |=(a=@ ~(d ne a))) q.p.lot)]
220− %i [['0' 'i' ~] ((d-co 1) q.p.lot)]
221− %x [['0' 'x' ~] ((ox-co [16 4] |=(a=@ ~(x ne a))) q.p.lot)]
222− %v [['0' 'v' ~] ((ox-co [32 5] |=(a=@ ~(x ne a))) q.p.lot)]
223− %w [['0' 'w' ~] ((ox-co [64 5] |=(a=@ ~(w ne a))) q.p.lot)]
224− ==
225− ::
226− %s
227− %+ weld
228− ?:((syn:si q.p.lot) "--" "-")
229− $(yed 'u', q.p.lot (abs:si q.p.lot))
230− ::
231− %t
232− ?: =('a' hay)
233− ?: =('s' (cut 3 [2 1] p.p.lot))
234−
235− (weld (rip 3 q.p.lot) rex)
236− ['~' '.' (weld (rip 3 q.p.lot) rex)]
237− ['~' '~' (weld (rip 3 (wood q.p.lot)) rex)]
238− ==
239− --
240− =+ rex=*tape
241− =< |%
242− ++ a-co |=(dat=@ ((d-co 1) dat))
243− ++ d-co |=(min=@ (em-co [10 min] |=([? b=@ c=tape] [~(d ne b) c])))
244− ++ r-co
245− |= [syn=? nub=@ der=@ ign=(unit tape) ne=?]
246− => .(rex ['.' (t-co ((d-co 1) der) ne)])
247− => .(rex ((d-co 1) nub))
248− ?:(syn rex ['-' rex])
249− ++ t-co |= [a=tape n=?] ^- tape
250− ?: n a
251− ?~ a ~|(%empty-frac !!) t.a
137+ => .(rep ['.' (a-co d.t.yod)])
138+ => .(rep ['.' (a-co m.yod)])
139+ => .(rep ?:(a.yod rep ['-' rep]))
140+ ['~' (a-co y.yod)]
252141 ::
253− ++ s-co
254− |= esc=(list ,@) ^- tape
255− ~| [%so-co esc]
256− ?~ esc
257− rex
258− :- '.'
259− =>(.(rex $(esc t.esc)) ((x-co 4) i.esc))
260−
142+ $r
143+ =+ yug=(yell q.p.lot)
144+ => ^+(. .(rep ?~(f.yug rep ['.' (s-co f.yug)])))
145+ :- '~'
146+ ?: &(=(0 d.yug) =(0 m.yug) =(0 h.yug) =(0 s.yug))
147+ ['s' '0' rep]
148+ => ^+(. ?:(=(0 s.yug) . .(rep ['.' 's' (a-co s.yug)])))
149+ => ^+(. ?:(=(0 m.yug) . .(rep ['.' 'm' (a-co m.yug)])))
150+ => ^+(. ?:(=(0 h.yug) . .(rep ['.' 'h' (a-co h.yug)])))
151+ => ^+(. ?:(=(0 d.yug) . .(rep ['.' 'd' (a-co d.yug)])))
152+ +.rep
153+ ==
261154 ::
262− ++ v-co |=(min=@ (em-co [32 min] |=([? b=@ c=tape] [~(v ne b) c])))
263− ++ w-co |=(min=@ (em-co [64 min] |=([? b=@ c=tape] [~(w ne b) c])))
264− ++ x-co |=(min=@ (em-co [16 min] |=([? b=@ c=tape] [~(x ne b) c])))
265− ++ y-co |=(dat=@ ((d-co 2) dat))
266− ++ z-co |=(dat=@ `tape`['0' 'x' ((x-co 1) dat)])
267− --
268− ~% %co +> ~
269− |%
270− ++ em-co
271− ~/ %emco
272− |= [[bas=@ min=@] [par=$+([? @ tape] tape)]]
273− |= hol=@
274− ^- tape
275− ?: &(=(0 hol) =(0 min))
276− rex
277− =+ [rad=(mod hol bas) dar=(div hol bas)]
278− %= $
279− min ?:(=(0 min) 0 (dec min))
280− hol dar
281− rex (par =(0 dar) rad rex)
155+ $f
156+ ?: =(& q.p.lot)
157+ ['.' 'y' rep]
158+ ?:(=(| q.p.lot) ['.' 'n' rep] (z-co q.p.lot))
159+ ::
160+ $n ['~' rep]
161+ $i
162+ ?+ hay (z-co q.p.lot)
163+ $f ((ro-co [3 10 4] |=(a/@ ~(d ne a))) q.p.lot)
164+ $s ((ro-co [4 16 8] |=(a/@ ~(x ne a))) q.p.lot)
165+ ==
166+ ::
167+ $p
168+ =+ dyx=(met 3 q.p.lot)
169+ :- '~'
170+ ?: (lte dyx 1)
171+ (weld (trip (tod:po q.p.lot)) rep)
172+ ?: =(2 dyx)
173+ ;: weld
174+ (trip (tos:po (end 3 1 q.p.lot)))
175+ (trip (tod:po (rsh 3 1 q.p.lot)))
176+ rep
177+ ==
178+ =+ [dyz=(met 5 q.p.lot) fin=| dub=&]
179+ |- ^- tape
180+ ?: =(0 dyz)
181+ rep
182+ %= $
183+ fin &
184+ dub !dub
185+ dyz (dec dyz)
186+ q.p.lot (rsh 5 1 q.p.lot)
187+ rep
188+ =+ syb=(wren:un (end 5 1 q.p.lot))
189+ =+ cog=~(zig mu [(rsh 4 1 syb) (end 4 1 syb)])
190+ ;: weld
191+ (trip (tos:po (end 3 1 p.cog)))
192+ (trip (tod:po (rsh 3 1 p.cog)))
193+ `tape`['-' ~]
194+ (trip (tos:po (end 3 1 q.cog)))
195+ (trip (tod:po (rsh 3 1 q.cog)))
196+ `tape`?.(fin ~ ['-' ?.(dub ~ ['-' ~])])
197+ rep
198+ ==
199+ ==
200+ ::
201+ $r
202+ ?+ hay (z-co q.p.lot)
203+ $d ['.' '~' (r-co (rlyd q.p.lot))]
204+ $h ['.' '~' '~' (r-co (rlyh q.p.lot))]
205+ $q ['.' '~' '~' '~' (r-co (rlyq q.p.lot))]
206+ $s ['.' (r-co (rlys q.p.lot))]
207+ ==
208+ ::
209+ $u
210+ ?: ?=($c hay)
211+ %+ welp ['0' 'c' (reap (pad:fa q.p.lot) '1')]
212+ (c-co (enc:fa q.p.lot))
213+ =- (weld p.gam ?:(=(0 q.p.lot) `tape`['0' ~] q.gam))
214+ ^= gam ^- {p/tape q/tape}
215+ ?+ hay [~ ((ox-co [10 3] |=(a/@ ~(d ne a))) q.p.lot)]
216+ $b [['0' 'b' ~] ((ox-co [2 4] |=(a/@ ~(d ne a))) q.p.lot)]
217+ $i [['0' 'i' ~] ((d-co 1) q.p.lot)]
218+ $x [['0' 'x' ~] ((ox-co [16 4] |=(a/@ ~(x ne a))) q.p.lot)]
219+ $v [['0' 'v' ~] ((ox-co [32 5] |=(a/@ ~(x ne a))) q.p.lot)]
220+ $w [['0' 'w' ~] ((ox-co [64 5] |=(a/@ ~(w ne a))) q.p.lot)]
221+ ==
222+ ::
223+ $s
224+ %+ weld
225+ ?:((syn:si q.p.lot) "--" "-")
226+ $(yed 'u', q.p.lot (abs:si q.p.lot))
227+ ::
228+ $t
229+ ?: =('a' hay)
230+ ?: =('s' (cut 3 [2 1] p.p.lot))
231+ (weld (rip 3 q.p.lot) rep)
232+ ['~' '.' (weld (rip 3 q.p.lot) rep)]
233+ ['~' '~' (weld (rip 3 (wood q.p.lot)) rep)]
282234 ==
283− ::
284− ++ ox-co
285− ~/ %oxco
286− |= [[bas=@ gop=@] dug=$+(@ @)]
287− %+ em-co
288− [|-(?:(=(0 gop) 1 (mul bas $(gop (dec gop))))) 0]
289− |= [top=? seg=@ res=tape]
290− %+ weld
291− ?:(top ~ `tape`['.' ~])
292− %. seg
293− %+ em-co(rex res)
294− [bas ?:(top 0 gop)]
295− |=([? b=@ c=tape] [(dug b) c])
296− ::
297− ++ ro-co
298− ~/ %roco
299− |= [[buz=@ bas=@ dop=@] dug=$+(@ @)]
300− |= hol=@
301− ^- tape
302− ?: =(0 dop)
303− rex
304− => .(rex $(dop (dec dop)))
305− :- '.'
306− %- (em-co [bas 1] |=([? b=@ c=tape] [(dug b) c]))
307− [(cut buz [(dec dop) 1] hol)]
308235 --
309− ::
310236
311237Examples
312238--------
313239
314240 ~zod/try=> ~(rend co ~ %ux 200)
315241 "0xc8"
316− ~zod/try=> ~(rend co %many ~[[%$ ux/200] [%$ p/40]])
242+ ~zod/try=> ~(rend co %many ~[[%$ ux+200] [%$ p+40]])
317243 "._0xc8_~~tem__"
318244 ~zod/try=> ~(rend co ~ %p 32.819)
319245 "~pillyt"