From 060041c9b13dca4b90ea929b1074e90499800d58 Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Mon, 4 May 2026 04:21:22 -0700 Subject: add a program in Evocation which outputs itself (yay :)) Force-Push: yes Change-Id: Ifda674d7bdd6243bf879ad5964b56791c6f33b90 --- quine.e | 1 + 1 file changed, 1 insertion(+) create mode 100644 quine.e diff --git a/quine.e b/quine.e new file mode 100644 index 0000000..a58b2f3 --- /dev/null +++ b/quine.e @@ -0,0 +1 @@ +: go 0x0a 0x2022 value@ dup 8 + s" : go 0x0a 0x2022 value@ dup 8 + s" s" s" s" dup { dup } { 1- dup 2 + pick dup { 2 pick + pick emitstring } { drop over { dup } { 1- dup 3 + pick . space } while drop over . space } if-else } while ; go bye" 4 6 4 6 3 6 3 6 3 6 2 6 0 2 5 15 dup { dup } { 1- dup 2 + pick dup { 2 pick + pick emitstring } { drop over { dup } { 1- dup 3 + pick . space } while drop over . space } if-else } while ; go bye -- cgit 1.4.1