Типа калькулятор. С примерами функций.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
defun test_fun (a b)
{
return (+ a b);
};
defun funfun (a b) (+ a b);
defun main (a)
{
while T
{
setq n (ask "Menu:\n1.sum\n2.sub\n3.mul\n4.exit\nEnter n:");
if (== n 4) (return 1);
setq a (ask "Enter a:");
setq b (ask "Enter b:");
if (== n 1)(setq result (test_fun a b));
if (== n 2)(setq result (- a b));
if (== n 3)(setq result (* a b));
print "Result = " result;
};
};
main 0;