Re: (*) -> 1

[Akib Azmain Turja]

Emanuel Berg <incal@dataswamp.org> writes:

> Tassilo Horn wrote:
>
>> In my book, it is useful to have mathematically sound
>> behavior by default. If you have a reason to handle some
>> edge-cases differently in some application (which is totally
>> possible!), then define your own function which does what
>> you wish.
>
> Your book? Actually I think a lot of people have it.

I just made a language named "Emacs Lisp Fuck", and here's the
"Hello, World!" program:

#+begin_src emacs-lisp
(string
 (+(*)(+)(*)(*)(*)(*)(+)(+)(+)(+)(*)(*)(*)(+)(+)(*)(*)(*)(*)(+)(*)(*)
   (*)(*)(*)(*)(*)(+)(*)(+)(*)(*)(*)(*)(+)(+)(*)(*)(+)(*)(+)(*)(*)(*)
   (*)(+)(+)(+)(*)(+)(*)(*)(+)(+)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(+)(+)
   (*)(*)(*)(+)(+)(*)(*)(+)(+)(+)(*)(+)(+)(+)(+)(*)(*)(+)(*)(+)(*)(*)
   (+)(*)(+)(+)(*)(+)(*)(+)(*)(*)(*)(+)(*)(+)(+)(*)(+)(+)(+)(+)(+)(+)
   (*)(+)(+)(*)(*)(*)(*)(+)(+)(*)(*)(*)(+)(*)(*)(+)(+)(+))
 (+(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(+)(*)(*)(*)(*)(+)(*)(*)(+)(*)
   (*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(+)(*)(*)(+)(*)
   (*)(*)(+)(*)(*)(+)(+)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(+)
   (*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(+)(+)(+)(*)(+)(*)(*)(+)(*)(+)(*)
   (*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(+)(+)(*)(*)(*)(+)(*)(*)(*)
   (*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(+)(*)(+)(*))
 (+(*)(*)(*)(*)(*)(+)(*)(*)(*)(+)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)
   (*)(*)(*)(+)(+)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(+)(*)
   (*)(*)(*)(*)(*)(+)(+)(*)(+)(*)(*)(*)(+)(*)(*)(*)(*)(+)(+)(*)(*)(*)
   (*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)
   (*)(*)(+)(*)(+)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)
   (*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*))
 (+(*)(*)(*)(*)(*)(+)(*)(*)(*)(+)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)
   (*)(*)(*)(+)(+)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(+)(*)
   (*)(*)(*)(*)(*)(+)(+)(*)(+)(*)(*)(*)(+)(*)(*)(*)(*)(+)(+)(*)(*)(*)
   (*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)
   (*)(*)(+)(*)(+)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)
   (*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*))
 (+(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(+)(*)(*)(*)
   (*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)
   (*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)
   (*)(+)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(+)(+)(*)(*)(*)(*)(*)
   (*)(*)(+)(+)(*)(+)(*)(*)(+)(*)(*)(*)(*)(*)(*)(+)(*)(+)(*)(+)(*)(*)
   (*)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(+)(*)(*))
 (+(+)(+)(+)(+)(+)(*)(+)(+)(*)(*)(+)(+)(*)(+)(+)(+)(+)(*)(+)(+)(*)(*)
   (*)(+)(+)(+)(*)(+)(+)(*)(+)(*)(+)(*)(*)(+)(+)(*)(+)(+)(+)(*)(*)(+)
   (+)(*)(*)(*)(*)(+)(+)(+)(+)(+)(+)(+)(+)(*)(+)(+)(+)(+)(*)(+)(+)(+)
   (*)(+)(*)(*)(+)(+)(+)(+)(+)(*)(+)(+)(*)(+)(+)(+)(+)(+)(*)(*)(+)(+)
   (+)(+)(*)(+)(*)(+)(+)(+)(+)(*)(*)(+)(+)(*)(+)(*)(*)(+)(+)(+)(*)(+)
   (*)(+)(+)(+)(+)(*)(*)(+)(+)(+)(+)(*)(+)(*)(+)(*)(*)(+))
 (+(+)(*)(+)(*)(+)(+)(+)(+)(+)(*)(*)(*)(+)(*)(+)(*)(+)(*)(+)(*)(+)(+)
   (+)(+)(+)(+)(+)(+)(+)(+)(+)(+)(+)(+)(+)(+)(+)(+)(+)(*)(*)(+)(+)(+)
   (*)(*)(+)(+)(+)(+)(+)(*)(+)(*)(+)(*)(*)(*)(+)(+)(+)(+)(+)(+)(+)(*)
   (+)(+)(*)(*)(+)(+)(+)(+)(+)(+)(+)(*)(+)(+)(+)(+)(+)(+)(+)(+)(+)(+)
   (+)(+)(+)(+)(+)(+)(+)(+)(*)(+)(+)(*)(+)(+)(+)(+)(+)(+)(*)(*)(+)(*)
   (+)(*)(*)(*)(+)(+)(+)(+)(+)(+)(+)(+)(*)(+)(+)(+)(+)(*))
 (+(*)(+)(*)(+)(+)(+)(*)(*)(+)(*)(*)(*)(*)(*)(*)(+)(+)(+)(*)(+)(+)(+)
   (*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(+)(+)(+)(+)(*)(*)(*)(*)(+)(*)(*)(*)
   (*)(*)(*)(*)(*)(*)(+)(+)(*)(+)(*)(*)(*)(*)(*)(+)(*)(*)(*)(+)(+)(*)
   (+)(+)(*)(*)(*)(+)(+)(*)(*)(*)(+)(+)(+)(+)(*)(*)(*)(+)(+)(+)(+)(*)
   (*)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(+)(+)(*)(+)(*)(*)(*)(+)(*)(*)
   (*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*))
 (+(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(+)(*)(*)(*)
   (*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)
   (*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)
   (*)(+)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(+)(+)(*)(*)(*)(*)(*)
   (*)(*)(+)(+)(*)(+)(*)(*)(+)(*)(*)(*)(*)(*)(*)(+)(*)(+)(*)(+)(*)(*)
   (*)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(+)(*)(*))
 (+(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)
   (*)(*)(*)(+)(+)(+)(*)(+)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)
   (*)(*)(+)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(+)
   (*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)
   (*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)
   (*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*))
 (+(*)(*)(*)(*)(*)(+)(*)(*)(*)(+)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)
   (*)(*)(*)(+)(+)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(+)(*)
   (*)(*)(*)(*)(*)(+)(+)(*)(+)(*)(*)(*)(+)(*)(*)(*)(*)(+)(+)(*)(*)(*)
   (*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)
   (*)(*)(+)(*)(+)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)
   (*)(*)(*)(*)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*))
 (+(+)(*)(*)(*)(+)(+)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(+)
   (*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(+)(+)(*)(*)(*)
   (*)(*)(*)(*)(+)(*)(*)(+)(*)(*)(*)(+)(*)(*)(*)(+)(+)(*)(*)(*)(*)(*)
   (*)(*)(*)(+)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(*)(+)(*)(+)(*)(*)(+)(*)
   (*)(*)(+)(*)(+)(*)(+)(*)(*)(*)(+)(*)(*)(*)(*)(*)(*)(+)(*)(*)(+)(*)
   (*)(*)(*)(*)(*)(+)(*)(*)(*)(+)(*)(*)(+)(+)(*)(*)(+)(*))
 (+(+)(+)(*)(+)(+)(+)(+)(+)(+)(+)(+)(*)(+)(+)(+)(+)(*)(+)(*)(*)(*)(+)
   (+)(*)(+)(+)(+)(+)(+)(*)(+)(*)(+)(*)(*)(+)(+)(+)(+)(+)(*)(+)(+)(+)
   (+)(+)(+)(+)(+)(+)(+)(+)(+)(*)(+)(+)(+)(+)(*)(*)(+)(+)(*)(+)(+)(+)
   (+)(+)(+)(+)(*)(+)(+)(+)(+)(+)(+)(+)(+)(+)(+)(+)(+)(+)(+)(*)(*)(+)
   (+)(*)(+)(+)(*)(+)(*)(+)(+)(*)(+)(+)(+)(*)(*)(*)(+)(+)(*)(+)(+)(+)
   (+)(*)(+)(+)(*)(*)(+)(+)(+)(+)(*)(+)(+)(*)(+)(+)(*)(+)))
#+end_src

Even I don't know how this works!

-- 
Akib Azmain Turja, GPG key: 70018CE5819F17A3BBA666AFE74F0EFA922AE7F5
Fediverse: akib@hostux.social
Codeberg: akib
emailselfdefense.fsf.org | "Nothing can be secure without encryption."

signature.asc
Description: PGP signature