36 lines
807 B
Plaintext
36 lines
807 B
Plaintext
;; Function To Be Tested: array-rank
|
|
;;
|
|
;; Source: Common Lisp by Guy Steele
|
|
;; Section 17.3: Array Information Page: 292
|
|
;;
|
|
;; Created By: John Park
|
|
;;
|
|
;; Creation Date: June 9, 86
|
|
;;
|
|
;; Last Update:
|
|
;;
|
|
;; Filed as: {eris}<lispcore>cml>test>17-3-array-rank.test
|
|
;;
|
|
;; Syntax: array-rank array
|
|
;;
|
|
;; Function Description: This function returns the number of dimensions of
|
|
;; array.
|
|
;;
|
|
;; Argument(s): array
|
|
;; Returns: number of dimensions (non-negative integer)
|
|
;;
|
|
;; Constraints/limitations: None
|
|
|
|
|
|
|
|
(do-test array-rank-test
|
|
(and (eq (array-rank (make-array 1)) 1)
|
|
(eq (array-rank (make-array '(2 2))) 2)
|
|
(eq (array-rank (make-array '(3 3 4))) 3)
|
|
(eq (array-rank (make-array '(4 3 5 2 1 3))) 6)
|
|
(eq (array-rank (make-array '(2 2 2 2 2 2 2))) 7)))
|
|
|
|
STOP
|
|
|
|
|