blob: bc9ef07b30bf793014114be2065c2f93c7855620 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
$ Alphabet ← ⍜(⊢↻¯1)'+1⊂⊂⊂+@A⇡26+@a⇡26+@0⇡10"-^"
$ Enc ← ♭⬚@=↯[¯1 4]⊏∶Alphabet≡(⍘⋯⇌)⬚0↯[¯1 6]∵(⇌↘¯1⋯+256)+97-@a
$ Shr ← /+⍘⋯↘∶⋯∶
$ And ← -×64⌊÷64.
$ Conts ← ⇌⊂⊂⊂⊃⊃⊃(□⊂⊂⊂⊃⊃⊃(+240Shr18)(+128And Shr12)(+128And Shr 6)(+128And))(□⊂⊂⊃⊃(+224Shr12)(+128And Shr6)(+128And))(□⊂⊃(+192Shr6)(+128And))□
$ Which ← ⊂⊂⊂⊃⊃⊃(≤127)(≤2047)(≤65535)(>65535)
$ UTF ← /(⊂♭∩⊔)≡(□-97+@a⊔⊢▽⊃Which Conts)+97-@a
$ /(⊂∩⊔)⊂≡(□⊂"$ "⊔).≡(□⊂∶-32"*"⊔)⊜□¬∊∶-32"-*".
$ &p↘¯4⊂"https://www.uiua.org/pad?src="Enc UTF
Alphabet ← ⍜(⊢↻¯1)'+1⊂⊂⊂+@A⇡26+@a⇡26+@0⇡10"-^"
Enc ← ♭⬚@=↯[¯1 4]⊏∶Alphabet≡(⍘⋯⇌)⬚0↯[¯1 6]∵(⇌↘¯1⋯+256)+97-@a
Shr ← /+⍘⋯↘∶⋯∶
And ← -×64⌊÷64.
Conts ← ⇌⊂⊂⊂⊃⊃⊃(□⊂⊂⊂⊃⊃⊃(+240Shr18)(+128And Shr12)(+128And Shr 6)(+128And))(□⊂⊂⊃⊃(+224Shr12)(+128And Shr6)(+128And))(□⊂⊃(+192Shr6)(+128And))□
Which ← ⊂⊂⊂⊃⊃⊃(≤127)(≤2047)(≤65535)(>65535)
UTF ← /(⊂♭∩⊔)≡(□-97+@a⊔⊢▽⊃Which Conts)+97-@a
/(⊂∩⊔)⊂≡(□⊂"$ "⊔).≡(□⊂∶-32"*"⊔)⊜□¬∊∶-32"-*".
&p↘¯4⊂"https://www.uiua.org/pad?src="Enc UTF
|
