new files

2013-04-10 12:38:42 -07:00 · 2013-04-10 12:38:42 -07:00 · 86c034bb8b
commit 86c034bb8b
parent 3af7344581
1364 changed files with 21352 additions and 0 deletions
--- a/Task/Arrays/ACL2/arrays.acl2
+++ b/Task/Arrays/ACL2/arrays.acl2
@ -0,0 +1,15 @@
+;; Create an array and store it in array-example
+(assign array-example
+        (compress1 'array-example
+                   (list '(:header :dimensions (10)
+                                   :maximum-length 11))))
+
+;; Set a[5] to 22
+(assign array-example
+        (aset1 'array-example
+               (@ array-example)
+               5
+               22))
+
+;; Get a[5]
+(aref1 'array-example (@ array-example) 5)