Artifact
90fcd2d06d6043f97888c3636fc4902d0d3e5b9b:
0000: 23 21 72 36 72 73 0a 3b 3b 20 43 6f 70 79 72 69 #!r6rs.;; Copyri
0010: 67 68 74 20 28 63 29 20 32 30 30 39 20 44 65 72 ght (c) 2009 Der
0020: 69 63 6b 20 45 64 64 69 6e 67 74 6f 6e 2e 20 20 ick Eddington.
0030: 41 6c 6c 20 72 69 67 68 74 73 20 72 65 73 65 72 All rights reser
0040: 76 65 64 2e 0a 3b 3b 20 4c 69 63 65 6e 73 65 64 ved..;; Licensed
0050: 20 75 6e 64 65 72 20 61 6e 20 4d 49 54 2d 73 74 under an MIT-st
0060: 79 6c 65 20 6c 69 63 65 6e 73 65 2e 20 20 4d 79 yle license. My
0070: 20 6c 69 63 65 6e 73 65 20 69 73 20 69 6e 20 74 license is in t
0080: 68 65 20 66 69 6c 65 0a 3b 3b 20 6e 61 6d 65 64 he file.;; named
0090: 20 4c 49 43 45 4e 53 45 20 66 72 6f 6d 20 74 68 LICENSE from th
00a0: 65 20 6f 72 69 67 69 6e 61 6c 20 63 6f 6c 6c 65 e original colle
00b0: 63 74 69 6f 6e 20 74 68 69 73 20 66 69 6c 65 20 ction this file
00c0: 69 73 20 64 69 73 74 72 69 62 75 74 65 64 0a 3b is distributed.;
00d0: 3b 20 77 69 74 68 2e 20 20 49 66 20 74 68 69 73 ; with. If this
00e0: 20 66 69 6c 65 20 69 73 20 72 65 64 69 73 74 72 file is redistr
00f0: 69 62 75 74 65 64 20 77 69 74 68 20 73 6f 6d 65 ibuted with some
0100: 20 6f 74 68 65 72 20 63 6f 6c 6c 65 63 74 69 6f other collectio
0110: 6e 2c 20 6d 79 0a 3b 3b 20 6c 69 63 65 6e 73 65 n, my.;; license
0120: 20 6d 75 73 74 20 61 6c 73 6f 20 62 65 20 69 6e must also be in
0130: 63 6c 75 64 65 64 2e 0a 0a 28 6c 69 62 72 61 72 cluded...(librar
0140: 79 20 28 73 72 66 69 20 73 32 35 20 6d 75 6c 74 y (srfi s25 mult
0150: 69 2d 64 69 6d 65 6e 73 69 6f 6e 61 6c 2d 61 72 i-dimensional-ar
0160: 72 61 79 73 29 0a 20 20 28 65 78 70 6f 72 74 0a rays). (export.
0170: 20 20 20 20 61 72 72 61 79 3f 0a 20 20 20 20 6d array?. m
0180: 61 6b 65 2d 61 72 72 61 79 0a 20 20 20 20 73 68 ake-array. sh
0190: 61 70 65 0a 20 20 20 20 61 72 72 61 79 0a 20 20 ape. array.
01a0: 20 20 61 72 72 61 79 2d 72 61 6e 6b 0a 20 20 20 array-rank.
01b0: 20 61 72 72 61 79 2d 73 74 61 72 74 0a 20 20 20 array-start.
01c0: 20 61 72 72 61 79 2d 65 6e 64 0a 20 20 20 20 61 array-end. a
01d0: 72 72 61 79 2d 72 65 66 0a 20 20 20 20 61 72 72 rray-ref. arr
01e0: 61 79 2d 73 65 74 21 0a 20 20 20 20 73 68 61 72 ay-set!. shar
01f0: 65 2d 61 72 72 61 79 29 0a 20 20 28 69 6d 70 6f e-array). (impo
0200: 72 74 0a 20 20 20 20 28 73 72 66 69 20 73 32 35 rt. (srfi s25
0210: 20 6d 75 6c 74 69 2d 64 69 6d 65 6e 73 69 6f 6e multi-dimension
0220: 61 6c 2d 61 72 72 61 79 73 20 61 6c 6c 29 29 0a al-arrays all)).
0230: 29 0a ).