| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 23:47:32 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=e16ff818f36e9b296350b33b8761580dca615beba48d49758d5e19f02393800fa%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22rEI4FyK84D2tkOw0Yxkttj2uCBPcUhpM%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d23e404e76c1f7-BLR
; задание уравнения в виде списка(setq meEquation '(A * x = B)); выделение л - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; задание уравнения в виде списка
- (setq meEquation '(A * x = B))
- ; выделение левой части относительно символа op
- (defun left(e op)
- (if e
- (let ((f (first e)))
- (if (eq f op) nil
- (cons f (left (rest e) op))
- )
- )
- nil
- )
- )
- ; выделение правой части относительно символа op
- (defun right(e op)
- (if e
- (let ((r (rest e)))
- (if (eq (first e) op) r
- (right r op)
- )
- )
- nil
- )
- )
- ; решение уравнения
- (defun res(e)
- (let ((l (left e '=)))
- (if l
- (let(
- (r (first (right e '=)))
- (k (first (left l '*)))
- (var (first (right l '*)))
- )
- (if (and r k var)
- (list var '= r '/ k)
- nil
- )
- )
- nil
- )
- )
- )
- ; вывод сообщения об ошибке при неправильно заданном уравнении
- (defun res2(e)
- (let ((r (res e)))
- (if r r "Ошибка")
- )
- )
- ; вывод результата решения
- (print (res2 meEquation))
Advertisement
Add Comment
Please, Sign In to add comment
-
✅ Make $2500 in 20 minutes⭐⭐⭐ R
JavaScript | 3 sec ago | 0.25 KB
-
📝 EASY MONEY GUIDE ✅ Working
JavaScript | 4 sec ago | 0.24 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ 3
JavaScript | 7 sec ago | 0.25 KB
-
📌 Swapzone +37% glitch ⭐ R
JavaScript | 12 sec ago | 0.25 KB
-
📌 ChangeNOW Exploit
JavaScript | 14 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ⭐⭐ 8
JavaScript | 21 sec ago | 0.25 KB
-
📝 EASY MONEY GUIDE ✅ Working
JavaScript | 26 sec ago | 0.24 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 30 sec ago | 0.25 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
