File: Evaluating_App_on_Sample_Input.html

package info (click to toggle)
acl2 3.1-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 36,712 kB
  • ctags: 38,396
  • sloc: lisp: 464,023; makefile: 5,470; sh: 86; csh: 47; cpp: 25; ansic: 22
file content (44 lines) | stat: -rw-r--r-- 1,198 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
<html>
<head><title>Evaluating_App_on_Sample_Input.html  --  ACL2 Version 3.1</title></head>
<body text=#000000 bgcolor="#FFFFFF">
<h2>Evaluating App on Sample Input</h2>
<p>
<img src=green-line.gif><p>


<pre>
ACL2 !&gt;<b>(app nil '(x y z))</B>
(X Y Z)<p>

ACL2 !&gt;<b>(app '(1 2 3) '(4 5 6 7))</B>
(1 2 3 4 5 6 7)<p>

ACL2 !&gt;<b>(app '(a b c d e f g) '(x y z))</B>   ; click <a href="Conversion.html">here</a> for an explanation
(A B C D E F G X Y Z)<p>

ACL2 !&gt;<b>(app (app '(1 2) '(3 4)) '(5 6))</B>
(1 2 3 4 5 6)<p>

ACL2 !&gt;<b>(app '(1 2) (app '(3 4) '(5 6)))</B>
(1 2 3 4 5 6)<p>

ACL2!&gt;<b>(let ((a '(1 2))</B>
            <b>(b '(3 4))</B>
            <b>(c '(5 6)))</B>
        <b>(equal (app (app a b) c)</B>
               <b>(app a (app b c))))</B>
T
</pre>
<p>

<img src=green-line.gif><p>

As we can see from these examples, ACL2 functions can be executed more or
less as Common Lisp.  <p>

The last three examples suggest an interesting property of <code>app</code>.<p>

<a href="The_Associativity_of_App.html"><img src=walking.gif></a>
<br><br><br><a href="acl2-doc.html"><img src="llogo.gif"></a> <a href="acl2-doc-index.html"><img src="index.gif"></a>
</body>
</html>