Artifact
24ac2a6c6b058d4552b9c19dcf9bfd6c9b57e48f:
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 20 61 72 6c 69 62 29 0a 20 20 28 65 rays arlib). (e
0170: 78 70 6f 72 74 0a 20 20 20 20 61 72 72 61 79 2d xport. array-
0180: 73 68 61 70 65 0a 20 20 20 20 61 72 72 61 79 2d shape. array-
0190: 6c 65 6e 67 74 68 0a 20 20 20 20 61 72 72 61 79 length. array
01a0: 2d 73 69 7a 65 0a 20 20 20 20 61 72 72 61 79 2d -size. array-
01b0: 65 71 75 61 6c 3f 0a 20 20 20 20 73 68 61 70 65 equal?. shape
01c0: 2d 66 6f 72 2d 65 61 63 68 0a 20 20 20 20 61 72 -for-each. ar
01d0: 72 61 79 2d 66 6f 72 2d 65 61 63 68 2d 69 6e 64 ray-for-each-ind
01e0: 65 78 0a 20 20 20 20 74 61 62 75 6c 61 74 65 2d ex. tabulate-
01f0: 61 72 72 61 79 0a 20 20 20 20 74 61 62 75 6c 61 array. tabula
0200: 74 65 2d 61 72 72 61 79 21 0a 20 20 20 20 61 72 te-array!. ar
0210: 72 61 79 2d 72 65 74 61 62 75 6c 61 74 65 21 0a ray-retabulate!.
0220: 20 20 20 20 61 72 72 61 79 2d 6d 61 70 0a 20 20 array-map.
0230: 20 20 61 72 72 61 79 2d 6d 61 70 21 0a 20 20 20 array-map!.
0240: 20 61 72 72 61 79 2d 3e 76 65 63 74 6f 72 0a 20 array->vector.
0250: 20 20 20 61 72 72 61 79 2d 3e 6c 69 73 74 0a 20 array->list.
0260: 20 20 20 73 68 61 72 65 2d 61 72 72 61 79 2f 70 share-array/p
0270: 72 65 66 69 78 0a 20 20 20 20 73 68 61 72 65 2d refix. share-
0280: 72 6f 77 0a 20 20 20 20 73 68 61 72 65 2d 63 6f row. share-co
0290: 6c 75 6d 6e 0a 20 20 20 20 73 68 61 72 65 2d 61 lumn. share-a
02a0: 72 72 61 79 2f 6f 72 69 67 69 6e 0a 20 20 20 20 rray/origin.
02b0: 73 68 61 72 65 2d 61 72 72 61 79 2f 69 6e 64 65 share-array/inde
02c0: 78 21 0a 20 20 20 20 61 72 72 61 79 2d 61 70 70 x!. array-app
02d0: 65 6e 64 0a 20 20 20 20 74 72 61 6e 73 70 6f 73 end. transpos
02e0: 65 0a 20 20 20 20 73 68 61 72 65 2d 6e 74 68 73 e. share-nths
02f0: 29 0a 20 20 28 69 6d 70 6f 72 74 0a 20 20 20 20 ). (import.
0300: 28 72 6e 72 73 29 0a 20 20 20 20 28 72 6e 72 73 (rnrs). (rnrs
0310: 20 72 35 72 73 29 0a 20 20 20 20 28 73 72 66 69 r5rs). (srfi
0320: 20 73 32 33 20 65 72 72 6f 72 20 74 72 69 63 6b s23 error trick
0330: 73 29 0a 20 20 20 20 28 73 72 66 69 20 73 32 35 s). (srfi s25
0340: 20 6d 75 6c 74 69 2d 64 69 6d 65 6e 73 69 6f 6e multi-dimension
0350: 61 6c 2d 61 72 72 61 79 73 20 61 6c 6c 29 0a 20 al-arrays all).
0360: 20 20 20 28 73 72 66 69 20 70 72 69 76 61 74 65 (srfi private
0370: 20 69 6e 63 6c 75 64 65 29 29 0a 0a 20 20 28 53 include)).. (S
0380: 52 46 49 2d 32 33 2d 65 72 72 6f 72 2d 3e 52 36 RFI-23-error->R6
0390: 52 53 20 22 28 6c 69 62 72 61 72 79 20 28 73 72 RS "(library (sr
03a0: 66 69 20 73 32 35 20 6d 75 6c 74 69 2d 64 69 6d fi s25 multi-dim
03b0: 65 6e 73 69 6f 6e 61 6c 2d 61 72 72 61 79 73 20 ensional-arrays
03c0: 61 72 6c 69 62 29 29 22 0a 20 20 20 28 69 6e 63 arlib))". (inc
03d0: 6c 75 64 65 2f 72 65 73 6f 6c 76 65 20 28 22 73 lude/resolve ("s
03e0: 72 66 69 22 20 22 73 32 35 22 29 20 22 61 72 6c rfi" "s25") "arl
03f0: 69 62 2e 73 63 6d 22 29 29 0a 29 0a ib.scm")).).