From 15e017c433613c5b9cf5783679a992863631769a Mon Sep 17 00:00:00 2001
From: tzlil <tzlils@protonmail.com>
Date: Mon, 16 Oct 2023 07:08:43 +0300
Subject: quine.ua prints it's own pad url

---
 quine.ua | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 quine.ua

(limited to 'quine.ua')

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
-- 
cgit 1.4.1