diff options
| author | tzlil <tzlils@protonmail.com> | 2023-10-16 07:08:43 +0300 |
|---|---|---|
| committer | tzlil <tzlils@protonmail.com> | 2023-10-16 07:08:43 +0300 |
| commit | 15e017c433613c5b9cf5783679a992863631769a (patch) | |
| tree | 73cc6b1f9dfbe67e36775fa92a7b83cd7aa4249c /quine.ua | |
| parent | c00d3f8bb14d494f1584d9bb087a08eeabf33c8f (diff) | |
Diffstat (limited to 'quine.ua')
| -rw-r--r-- | quine.ua | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/quine.ua b/quine.ua new file mode 100644 index 0000000..bc9ef07 --- /dev/null +++ b/quine.ua @@ -0,0 +1,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 |