home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1996-10-12 | 30.3 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs v18 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '(require (quote calc-ext))
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|00000010| 20 63 61 6c 63 2d 65 78 | 74 29 29 0a 0a 28 64 65 | calc-ex|t))..(de|
|00000020| 66 75 6e 20 63 61 6c 63 | 2d 4e 65 65 64 2d 63 61 |fun calc|-Need-ca|
|00000030| 6c 63 2d 76 65 63 20 6e | 69 6c 20 28 62 79 74 65 |lc-vec n|il (byte|
|00000040| 2d 63 6f 64 65 20 22 c0 | 87 22 20 5b 6e 69 6c 5d |-code ".|." [nil]|
|00000050| 20 31 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 1))..(d|efun cal|
|00000060| 63 2d 64 69 73 70 6c 61 | 79 2d 73 74 72 69 6e 67 |c-displa|y-string|
|00000070| 73 20 28 6e 29 20 28 69 | 6e 74 65 72 61 63 74 69 |s (n) (i|nteracti|
|00000080| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|00000090| 64 65 20 22 c0 88 c1 c2 | 21 87 22 20 5b 6e 69 6c |de "....|!." [nil|
|000000a0| 20 63 61 6c 63 2d 64 6f | 20 28 6c 61 6d 62 64 61 | calc-do| (lambda|
|000000b0| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|000000c0| 22 c2 c3 c4 08 c1 c1 24 | 83 0e 00 c5 82 0f 00 c6 |"......$|........|
|000000d0| 21 87 22 20 5b 6e 20 74 | 20 6d 65 73 73 61 67 65 |!." [n t| message|
|000000e0| 20 63 61 6c 63 2d 63 68 | 61 6e 67 65 2d 6d 6f 64 | calc-ch|ange-mod|
|000000f0| 65 20 63 61 6c 63 2d 64 | 69 73 70 6c 61 79 2d 73 |e calc-d|isplay-s|
|00000100| 74 72 69 6e 67 73 20 22 | 44 69 73 70 6c 61 79 69 |trings "|Displayi|
|00000110| 6e 67 20 76 65 63 74 6f | 72 73 20 6f 66 20 69 6e |ng vecto|rs of in|
|00000120| 74 65 67 65 72 73 20 61 | 73 20 71 75 6f 74 65 64 |tegers a|s quoted|
|00000130| 20 73 74 72 69 6e 67 73 | 2e 22 20 22 44 69 73 70 | strings|." "Disp|
|00000140| 6c 61 79 69 6e 67 20 76 | 65 63 74 6f 72 73 20 6f |laying v|ectors o|
|00000150| 66 20 69 6e 74 65 67 65 | 72 73 20 6e 6f 72 6d 61 |f intege|rs norma|
|00000160| 6c 6c 79 2e 22 5d 20 36 | 29 29 5d 20 32 29 29 0a |lly."] 6|))] 2)).|
|00000170| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 70 61 63 |.(defun |calc-pac|
|00000180| 6b 20 28 6e 29 20 28 69 | 6e 74 65 72 61 63 74 69 |k (n) (i|nteracti|
|00000190| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|000001a0| 64 65 20 22 c0 88 c1 c2 | 21 87 22 20 5b 6e 69 6c |de "....|!." [nil|
|000001b0| 20 63 61 6c 63 2d 64 6f | 20 28 6c 61 6d 62 64 61 | calc-do| (lambda|
|000001c0| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|000001d0| 22 09 83 08 00 c5 82 09 | 00 c6 18 09 83 14 00 c7 |".......|........|
|000001e0| 09 21 82 17 00 c8 c5 21 | 1a 0a 3a 85 21 00 0a 40 |.!.....!|..:.!..@|
|000001f0| c9 3d 85 26 00 0a 41 83 | 2e 00 0a 41 82 3b 00 ca |.=.&..A.|...A.;..|
|00000200| 0a 21 83 38 00 0a 82 3b | 00 cb cc 21 1a cd 0a 21 |.!.8...;|...!...!|
|00000210| 1b ce 0b 08 5c 22 1c cf | d0 08 0b d1 23 d2 d3 0a |....\"..|....#...|
|00000220| 0c 5c 22 23 2d 87 22 20 | 5b 6e 6e 20 6e 20 6d 6f |.\"#-." |[nn n mo|
|00000230| 64 65 20 6e 75 6d 20 69 | 74 65 6d 73 20 31 20 32 |de num i|tems 1 2|
|00000240| 20 70 72 65 66 69 78 2d | 6e 75 6d 65 72 69 63 2d | prefix-|numeric-|
|00000250| 76 61 6c 75 65 20 63 61 | 6c 63 2d 74 6f 70 2d 6e |value ca|lc-top-n|
|00000260| 20 76 65 63 20 69 6e 74 | 65 67 65 72 70 20 65 72 | vec int|egerp er|
|00000270| 72 6f 72 20 22 50 61 63 | 6b 69 6e 67 20 6d 6f 64 |ror "Pac|king mod|
|00000280| 65 20 6d 75 73 74 20 62 | 65 20 61 6e 20 69 6e 74 |e must b|e an int|
|00000290| 65 67 65 72 20 6f 72 20 | 76 65 63 74 6f 72 20 6f |eger or |vector o|
|000002a0| 66 20 69 6e 74 65 67 65 | 72 73 22 20 63 61 6c 63 |f intege|rs" calc|
|000002b0| 2d 70 61 63 6b 2d 73 69 | 7a 65 20 63 61 6c 63 2d |-pack-si|ze calc-|
|000002c0| 74 6f 70 2d 6c 69 73 74 | 20 63 61 6c 63 2d 65 6e |top-list| calc-en|
|000002d0| 74 65 72 2d 72 65 73 75 | 6c 74 20 2b 20 2d 31 20 |ter-resu|lt + -1 |
|000002e0| 22 70 61 63 6b 22 20 63 | 61 6c 63 2d 70 61 63 6b |"pack" c|alc-pack|
|000002f0| 2d 69 74 65 6d 73 5d 20 | 31 33 29 29 5d 20 32 29 |-items] |13))] 2)|
|00000300| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 70 |)..(defu|n calc-p|
|00000310| 61 63 6b 2d 73 69 7a 65 | 20 28 6d 6f 64 65 29 20 |ack-size| (mode) |
|00000320| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 3a 83 38 |(byte-co|de ".:.8|
|00000330| 00 c3 19 08 85 26 00 c4 | 08 40 21 86 15 00 c5 c6 |.....&..|.@!.....|
|00000340| 21 88 c7 09 c8 08 40 21 | 5c 22 11 08 41 89 10 88 |!.....@!|\"..A...|
|00000350| 82 07 00 88 09 c9 55 83 | 33 00 c5 ca 21 82 34 00 |......U.|3...!.4.|
|00000360| 09 29 82 4b 00 08 c9 59 | 83 42 00 08 82 4b 00 cb |.).K...Y|.B...K..|
|00000370| 08 cc 5c 22 41 86 4b 00 | cd 87 22 20 5b 6d 6f 64 |..\"A.K.|.." [mod|
|00000380| 65 20 73 69 7a 65 20 74 | 20 31 20 69 6e 74 65 67 |e size t| 1 integ|
|00000390| 65 72 70 20 65 72 72 6f | 72 20 22 56 65 63 74 6f |erp erro|r "Vecto|
|000003a0| 72 20 6f 66 20 69 6e 74 | 65 67 65 72 73 20 65 78 |r of int|egers ex|
|000003b0| 70 65 63 74 65 64 22 20 | 2a 20 63 61 6c 63 2d 70 |pected" |* calc-p|
|000003c0| 61 63 6b 2d 73 69 7a 65 | 20 30 20 22 5a 65 72 6f |ack-size| 0 "Zero|
|000003d0| 20 64 69 6d 65 6e 73 69 | 6f 6e 73 20 6e 6f 74 20 | dimensi|ons not |
|000003e0| 61 6c 6c 6f 77 65 64 22 | 20 61 73 73 71 20 28 28 |allowed"| assq ((|
|000003f0| 2d 33 20 2e 20 33 29 20 | 28 2d 31 33 20 2e 20 31 |-3 . 3) |(-13 . 1|
|00000400| 29 20 28 2d 31 34 20 2e | 20 33 29 20 28 2d 31 35 |) (-14 .| 3) (-15|
|00000410| 20 2e 20 36 29 29 20 32 | 5d 20 38 29 29 0a 0a 28 | . 6)) 2|] 8))..(|
|00000420| 64 65 66 75 6e 20 63 61 | 6c 63 2d 70 61 63 6b 2d |defun ca|lc-pack-|
|00000430| 69 74 65 6d 73 20 28 6d | 6f 64 65 20 69 74 65 6d |items (m|ode item|
|00000440| 73 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |s) (byte|-code ".|
|00000450| 3a 83 5c 5c 00 08 41 83 | 54 00 d5 08 41 21 19 0b |:.\\..A.|T...A!..|
|00000460| 47 1a c5 1c c5 1e 06 c5 | 1e 07 0a d6 56 85 48 00 |G.......|....V.H.|
|00000470| d7 09 53 0b 5c 22 16 06 | 0b 16 07 0e 06 41 13 0a |..S.\"..|.....A..|
|00000480| 09 5a 89 12 88 d8 0e 06 | c5 5c 22 88 d9 08 41 0e |.Z......|.\"...A.|
|00000490| 07 5c 22 0c 42 89 14 88 | 82 1a 00 88 d9 08 40 da |.\".B...|......@.|
|000004a0| 0c 21 5c 22 2d 82 59 00 | d9 08 40 0b 5c 22 82 1e |.!\"-.Y.|..@.\"..|
|000004b0| 04 08 d6 59 83 68 00 db | 0b 42 82 1e 04 08 dc 55 |...Y.h..|.B.....U|
|000004c0| 83 d4 00 dd 0b 40 21 85 | 82 00 dd de 0b 38 21 85 |.....@!.|.....8!.|
|000004d0| 82 00 dd df 0b 38 21 83 | ae 00 e0 0b 40 21 85 91 |.....8!.|....@!..|
|000004e0| 00 e0 de 0b 38 21 83 a8 | 00 e1 df 0b 38 21 83 a2 |....8!..|....8!..|
|000004f0| 00 e2 0b 42 82 a5 00 e3 | e4 21 82 ab 00 e3 e5 21 |...B....|.!.....!|
|00000500| 82 d1 00 e6 e7 e7 0e 08 | e8 3d 83 c0 00 e9 0b 40 |........|.=.....@|
|00000510| ea 45 82 c2 00 0b 40 e9 | de 0b 38 eb 45 45 e9 df |.E....@.|..8.EE..|
|00000520| 0b 38 ec 45 45 21 82 1e | 04 08 ed 55 83 08 01 e1 |.8.EE!..|...U....|
|00000530| 0b 40 21 83 e7 00 ee 0b | 42 82 05 01 ef 0b 40 21 |.@!.....|B.....@!|
|00000540| ee 3d 83 f5 00 0b 40 82 | 05 01 dd 0b 40 21 83 02 |.=....@.|....@!..|
|00000550| 01 e3 f0 21 82 05 01 f1 | 0b 42 82 1e 04 08 f2 3e |...!....|.B.....>|
|00000560| 83 49 01 0b 1e 06 0e 06 | 85 1b 01 dd 0e 06 40 21 |.I......|......@!|
|00000570| 85 34 01 f3 0e 06 40 21 | 86 29 01 e3 f4 21 88 0e |.4....@!|.)...!..|
|00000580| 06 41 89 16 06 88 82 11 | 01 88 0e 06 83 40 01 f1 |.A......|.....@..|
|00000590| 0b 42 82 45 01 ee f5 0b | 21 44 29 82 1e 04 ef 0b |.B.E....|!D).....|
|000005a0| 40 21 db 3d 86 59 01 ef | de 0b 38 21 db 3d 83 e8 |@!.=.Y..|..8!.=..|
|000005b0| 01 0b 40 1e 09 ef 0e 09 | 21 db 3d 1e 0a de 0b 38 |..@.....|!.=....8|
|000005c0| 1e 0b ef 0e 0b 21 db 3d | 1e 0c c5 1e 0d 0e 0a 83 |.....!.=|........|
|000005d0| 82 01 0e 09 82 84 01 0e | 0b 47 53 1e 0e 0e 0a 85 |........|.GS.....|
|000005e0| a0 01 0e 0c 85 a0 01 f6 | 0e 0e 0e 0b 47 53 5c 22 |........|....GS\"|
|000005f0| 85 a0 01 e3 f7 21 88 0e | 0e 53 89 16 0e d6 59 85 |.....!..|.S....Y.|
|00000600| dc 01 d9 08 0e 0a 83 bd | 01 0e 09 41 89 16 09 40 |........|...A...@|
|00000610| 82 bf 01 0e 09 0e 0c 83 | ce 01 0e 0b 41 89 16 0b |........|....A...|
|00000620| 40 82 d0 01 0e 0b 44 5c | 22 0e 0d 42 89 16 0d 88 |@.....D\|"..B....|
|00000630| 82 a1 01 88 db da 0e 0d | 21 42 2e 06 82 1e 04 08 |........|!B......|
|00000640| f8 55 83 25 02 e1 0b 40 | 21 85 fa 01 e1 de 0b 38 |.U.%...@|!......8|
|00000650| 21 83 03 02 f9 0b 42 82 | 5c 22 02 fa 0b 40 21 85 |!.....B.|\"...@!.|
|00000660| 0f 02 fa de 0b 38 21 85 | 15 02 e3 fb 21 88 e6 e7 |.....8!.|....!...|
|00000670| 0b 40 e9 de 0b 38 fc 45 | 45 21 82 1e 04 08 fd 55 |.@...8.E|E!.....U|
|00000680| 83 82 02 e1 0b 40 21 85 | 37 02 fe de 0b 38 21 83 |.....@!.|7....8!.|
|00000690| 40 02 ff 0b 42 82 7f 02 | fa 0b 40 21 85 4c 02 fa |@...B...|..@!.L..|
|000006a0| de 0b 38 21 85 52 02 e3 | fb 21 88 e6 e9 0b 40 fe |..8!.R..|.!....@.|
|000006b0| de 0b 38 21 83 68 02 ff | de de 0b 38 45 82 7d 02 |..8!.h..|...8E.}.|
|000006c0| 81 40 00 e9 81 41 00 de | 0b 38 21 ff de 81 42 00 |.@...A..|.8!...B.|
|000006d0| c5 21 45 45 44 45 21 82 | 1e 04 08 81 43 00 55 83 |.!EEDE!.|....C.U.|
|000006e0| cf 02 0b 40 de 0b 38 1e | 0f 1e 09 81 44 00 0e 09 |...@..8.|....D...|
|000006f0| 21 86 a1 02 dd 0e 09 21 | 3f 83 c6 02 fe 0e 0f 21 |!......!|?......!|
|00000700| 86 b0 02 dd 0e 0f 21 3f | 83 be 02 81 45 00 0e 09 |......!?|....E...|
|00000710| 0e 0f 5c 22 82 c3 02 e3 | 81 46 00 21 82 cb 02 e3 |..\"....|.F.!....|
|00000720| 81 47 00 21 2a 82 1e 04 | 08 81 48 00 55 83 28 03 |.G.!*...|..H.U.(.|
|00000730| 0b 40 de 0b 38 1e 11 1e | 10 fe 0e 10 21 85 eb 02 |.@..8...|....!...|
|00000740| fe 0e 11 21 83 0a 03 81 | 49 00 0e 11 21 83 02 03 |...!....|I...!...|
|00000750| 81 4a 00 0e 10 0e 11 5c | 22 82 07 03 e3 81 4b 00 |.J.....\|".....K.|
|00000760| 21 82 24 03 fa 0e 10 21 | 85 15 03 fa 0e 11 21 85 |!.$....!|......!.|
|00000770| 1b 03 e3 fb 21 88 81 4c | 00 0e 10 0e 11 45 2a 82 |....!..L|.....E*.|
|00000780| 1e 04 08 81 4d 00 3e 83 | 7e 03 0b 40 de 0b 38 1e |....M.>.|~..@..8.|
|00000790| 13 1e 12 fe 0e 12 21 86 | 4d 03 0e 12 40 ee 3d 86 |......!.|M...@.=.|
|000007a0| 4d 03 dd 0e 12 21 3f 85 | 64 03 fe 0e 13 21 86 64 |M....!?.|d....!.d|
|000007b0| 03 0e 13 40 ee 3d 86 64 | 03 dd 0e 13 21 3f 83 77 |...@.=.d|....!?.w|
|000007c0| 03 81 4e 00 08 81 4f 00 | 5c 5c 0e 12 0e 13 23 82 |..N...O.|\\....#.|
|000007d0| 7a 03 e3 fb 21 2a 82 1e | 04 08 81 50 00 3d 83 cc |z...!*..|...P.=..|
|000007e0| 03 81 51 00 de 0b 38 21 | 83 98 03 e3 81 52 00 21 |..Q...8!|.....R.!|
|000007f0| 82 c9 03 f3 0b 40 21 85 | a4 03 f3 de 0b 38 21 83 |.....@!.|.....8!.|
|00000800| b1 03 e6 81 53 00 0b 42 | 21 82 c9 03 fa 0b 40 21 |....S..B|!.....@!|
|00000810| 85 bd 03 fa de 0b 38 21 | 85 c3 03 e3 f4 21 88 81 |......8!|.....!..|
|00000820| 54 00 0b 42 82 1e 04 08 | 81 55 00 3e 83 18 04 e1 |T..B....|.U.>....|
|00000830| 0b 40 21 85 e0 03 f3 de | 0b 38 21 83 f3 03 81 56 |.@!.....|.8!....V|
|00000840| 00 81 57 00 0b 40 21 de | 0b 38 5c 22 82 15 04 fa |..W..@!.|.8\"....|
|00000850| 0b 40 21 85 ff 03 fa de | 0b 38 21 85 05 04 e3 f4 |.@!.....|.8!.....|
|00000860| 21 88 e6 81 56 00 81 58 | 00 0b 40 44 de 0b 38 45 |!...V..X|..@D..8E|
|00000870| 21 82 1e 04 e3 81 59 00 | 08 5c 22 87 22 20 5b 6d |!.....Y.|.\"." [m|
|00000880| 6f 64 65 20 73 69 7a 65 | 20 6c 65 6e 20 69 74 65 |ode size| len ite|
|00000890| 6d 73 20 6e 65 77 20 6e | 69 6c 20 70 20 72 6f 77 |ms new n|il p row|
|000008a0| 20 63 61 6c 63 2d 61 6e | 67 6c 65 2d 6d 6f 64 65 | calc-an|gle-mode|
|000008b0| 20 78 20 76 78 20 79 20 | 76 79 20 7a 20 6e 20 73 | x vx y |vy z n s|
|000008c0| 69 67 6d 61 20 61 20 6d | 20 6c 6f 20 68 69 20 74 |igma a m| lo hi t|
|000008d0| 20 63 61 6c 63 2d 70 61 | 63 6b 2d 73 69 7a 65 20 | calc-pa|ck-size |
|000008e0| 30 20 6e 74 68 63 64 72 | 20 73 65 74 63 64 72 20 |0 nthcdr| setcdr |
|000008f0| 63 61 6c 63 2d 70 61 63 | 6b 2d 69 74 65 6d 73 20 |calc-pac|k-items |
|00000900| 6e 72 65 76 65 72 73 65 | 20 76 65 63 20 2d 33 20 |nreverse| vec -3 |
|00000910| 6d 61 74 68 2d 6f 62 6a | 76 65 63 70 20 31 20 32 |math-obj|vecp 1 2|
|00000920| 20 6d 61 74 68 2d 6e 75 | 6d 2d 69 6e 74 65 67 65 | math-nu|m-intege|
|00000930| 72 70 20 6d 61 74 68 2d | 72 65 61 6c 70 20 68 6d |rp math-|realp hm|
|00000940| 73 20 65 72 72 6f 72 20 | 22 53 65 63 6f 6e 64 73 |s error |"Seconds|
|00000950| 20 6d 75 73 74 20 62 65 | 20 72 65 61 6c 22 20 22 | must be| real" "|
|00000960| 48 6f 75 72 73 20 61 6e | 64 20 6d 69 6e 75 74 65 |Hours an|d minute|
|00000970| 73 20 6d 75 73 74 20 62 | 65 20 69 6e 74 65 67 65 |s must b|e intege|
|00000980| 72 73 22 20 6d 61 74 68 | 2d 6e 6f 72 6d 61 6c 69 |rs" math|-normali|
|00000990| 7a 65 20 2b 20 72 61 64 | 20 2a 20 28 68 6d 73 20 |ze + rad| * (hms |
|000009a0| 31 20 30 20 30 29 20 28 | 68 6d 73 20 30 20 31 20 |1 0 0) (|hms 0 1 |
|000009b0| 30 29 20 28 68 6d 73 20 | 30 20 30 20 31 29 20 2d |0) (hms |0 0 1) -|
|000009c0| 31 33 20 64 61 74 65 20 | 63 61 72 2d 73 61 66 65 |13 date |car-safe|
|000009d0| 20 22 44 61 74 65 20 76 | 61 6c 75 65 20 6d 75 73 | "Date v|alue mus|
|000009e0| 74 20 62 65 20 72 65 61 | 6c 22 20 63 61 6c 63 46 |t be rea|l" calcF|
|000009f0| 75 6e 63 2d 64 61 74 65 | 20 28 2d 31 34 20 2d 31 |unc-date| (-14 -1|
|00000a00| 35 29 20 6d 61 74 68 2d | 69 6e 74 65 67 65 72 70 |5) math-|integerp|
|00000a10| 20 22 43 6f 6d 70 6f 6e | 65 6e 74 73 20 6d 75 73 | "Compon|ents mus|
|00000a20| 74 20 62 65 20 69 6e 74 | 65 67 65 72 73 22 20 6d |t be int|egers" m|
|00000a30| 61 74 68 2d 64 74 2d 74 | 6f 2d 64 61 74 65 20 2f |ath-dt-t|o-date /|
|00000a40| 3d 20 22 56 65 63 74 6f | 72 73 20 6d 75 73 74 20 |= "Vecto|rs must |
|00000a50| 62 65 20 74 68 65 20 73 | 61 6d 65 20 6c 65 6e 67 |be the s|ame leng|
|00000a60| 74 68 22 20 2d 31 20 63 | 70 6c 78 20 6d 61 74 68 |th" -1 c|plx math|
|00000a70| 2d 6f 62 6a 65 63 74 70 | 20 22 43 6f 6d 70 6f 6e |-objectp| "Compon|
|00000a80| 65 6e 74 73 20 6d 75 73 | 74 20 62 65 20 72 65 61 |ents mus|t be rea|
|00000a90| 6c 22 20 28 63 70 6c 78 | 20 30 20 31 29 20 2d 32 |l" (cplx| 0 1) -2|
|00000aa0| 20 6d 61 74 68 2d 61 6e | 67 6c 65 70 20 70 6f 6c | math-an|glep pol|
|00000ab0| 61 72 20 63 61 6c 63 46 | 75 6e 63 2d 65 78 70 20 |ar calcF|unc-exp |
|00000ac0| 6d 61 74 68 2d 74 6f 2d | 72 61 64 69 61 6e 73 2d |math-to-|radians-|
|00000ad0| 32 20 6d 61 74 68 2d 71 | 75 61 72 74 65 72 2d 63 |2 math-q|uarter-c|
|00000ae0| 69 72 63 6c 65 20 2d 34 | 20 6d 61 74 68 2d 73 63 |ircle -4| math-sc|
|00000af0| 61 6c 61 72 70 20 6d 61 | 74 68 2d 6d 61 6b 65 2d |alarp ma|th-make-|
|00000b00| 73 64 65 76 20 22 45 72 | 72 6f 72 20 63 6f 6d 70 |sdev "Er|ror comp|
|00000b10| 6f 6e 65 6e 74 20 6d 75 | 73 74 20 62 65 20 72 65 |onent mu|st be re|
|00000b20| 61 6c 22 20 22 4d 65 61 | 6e 20 63 6f 6d 70 6f 6e |al" "Mea|n compon|
|00000b30| 65 6e 74 20 6d 75 73 74 | 20 62 65 20 72 65 61 6c |ent must| be real|
|00000b40| 20 6f 72 20 63 6f 6d 70 | 6c 65 78 22 20 2d 35 20 | or comp|lex" -5 |
|00000b50| 6d 61 74 68 2d 70 6f 73 | 70 20 6d 61 74 68 2d 6d |math-pos|p math-m|
|00000b60| 61 6b 65 2d 6d 6f 64 20 | 22 4d 6f 64 75 6c 75 73 |ake-mod |"Modulus|
|00000b70| 20 6d 75 73 74 20 62 65 | 20 70 6f 73 69 74 69 76 | must be| positiv|
|00000b80| 65 22 20 63 61 6c 63 46 | 75 6e 63 2d 6d 61 6b 65 |e" calcF|unc-make|
|00000b90| 6d 6f 64 20 28 2d 36 20 | 2d 37 20 2d 38 20 2d 39 |mod (-6 |-7 -8 -9|
|00000ba0| 29 20 6d 61 74 68 2d 6d | 61 6b 65 2d 69 6e 74 76 |) math-m|ake-intv|
|00000bb0| 20 39 20 2d 31 30 20 6d | 61 74 68 2d 7a 65 72 6f | 9 -10 m|ath-zero|
|00000bc0| 70 20 22 44 65 6e 6f 6d | 69 6e 61 74 6f 72 20 6d |p "Denom|inator m|
|00000bd0| 75 73 74 20 6e 6f 74 20 | 62 65 20 7a 65 72 6f 22 |ust not |be zero"|
|00000be0| 20 66 72 61 63 20 63 61 | 6c 63 46 75 6e 63 2d 66 | frac ca|lcFunc-f|
|00000bf0| 64 69 76 20 28 2d 31 31 | 20 2d 31 32 29 20 63 61 |div (-11| -12) ca|
|00000c00| 6c 63 46 75 6e 63 2d 73 | 63 66 20 6d 61 74 68 2d |lcFunc-s|cf math-|
|00000c10| 66 6c 6f 61 74 20 63 61 | 6c 63 46 75 6e 63 2d 66 |float ca|lcFunc-f|
|00000c20| 6c 6f 61 74 20 22 49 6e | 76 61 6c 69 64 20 70 61 |loat "In|valid pa|
|00000c30| 63 6b 69 6e 67 20 6d 6f | 64 65 3a 20 25 64 22 5d |cking mo|de: %d"]|
|00000c40| 20 38 38 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 | 88))..(|defun ca|
|00000c50| 6c 63 2d 75 6e 70 61 63 | 6b 20 28 6d 6f 64 65 29 |lc-unpac|k (mode)|
|00000c60| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 50 | (intera|ctive "P|
|00000c70| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |") (byte|-code ".|
|00000c80| 88 c1 c2 21 87 22 20 5b | 6e 69 6c 20 63 61 6c 63 |...!." [|nil calc|
|00000c90| 2d 64 6f 20 28 6c 61 6d | 62 64 61 20 6e 69 6c 20 |-do (lam|bda nil |
|00000ca0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 18 c3 c4 |(byte-co|de "....|
|00000cb0| c5 c6 0a 85 0d 00 c7 0a | 21 c8 20 5c 22 23 29 87 |........|!. \"#).|
|00000cc0| 22 20 5b 63 61 6c 63 2d | 75 6e 70 61 63 6b 2d 77 |" [calc-|unpack-w|
|00000cd0| 69 74 68 2d 74 79 70 65 | 20 74 20 6d 6f 64 65 20 |ith-type| t mode |
|00000ce0| 63 61 6c 63 2d 70 6f 70 | 2d 70 75 73 68 2d 72 65 |calc-pop|-push-re|
|00000cf0| 63 6f 72 64 2d 6c 69 73 | 74 20 31 20 22 75 6e 70 |cord-lis|t 1 "unp|
|00000d00| 6b 22 20 63 61 6c 63 2d | 75 6e 70 61 63 6b 2d 69 |k" calc-|unpack-i|
|00000d10| 74 65 6d 20 70 72 65 66 | 69 78 2d 6e 75 6d 65 72 |tem pref|ix-numer|
|00000d20| 69 63 2d 76 61 6c 75 65 | 20 63 61 6c 63 2d 74 6f |ic-value| calc-to|
|00000d30| 70 5d 20 38 29 29 5d 20 | 32 29 29 0a 0a 28 64 65 |p] 8))] |2))..(de|
|00000d40| 66 75 6e 20 63 61 6c 63 | 2d 75 6e 70 61 63 6b 2d |fun calc|-unpack-|
|00000d50| 74 79 70 65 20 28 69 74 | 65 6d 29 20 28 62 79 74 |type (it|em) (byt|
|00000d60| 65 2d 63 6f 64 65 20 22 | c2 08 21 c3 3d 83 0e 00 |e-code "|..!.=...|
|00000d70| 08 47 53 82 2b 00 c2 08 | 21 c4 3d 83 1e 00 c5 08 |.GS.+...|!.=.....|
|00000d80| 38 c6 5a 82 2b 00 c7 c2 | 08 21 c8 5c 22 41 86 2b |8.Z.+...|.!.\"A.+|
|00000d90| 00 c9 ca 21 87 22 20 5b | 69 74 65 6d 20 74 20 63 |...!." [|item t c|
|00000da0| 61 72 2d 73 61 66 65 20 | 76 65 63 20 69 6e 74 76 |ar-safe |vec intv|
|00000db0| 20 31 20 39 20 61 73 73 | 71 20 28 28 63 70 6c 78 | 1 9 ass|q ((cplx|
|00000dc0| 20 2e 20 2d 31 29 20 28 | 70 6f 6c 61 72 20 2e 20 | . -1) (|polar . |
|00000dd0| 2d 32 29 20 28 68 6d 73 | 20 2e 20 2d 33 29 20 28 |-2) (hms| . -3) (|
|00000de0| 73 64 65 76 20 2e 20 2d | 34 29 20 28 6d 6f 64 20 |sdev . -|4) (mod |
|00000df0| 2e 20 2d 35 29 20 28 66 | 72 61 63 20 2e 20 2d 31 |. -5) (f|rac . -1|
|00000e00| 30 29 20 28 66 6c 6f 61 | 74 20 2e 20 2d 31 31 29 |0) (floa|t . -11)|
|00000e10| 20 28 64 61 74 65 20 2e | 20 2d 31 33 29 29 20 65 | (date .| -13)) e|
|00000e20| 72 72 6f 72 20 22 41 72 | 67 75 6d 65 6e 74 20 6d |rror "Ar|gument m|
|00000e30| 75 73 74 20 62 65 20 61 | 20 63 6f 6d 70 6f 73 69 |ust be a| composi|
|00000e40| 74 65 20 6f 62 6a 65 63 | 74 22 5d 20 36 29 29 0a |te objec|t"] 6)).|
|00000e50| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 75 6e 70 |.(defun |calc-unp|
|00000e60| 61 63 6b 2d 69 74 65 6d | 20 28 6d 6f 64 65 20 69 |ack-item| (mode i|
|00000e70| 74 65 6d 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |tem) (by|te-code |
|00000e80| 22 08 3f 83 32 00 cc 09 | 21 cd 3e 3f 85 11 00 ce |".?.2...|!.>?....|
|00000e90| 09 21 86 19 00 cc 09 21 | cf 3d 85 1f 00 d0 d1 21 |.!.....!|.=.....!|
|00000ea0| 88 09 40 d2 3d 83 2d 00 | 09 41 41 82 2f 00 09 41 |..@.=.-.|.AA./..A|
|00000eb0| 82 b7 02 08 d3 56 83 ba | 00 c3 c3 c3 c3 1e 06 1d |.....V..|........|
|00000ec0| 1c 1a 09 43 89 11 88 08 | d3 56 85 8a 00 d4 09 40 |...C....|.V.....@|
|00000ed0| 21 14 0c 0a 42 12 d5 c3 | 09 40 5c 22 89 15 88 09 |!...B...|.@\"....|
|00000ee0| 41 89 11 85 7f 00 d4 09 | 40 21 0c 55 86 70 00 d0 |A.......|@!.U.p..|
|00000ef0| d6 21 88 d7 0d d5 c3 09 | 40 5c 22 5c 22 89 15 88 |.!......|@\"\"...|
|00000f00| 82 5d 00 88 0d 11 08 53 | 89 10 88 82 46 00 88 0a |.].....S|....F...|
|00000f10| 41 85 98 00 d8 d9 0a 21 | 42 43 89 12 88 0e 07 da |A......!|BC......|
|00000f20| 3d 83 a9 00 0a 40 d8 09 | 42 44 82 b6 00 0e 07 83 |=....@..|BD......|
|00000f30| b5 00 d7 09 0a 5c 22 82 | b6 00 09 2c 82 b7 02 0e |.....\".|...,....|
|00000f40| 07 da 3d 83 d0 00 c3 1e | 07 08 d8 d5 08 09 5c 22 |..=.....|......\"|
|00000f50| 42 44 29 82 b7 02 08 db | 55 83 e9 00 cc 09 21 dc |BD).....|U.....!.|
|00000f60| 3d 83 e3 00 09 41 82 e6 | 00 d0 dd 21 82 b7 02 08 |=....A..|...!....|
|00000f70| de 55 83 02 01 cc 09 21 | df 3d 83 fc 00 09 41 82 |.U.....!|.=....A.|
|00000f80| ff 00 d0 e0 21 82 b7 02 | 08 e1 55 83 20 01 cc 09 |....!...|..U. ...|
|00000f90| 21 df 3d 83 1a 01 e2 e3 | e4 09 38 21 21 82 1d 01 |!.=.....|..8!!...|
|00000fa0| d0 e0 21 82 b7 02 08 e5 | 55 83 4b 01 cc 09 21 df |..!.....|U.K...!.|
|00000fb0| 3d 83 45 01 d7 e2 e4 09 | 38 21 e6 e4 09 38 21 3f |=.E.....|8!...8!?|
|00000fc0| 85 41 01 d3 d3 d3 45 5c | 22 82 48 01 d0 e0 21 82 |.A....E\|".H...!.|
|00000fd0| b7 02 cc 09 21 d8 3d 83 | 92 01 c3 c3 c3 1e 0b 1e |....!.=.|........|
|00000fe0| 0a 1e 09 09 41 89 11 85 | 80 01 d5 08 09 40 5c 22 |....A...|.....@\"|
|00000ff0| 16 0b 0e 0b 40 0e 09 42 | 16 09 e4 0e 0b 38 0e 0a |....@..B|.....8..|
|00001000| 42 89 16 0a 88 82 5c 5c | 01 88 d8 d9 0e 09 21 42 |B.....\\|......!B|
|00001010| d8 d9 0e 0a 21 42 44 2b | 82 b7 02 08 e7 55 83 cd |....!BD+|.....U..|
|00001020| 01 cc 09 21 e8 3d 83 a5 | 01 09 41 82 ca 01 cc 09 |...!.=..|..A.....|
|00001030| 21 e9 3d 83 b4 01 ea 09 | 21 41 82 ca 01 09 3a 3f |!.=.....|!A....:?|
|00001040| 86 be 01 09 40 eb 3e 83 | c7 01 09 d3 44 82 ca 01 |....@.>.|....D...|
|00001050| d0 ec 21 82 b7 02 08 ed | 55 83 f5 01 cc 09 21 ee |..!.....|U.....!.|
|00001060| 3e 86 e5 01 09 3a 3f 86 | e5 01 09 40 ef 3e 83 ef |>....:?.|...@.>..|
|00001070| 01 f0 09 21 41 82 f2 01 | d0 ec 21 82 b7 02 08 f1 |...!A...|..!.....|
|00001080| 55 83 0e 02 cc 09 21 f2 | 3d 83 08 02 09 41 82 0b |U.....!.|=....A..|
|00001090| 02 09 d3 44 82 b7 02 08 | f3 55 83 27 02 cc 09 21 |...D....|.U.'...!|
|000010a0| f4 3d 83 21 02 09 41 82 | 24 02 d0 f5 21 82 b7 02 |.=.!..A.|$...!...|
|000010b0| 08 f6 3e 83 41 02 cc 09 | 21 d2 3d 83 3b 02 09 41 |..>.A...|!.=.;..A|
|000010c0| 41 82 3e 02 09 09 44 82 | b7 02 08 f7 55 83 6d 02 |A.>...D.|....U.m.|
|000010d0| cc 09 21 f8 3d 83 54 02 | 09 41 82 6a 02 09 3a 3f |..!.=.T.|.A.j..:?|
|000010e0| 86 5e 02 09 40 f9 3e 83 | 67 02 09 e4 44 82 6a 02 |.^..@.>.|g...D.j.|
|000010f0| d0 fa 21 82 b7 02 08 fb | 55 83 8d 02 cc 09 21 fc |..!.....|U.....!.|
|00001100| 3d 83 87 02 e4 09 38 fd | fe 09 38 21 44 82 8a 02 |=.....8.|..8!D...|
|00001110| d0 ff 21 82 b7 02 08 81 | 40 00 55 83 b1 02 cc 09 |..!.....|@.U.....|
|00001120| 21 fc 3d 83 ab 02 81 41 | 00 09 21 81 42 00 09 21 |!.=....A|..!.B..!|
|00001130| 44 82 ae 02 d0 ff 21 82 | b7 02 d0 81 43 00 08 5c |D.....!.|....C..\|
|00001140| 22 87 22 20 5b 6d 6f 64 | 65 20 69 74 65 6d 20 64 |"." [mod|e item d|
|00001150| 69 6d 73 20 6e 69 6c 20 | 74 79 70 65 20 6e 65 77 |ims nil |type new|
|00001160| 20 72 6f 77 20 63 61 6c | 63 2d 75 6e 70 61 63 6b | row cal|c-unpack|
|00001170| 2d 77 69 74 68 2d 74 79 | 70 65 20 74 20 78 20 79 |-with-ty|pe t x y|
|00001180| 20 72 65 73 20 63 61 72 | 2d 73 61 66 65 20 28 66 | res car|-safe (f|
|00001190| 72 61 63 20 66 6c 6f 61 | 74 20 63 70 6c 78 20 70 |rac floa|t cplx p|
|000011a0| 6f 6c 61 72 20 76 65 63 | 20 68 6d 73 20 64 61 74 |olar vec| hms dat|
|000011b0| 65 20 73 64 65 76 20 6d | 6f 64 20 69 6e 74 76 29 |e sdev m|od intv)|
|000011c0| 20 6d 61 74 68 2d 6f 62 | 6a 76 65 63 70 20 76 61 | math-ob|jvecp va|
|000011d0| 72 20 65 72 72 6f 72 20 | 22 41 72 67 75 6d 65 6e |r error |"Argumen|
|000011e0| 74 20 6d 75 73 74 20 62 | 65 20 61 20 63 6f 6d 70 |t must b|e a comp|
|000011f0| 6f 73 69 74 65 20 6f 62 | 6a 65 63 74 20 6f 72 20 |osite ob|ject or |
|00001200| 66 75 6e 63 74 69 6f 6e | 20 63 61 6c 6c 22 20 69 |function| call" i|
|00001210| 6e 74 76 20 30 20 63 61 | 6c 63 2d 75 6e 70 61 63 |ntv 0 ca|lc-unpac|
|00001220| 6b 2d 74 79 70 65 20 63 | 61 6c 63 2d 75 6e 70 61 |k-type c|alc-unpa|
|00001230| 63 6b 2d 69 74 65 6d 20 | 22 49 6e 63 6f 6e 73 69 |ck-item |"Inconsi|
|00001240| 73 74 65 6e 74 20 74 79 | 70 65 73 20 6f 72 20 64 |stent ty|pes or d|
|00001250| 69 6d 65 6e 73 69 6f 6e | 73 20 69 6e 20 76 65 63 |imension|s in vec|
|00001260| 74 6f 72 20 65 6c 65 6d | 65 6e 74 73 22 20 61 70 |tor elem|ents" ap|
|00001270| 70 65 6e 64 20 76 65 63 | 20 6e 72 65 76 65 72 73 |pend vec| nrevers|
|00001280| 65 20 70 61 69 72 20 2d | 33 20 68 6d 73 20 22 41 |e pair -|3 hms "A|
|00001290| 72 67 75 6d 65 6e 74 20 | 6d 75 73 74 20 62 65 20 |rgument |must be |
|000012a0| 61 6e 20 48 4d 53 20 66 | 6f 72 6d 22 20 2d 31 33 |an HMS f|orm" -13|
|000012b0| 20 64 61 74 65 20 22 41 | 72 67 75 6d 65 6e 74 20 | date "A|rgument |
|000012c0| 6d 75 73 74 20 62 65 20 | 61 20 64 61 74 65 20 66 |must be |a date f|
|000012d0| 6f 72 6d 22 20 2d 31 34 | 20 6d 61 74 68 2d 64 61 |orm" -14| math-da|
|000012e0| 74 65 2d 74 6f 2d 64 74 | 20 6d 61 74 68 2d 66 6c |te-to-dt| math-fl|
|000012f0| 6f 6f 72 20 31 20 2d 31 | 35 20 6d 61 74 68 2d 69 |oor 1 -1|5 math-i|
|00001300| 6e 74 65 67 65 72 70 20 | 2d 31 20 63 70 6c 78 20 |ntegerp |-1 cplx |
|00001310| 70 6f 6c 61 72 20 6d 61 | 74 68 2d 63 6f 6d 70 6c |polar ma|th-compl|
|00001320| 65 78 20 28 62 69 67 70 | 6f 73 20 62 69 67 6e 65 |ex (bigp|os bigne|
|00001330| 67 20 66 72 61 63 20 66 | 6c 6f 61 74 29 20 22 41 |g frac f|loat) "A|
|00001340| 72 67 75 6d 65 6e 74 20 | 6d 75 73 74 20 62 65 20 |rgument |must be |
|00001350| 61 20 63 6f 6d 70 6c 65 | 78 20 6e 75 6d 62 65 72 |a comple|x number|
|00001360| 22 20 2d 32 20 28 63 70 | 6c 78 20 70 6f 6c 61 72 |" -2 (cp|lx polar|
|00001370| 29 20 28 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |) (bigpo|s bigneg|
|00001380| 20 66 72 61 63 20 66 6c | 6f 61 74 29 20 6d 61 74 | frac fl|oat) mat|
|00001390| 68 2d 70 6f 6c 61 72 20 | 2d 34 20 73 64 65 76 20 |h-polar |-4 sdev |
|000013a0| 2d 35 20 6d 6f 64 20 22 | 41 72 67 75 6d 65 6e 74 |-5 mod "|Argument|
|000013b0| 20 6d 75 73 74 20 62 65 | 20 61 20 6d 6f 64 75 6c | must be| a modul|
|000013c0| 6f 20 66 6f 72 6d 22 20 | 28 2d 36 20 2d 37 20 2d |o form" |(-6 -7 -|
|000013d0| 38 20 2d 39 29 20 2d 31 | 30 20 66 72 61 63 20 28 |8 -9) -1|0 frac (|
|000013e0| 62 69 67 70 6f 73 20 62 | 69 67 6e 65 67 29 20 22 |bigpos b|igneg) "|
|000013f0| 41 72 67 75 6d 65 6e 74 | 20 6d 75 73 74 20 62 65 |Argument| must be|
|00001400| 20 61 20 72 61 74 69 6f | 6e 61 6c 20 6e 75 6d 62 | a ratio|nal numb|
|00001410| 65 72 22 20 2d 31 31 20 | 66 6c 6f 61 74 20 6d 61 |er" -11 |float ma|
|00001420| 74 68 2d 6e 6f 72 6d 61 | 6c 69 7a 65 20 32 20 22 |th-norma|lize 2 "|
|00001430| 45 78 70 65 63 74 65 64 | 20 61 20 66 6c 6f 61 74 |Expected| a float|
|00001440| 69 6e 67 2d 70 6f 69 6e | 74 20 6e 75 6d 62 65 72 |ing-poin|t number|
|00001450| 22 20 2d 31 32 20 63 61 | 6c 63 46 75 6e 63 2d 6d |" -12 ca|lcFunc-m|
|00001460| 61 6e 74 20 63 61 6c 63 | 46 75 6e 63 2d 78 70 6f |ant calc|Func-xpo|
|00001470| 6e 20 22 49 6e 76 61 6c | 69 64 20 75 6e 70 61 63 |n "Inval|id unpac|
|00001480| 6b 69 6e 67 20 6d 6f 64 | 65 3a 20 25 64 22 5d 20 |king mod|e: %d"] |
|00001490| 35 33 29 29 0a 0a 28 73 | 65 74 71 20 63 61 6c 63 |53))..(s|etq calc|
|000014a0| 2d 75 6e 70 61 63 6b 2d | 77 69 74 68 2d 74 79 70 |-unpack-|with-typ|
|000014b0| 65 20 6e 69 6c 29 0a 0a | 28 64 65 66 75 6e 20 63 |e nil)..|(defun c|
|000014c0| 61 6c 63 2d 64 69 61 67 | 20 28 6e 29 20 28 69 6e |alc-diag| (n) (in|
|000014d0| 74 65 72 61 63 74 69 76 | 65 20 22 50 22 29 20 28 |teractiv|e "P") (|
|000014e0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 88 c1 c2 21 |byte-cod|e "....!|
|000014f0| 87 22 20 5b 6e 69 6c 20 | 63 61 6c 63 2d 64 6f 20 |." [nil |calc-do |
|00001500| 28 6c 61 6d 62 64 61 20 | 6e 69 6c 20 28 62 79 74 |(lambda |nil (byt|
|00001510| 65 2d 63 6f 64 65 20 22 | c1 c2 c3 08 83 12 00 c4 |e-code "|........|
|00001520| c5 c2 21 c6 08 21 45 82 | 17 00 c4 c5 c2 21 44 23 |..!..!E.|.....!D#|
|00001530| 87 22 20 5b 6e 20 63 61 | 6c 63 2d 65 6e 74 65 72 |." [n ca|lc-enter|
|00001540| 2d 72 65 73 75 6c 74 20 | 31 20 22 64 69 61 67 22 |-result |1 "diag"|
|00001550| 20 63 61 6c 63 46 75 6e | 63 2d 64 69 61 67 20 63 | calcFun|c-diag c|
|00001560| 61 6c 63 2d 74 6f 70 2d | 6e 20 70 72 65 66 69 78 |alc-top-|n prefix|
|00001570| 2d 6e 75 6d 65 72 69 63 | 2d 76 61 6c 75 65 5d 20 |-numeric|-value] |
|00001580| 38 29 29 5d 20 32 29 29 | 0a 0a 28 64 65 66 75 6e |8))] 2))|..(defun|
|00001590| 20 63 61 6c 63 2d 69 64 | 65 6e 74 20 28 6e 29 20 | calc-id|ent (n) |
|000015a0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 4e 44 |(interac|tive "ND|
|000015b0| 69 6d 65 6e 73 69 6f 6e | 20 6f 66 20 69 64 65 6e |imension| of iden|
|000015c0| 74 69 74 79 20 6d 61 74 | 72 69 78 20 3d 20 22 29 |tity mat|rix = ")|
|000015d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c1 | (byte-c|ode "...|
|000015e0| c2 21 87 22 20 5b 6e 69 | 6c 20 63 61 6c 63 2d 64 |.!." [ni|l calc-d|
|000015f0| 6f 20 28 6c 61 6d 62 64 | 61 20 6e 69 6c 20 28 62 |o (lambd|a nil (b|
|00001600| 79 74 65 2d 63 6f 64 65 | 20 22 c1 c2 c3 08 c2 3d |yte-code| ".....=|
|00001610| 83 0d 00 c4 82 13 00 c5 | c6 c7 08 21 45 23 87 22 |........|...!E#."|
|00001620| 20 5b 6e 20 63 61 6c 63 | 2d 65 6e 74 65 72 2d 72 | [n calc|-enter-r|
|00001630| 65 73 75 6c 74 20 30 20 | 22 69 64 6e 22 20 28 63 |esult 0 |"idn" (c|
|00001640| 61 6c 63 46 75 6e 63 2d | 69 64 6e 20 31 29 20 63 |alcFunc-|idn 1) c|
|00001650| 61 6c 63 46 75 6e 63 2d | 69 64 6e 20 31 20 70 72 |alcFunc-|idn 1 pr|
|00001660| 65 66 69 78 2d 6e 75 6d | 65 72 69 63 2d 76 61 6c |efix-num|eric-val|
|00001670| 75 65 5d 20 37 29 29 5d | 20 32 29 29 0a 0a 28 64 |ue] 7))]| 2))..(d|
|00001680| 65 66 75 6e 20 63 61 6c | 63 2d 69 6e 64 65 78 20 |efun cal|c-index |
|00001690| 28 6e 20 26 6f 70 74 69 | 6f 6e 61 6c 20 73 74 61 |(n &opti|onal sta|
|000016a0| 63 6b 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |ck) (int|eractive|
|000016b0| 20 22 4e 53 69 7a 65 20 | 6f 66 20 76 65 63 74 6f | "NSize |of vecto|
|000016c0| 72 20 3d 20 0a 50 22 29 | 20 28 62 79 74 65 2d 63 |r = .P")| (byte-c|
|000016d0| 6f 64 65 20 22 c0 88 c1 | c2 21 87 22 20 5b 6e 69 |ode "...|.!." [ni|
|000016e0| 6c 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |l calc-d|o (lambd|
|000016f0| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|00001700| 20 22 08 3a 83 11 00 c2 | c3 c4 c5 c6 c3 21 42 23 | ".:....|.....!B#|
|00001710| 82 1a 00 c2 c7 c4 c5 c8 | 09 21 44 23 87 22 20 5b |........|.!D#." [|
|00001720| 73 74 61 63 6b 20 6e 20 | 63 61 6c 63 2d 65 6e 74 |stack n |calc-ent|
|00001730| 65 72 2d 72 65 73 75 6c | 74 20 33 20 22 69 6e 64 |er-resul|t 3 "ind|
|00001740| 78 22 20 63 61 6c 63 46 | 75 6e 63 2d 69 6e 64 65 |x" calcF|unc-inde|
|00001750| 78 20 63 61 6c 63 2d 74 | 6f 70 2d 6c 69 73 74 2d |x calc-t|op-list-|
|00001760| 6e 20 30 20 70 72 65 66 | 69 78 2d 6e 75 6d 65 72 |n 0 pref|ix-numer|
|00001770| 69 63 2d 76 61 6c 75 65 | 5d 20 38 29 29 5d 20 32 |ic-value|] 8))] 2|
|00001780| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|00001790| 62 75 69 6c 64 2d 76 65 | 63 74 6f 72 20 28 6e 29 |build-ve|ctor (n)|
|000017a0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 4e | (intera|ctive "N|
|000017b0| 53 69 7a 65 20 6f 66 20 | 76 65 63 74 6f 72 20 3d |Size of |vector =|
|000017c0| 20 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | ") (byt|e-code "|
|000017d0| c0 88 c1 c2 21 87 22 20 | 5b 6e 69 6c 20 63 61 6c |....!." |[nil cal|
|000017e0| 63 2d 64 6f 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |c-do (la|mbda nil|
|000017f0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 c2 c3 | (byte-c|ode "...|
|00001800| c4 c5 c2 21 c6 08 21 45 | 23 87 22 20 5b 6e 20 63 |...!..!E|#." [n c|
|00001810| 61 6c 63 2d 65 6e 74 65 | 72 2d 72 65 73 75 6c 74 |alc-ente|r-result|
|00001820| 20 31 20 22 62 6c 64 76 | 22 20 63 61 6c 63 46 75 | 1 "bldv|" calcFu|
|00001830| 6e 63 2d 63 76 65 63 20 | 63 61 6c 63 2d 74 6f 70 |nc-cvec |calc-top|
|00001840| 2d 6e 20 70 72 65 66 69 | 78 2d 6e 75 6d 65 72 69 |-n prefi|x-numeri|
|00001850| 63 2d 76 61 6c 75 65 5d | 20 38 29 29 5d 20 32 29 |c-value]| 8))] 2)|
|00001860| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 63 |)..(defu|n calc-c|
|00001870| 6f 6e 73 20 28 61 72 67 | 29 20 28 69 6e 74 65 72 |ons (arg|) (inter|
|00001880| 61 63 74 69 76 65 20 22 | 50 22 29 20 28 62 79 74 |active "|P") (byt|
|00001890| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 21 87 22 20 |e-code "|....!." |
|000018a0| 5b 6e 69 6c 20 63 61 6c | 63 2d 64 6f 20 28 6c 61 |[nil cal|c-do (la|
|000018b0| 6d 62 64 61 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |mbda nil| (byte-c|
|000018c0| 6f 64 65 20 22 c1 20 83 | 0d 00 c2 c3 c4 08 23 82 |ode ". .|......#.|
|000018d0| 12 00 c2 c5 c6 08 23 87 | 22 20 5b 61 72 67 20 63 |......#.|" [arg c|
|000018e0| 61 6c 63 2d 69 73 2d 68 | 79 70 65 72 62 6f 6c 69 |alc-is-h|yperboli|
|000018f0| 63 20 63 61 6c 63 2d 62 | 69 6e 61 72 79 2d 6f 70 |c calc-b|inary-op|
|00001900| 20 22 72 63 6e 73 22 20 | 63 61 6c 63 46 75 6e 63 | "rcns" |calcFunc|
|00001910| 2d 72 63 6f 6e 73 20 22 | 63 6f 6e 73 22 20 63 61 |-rcons "|cons" ca|
|00001920| 6c 63 46 75 6e 63 2d 63 | 6f 6e 73 5d 20 36 29 29 |lcFunc-c|ons] 6))|
|00001930| 5d 20 32 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 2))..(|defun ca|
|00001940| 6c 63 2d 68 65 61 64 20 | 28 61 72 67 29 20 28 69 |lc-head |(arg) (i|
|00001950| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|00001960| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|00001970| 21 87 22 20 5b 6e 69 6c | 20 63 61 6c 63 2d 64 6f |!." [nil| calc-do|
|00001980| 20 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 62 79 | (lambda| nil (by|
|00001990| 74 65 2d 63 6f 64 65 20 | 22 c1 20 83 1a 00 c2 20 |te-code |". .... |
|000019a0| 83 12 00 c3 c4 c5 08 23 | 82 17 00 c3 c6 c7 08 23 |.......#|.......#|
|000019b0| 82 2c 00 c2 20 83 27 00 | c3 c8 c9 08 23 82 2c 00 |.,.. .'.|....#.,.|
|000019c0| c3 ca cb 08 23 87 22 20 | 5b 61 72 67 20 63 61 6c |....#." |[arg cal|
|000019d0| 63 2d 69 73 2d 69 6e 76 | 65 72 73 65 20 63 61 6c |c-is-inv|erse cal|
|000019e0| 63 2d 69 73 2d 68 79 70 | 65 72 62 6f 6c 69 63 20 |c-is-hyp|erbolic |
|000019f0| 63 61 6c 63 2d 75 6e 61 | 72 79 2d 6f 70 20 22 72 |calc-una|ry-op "r|
|00001a00| 74 61 69 22 20 63 61 6c | 63 46 75 6e 63 2d 72 74 |tai" cal|cFunc-rt|
|00001a10| 61 69 6c 20 22 74 61 69 | 6c 22 20 63 61 6c 63 46 |ail "tai|l" calcF|
|00001a20| 75 6e 63 2d 74 61 69 6c | 20 22 72 68 65 64 22 20 |unc-tail| "rhed" |
|00001a30| 63 61 6c 63 46 75 6e 63 | 2d 72 68 65 61 64 20 22 |calcFunc|-rhead "|
|00001a40| 68 65 61 64 22 20 63 61 | 6c 63 46 75 6e 63 2d 68 |head" ca|lcFunc-h|
|00001a50| 65 61 64 5d 20 31 30 29 | 29 5d 20 32 29 29 0a 0a |ead] 10)|)] 2))..|
|00001a60| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 74 61 69 6c |(defun c|alc-tail|
|00001a70| 20 28 61 72 67 29 20 28 | 69 6e 74 65 72 61 63 74 | (arg) (|interact|
|00001a80| 69 76 65 20 22 50 22 29 | 20 28 62 79 74 65 2d 63 |ive "P")| (byte-c|
|00001a90| 6f 64 65 20 22 c1 88 c2 | 20 88 c3 08 21 87 22 20 |ode "...| ...!." |
|00001aa0| 5b 61 72 67 20 6e 69 6c | 20 63 61 6c 63 2d 69 6e |[arg nil| calc-in|
|00001ab0| 76 65 72 74 2d 66 75 6e | 63 20 63 61 6c 63 2d 68 |vert-fun|c calc-h|
|00001ac0| 65 61 64 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |ead] 3))|..(defun|
|00001ad0| 20 63 61 6c 63 2d 76 6c | 65 6e 67 74 68 20 28 61 | calc-vl|ength (a|
|00001ae0| 72 67 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |rg) (int|eractive|
|00001af0| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|00001b00| 20 22 c0 88 c1 c2 21 87 | 22 20 5b 6e 69 6c 20 63 | "....!.|" [nil c|
|00001b10| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|00001b20| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |il (byte|-code ".|
|00001b30| 20 83 0d 00 c2 c3 c4 08 | 23 82 12 00 c2 c5 c6 08 | .......|#.......|
|00001b40| 23 87 22 20 5b 61 72 67 | 20 63 61 6c 63 2d 69 73 |#." [arg| calc-is|
|00001b50| 2d 68 79 70 65 72 62 6f | 6c 69 63 20 63 61 6c 63 |-hyperbo|lic calc|
|00001b60| 2d 75 6e 61 72 79 2d 6f | 70 20 22 64 69 6d 73 22 |-unary-o|p "dims"|
|00001b70| 20 63 61 6c 63 46 75 6e | 63 2d 6d 64 69 6d 73 20 | calcFun|c-mdims |
|00001b80| 22 6c 65 6e 22 20 63 61 | 6c 63 46 75 6e 63 2d 76 |"len" ca|lcFunc-v|
|00001b90| 6c 65 6e 5d 20 36 29 29 | 5d 20 32 29 29 0a 0a 28 |len] 6))|] 2))..(|
|00001ba0| 64 65 66 75 6e 20 63 61 | 6c 63 2d 61 72 72 61 6e |defun ca|lc-arran|
|00001bb0| 67 65 2d 76 65 63 74 6f | 72 20 28 6e 29 20 28 69 |ge-vecto|r (n) (i|
|00001bc0| 6e 74 65 72 61 63 74 69 | 76 65 20 22 4e 4e 75 6d |nteracti|ve "NNum|
|00001bd0| 62 65 72 20 6f 66 20 63 | 6f 6c 75 6d 6e 73 20 3d |ber of c|olumns =|
|00001be0| 20 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | ") (byt|e-code "|
|00001bf0| c0 88 c1 c2 21 87 22 20 | 5b 6e 69 6c 20 63 61 6c |....!." |[nil cal|
|00001c00| 63 2d 64 6f 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |c-do (la|mbda nil|
|00001c10| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 c2 c3 | (byte-c|ode "...|
|00001c20| c4 c5 c2 21 c6 08 21 45 | 23 87 22 20 5b 6e 20 63 |...!..!E|#." [n c|
|00001c30| 61 6c 63 2d 65 6e 74 65 | 72 2d 72 65 73 75 6c 74 |alc-ente|r-result|
|00001c40| 20 31 20 22 61 72 6e 67 | 22 20 63 61 6c 63 46 75 | 1 "arng|" calcFu|
|00001c50| 6e 63 2d 61 72 72 61 6e | 67 65 20 63 61 6c 63 2d |nc-arran|ge calc-|
|00001c60| 74 6f 70 2d 6e 20 70 72 | 65 66 69 78 2d 6e 75 6d |top-n pr|efix-num|
|00001c70| 65 72 69 63 2d 76 61 6c | 75 65 5d 20 38 29 29 5d |eric-val|ue] 8))]|
|00001c80| 20 32 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 2))..(d|efun cal|
|00001c90| 63 2d 76 65 63 74 6f 72 | 2d 66 69 6e 64 20 28 61 |c-vector|-find (a|
|00001ca0| 72 67 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |rg) (int|eractive|
|00001cb0| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|00001cc0| 20 22 c0 88 c1 c2 21 87 | 22 20 5b 6e 69 6c 20 63 | "....!.|" [nil c|
|00001cd0| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|00001ce0| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |il (byte|-code ".|
|00001cf0| c3 c4 21 42 18 c5 c4 c6 | 09 83 17 00 c7 08 c8 09 |..!B....|........|
|00001d00| 21 43 5c 22 82 18 00 08 | 23 29 87 22 20 5b 66 75 |!C\"....|#)." [fu|
|00001d10| 6e 63 20 61 72 67 20 63 | 61 6c 63 46 75 6e 63 2d |nc arg c|alcFunc-|
|00001d20| 66 69 6e 64 20 63 61 6c | 63 2d 74 6f 70 2d 6c 69 |find cal|c-top-li|
|00001d30| 73 74 2d 6e 20 32 20 63 | 61 6c 63 2d 65 6e 74 65 |st-n 2 c|alc-ente|
|00001d40| 72 2d 72 65 73 75 6c 74 | 20 22 66 69 6e 64 22 20 |r-result| "find" |
|00001d50| 61 70 70 65 6e 64 20 70 | 72 65 66 69 78 2d 6e 75 |append p|refix-nu|
|00001d60| 6d 65 72 69 63 2d 76 61 | 6c 75 65 5d 20 38 29 29 |meric-va|lue] 8))|
|00001d70| 5d 20 32 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 2))..(|defun ca|
|00001d80| 6c 63 2d 73 75 62 76 65 | 63 74 6f 72 20 6e 69 6c |lc-subve|ctor nil|
|00001d90| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|00001da0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 88 c1 c2 21 |byte-cod|e "....!|
|00001db0| 87 22 20 5b 6e 69 6c 20 | 63 61 6c 63 2d 64 6f 20 |." [nil |calc-do |
|00001dc0| 28 6c 61 6d 62 64 61 20 | 6e 69 6c 20 28 62 79 74 |(lambda |nil (byt|
|00001dd0| 65 2d 63 6f 64 65 20 22 | c0 20 83 11 00 c1 c2 c3 |e-code "|. ......|
|00001de0| c4 c5 c2 21 42 23 82 1a | 00 c1 c2 c6 c7 c5 c2 21 |...!B#..|.......!|
|00001df0| 42 23 87 22 20 5b 63 61 | 6c 63 2d 69 73 2d 69 6e |B#." [ca|lc-is-in|
|00001e00| 76 65 72 73 65 20 63 61 | 6c 63 2d 65 6e 74 65 72 |verse ca|lc-enter|
|00001e10| 2d 72 65 73 75 6c 74 20 | 33 20 22 72 73 76 63 22 |-result |3 "rsvc"|
|00001e20| 20 63 61 6c 63 46 75 6e | 63 2d 72 73 75 62 76 65 | calcFun|c-rsubve|
|00001e30| 63 20 63 61 6c 63 2d 74 | 6f 70 2d 6c 69 73 74 2d |c calc-t|op-list-|
|00001e40| 6e 20 22 73 76 65 63 22 | 20 63 61 6c 63 46 75 6e |n "svec"| calcFun|
|00001e50| 63 2d 73 75 62 76 65 63 | 5d 20 39 29 29 5d 20 32 |c-subvec|] 9))] 2|
|00001e60| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|00001e70| 72 65 76 65 72 73 65 2d | 76 65 63 74 6f 72 20 28 |reverse-|vector (|
|00001e80| 61 72 67 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |arg) (in|teractiv|
|00001e90| 65 20 22 50 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "P") (|byte-cod|
|00001ea0| 65 20 22 c0 88 c1 c2 21 | 87 22 20 5b 6e 69 6c 20 |e "....!|." [nil |
|00001eb0| 63 61 6c 63 2d 64 6f 20 | 28 6c 61 6d 62 64 61 20 |calc-do |(lambda |
|00001ec0| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|00001ed0| c1 c2 c3 08 23 87 22 20 | 5b 61 72 67 20 63 61 6c |....#." |[arg cal|
|00001ee0| 63 2d 75 6e 61 72 79 2d | 6f 70 20 22 72 65 76 22 |c-unary-|op "rev"|
|00001ef0| 20 63 61 6c 63 46 75 6e | 63 2d 72 65 76 5d 20 34 | calcFun|c-rev] 4|
|00001f00| 29 29 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |))] 2)).|.(defun |
|00001f10| 63 61 6c 63 2d 6d 61 73 | 6b 2d 76 65 63 74 6f 72 |calc-mas|k-vector|
|00001f20| 20 28 61 72 67 29 20 28 | 69 6e 74 65 72 61 63 74 | (arg) (|interact|
|00001f30| 69 76 65 20 22 50 22 29 | 20 28 62 79 74 65 2d 63 |ive "P")| (byte-c|
|00001f40| 6f 64 65 20 22 c0 88 c1 | c2 21 87 22 20 5b 6e 69 |ode "...|.!." [ni|
|00001f50| 6c 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |l calc-d|o (lambd|
|00001f60| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|00001f70| 20 22 c1 c2 c3 08 23 87 | 22 20 5b 61 72 67 20 63 | "....#.|" [arg c|
|00001f80| 61 6c 63 2d 62 69 6e 61 | 72 79 2d 6f 70 20 22 76 |alc-bina|ry-op "v|
|00001f90| 6d 73 6b 22 20 63 61 6c | 63 46 75 6e 63 2d 76 6d |msk" cal|cFunc-vm|
|00001fa0| 61 73 6b 5d 20 34 29 29 | 5d 20 32 29 29 0a 0a 28 |ask] 4))|] 2))..(|
|00001fb0| 64 65 66 75 6e 20 63 61 | 6c 63 2d 65 78 70 61 6e |defun ca|lc-expan|
|00001fc0| 64 2d 76 65 63 74 6f 72 | 20 28 61 72 67 29 20 28 |d-vector| (arg) (|
|00001fd0| 69 6e 74 65 72 61 63 74 | 69 76 65 20 22 50 22 29 |interact|ive "P")|
|00001fe0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c1 | (byte-c|ode "...|
|00001ff0| c2 21 87 22 20 5b 6e 69 | 6c 20 63 61 6c 63 2d 64 |.!." [ni|l calc-d|
|00002000| 6f 20 28 6c 61 6d 62 64 | 61 20 6e 69 6c 20 28 62 |o (lambd|a nil (b|
|00002010| 79 74 65 2d 63 6f 64 65 | 20 22 c1 20 83 11 00 c2 |yte-code| ". ....|
|00002020| c3 c4 c5 c6 c3 21 42 23 | 82 16 00 c7 c4 c5 08 23 |.....!B#|.......#|
|00002030| 87 22 20 5b 61 72 67 20 | 63 61 6c 63 2d 69 73 2d |." [arg |calc-is-|
|00002040| 68 79 70 65 72 62 6f 6c | 69 63 20 63 61 6c 63 2d |hyperbol|ic calc-|
|00002050| 65 6e 74 65 72 2d 72 65 | 73 75 6c 74 20 33 20 22 |enter-re|sult 3 "|
|00002060| 76 65 78 70 22 20 63 61 | 6c 63 46 75 6e 63 2d 76 |vexp" ca|lcFunc-v|
|00002070| 65 78 70 20 63 61 6c 63 | 2d 74 6f 70 2d 6c 69 73 |exp calc|-top-lis|
|00002080| 74 2d 6e 20 63 61 6c 63 | 2d 62 69 6e 61 72 79 2d |t-n calc|-binary-|
|00002090| 6f 70 5d 20 37 29 29 5d | 20 32 29 29 0a 0a 28 64 |op] 7))]| 2))..(d|
|000020a0| 65 66 75 6e 20 63 61 6c | 63 2d 73 6f 72 74 20 6e |efun cal|c-sort n|
|000020b0| 69 6c 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |il (inte|ractive)|
|000020c0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c1 | (byte-c|ode "...|
|000020d0| c2 c3 5c 22 87 22 20 5b | 6e 69 6c 20 63 61 6c 63 |..\"." [|nil calc|
|000020e0| 2d 64 6f 20 28 6c 61 6d | 62 64 61 20 6e 69 6c 20 |-do (lam|bda nil |
|000020f0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 20 83 11 |(byte-co|de ". ..|
|00002100| 00 c1 c2 c3 c4 c5 c2 21 | 44 23 82 1a 00 c1 c2 c6 |.......!|D#......|
|00002110| c7 c5 c2 21 44 23 87 22 | 20 5b 63 61 6c 63 2d 69 |...!D#."| [calc-i|
|00002120| 73 2d 69 6e 76 65 72 73 | 65 20 63 61 6c 63 2d 65 |s-invers|e calc-e|
|00002130| 6e 74 65 72 2d 72 65 73 | 75 6c 74 20 31 20 22 72 |nter-res|ult 1 "r|
|00002140| 73 72 74 22 20 63 61 6c | 63 46 75 6e 63 2d 72 73 |srt" cal|cFunc-rs|
|00002150| 6f 72 74 20 63 61 6c 63 | 2d 74 6f 70 2d 6e 20 22 |ort calc|-top-n "|
|00002160| 73 6f 72 74 22 20 63 61 | 6c 63 46 75 6e 63 2d 73 |sort" ca|lcFunc-s|
|00002170| 6f 72 74 5d 20 39 29 29 | 20 38 33 37 39 5d 20 33 |ort] 9))| 8379] 3|
|00002180| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|00002190| 67 72 61 64 65 20 6e 69 | 6c 20 28 69 6e 74 65 72 |grade ni|l (inter|
|000021a0| 61 63 74 69 76 65 29 20 | 28 62 79 74 65 2d 63 6f |active) |(byte-co|
|000021b0| 64 65 20 22 c0 88 c1 c2 | c3 5c 22 87 22 20 5b 6e |de "....|.\"." [n|
|000021c0| 69 6c 20 63 61 6c 63 2d | 64 6f 20 28 6c 61 6d 62 |il calc-|do (lamb|
|000021d0| 64 61 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |da nil (|byte-cod|
|000021e0| 65 20 22 c0 20 83 11 00 | c1 c2 c3 c4 c5 c2 21 44 |e ". ...|......!D|
|000021f0| 23 82 1a 00 c1 c2 c6 c7 | c5 c2 21 44 23 87 22 20 |#.......|..!D#." |
|00002200| 5b 63 61 6c 63 2d 69 73 | 2d 69 6e 76 65 72 73 65 |[calc-is|-inverse|
|00002210| 20 63 61 6c 63 2d 65 6e | 74 65 72 2d 72 65 73 75 | calc-en|ter-resu|
|00002220| 6c 74 20 31 20 22 72 67 | 72 64 22 20 63 61 6c 63 |lt 1 "rg|rd" calc|
|00002230| 46 75 6e 63 2d 72 67 72 | 61 64 65 20 63 61 6c 63 |Func-rgr|ade calc|
|00002240| 2d 74 6f 70 2d 6e 20 22 | 67 72 61 64 22 20 63 61 |-top-n "|grad" ca|
|00002250| 6c 63 46 75 6e 63 2d 67 | 72 61 64 65 5d 20 39 29 |lcFunc-g|rade] 9)|
|00002260| 29 20 38 36 30 39 5d 20 | 33 29 29 0a 0a 28 64 65 |) 8609] |3))..(de|
|00002270| 66 75 6e 20 63 61 6c 63 | 2d 68 69 73 74 6f 67 72 |fun calc|-histogr|
|00002280| 61 6d 20 28 6e 29 20 28 | 69 6e 74 65 72 61 63 74 |am (n) (|interact|
|00002290| 69 76 65 20 22 4e 4e 75 | 6d 62 65 72 20 6f 66 20 |ive "NNu|mber of |
|000022a0| 62 69 6e 73 3a 20 22 29 | 20 28 62 79 74 65 2d 63 |bins: ")| (byte-c|
|000022b0| 6f 64 65 20 22 c0 88 c1 | c2 c3 5c 22 87 22 20 5b |ode "...|..\"." [|
|000022c0| 6e 69 6c 20 63 61 6c 63 | 2d 64 6f 20 28 6c 61 6d |nil calc|-do (lam|
|000022d0| 62 64 61 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |bda nil |(byte-co|
|000022e0| 64 65 20 22 08 83 16 00 | c2 c3 c4 c5 c6 c3 21 c6 |de "....|......!.|
|000022f0| c7 21 c8 09 21 46 23 82 | 5c 22 00 c2 c7 c4 c5 c6 |.!..!F#.|\"......|
|00002300| c7 21 c8 09 21 45 23 87 | 22 20 5b 63 61 6c 63 2d |.!..!E#.|" [calc-|
|00002310| 68 79 70 65 72 62 6f 6c | 69 63 2d 66 6c 61 67 20 |hyperbol|ic-flag |
|00002320| 6e 20 63 61 6c 63 2d 65 | 6e 74 65 72 2d 72 65 73 |n calc-e|nter-res|
|00002330| 75 6c 74 20 32 20 22 68 | 69 73 74 22 20 63 61 6c |ult 2 "h|ist" cal|
|00002340| 63 46 75 6e 63 2d 68 69 | 73 74 6f 67 72 61 6d 20 |cFunc-hi|stogram |
|00002350| 63 61 6c 63 2d 74 6f 70 | 2d 6e 20 31 20 70 72 65 |calc-top|-n 1 pre|
|00002360| 66 69 78 2d 6e 75 6d 65 | 72 69 63 2d 76 61 6c 75 |fix-nume|ric-valu|
|00002370| 65 5d 20 31 32 29 29 20 | 38 38 34 32 5d 20 33 29 |e] 12)) |8842] 3)|
|00002380| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 74 |)..(defu|n calc-t|
|00002390| 72 61 6e 73 70 6f 73 65 | 20 28 61 72 67 29 20 28 |ranspose| (arg) (|
|000023a0| 69 6e 74 65 72 61 63 74 | 69 76 65 20 22 50 22 29 |interact|ive "P")|
|000023b0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c1 | (byte-c|ode "...|
|000023c0| c2 21 87 22 20 5b 6e 69 | 6c 20 63 61 6c 63 2d 64 |.!." [ni|l calc-d|
|000023d0| 6f 20 28 6c 61 6d 62 64 | 61 20 6e 69 6c 20 28 62 |o (lambd|a nil (b|
|000023e0| 79 74 65 2d 63 6f 64 65 | 20 22 c1 c2 c3 08 23 87 |yte-code| "....#.|
|000023f0| 22 20 5b 61 72 67 20 63 | 61 6c 63 2d 75 6e 61 72 |" [arg c|alc-unar|
|00002400| 79 2d 6f 70 20 22 74 72 | 6e 22 20 63 61 6c 63 46 |y-op "tr|n" calcF|
|00002410| 75 6e 63 2d 74 72 6e 5d | 20 34 29 29 5d 20 32 29 |unc-trn]| 4))] 2)|
|00002420| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 63 |)..(defu|n calc-c|
|00002430| 6f 6e 6a 2d 74 72 61 6e | 73 70 6f 73 65 20 28 61 |onj-tran|spose (a|
|00002440| 72 67 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |rg) (int|eractive|
|00002450| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|00002460| 20 22 c0 88 c1 c2 21 87 | 22 20 5b 6e 69 6c 20 63 | "....!.|" [nil c|
|00002470| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|00002480| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |il (byte|-code ".|
|00002490| c2 c3 08 23 87 22 20 5b | 61 72 67 20 63 61 6c 63 |...#." [|arg calc|
|000024a0| 2d 75 6e 61 72 79 2d 6f | 70 20 22 63 74 72 6e 22 |-unary-o|p "ctrn"|
|000024b0| 20 63 61 6c 63 46 75 6e | 63 2d 63 74 72 6e 5d 20 | calcFun|c-ctrn] |
|000024c0| 34 29 29 5d 20 32 29 29 | 0a 0a 28 64 65 66 75 6e |4))] 2))|..(defun|
|000024d0| 20 63 61 6c 63 2d 63 72 | 6f 73 73 20 28 61 72 67 | calc-cr|oss (arg|
|000024e0| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|000024f0| 50 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |P") (byt|e-code "|
|00002500| c0 88 c1 c2 21 87 22 20 | 5b 6e 69 6c 20 63 61 6c |....!." |[nil cal|
|00002510| 63 2d 64 6f 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |c-do (la|mbda nil|
|00002520| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 c2 c3 | (byte-c|ode "...|
|00002530| 08 23 87 22 20 5b 61 72 | 67 20 63 61 6c 63 2d 62 |.#." [ar|g calc-b|
|00002540| 69 6e 61 72 79 2d 6f 70 | 20 22 63 72 6f 73 22 20 |inary-op| "cros" |
|00002550| 63 61 6c 63 46 75 6e 63 | 2d 63 72 6f 73 73 5d 20 |calcFunc|-cross] |
|00002560| 34 29 29 5d 20 32 29 29 | 0a 0a 28 64 65 66 75 6e |4))] 2))|..(defun|
|00002570| 20 63 61 6c 63 2d 72 65 | 6d 6f 76 65 2d 64 75 70 | calc-re|move-dup|
|00002580| 6c 69 63 61 74 65 73 20 | 28 61 72 67 29 20 28 69 |licates |(arg) (i|
|00002590| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|000025a0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|000025b0| 21 87 22 20 5b 6e 69 6c | 20 63 61 6c 63 2d 64 6f |!." [nil| calc-do|
|000025c0| 20 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 62 79 | (lambda| nil (by|
|000025d0| 74 65 2d 63 6f 64 65 20 | 22 c1 c2 c3 08 23 87 22 |te-code |"....#."|
|000025e0| 20 5b 61 72 67 20 63 61 | 6c 63 2d 75 6e 61 72 79 | [arg ca|lc-unary|
|000025f0| 2d 6f 70 20 22 72 64 75 | 70 22 20 63 61 6c 63 46 |-op "rdu|p" calcF|
|00002600| 75 6e 63 2d 72 64 75 70 | 5d 20 34 29 29 5d 20 32 |unc-rdup|] 4))] 2|
|00002610| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|00002620| 73 65 74 2d 75 6e 69 6f | 6e 20 28 61 72 67 29 20 |set-unio|n (arg) |
|00002630| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 50 22 |(interac|tive "P"|
|00002640| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 88 |) (byte-|code "..|
|00002650| c1 c2 21 87 22 20 5b 6e | 69 6c 20 63 61 6c 63 2d |..!." [n|il calc-|
|00002660| 64 6f 20 28 6c 61 6d 62 | 64 61 20 6e 69 6c 20 28 |do (lamb|da nil (|
|00002670| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 c2 c3 08 c4 |byte-cod|e ".....|
|00002680| c5 25 87 22 20 5b 61 72 | 67 20 63 61 6c 63 2d 62 |.%." [ar|g calc-b|
|00002690| 69 6e 61 72 79 2d 6f 70 | 20 22 75 6e 69 6f 22 20 |inary-op| "unio" |
|000026a0| 63 61 6c 63 46 75 6e 63 | 2d 76 75 6e 69 6f 6e 20 |calcFunc|-vunion |
|000026b0| 28 76 65 63 29 20 63 61 | 6c 63 46 75 6e 63 2d 72 |(vec) ca|lcFunc-r|
|000026c0| 64 75 70 5d 20 36 29 29 | 5d 20 32 29 29 0a 0a 28 |dup] 6))|] 2))..(|
|000026d0| 64 65 66 75 6e 20 63 61 | 6c 63 2d 73 65 74 2d 69 |defun ca|lc-set-i|
|000026e0| 6e 74 65 72 73 65 63 74 | 20 28 61 72 67 29 20 28 |ntersect| (arg) (|
|000026f0| 69 6e 74 65 72 61 63 74 | 69 76 65 20 22 50 22 29 |interact|ive "P")|
|00002700| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c1 | (byte-c|ode "...|
|00002710| c2 21 87 22 20 5b 6e 69 | 6c 20 63 61 6c 63 2d 64 |.!." [ni|l calc-d|
|00002720| 6f 20 28 6c 61 6d 62 64 | 61 20 6e 69 6c 20 28 62 |o (lambd|a nil (b|
|00002730| 79 74 65 2d 63 6f 64 65 | 20 22 c1 c2 c3 08 c4 c5 |yte-code| "......|
|00002740| 25 87 22 20 5b 61 72 67 | 20 63 61 6c 63 2d 62 69 |%." [arg| calc-bi|
|00002750| 6e 61 72 79 2d 6f 70 20 | 22 69 6e 74 72 22 20 63 |nary-op |"intr" c|
|00002760| 61 6c 63 46 75 6e 63 2d | 76 69 6e 74 20 28 76 65 |alcFunc-|vint (ve|
|00002770| 63 29 20 63 61 6c 63 46 | 75 6e 63 2d 72 64 75 70 |c) calcF|unc-rdup|
|00002780| 5d 20 36 29 29 5d 20 32 | 29 29 0a 0a 28 64 65 66 |] 6))] 2|))..(def|
|00002790| 75 6e 20 63 61 6c 63 2d | 73 65 74 2d 64 69 66 66 |un calc-|set-diff|
|000027a0| 65 72 65 6e 63 65 20 28 | 61 72 67 29 20 28 69 6e |erence (|arg) (in|
|000027b0| 74 65 72 61 63 74 69 76 | 65 20 22 50 22 29 20 28 |teractiv|e "P") (|
|000027c0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 88 c1 c2 21 |byte-cod|e "....!|
|000027d0| 87 22 20 5b 6e 69 6c 20 | 63 61 6c 63 2d 64 6f 20 |." [nil |calc-do |
|000027e0| 28 6c 61 6d 62 64 61 20 | 6e 69 6c 20 28 62 79 74 |(lambda |nil (byt|
|000027f0| 65 2d 63 6f 64 65 20 22 | c1 c2 c3 08 c4 c5 25 87 |e-code "|......%.|
|00002800| 22 20 5b 61 72 67 20 63 | 61 6c 63 2d 62 69 6e 61 |" [arg c|alc-bina|
|00002810| 72 79 2d 6f 70 20 22 64 | 69 66 66 22 20 63 61 6c |ry-op "d|iff" cal|
|00002820| 63 46 75 6e 63 2d 76 64 | 69 66 66 20 28 76 65 63 |cFunc-vd|iff (vec|
|00002830| 29 20 63 61 6c 63 46 75 | 6e 63 2d 72 64 75 70 5d |) calcFu|nc-rdup]|
|00002840| 20 36 29 29 5d 20 32 29 | 29 0a 0a 28 64 65 66 75 | 6))] 2)|)..(defu|
|00002850| 6e 20 63 61 6c 63 2d 73 | 65 74 2d 78 6f 72 20 28 |n calc-s|et-xor (|
|00002860| 61 72 67 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |arg) (in|teractiv|
|00002870| 65 20 22 50 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "P") (|byte-cod|
|00002880| 65 20 22 c0 88 c1 c2 21 | 87 22 20 5b 6e 69 6c 20 |e "....!|." [nil |
|00002890| 63 61 6c 63 2d 64 6f 20 | 28 6c 61 6d 62 64 61 20 |calc-do |(lambda |
|000028a0| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|000028b0| c1 c2 c3 08 c4 c5 25 87 | 22 20 5b 61 72 67 20 63 |......%.|" [arg c|
|000028c0| 61 6c 63 2d 62 69 6e 61 | 72 79 2d 6f 70 20 22 78 |alc-bina|ry-op "x|
|000028d0| 6f 72 22 20 63 61 6c 63 | 46 75 6e 63 2d 76 78 6f |or" calc|Func-vxo|
|000028e0| 72 20 28 76 65 63 29 20 | 63 61 6c 63 46 75 6e 63 |r (vec) |calcFunc|
|000028f0| 2d 72 64 75 70 5d 20 36 | 29 29 5d 20 32 29 29 0a |-rdup] 6|))] 2)).|
|00002900| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 73 65 74 |.(defun |calc-set|
|00002910| 2d 63 6f 6d 70 6c 65 6d | 65 6e 74 20 28 61 72 67 |-complem|ent (arg|
|00002920| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|00002930| 50 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |P") (byt|e-code "|
|00002940| c0 88 c1 c2 21 87 22 20 | 5b 6e 69 6c 20 63 61 6c |....!." |[nil cal|
|00002950| 63 2d 64 6f 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |c-do (la|mbda nil|
|00002960| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 c2 c3 | (byte-c|ode "...|
|00002970| 08 23 87 22 20 5b 61 72 | 67 20 63 61 6c 63 2d 75 |.#." [ar|g calc-u|
|00002980| 6e 61 72 79 2d 6f 70 20 | 22 63 6d 70 6c 22 20 63 |nary-op |"cmpl" c|
|00002990| 61 6c 63 46 75 6e 63 2d | 76 63 6f 6d 70 6c 5d 20 |alcFunc-|vcompl] |
|000029a0| 34 29 29 5d 20 32 29 29 | 0a 0a 28 64 65 66 75 6e |4))] 2))|..(defun|
|000029b0| 20 63 61 6c 63 2d 73 65 | 74 2d 66 6c 6f 6f 72 20 | calc-se|t-floor |
|000029c0| 28 61 72 67 29 20 28 69 | 6e 74 65 72 61 63 74 69 |(arg) (i|nteracti|
|000029d0| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|000029e0| 64 65 20 22 c0 88 c1 c2 | 21 87 22 20 5b 6e 69 6c |de "....|!." [nil|
|000029f0| 20 63 61 6c 63 2d 64 6f | 20 28 6c 61 6d 62 64 61 | calc-do| (lambda|
|00002a00| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00002a10| 22 c1 c2 c3 08 23 87 22 | 20 5b 61 72 67 20 63 61 |"....#."| [arg ca|
|00002a20| 6c 63 2d 75 6e 61 72 79 | 2d 6f 70 20 22 76 66 6c |lc-unary|-op "vfl|
|00002a30| 72 22 20 63 61 6c 63 46 | 75 6e 63 2d 76 66 6c 6f |r" calcF|unc-vflo|
|00002a40| 6f 72 5d 20 34 29 29 5d | 20 32 29 29 0a 0a 28 64 |or] 4))]| 2))..(d|
|00002a50| 65 66 75 6e 20 63 61 6c | 63 2d 73 65 74 2d 65 6e |efun cal|c-set-en|
|00002a60| 75 6d 65 72 61 74 65 20 | 28 61 72 67 29 20 28 69 |umerate |(arg) (i|
|00002a70| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|00002a80| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|00002a90| 21 87 22 20 5b 6e 69 6c | 20 63 61 6c 63 2d 64 6f |!." [nil| calc-do|
|00002aa0| 20 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 62 79 | (lambda| nil (by|
|00002ab0| 74 65 2d 63 6f 64 65 20 | 22 c1 c2 c3 08 23 87 22 |te-code |"....#."|
|00002ac0| 20 5b 61 72 67 20 63 61 | 6c 63 2d 75 6e 61 72 79 | [arg ca|lc-unary|
|00002ad0| 2d 6f 70 20 22 65 6e 75 | 6d 22 20 63 61 6c 63 46 |-op "enu|m" calcF|
|00002ae0| 75 6e 63 2d 76 65 6e 75 | 6d 5d 20 34 29 29 5d 20 |unc-venu|m] 4))] |
|00002af0| 32 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |2))..(de|fun calc|
|00002b00| 2d 73 65 74 2d 73 70 61 | 6e 20 28 61 72 67 29 20 |-set-spa|n (arg) |
|00002b10| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 50 22 |(interac|tive "P"|
|00002b20| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 88 |) (byte-|code "..|
|00002b30| c1 c2 21 87 22 20 5b 6e | 69 6c 20 63 61 6c 63 2d |..!." [n|il calc-|
|00002b40| 64 6f 20 28 6c 61 6d 62 | 64 61 20 6e 69 6c 20 28 |do (lamb|da nil (|
|00002b50| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 c2 c3 08 23 |byte-cod|e "....#|
|00002b60| 87 22 20 5b 61 72 67 20 | 63 61 6c 63 2d 75 6e 61 |." [arg |calc-una|
|00002b70| 72 79 2d 6f 70 20 22 73 | 70 61 6e 22 20 63 61 6c |ry-op "s|pan" cal|
|00002b80| 63 46 75 6e 63 2d 76 73 | 70 61 6e 5d 20 34 29 29 |cFunc-vs|pan] 4))|
|00002b90| 5d 20 32 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 2))..(|defun ca|
|00002ba0| 6c 63 2d 73 65 74 2d 63 | 61 72 64 69 6e 61 6c 69 |lc-set-c|ardinali|
|00002bb0| 74 79 20 28 61 72 67 29 | 20 28 69 6e 74 65 72 61 |ty (arg)| (intera|
|00002bc0| 63 74 69 76 65 20 22 50 | 22 29 20 28 62 79 74 65 |ctive "P|") (byte|
|00002bd0| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 21 87 22 20 5b |-code ".|...!." [|
|00002be0| 6e 69 6c 20 63 61 6c 63 | 2d 64 6f 20 28 6c 61 6d |nil calc|-do (lam|
|00002bf0| 62 64 61 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |bda nil |(byte-co|
|00002c00| 64 65 20 22 c1 c2 c3 08 | 23 87 22 20 5b 61 72 67 |de "....|#." [arg|
|00002c10| 20 63 61 6c 63 2d 75 6e | 61 72 79 2d 6f 70 20 22 | calc-un|ary-op "|
|00002c20| 63 61 72 64 22 20 63 61 | 6c 63 46 75 6e 63 2d 76 |card" ca|lcFunc-v|
|00002c30| 63 61 72 64 5d 20 34 29 | 29 5d 20 32 29 29 0a 0a |card] 4)|)] 2))..|
|00002c40| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 75 6e 70 61 |(defun c|alc-unpa|
|00002c50| 63 6b 2d 62 69 74 73 20 | 28 61 72 67 29 20 28 69 |ck-bits |(arg) (i|
|00002c60| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|00002c70| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|00002c80| 21 87 22 20 5b 6e 69 6c | 20 63 61 6c 63 2d 64 6f |!." [nil| calc-do|
|00002c90| 20 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 62 79 | (lambda| nil (by|
|00002ca0| 74 65 2d 63 6f 64 65 20 | 22 c1 20 83 0d 00 c2 c3 |te-code |". .....|
|00002cb0| c4 08 23 82 12 00 c2 c5 | c6 08 23 87 22 20 5b 61 |..#.....|..#." [a|
|00002cc0| 72 67 20 63 61 6c 63 2d | 69 73 2d 69 6e 76 65 72 |rg calc-|is-inver|
|00002cd0| 73 65 20 63 61 6c 63 2d | 75 6e 61 72 79 2d 6f 70 |se calc-|unary-op|
|00002ce0| 20 22 62 70 63 6b 22 20 | 63 61 6c 63 46 75 6e 63 | "bpck" |calcFunc|
|00002cf0| 2d 76 70 61 63 6b 20 22 | 62 75 70 6b 22 20 63 61 |-vpack "|bupk" ca|
|00002d00| 6c 63 46 75 6e 63 2d 76 | 75 6e 70 61 63 6b 5d 20 |lcFunc-v|unpack] |
|00002d10| 36 29 29 5d 20 32 29 29 | 0a 0a 28 64 65 66 75 6e |6))] 2))|..(defun|
|00002d20| 20 63 61 6c 63 2d 70 61 | 63 6b 2d 62 69 74 73 20 | calc-pa|ck-bits |
|00002d30| 28 61 72 67 29 20 28 69 | 6e 74 65 72 61 63 74 69 |(arg) (i|nteracti|
|00002d40| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|00002d50| 64 65 20 22 c1 88 c2 20 | 88 c3 08 21 87 22 20 5b |de "... |...!." [|
|00002d60| 61 72 67 20 6e 69 6c 20 | 63 61 6c 63 2d 69 6e 76 |arg nil |calc-inv|
|00002d70| 65 72 74 2d 66 75 6e 63 | 20 63 61 6c 63 2d 75 6e |ert-func| calc-un|
|00002d80| 70 61 63 6b 2d 62 69 74 | 73 5d 20 33 29 29 0a 0a |pack-bit|s] 3))..|
|00002d90| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 72 6e 6f 72 |(defun c|alc-rnor|
|00002da0| 6d 20 28 61 72 67 29 20 | 28 69 6e 74 65 72 61 63 |m (arg) |(interac|
|00002db0| 74 69 76 65 20 22 50 22 | 29 20 28 62 79 74 65 2d |tive "P"|) (byte-|
|00002dc0| 63 6f 64 65 20 22 c0 88 | c1 c2 21 87 22 20 5b 6e |code "..|..!." [n|
|00002dd0| 69 6c 20 63 61 6c 63 2d | 64 6f 20 28 6c 61 6d 62 |il calc-|do (lamb|
|00002de0| 64 61 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |da nil (|byte-cod|
|00002df0| 65 20 22 c1 c2 c3 08 23 | 87 22 20 5b 61 72 67 20 |e "....#|." [arg |
|00002e00| 63 61 6c 63 2d 75 6e 61 | 72 79 2d 6f 70 20 22 72 |calc-una|ry-op "r|
|00002e10| 6e 72 6d 22 20 63 61 6c | 63 46 75 6e 63 2d 72 6e |nrm" cal|cFunc-rn|
|00002e20| 6f 72 6d 5d 20 34 29 29 | 5d 20 32 29 29 0a 0a 28 |orm] 4))|] 2))..(|
|00002e30| 64 65 66 75 6e 20 63 61 | 6c 63 2d 63 6e 6f 72 6d |defun ca|lc-cnorm|
|00002e40| 20 28 61 72 67 29 20 28 | 69 6e 74 65 72 61 63 74 | (arg) (|interact|
|00002e50| 69 76 65 20 22 50 22 29 | 20 28 62 79 74 65 2d 63 |ive "P")| (byte-c|
|00002e60| 6f 64 65 20 22 c0 88 c1 | c2 21 87 22 20 5b 6e 69 |ode "...|.!." [ni|
|00002e70| 6c 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |l calc-d|o (lambd|
|00002e80| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|00002e90| 20 22 c1 c2 c3 08 23 87 | 22 20 5b 61 72 67 20 63 | "....#.|" [arg c|
|00002ea0| 61 6c 63 2d 75 6e 61 72 | 79 2d 6f 70 20 22 63 6e |alc-unar|y-op "cn|
|00002eb0| 72 6d 22 20 63 61 6c 63 | 46 75 6e 63 2d 63 6e 6f |rm" calc|Func-cno|
|00002ec0| 72 6d 5d 20 34 29 29 5d | 20 32 29 29 0a 0a 28 64 |rm] 4))]| 2))..(d|
|00002ed0| 65 66 75 6e 20 63 61 6c | 63 2d 6d 72 6f 77 20 28 |efun cal|c-mrow (|
|00002ee0| 6e 20 26 6f 70 74 69 6f | 6e 61 6c 20 6e 6e 29 20 |n &optio|nal nn) |
|00002ef0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 4e 52 |(interac|tive "NR|
|00002f00| 6f 77 20 6e 75 6d 62 65 | 72 3a 20 0a 50 22 29 20 |ow numbe|r: .P") |
|00002f10| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|00002f20| 21 87 22 20 5b 6e 69 6c | 20 63 61 6c 63 2d 64 6f |!." [nil| calc-do|
|00002f30| 20 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 62 79 | (lambda| nil (by|
|00002f40| 74 65 2d 63 6f 64 65 20 | 22 08 3a 83 11 00 c2 c3 |te-code |".:.....|
|00002f50| c4 c5 c6 c3 21 42 23 82 | 47 00 c7 09 21 89 11 88 |....!B#.|G...!...|
|00002f60| 09 c8 55 83 29 00 c2 c9 | ca cb cc c9 21 44 23 82 |..U.)...|....!D#.|
|00002f70| 47 00 09 c8 57 83 3d 00 | c2 c9 cd ce cc c9 21 09 |G...W.=.|......!.|
|00002f80| 5b 45 23 82 47 00 c2 c9 | c4 c5 cc c9 21 09 45 23 |[E#.G...|....!.E#|
|00002f90| 87 22 20 5b 6e 6e 20 6e | 20 63 61 6c 63 2d 65 6e |." [nn n| calc-en|
|00002fa0| 74 65 72 2d 72 65 73 75 | 6c 74 20 32 20 22 6d 72 |ter-resu|lt 2 "mr|
|00002fb0| 6f 77 22 20 63 61 6c 63 | 46 75 6e 63 2d 6d 72 6f |ow" calc|Func-mro|
|00002fc0| 77 20 63 61 6c 63 2d 74 | 6f 70 2d 6c 69 73 74 2d |w calc-t|op-list-|
|00002fd0| 6e 20 70 72 65 66 69 78 | 2d 6e 75 6d 65 72 69 63 |n prefix|-numeric|
|00002fe0| 2d 76 61 6c 75 65 20 30 | 20 31 20 22 67 65 74 64 |-value 0| 1 "getd|
|00002ff0| 22 20 63 61 6c 63 46 75 | 6e 63 2d 67 65 74 64 69 |" calcFu|nc-getdi|
|00003000| 61 67 20 63 61 6c 63 2d | 74 6f 70 2d 6e 20 22 72 |ag calc-|top-n "r|
|00003010| 72 6f 77 22 20 63 61 6c | 63 46 75 6e 63 2d 6d 72 |row" cal|cFunc-mr|
|00003020| 72 6f 77 5d 20 31 34 29 | 29 5d 20 32 29 29 0a 0a |row] 14)|)] 2))..|
|00003030| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 6d 63 6f 6c |(defun c|alc-mcol|
|00003040| 20 28 6e 20 26 6f 70 74 | 69 6f 6e 61 6c 20 6e 6e | (n &opt|ional nn|
|00003050| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|00003060| 4e 43 6f 6c 75 6d 6e 20 | 6e 75 6d 62 65 72 3a 20 |NColumn |number: |
|00003070| 0a 50 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |.P") (by|te-code |
|00003080| 22 c0 88 c1 c2 21 87 22 | 20 5b 6e 69 6c 20 63 61 |"....!."| [nil ca|
|00003090| 6c 63 2d 64 6f 20 28 6c | 61 6d 62 64 61 20 6e 69 |lc-do (l|ambda ni|
|000030a0| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 3a |l (byte-|code ".:|
|000030b0| 83 11 00 c2 c3 c4 c5 c6 | c3 21 42 23 82 47 00 c7 |........|.!B#.G..|
|000030c0| 09 21 89 11 88 09 c8 55 | 83 29 00 c2 c9 ca cb cc |.!.....U|.)......|
|000030d0| c9 21 44 23 82 47 00 09 | c8 57 83 3d 00 c2 c9 cd |.!D#.G..|.W.=....|
|000030e0| ce cc c9 21 09 5b 45 23 | 82 47 00 c2 c9 c4 c5 cc |...!.[E#|.G......|
|000030f0| c9 21 09 45 23 87 22 20 | 5b 6e 6e 20 6e 20 63 61 |.!.E#." |[nn n ca|
|00003100| 6c 63 2d 65 6e 74 65 72 | 2d 72 65 73 75 6c 74 20 |lc-enter|-result |
|00003110| 32 20 22 6d 63 6f 6c 22 | 20 63 61 6c 63 46 75 6e |2 "mcol"| calcFun|
|00003120| 63 2d 6d 63 6f 6c 20 63 | 61 6c 63 2d 74 6f 70 2d |c-mcol c|alc-top-|
|00003130| 6c 69 73 74 2d 6e 20 70 | 72 65 66 69 78 2d 6e 75 |list-n p|refix-nu|
|00003140| 6d 65 72 69 63 2d 76 61 | 6c 75 65 20 30 20 31 20 |meric-va|lue 0 1 |
|00003150| 22 67 65 74 64 22 20 63 | 61 6c 63 46 75 6e 63 2d |"getd" c|alcFunc-|
|00003160| 67 65 74 64 69 61 67 20 | 63 61 6c 63 2d 74 6f 70 |getdiag |calc-top|
|00003170| 2d 6e 20 22 72 63 6f 6c | 22 20 63 61 6c 63 46 75 |-n "rcol|" calcFu|
|00003180| 6e 63 2d 6d 72 63 6f 6c | 5d 20 31 34 29 29 5d 20 |nc-mrcol|] 14))] |
|00003190| 32 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |2))..(de|fun calc|
|000031a0| 46 75 6e 63 2d 6d 64 69 | 6d 73 20 28 6d 29 20 28 |Func-mdi|ms (m) (|
|000031b0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 08 21 86 0a |byte-cod|e "..!..|
|000031c0| 00 c2 08 c3 5c 22 88 c4 | c5 08 21 42 87 22 20 5b |....\"..|..!B." [|
|000031d0| 6d 20 6d 61 74 68 2d 76 | 65 63 74 6f 72 70 20 6d |m math-v|ectorp m|
|000031e0| 61 74 68 2d 72 65 6a 65 | 63 74 2d 61 72 67 20 76 |ath-reje|ct-arg v|
|000031f0| 65 63 74 6f 72 70 20 76 | 65 63 20 6d 61 74 68 2d |ectorp v|ec math-|
|00003200| 6d 61 74 2d 64 69 6d 65 | 6e 73 5d 20 35 29 29 0a |mat-dime|ns] 5)).|
|00003210| 0a 28 64 65 66 75 6e 20 | 6d 61 74 68 2d 6d 61 70 |.(defun |math-map|
|00003220| 2d 76 65 63 20 28 66 20 | 61 29 20 28 62 79 74 65 |-vec (f |a) (byte|
|00003230| 2d 63 6f 64 65 20 22 c2 | 08 21 83 10 00 c3 c4 09 |-code ".|.!......|
|00003240| 08 41 5c 22 42 82 14 00 | c5 09 08 5c 22 87 22 20 |.A\"B...|...\"." |
|00003250| 5b 61 20 66 20 6d 61 74 | 68 2d 76 65 63 74 6f 72 |[a f mat|h-vector|
|00003260| 70 20 76 65 63 20 6d 61 | 70 63 61 72 20 66 75 6e |p vec ma|pcar fun|
|00003270| 63 61 6c 6c 5d 20 35 29 | 29 0a 0a 28 64 65 66 75 |call] 5)|)..(defu|
|00003280| 6e 20 6d 61 74 68 2d 64 | 69 6d 65 6e 73 69 6f 6e |n math-d|imension|
|00003290| 2d 65 72 72 6f 72 20 6e | 69 6c 20 28 62 79 74 65 |-error n|il (byte|
|000032a0| 2d 63 6f 64 65 20 22 c1 | c2 21 88 c3 c4 c0 5c 22 |-code ".|.!....\"|
|000032b0| 87 22 20 5b 6e 69 6c 20 | 63 61 6c 63 2d 72 65 63 |." [nil |calc-rec|
|000032c0| 6f 72 64 2d 77 68 79 20 | 22 2a 44 69 6d 65 6e 73 |ord-why |"*Dimens|
|000032d0| 69 6f 6e 20 65 72 72 6f | 72 22 20 73 69 67 6e 61 |ion erro|r" signa|
|000032e0| 6c 20 77 72 6f 6e 67 2d | 74 79 70 65 2d 61 72 67 |l wrong-|type-arg|
|000032f0| 75 6d 65 6e 74 5d 20 34 | 29 29 0a 0a 28 64 65 66 |ument] 4|))..(def|
|00003300| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 76 65 63 20 |un calcF|unc-vec |
|00003310| 28 26 72 65 73 74 20 6f | 62 6a 73 29 20 28 62 79 |(&rest o|bjs) (by|
|00003320| 74 65 2d 63 6f 64 65 20 | 22 c1 08 42 87 22 20 5b |te-code |"..B." [|
|00003330| 6f 62 6a 73 20 76 65 63 | 5d 20 32 29 29 0a 0a 28 |objs vec|] 2))..(|
|00003340| 64 65 66 75 6e 20 63 61 | 6c 63 46 75 6e 63 2d 63 |defun ca|lcFunc-c|
|00003350| 76 65 63 20 28 6f 62 6a | 20 26 72 65 73 74 20 64 |vec (obj| &rest d|
|00003360| 69 6d 73 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ims) (by|te-code |
|00003370| 22 c2 08 09 5c 22 87 22 | 20 5b 6f 62 6a 20 64 69 |"...\"."| [obj di|
|00003380| 6d 73 20 6d 61 74 68 2d | 6d 61 6b 65 2d 76 65 63 |ms math-|make-vec|
|00003390| 2d 64 69 6d 65 6e 5d 20 | 33 29 29 0a 0a 28 64 65 |-dimen] |3))..(de|
|000033a0| 66 75 6e 20 6d 61 74 68 | 2d 6d 61 6b 65 2d 76 65 |fun math|-make-ve|
|000033b0| 63 2d 64 69 6d 65 6e 20 | 28 6f 62 6a 20 64 69 6d |c-dimen |(obj dim|
|000033c0| 73 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |s) (byte|-code ".|
|000033d0| 83 39 00 c2 08 40 21 83 | 31 00 08 41 86 14 00 c3 |.9...@!.|1..A....|
|000033e0| 09 21 3f 83 27 00 c4 c5 | c6 08 40 c7 09 08 41 5c |.!?.'...|..@...A\|
|000033f0| 22 5c 22 21 42 82 2e 00 | c4 c6 08 40 09 5c 22 42 |"\"!B...|...@.\"B|
|00003400| 82 36 00 c8 08 40 c9 5c | 22 82 3a 00 09 87 22 20 |.6...@.\|".:..." |
|00003410| 5b 64 69 6d 73 20 6f 62 | 6a 20 6e 61 74 6e 75 6d |[dims ob|j natnum|
|00003420| 70 20 6d 61 74 68 2d 6e | 75 6d 62 65 72 70 20 76 |p math-n|umberp v|
|00003430| 65 63 20 63 6f 70 79 2d | 73 65 71 75 65 6e 63 65 |ec copy-|sequence|
|00003440| 20 6d 61 6b 65 2d 6c 69 | 73 74 20 6d 61 74 68 2d | make-li|st math-|
|00003450| 6d 61 6b 65 2d 76 65 63 | 2d 64 69 6d 65 6e 20 6d |make-vec|-dimen m|
|00003460| 61 74 68 2d 72 65 6a 65 | 63 74 2d 61 72 67 20 66 |ath-reje|ct-arg f|
|00003470| 69 78 6e 61 74 6e 75 6d | 70 5d 20 39 29 29 0a 0a |ixnatnum|p] 9))..|
|00003480| 28 64 65 66 75 6e 20 63 | 61 6c 63 46 75 6e 63 2d |(defun c|alcFunc-|
|00003490| 68 65 61 64 20 28 76 65 | 63 29 20 28 62 79 74 65 |head (ve|c) (byte|
|000034a0| 2d 63 6f 64 65 20 22 08 | 3a 85 09 00 08 40 c0 3d |-code ".|:....@.=|
|000034b0| 85 0e 00 08 41 83 17 00 | c1 08 38 82 1f 00 c2 c3 |....A...|..8.....|
|000034c0| 08 5c 22 88 c4 08 44 87 | 22 20 5b 76 65 63 20 31 |.\"...D.|" [vec 1|
|000034d0| 20 63 61 6c 63 2d 72 65 | 63 6f 72 64 2d 77 68 79 | calc-re|cord-why|
|000034e0| 20 76 65 63 74 6f 72 70 | 20 63 61 6c 63 46 75 6e | vectorp| calcFun|
|000034f0| 63 2d 68 65 61 64 5d 20 | 33 29 29 0a 0a 28 64 65 |c-head] |3))..(de|
|00003500| 66 75 6e 20 63 61 6c 63 | 46 75 6e 63 2d 74 61 69 |fun calc|Func-tai|
|00003510| 6c 20 28 76 65 63 29 20 | 28 62 79 74 65 2d 63 6f |l (vec) |(byte-co|
|00003520| 64 65 20 22 08 3a 85 09 | 00 08 40 c0 3d 85 0e 00 |de ".:..|..@.=...|
|00003530| 08 41 83 19 00 c0 08 41 | 41 42 82 21 00 c1 c2 08 |.A.....A|AB.!....|
|00003540| 5c 22 88 c3 08 44 87 22 | 20 5b 76 65 63 20 63 61 |\"...D."| [vec ca|
|00003550| 6c 63 2d 72 65 63 6f 72 | 64 2d 77 68 79 20 76 65 |lc-recor|d-why ve|
|00003560| 63 74 6f 72 70 20 63 61 | 6c 63 46 75 6e 63 2d 74 |ctorp ca|lcFunc-t|
|00003570| 61 69 6c 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |ail] 3))|..(defun|
|00003580| 20 63 61 6c 63 46 75 6e | 63 2d 63 6f 6e 73 20 28 | calcFun|c-cons (|
|00003590| 68 65 61 64 20 74 61 69 | 6c 29 20 28 62 79 74 65 |head tai|l) (byte|
|000035a0| 2d 63 6f 64 65 20 22 08 | 3a 85 09 00 08 40 c2 3d |-code ".|:....@.=|
|000035b0| 83 15 00 c2 09 08 41 42 | 42 82 1e 00 c3 c4 08 5c |......AB|B......\|
|000035c0| 22 88 c5 09 08 45 87 22 | 20 5b 74 61 69 6c 20 68 |"....E."| [tail h|
|000035d0| 65 61 64 20 76 65 63 20 | 63 61 6c 63 2d 72 65 63 |ead vec |calc-rec|
|000035e0| 6f 72 64 2d 77 68 79 20 | 76 65 63 74 6f 72 70 20 |ord-why |vectorp |
|000035f0| 63 61 6c 63 46 75 6e 63 | 2d 63 6f 6e 73 5d 20 34 |calcFunc|-cons] 4|
|00003600| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 46 |))..(def|un calcF|
|00003610| 75 6e 63 2d 72 68 65 61 | 64 20 28 76 65 63 29 20 |unc-rhea|d (vec) |
|00003620| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 3a 85 09 |(byte-co|de ".:..|
|00003630| 00 08 40 c0 3d 85 0e 00 | 08 41 83 25 00 c2 08 21 |..@.=...|.A.%...!|
|00003640| 18 c3 c4 08 47 c5 5a 08 | 5c 22 c1 5c 22 88 08 29 |....G.Z.|\".\"..)|
|00003650| 82 2d 00 c6 c7 08 5c 22 | 88 c8 08 44 87 22 20 5b |.-....\"|...D." [|
|00003660| 76 65 63 20 6e 69 6c 20 | 63 6f 70 79 2d 73 65 71 |vec nil |copy-seq|
|00003670| 75 65 6e 63 65 20 73 65 | 74 63 64 72 20 6e 74 68 |uence se|tcdr nth|
|00003680| 63 64 72 20 32 20 63 61 | 6c 63 2d 72 65 63 6f 72 |cdr 2 ca|lc-recor|
|00003690| 64 2d 77 68 79 20 76 65 | 63 74 6f 72 70 20 63 61 |d-why ve|ctorp ca|
|000036a0| 6c 63 46 75 6e 63 2d 72 | 68 65 61 64 5d 20 36 29 |lcFunc-r|head] 6)|
|000036b0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 46 75 |)..(defu|n calcFu|
|000036c0| 6e 63 2d 72 74 61 69 6c | 20 28 76 65 63 29 20 28 |nc-rtail| (vec) (|
|000036d0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 3a 85 09 00 |byte-cod|e ".:...|
|000036e0| 08 40 c0 3d 85 0e 00 08 | 41 83 19 00 08 47 53 08 |.@.=....|A....GS.|
|000036f0| 38 82 21 00 c1 c2 08 5c | 22 88 c3 08 44 87 22 20 |8.!....\|"...D." |
|00003700| 5b 76 65 63 20 63 61 6c | 63 2d 72 65 63 6f 72 64 |[vec cal|c-record|
|00003710| 2d 77 68 79 20 76 65 63 | 74 6f 72 70 20 63 61 6c |-why vec|torp cal|
|00003720| 63 46 75 6e 63 2d 72 74 | 61 69 6c 5d 20 33 29 29 |cFunc-rt|ail] 3))|
|00003730| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|00003740| 63 2d 72 63 6f 6e 73 20 | 28 68 65 61 64 20 74 61 |c-rcons |(head ta|
|00003750| 69 6c 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |il) (byt|e-code "|
|00003760| 08 3a 85 09 00 08 40 c2 | 3d 83 14 00 c3 08 09 43 |.:....@.|=......C|
|00003770| 5c 22 82 1d 00 c4 c5 08 | 5c 22 88 c6 08 09 45 87 |\"......|\"....E.|
|00003780| 22 20 5b 68 65 61 64 20 | 74 61 69 6c 20 76 65 63 |" [head |tail vec|
|00003790| 20 61 70 70 65 6e 64 20 | 63 61 6c 63 2d 72 65 63 | append |calc-rec|
|000037a0| 6f 72 64 2d 77 68 79 20 | 76 65 63 74 6f 72 70 20 |ord-why |vectorp |
|000037b0| 63 61 6c 63 46 75 6e 63 | 2d 72 63 6f 6e 73 5d 20 |calcFunc|-rcons] |
|000037c0| 35 29 29 0a 0a 28 64 65 | 66 75 6e 20 6d 61 74 68 |5))..(de|fun math|
|000037d0| 2d 6d 61 70 2d 76 65 63 | 2d 32 20 28 66 20 61 20 |-map-vec|-2 (f a |
|000037e0| 62 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c5 |b) (byte|-code ".|
|000037f0| 08 21 83 60 00 c5 09 21 | 83 3f 00 c3 1a 08 41 89 |.!.`...!|.?....A.|
|00003800| 10 85 2e 00 09 41 89 11 | 86 1e 00 c6 20 88 c7 0c |.....A..|.... ...|
|00003810| 08 40 09 40 23 0a 42 89 | 12 88 82 0e 00 88 08 85 |.@.@#.B.|........|
|00003820| 35 00 c6 20 88 c8 c9 0a | 21 42 29 82 5d 00 c3 1a |5.. ....|!B).]...|
|00003830| 08 41 89 10 85 56 00 c7 | 0c 08 40 09 23 0a 42 89 |.A...V..|..@.#.B.|
|00003840| 12 88 82 41 00 88 c8 c9 | 0a 21 42 29 82 8c 00 c5 |...A....|.!B)....|
|00003850| 09 21 83 87 00 c3 1a 09 | 41 89 11 85 7d 00 c7 0c |.!......|A...}...|
|00003860| 08 09 40 23 0a 42 89 12 | 88 82 68 00 88 c8 c9 0a |..@#.B..|..h.....|
|00003870| 21 42 29 82 8c 00 c7 0c | 08 09 23 87 22 20 5b 61 |!B).....|..#." [a|
|00003880| 20 62 20 76 20 6e 69 6c | 20 66 20 6d 61 74 68 2d | b v nil| f math-|
|00003890| 76 65 63 74 6f 72 70 20 | 6d 61 74 68 2d 64 69 6d |vectorp |math-dim|
|000038a0| 65 6e 73 69 6f 6e 2d 65 | 72 72 6f 72 20 66 75 6e |ension-e|rror fun|
|000038b0| 63 61 6c 6c 20 76 65 63 | 20 6e 72 65 76 65 72 73 |call vec| nrevers|
|000038c0| 65 5d 20 31 35 29 29 0a | 0a 28 64 65 66 75 6e 20 |e] 15)).|.(defun |
|000038d0| 6d 61 74 68 2d 72 65 64 | 75 63 65 2d 76 65 63 20 |math-red|uce-vec |
|000038e0| 28 66 20 61 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |(f a) (b|yte-code|
|000038f0| 20 22 c3 08 21 83 2e 00 | 08 41 83 2a 00 08 41 89 | "..!...|.A.*..A.|
|00003900| 10 40 19 08 41 89 10 85 | 24 00 c4 0a 09 08 40 23 |.@..A...|$.....@#|
|00003910| 89 11 88 82 11 00 88 09 | 29 82 2b 00 c5 82 2f 00 |........|).+.../.|
|00003920| 08 87 22 20 5b 61 20 61 | 63 63 75 6d 20 66 20 6d |.." [a a|ccum f m|
|00003930| 61 74 68 2d 76 65 63 74 | 6f 72 70 20 66 75 6e 63 |ath-vect|orp func|
|00003940| 61 6c 6c 20 30 5d 20 36 | 29 29 0a 0a 28 64 65 66 |all 0] 6|))..(def|
|00003950| 75 6e 20 6d 61 74 68 2d | 72 65 64 75 63 65 2d 63 |un math-|reduce-c|
|00003960| 6f 6c 73 20 28 66 20 61 | 29 20 28 62 79 74 65 2d |ols (f a|) (byte-|
|00003970| 63 6f 64 65 20 22 c2 08 | 21 83 15 00 c3 c4 09 08 |code "..|!.......|
|00003980| 41 c5 c5 08 38 47 24 42 | 82 16 00 08 87 22 20 5b |A...8G$B|....." [|
|00003990| 61 20 66 20 6d 61 74 68 | 2d 6d 61 74 72 69 78 70 |a f math|-matrixp|
|000039a0| 20 76 65 63 20 6d 61 74 | 68 2d 72 65 64 75 63 65 | vec mat|h-reduce|
|000039b0| 2d 63 6f 6c 73 2d 63 6f | 6c 2d 73 74 65 70 20 31 |-cols-co|l-step 1|
|000039c0| 5d 20 38 29 29 0a 0a 28 | 64 65 66 75 6e 20 6d 61 |] 8))..(|defun ma|
|000039d0| 74 68 2d 72 65 64 75 63 | 65 2d 63 6f 6c 73 2d 63 |th-reduc|e-cols-c|
|000039e0| 6f 6c 2d 73 74 65 70 20 | 28 66 20 61 20 63 6f 6c |ol-step |(f a col|
|000039f0| 20 63 6f 6c 73 29 20 28 | 62 79 74 65 2d 63 6f 64 | cols) (|byte-cod|
|00003a00| 65 20 22 08 09 57 85 18 | 00 c4 0a 08 0b 40 38 08 |e "..W..|.....@8.|
|00003a10| 0b 41 24 c5 0a 0b 08 54 | 09 24 42 87 22 20 5b 63 |.A$....T|.$B." [c|
|00003a20| 6f 6c 20 63 6f 6c 73 20 | 66 20 61 20 6d 61 74 68 |ol cols |f a math|
|00003a30| 2d 72 65 64 75 63 65 2d | 63 6f 6c 73 2d 72 6f 77 |-reduce-|cols-row|
|00003a40| 2d 73 74 65 70 20 6d 61 | 74 68 2d 72 65 64 75 63 |-step ma|th-reduc|
|00003a50| 65 2d 63 6f 6c 73 2d 63 | 6f 6c 2d 73 74 65 70 5d |e-cols-c|ol-step]|
|00003a60| 20 37 29 29 0a 0a 28 64 | 65 66 75 6e 20 6d 61 74 | 7))..(d|efun mat|
|00003a70| 68 2d 72 65 64 75 63 65 | 2d 63 6f 6c 73 2d 72 6f |h-reduce|-cols-ro|
|00003a80| 77 2d 73 74 65 70 20 28 | 66 20 74 6f 74 20 63 6f |w-step (|f tot co|
|00003a90| 6c 20 61 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |l a) (by|te-code |
|00003aa0| 22 08 83 15 00 c4 09 c5 | 09 0a 0b 08 40 38 23 0b |".......|....@8#.|
|00003ab0| 08 41 24 82 16 00 0a 87 | 22 20 5b 61 20 66 20 74 |.A$.....|" [a f t|
|00003ac0| 6f 74 20 63 6f 6c 20 6d | 61 74 68 2d 72 65 64 75 |ot col m|ath-redu|
|00003ad0| 63 65 2d 63 6f 6c 73 2d | 72 6f 77 2d 73 74 65 70 |ce-cols-|row-step|
|00003ae0| 20 66 75 6e 63 61 6c 6c | 5d 20 37 29 29 0a 0a 28 | funcall|] 7))..(|
|00003af0| 64 65 66 75 6e 20 6d 61 | 74 68 2d 64 6f 74 2d 70 |defun ma|th-dot-p|
|00003b00| 72 6f 64 75 63 74 20 28 | 61 20 62 29 20 28 62 79 |roduct (|a b) (by|
|00003b10| 74 65 2d 63 6f 64 65 20 | 22 08 41 10 09 41 89 11 |te-code |".A..A..|
|00003b20| 83 30 00 c3 08 40 09 40 | 5c 22 1a 08 41 10 09 41 |.0...@.@|\"..A..A|
|00003b30| 89 11 85 2a 00 c4 0a c3 | 08 40 09 40 5c 22 5c 22 |...*....|.@.@\"\"|
|00003b40| 89 12 88 82 11 00 88 0a | 29 82 31 00 c5 87 22 20 |........|).1..." |
|00003b50| 5b 61 20 62 20 61 63 63 | 75 6d 20 6d 61 74 68 2d |[a b acc|um math-|
|00003b60| 6d 75 6c 20 6d 61 74 68 | 2d 61 64 64 20 30 5d 20 |mul math|-add 0] |
|00003b70| 37 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |7))..(de|fun calc|
|00003b80| 46 75 6e 63 2d 76 6c 65 | 6e 20 28 76 29 20 28 62 |Func-vle|n (v) (b|
|00003b90| 79 74 65 2d 63 6f 64 65 | 20 22 c1 08 21 83 0c 00 |yte-code| "..!...|
|00003ba0| 08 47 53 82 19 00 c2 08 | 21 83 16 00 c3 82 19 00 |.GS.....|!.......|
|00003bb0| c4 08 44 87 22 20 5b 76 | 20 6d 61 74 68 2d 76 65 |..D." [v| math-ve|
|00003bc0| 63 74 6f 72 70 20 6d 61 | 74 68 2d 6f 62 6a 65 63 |ctorp ma|th-objec|
|00003bd0| 74 70 20 30 20 63 61 6c | 63 46 75 6e 63 2d 76 6c |tp 0 cal|cFunc-vl|
|00003be0| 65 6e 5d 20 34 29 29 0a | 0a 28 64 65 66 75 6e 20 |en] 4)).|.(defun |
|00003bf0| 63 61 6c 63 46 75 6e 63 | 2d 6d 72 6f 77 20 28 6d |calcFunc|-mrow (m|
|00003c00| 61 74 20 6e 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |at n) (b|yte-code|
|00003c10| 20 22 08 3a 85 09 00 08 | 40 c2 3d 83 13 00 c3 c4 | ".:....|@.=.....|
|00003c20| 08 5c 22 82 7b 00 c5 08 | 21 c6 3d 85 1e 00 c7 08 |.\".{...|!.=.....|
|00003c30| 21 83 4b 00 c8 09 c9 ca | 08 38 cb 08 38 cc 3e 83 |!.K.....|.8..8.>.|
|00003c40| 33 00 cd 82 34 00 cb 5c | 22 c9 ce 08 38 cb 08 38 |3...4..\|"...8..8|
|00003c50| cf 3e 83 45 00 cb 82 46 | 00 cd 5c 22 23 82 7b 00 |.>.E...F|..\"#.{.|
|00003c60| d0 d1 08 21 89 10 21 85 | 58 00 08 cd 56 86 5f 00 |...!..!.|X...V._.|
|00003c70| d2 08 d3 5c 22 88 09 3a | 85 69 00 09 40 c2 3d 86 |...\"..:|.i..@.=.|
|00003c80| 70 00 d2 09 d4 5c 22 88 | 08 09 38 86 7b 00 d2 08 |p....\".|..8.{...|
|00003c90| d5 5c 22 87 22 20 5b 6e | 20 6d 61 74 20 76 65 63 |.\"." [n| mat vec|
|00003ca0| 20 6d 61 74 68 2d 6d 61 | 70 2d 76 65 63 20 28 6c | math-ma|p-vec (l|
|00003cb0| 61 6d 62 64 61 20 28 78 | 29 20 28 62 79 74 65 2d |ambda (x|) (byte-|
|00003cc0| 63 6f 64 65 20 22 c2 08 | 09 5c 22 87 22 20 5b 6d |code "..|.\"." [m|
|00003cd0| 61 74 20 78 20 63 61 6c | 63 46 75 6e 63 2d 6d 72 |at x cal|cFunc-mr|
|00003ce0| 6f 77 5d 20 33 29 29 20 | 63 61 72 2d 73 61 66 65 |ow] 3)) |car-safe|
|00003cf0| 20 69 6e 74 76 20 6d 61 | 74 68 2d 63 6f 6e 73 74 | intv ma|th-const|
|00003d00| 70 20 63 61 6c 63 46 75 | 6e 63 2d 73 75 62 76 65 |p calcFu|nc-subve|
|00003d10| 63 20 6d 61 74 68 2d 61 | 64 64 20 32 20 31 20 28 |c math-a|dd 2 1 (|
|00003d20| 32 20 33 29 20 30 20 33 | 20 28 31 20 33 29 20 69 |2 3) 0 3| (1 3) i|
|00003d30| 6e 74 65 67 65 72 70 20 | 6d 61 74 68 2d 63 68 65 |ntegerp |math-che|
|00003d40| 63 6b 2d 69 6e 74 65 67 | 65 72 20 6d 61 74 68 2d |ck-integ|er math-|
|00003d50| 72 65 6a 65 63 74 2d 61 | 72 67 20 66 69 78 70 6f |reject-a|rg fixpo|
|00003d60| 73 69 6e 74 70 20 76 65 | 63 74 6f 72 70 20 22 2a |sintp ve|ctorp "*|
|00003d70| 49 6e 64 65 78 20 6f 75 | 74 20 6f 66 20 72 61 6e |Index ou|t of ran|
|00003d80| 67 65 22 5d 20 31 33 29 | 29 0a 0a 28 64 65 66 75 |ge"] 13)|)..(defu|
|00003d90| 6e 20 63 61 6c 63 46 75 | 6e 63 2d 73 75 62 73 63 |n calcFu|nc-subsc|
|00003da0| 72 20 28 6d 61 74 20 6e | 20 26 6f 70 74 69 6f 6e |r (mat n| &option|
|00003db0| 61 6c 20 6d 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |al m) (b|yte-code|
|00003dc0| 20 22 c3 08 09 5c 22 89 | 10 88 0a 83 1f 00 c4 09 | "...\".|........|
|00003dd0| 21 83 18 00 c3 08 0a 5c | 22 82 1c 00 c5 08 0a 5c |!......\|"......\|
|00003de0| 22 82 20 00 08 87 22 20 | 5b 6d 61 74 20 6e 20 6d |". ..." |[mat n m|
|00003df0| 20 63 61 6c 63 46 75 6e | 63 2d 6d 72 6f 77 20 6d | calcFun|c-mrow m|
|00003e00| 61 74 68 2d 6e 75 6d 2d | 69 6e 74 65 67 65 72 70 |ath-num-|integerp|
|00003e10| 20 63 61 6c 63 46 75 6e | 63 2d 6d 63 6f 6c 5d 20 | calcFun|c-mcol] |
|00003e20| 36 29 29 0a 0a 28 64 65 | 66 75 6e 20 6d 61 74 68 |6))..(de|fun math|
|00003e30| 2d 6d 61 74 2d 63 6f 6c | 20 28 6d 61 74 20 6e 29 |-mat-col| (mat n)|
|00003e40| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 c2 c3 | (byte-c|ode "...|
|00003e50| 08 41 5c 22 42 87 22 20 | 5b 6d 61 74 20 76 65 63 |.A\"B." |[mat vec|
|00003e60| 20 6d 61 70 63 61 72 20 | 28 6c 61 6d 62 64 61 20 | mapcar |(lambda |
|00003e70| 28 78 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |(x) (byt|e-code "|
|00003e80| c2 08 09 5c 22 87 22 20 | 5b 78 20 6e 20 65 6c 74 |...\"." |[x n elt|
|00003e90| 5d 20 33 29 29 5d 20 34 | 29 29 0a 0a 28 64 65 66 |] 3))] 4|))..(def|
|00003ea0| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 6d 63 6f 6c |un calcF|unc-mcol|
|00003eb0| 20 28 6d 61 74 20 6e 29 | 20 28 62 79 74 65 2d 63 | (mat n)| (byte-c|
|00003ec0| 6f 64 65 20 22 08 3a 85 | 09 00 08 40 c2 3d 83 15 |ode ".:.|...@.=..|
|00003ed0| 00 c3 c4 c5 08 5c 22 21 | 82 7d 00 c6 08 21 c7 3d |.....\"!|.}...!.=|
|00003ee0| 85 20 00 c8 08 21 83 37 | 00 c9 09 21 83 30 00 c4 |. ...!.7|...!.0..|
|00003ef0| ca 09 5c 22 82 34 00 cb | 09 08 5c 22 82 7d 00 cc |..\".4..|..\".}..|
|00003f00| cd 08 21 89 10 21 85 44 | 00 08 ce 56 86 4b 00 cf |..!..!.D|...V.K..|
|00003f10| 08 d0 5c 22 88 09 3a 85 | 55 00 09 40 c2 3d 86 5c |..\"..:.|U..@.=.\|
|00003f20| 5c 00 cf 09 d1 5c 22 88 | c9 09 21 83 73 00 08 d2 |\....\".|..!.s...|
|00003f30| 09 38 47 57 85 70 00 d3 | 09 08 5c 22 82 76 00 08 |.8GW.p..|..\".v..|
|00003f40| 09 38 86 7d 00 cf 08 d4 | 5c 22 87 22 20 5b 6e 20 |.8.}....|\"." [n |
|00003f50| 6d 61 74 20 76 65 63 20 | 63 61 6c 63 46 75 6e 63 |mat vec |calcFunc|
|00003f60| 2d 74 72 6e 20 6d 61 74 | 68 2d 6d 61 70 2d 76 65 |-trn mat|h-map-ve|
|00003f70| 63 20 28 6c 61 6d 62 64 | 61 20 28 78 29 20 28 62 |c (lambd|a (x) (b|
|00003f80| 79 74 65 2d 63 6f 64 65 | 20 22 c2 08 09 5c 22 87 |yte-code| "...\".|
|00003f90| 22 20 5b 6d 61 74 20 78 | 20 63 61 6c 63 46 75 6e |" [mat x| calcFun|
|00003fa0| 63 2d 6d 63 6f 6c 5d 20 | 33 29 29 20 63 61 72 2d |c-mcol] |3)) car-|
|00003fb0| 73 61 66 65 20 69 6e 74 | 76 20 6d 61 74 68 2d 63 |safe int|v math-c|
|00003fc0| 6f 6e 73 74 70 20 6d 61 | 74 68 2d 6d 61 74 72 69 |onstp ma|th-matri|
|00003fd0| 78 70 20 28 6c 61 6d 62 | 64 61 20 28 78 29 20 28 |xp (lamb|da (x) (|
|00003fe0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c2 08 09 5c 22 |byte-cod|e "...\"|
|00003ff0| 87 22 20 5b 78 20 6e 20 | 63 61 6c 63 46 75 6e 63 |." [x n |calcFunc|
|00004000| 2d 6d 72 6f 77 5d 20 33 | 29 29 20 63 61 6c 63 46 |-mrow] 3|)) calcF|
|00004010| 75 6e 63 2d 6d 72 6f 77 | 20 69 6e 74 65 67 65 72 |unc-mrow| integer|
|00004020| 70 20 6d 61 74 68 2d 63 | 68 65 63 6b 2d 69 6e 74 |p math-c|heck-int|
|00004030| 65 67 65 72 20 30 20 6d | 61 74 68 2d 72 65 6a 65 |eger 0 m|ath-reje|
|00004040| 63 74 2d 61 72 67 20 66 | 69 78 70 6f 73 69 6e 74 |ct-arg f|ixposint|
|00004050| 70 20 76 65 63 74 6f 72 | 70 20 31 20 6d 61 74 68 |p vector|p 1 math|
|00004060| 2d 6d 61 74 2d 63 6f 6c | 20 22 2a 49 6e 64 65 78 |-mat-col| "*Index|
|00004070| 20 6f 75 74 20 6f 66 20 | 72 61 6e 67 65 22 5d 20 | out of |range"] |
|00004080| 31 36 29 29 0a 0a 28 64 | 65 66 75 6e 20 6d 61 74 |16))..(d|efun mat|
|00004090| 68 2d 6d 61 74 2d 6c 65 | 73 73 2d 72 6f 77 20 28 |h-mat-le|ss-row (|
|000040a0| 6d 61 74 20 6e 29 20 28 | 62 79 74 65 2d 63 6f 64 |mat n) (|byte-cod|
|000040b0| 65 20 22 08 c2 58 83 0b | 00 09 41 82 14 00 09 40 |e "..X..|..A....@|
|000040c0| c3 09 41 08 53 5c 22 42 | 87 22 20 5b 6e 20 6d 61 |..A.S\"B|." [n ma|
|000040d0| 74 20 30 20 6d 61 74 68 | 2d 6d 61 74 2d 6c 65 73 |t 0 math|-mat-les|
|000040e0| 73 2d 72 6f 77 5d 20 34 | 29 29 0a 0a 28 64 65 66 |s-row] 4|))..(def|
|000040f0| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 6d 72 72 6f |un calcF|unc-mrro|
|00004100| 77 20 28 6d 61 74 20 6e | 29 20 28 62 79 74 65 2d |w (mat n|) (byte-|
|00004110| 63 6f 64 65 20 22 c2 c3 | 08 21 89 10 21 85 1b 00 |code "..|.!..!...|
|00004120| 08 c4 56 85 1b 00 08 09 | 47 57 85 1b 00 c5 09 08 |..V.....|GW......|
|00004130| 5c 22 87 22 20 5b 6e 20 | 6d 61 74 20 69 6e 74 65 |\"." [n |mat inte|
|00004140| 67 65 72 70 20 6d 61 74 | 68 2d 63 68 65 63 6b 2d |gerp mat|h-check-|
|00004150| 69 6e 74 65 67 65 72 20 | 30 20 6d 61 74 68 2d 6d |integer |0 math-m|
|00004160| 61 74 2d 6c 65 73 73 2d | 72 6f 77 5d 20 35 29 29 |at-less-|row] 5))|
|00004170| 0a 0a 28 64 65 66 75 6e | 20 6d 61 74 68 2d 6d 61 |..(defun| math-ma|
|00004180| 74 2d 6c 65 73 73 2d 63 | 6f 6c 20 28 6d 61 74 20 |t-less-c|ol (mat |
|00004190| 6e 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |n) (byte|-code ".|
|000041a0| c2 c3 08 41 5c 22 42 87 | 22 20 5b 6d 61 74 20 76 |...A\"B.|" [mat v|
|000041b0| 65 63 20 6d 61 70 63 61 | 72 20 28 6c 61 6d 62 64 |ec mapca|r (lambd|
|000041c0| 61 20 28 78 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |a (x) (b|yte-code|
|000041d0| 20 22 c2 08 09 5c 22 87 | 22 20 5b 78 20 6e 20 6d | "...\".|" [x n m|
|000041e0| 61 74 68 2d 6d 61 74 2d | 6c 65 73 73 2d 72 6f 77 |ath-mat-|less-row|
|000041f0| 5d 20 33 29 29 5d 20 34 | 29 29 0a 0a 28 64 65 66 |] 3))] 4|))..(def|
|00004200| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 6d 72 63 6f |un calcF|unc-mrco|
|00004210| 6c 20 28 6d 61 74 20 6e | 29 20 28 62 79 74 65 2d |l (mat n|) (byte-|
|00004220| 63 6f 64 65 20 22 c2 c3 | 08 21 89 10 21 85 2a 00 |code "..|.!..!.*.|
|00004230| 08 c4 56 85 2a 00 c5 09 | 21 83 26 00 08 c6 09 38 |..V.*...|!.&....8|
|00004240| 47 57 85 23 00 c7 09 08 | 5c 22 82 2a 00 c8 09 08 |GW.#....|\".*....|
|00004250| 5c 22 87 22 20 5b 6e 20 | 6d 61 74 20 69 6e 74 65 |\"." [n |mat inte|
|00004260| 67 65 72 70 20 6d 61 74 | 68 2d 63 68 65 63 6b 2d |gerp mat|h-check-|
|00004270| 69 6e 74 65 67 65 72 20 | 30 20 6d 61 74 68 2d 6d |integer |0 math-m|
|00004280| 61 74 72 69 78 70 20 31 | 20 6d 61 74 68 2d 6d 61 |atrixp 1| math-ma|
|00004290| 74 2d 6c 65 73 73 2d 63 | 6f 6c 20 6d 61 74 68 2d |t-less-c|ol math-|
|000042a0| 6d 61 74 2d 6c 65 73 73 | 2d 72 6f 77 5d 20 37 29 |mat-less|-row] 7)|
|000042b0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 46 75 |)..(defu|n calcFu|
|000042c0| 6e 63 2d 67 65 74 64 69 | 61 67 20 28 6d 61 74 29 |nc-getdi|ag (mat)|
|000042d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 08 21 | (byte-c|ode "..!|
|000042e0| 83 10 00 c2 c3 08 41 c4 | 5c 22 42 82 18 00 c5 c6 |......A.|\"B.....|
|000042f0| 08 5c 22 88 c7 08 44 87 | 22 20 5b 6d 61 74 20 6d |.\"...D.|" [mat m|
|00004300| 61 74 68 2d 73 71 75 61 | 72 65 2d 6d 61 74 72 69 |ath-squa|re-matri|
|00004310| 78 70 20 76 65 63 20 6d | 61 74 68 2d 67 65 74 2d |xp vec m|ath-get-|
|00004320| 64 69 61 67 2d 73 74 65 | 70 20 31 20 63 61 6c 63 |diag-ste|p 1 calc|
|00004330| 2d 72 65 63 6f 72 64 2d | 77 68 79 20 73 71 75 61 |-record-|why squa|
|00004340| 72 65 2d 6d 61 74 72 69 | 78 70 20 63 61 6c 63 46 |re-matri|xp calcF|
|00004350| 75 6e 63 2d 67 65 74 64 | 69 61 67 5d 20 35 29 29 |unc-getd|iag] 5))|
|00004360| 0a 0a 28 64 65 66 75 6e | 20 6d 61 74 68 2d 67 65 |..(defun| math-ge|
|00004370| 74 2d 64 69 61 67 2d 73 | 74 65 70 20 28 72 6f 77 |t-diag-s|tep (row|
|00004380| 20 6e 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | n) (byt|e-code "|
|00004390| 08 85 0f 00 09 08 40 38 | c2 08 41 09 54 5c 22 42 |......@8|..A.T\"B|
|000043a0| 87 22 20 5b 72 6f 77 20 | 6e 20 6d 61 74 68 2d 67 |." [row |n math-g|
|000043b0| 65 74 2d 64 69 61 67 2d | 73 74 65 70 5d 20 34 29 |et-diag-|step] 4)|
|000043c0| 29 0a 0a 28 64 65 66 75 | 6e 20 6d 61 74 68 2d 74 |)..(defu|n math-t|
|000043d0| 72 61 6e 73 70 6f 73 65 | 20 28 6d 61 74 29 20 28 |ranspose| (mat) (|
|000043e0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 c4 0b 38 47 |byte-cod|e "...8G|
|000043f0| 1a 18 0a 53 89 12 c5 56 | 85 1c 00 c6 0b 0a 5c 22 |...S...V|......\"|
|00004400| 08 42 89 10 88 82 07 00 | 88 c7 08 42 2a 87 22 20 |.B......|...B*." |
|00004410| 5b 6d 20 6e 69 6c 20 63 | 6f 6c 20 6d 61 74 20 31 |[m nil c|ol mat 1|
|00004420| 20 30 20 6d 61 74 68 2d | 6d 61 74 2d 63 6f 6c 20 | 0 math-|mat-col |
|00004430| 76 65 63 5d 20 34 29 29 | 0a 0a 28 64 65 66 75 6e |vec] 4))|..(defun|
|00004440| 20 63 61 6c 63 46 75 6e | 63 2d 74 72 6e 20 28 6d | calcFun|c-trn (m|
|00004450| 61 74 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |at) (byt|e-code "|
|00004460| c1 08 21 83 18 00 c2 08 | 21 83 12 00 c3 08 21 82 |..!.....|!.....!.|
|00004470| 15 00 c4 08 21 82 26 00 | c5 08 21 83 5c 22 00 08 |....!.&.|..!.\"..|
|00004480| 82 26 00 c6 08 c7 5c 22 | 87 22 20 5b 6d 61 74 20 |.&....\"|." [mat |
|00004490| 6d 61 74 68 2d 76 65 63 | 74 6f 72 70 20 6d 61 74 |math-vec|torp mat|
|000044a0| 68 2d 6d 61 74 72 69 78 | 70 20 6d 61 74 68 2d 74 |h-matrix|p math-t|
|000044b0| 72 61 6e 73 70 6f 73 65 | 20 6d 61 74 68 2d 63 6f |ranspose| math-co|
|000044c0| 6c 2d 6d 61 74 72 69 78 | 20 6d 61 74 68 2d 6e 75 |l-matrix| math-nu|
|000044d0| 6d 62 65 72 70 20 6d 61 | 74 68 2d 72 65 6a 65 63 |mberp ma|th-rejec|
|000044e0| 74 2d 61 72 67 20 6d 61 | 74 72 69 78 70 5d 20 38 |t-arg ma|trixp] 8|
|000044f0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 46 |))..(def|un calcF|
|00004500| 75 6e 63 2d 63 74 72 6e | 20 28 6d 61 74 29 20 28 |unc-ctrn| (mat) (|
|00004510| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 c2 08 21 21 |byte-cod|e "...!!|
|00004520| 87 22 20 5b 6d 61 74 20 | 63 61 6c 63 46 75 6e 63 |." [mat |calcFunc|
|00004530| 2d 63 6f 6e 6a 20 63 61 | 6c 63 46 75 6e 63 2d 74 |-conj ca|lcFunc-t|
|00004540| 72 6e 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |rn] 3)).|.(defun |
|00004550| 63 61 6c 63 46 75 6e 63 | 2d 70 61 63 6b 20 28 6d |calcFunc|-pack (m|
|00004560| 6f 64 65 20 65 6c 73 29 | 20 28 62 79 74 65 2d 63 |ode els)| (byte-c|
|00004570| 6f 64 65 20 22 08 3a 85 | 09 00 08 40 c2 3d 86 10 |ode ".:.|...@.=..|
|00004580| 00 c3 08 c4 5c 22 88 09 | 3a 85 1a 00 09 40 c2 3d |....\"..|:....@.=|
|00004590| 85 1f 00 09 41 83 29 00 | 09 41 89 11 82 33 00 c5 |....A.).|.A...3..|
|000045a0| 09 21 86 33 00 c3 09 c6 | 5c 22 88 c7 c8 c9 8f 87 |.!.3....|\"......|
|000045b0| 22 20 5b 65 6c 73 20 6d | 6f 64 65 20 76 65 63 20 |" [els m|ode vec |
|000045c0| 6d 61 74 68 2d 72 65 6a | 65 63 74 2d 61 72 67 20 |math-rej|ect-arg |
|000045d0| 76 65 63 74 6f 72 70 20 | 69 6e 74 65 67 65 72 70 |vectorp |integerp|
|000045e0| 20 66 69 78 6e 75 6d 70 | 20 65 72 72 20 28 62 79 | fixnump| err (by|
|000045f0| 74 65 2d 63 6f 64 65 20 | 22 c2 08 21 09 47 53 55 |te-code |"..!.GSU|
|00004600| 83 12 00 c3 08 09 41 5c | 22 82 16 00 c4 09 c5 5c |......A\|"......\|
|00004610| 22 87 22 20 5b 6d 6f 64 | 65 20 65 6c 73 20 63 61 |"." [mod|e els ca|
|00004620| 6c 63 2d 70 61 63 6b 2d | 73 69 7a 65 20 63 61 6c |lc-pack-|size cal|
|00004630| 63 2d 70 61 63 6b 2d 69 | 74 65 6d 73 20 6d 61 74 |c-pack-i|tems mat|
|00004640| 68 2d 72 65 6a 65 63 74 | 2d 61 72 67 20 22 2a 57 |h-reject|-arg "*W|
|00004650| 72 6f 6e 67 20 6e 75 6d | 62 65 72 20 6f 66 20 65 |rong num|ber of e|
|00004660| 6c 65 6d 65 6e 74 73 22 | 5d 20 35 29 20 28 28 65 |lements"|] 5) ((e|
|00004670| 72 72 6f 72 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |rror (by|te-code |
|00004680| 22 c2 08 c3 09 38 5c 22 | 87 22 20 5b 65 6c 73 20 |"....8\"|." [els |
|00004690| 65 72 72 20 6d 61 74 68 | 2d 72 65 6a 65 63 74 2d |err math|-reject-|
|000046a0| 61 72 67 20 31 5d 20 34 | 29 29 29 5d 20 36 29 29 |arg 1] 4|)))] 6))|
|000046b0| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|000046c0| 63 2d 75 6e 70 61 63 6b | 20 28 6d 6f 64 65 20 74 |c-unpack| (mode t|
|000046d0| 68 69 6e 67 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |hing) (b|yte-code|
|000046e0| 20 22 c1 08 21 86 0a 00 | c2 08 c3 5c 22 88 c4 c5 | "..!...|...\"...|
|000046f0| c6 8f 87 22 20 5b 6d 6f | 64 65 20 69 6e 74 65 67 |..." [mo|de integ|
|00004700| 65 72 70 20 6d 61 74 68 | 2d 72 65 6a 65 63 74 2d |erp math|-reject-|
|00004710| 61 72 67 20 66 69 78 6e | 75 6d 70 20 65 72 72 20 |arg fixn|ump err |
|00004720| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c2 c3 08 09 |(byte-co|de "....|
|00004730| 5c 22 42 87 22 20 5b 6d | 6f 64 65 20 74 68 69 6e |\"B." [m|ode thin|
|00004740| 67 20 76 65 63 20 63 61 | 6c 63 2d 75 6e 70 61 63 |g vec ca|lc-unpac|
|00004750| 6b 2d 69 74 65 6d 5d 20 | 34 29 20 28 28 65 72 72 |k-item] |4) ((err|
|00004760| 6f 72 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |or (byte|-code ".|
|00004770| 08 c3 09 38 5c 22 87 22 | 20 5b 74 68 69 6e 67 20 |...8\"."| [thing |
|00004780| 65 72 72 20 6d 61 74 68 | 2d 72 65 6a 65 63 74 2d |err math|-reject-|
|00004790| 61 72 67 20 31 5d 20 34 | 29 29 29 5d 20 35 29 29 |arg 1] 4|)))] 5))|
|000047a0| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|000047b0| 63 2d 75 6e 70 61 63 6b | 74 20 28 6d 6f 64 65 20 |c-unpack|t (mode |
|000047c0| 74 68 69 6e 67 29 20 28 | 62 79 74 65 2d 63 6f 64 |thing) (|byte-cod|
|000047d0| 65 20 22 c3 18 c4 09 0a | 5c 22 29 87 22 20 5b 63 |e ".....|\")." [c|
|000047e0| 61 6c 63 2d 75 6e 70 61 | 63 6b 2d 77 69 74 68 2d |alc-unpa|ck-with-|
|000047f0| 74 79 70 65 20 6d 6f 64 | 65 20 74 68 69 6e 67 20 |type mod|e thing |
|00004800| 70 61 69 72 20 63 61 6c | 63 46 75 6e 63 2d 75 6e |pair cal|cFunc-un|
|00004810| 70 61 63 6b 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |pack] 3)|)..(defu|
|00004820| 6e 20 63 61 6c 63 46 75 | 6e 63 2d 61 72 72 61 6e |n calcFu|nc-arran|
|00004830| 67 65 20 28 76 65 63 20 | 63 6f 6c 73 29 20 28 62 |ge (vec |cols) (b|
|00004840| 79 74 65 2d 63 6f 64 65 | 20 22 c7 08 c1 5c 22 89 |yte-code| "...\".|
|00004850| 10 88 c8 0a 21 85 5a 00 | c9 0a 21 1b c2 43 1c c6 |....!.Z.|..!..C..|
|00004860| 1d 08 ca 58 83 23 00 cb | 0c 0b 5c 22 82 59 00 0b |...X.#..|..\".Y..|
|00004870| 47 08 59 85 49 00 cc 08 | 0b 5c 22 89 15 88 cd cc |G.Y.I...|.\".....|
|00004880| 08 53 0b 5c 22 c6 5c 22 | 88 cb 0c c2 0b 42 43 5c |.S.\".\"|.....BC\|
|00004890| 22 14 0d 89 13 88 82 23 | 00 88 0b 85 57 00 cb 0c |"......#|....W...|
|000048a0| c2 0b 42 43 5c 22 89 14 | 88 0c 2b 87 22 20 5b 63 |..BC\"..|..+." [c|
|000048b0| 6f 6c 73 20 74 20 76 65 | 63 20 66 6c 61 74 20 6d |ols t ve|c flat m|
|000048c0| 61 74 20 6e 65 78 74 20 | 6e 69 6c 20 6d 61 74 68 |at next |nil math|
|000048d0| 2d 63 68 65 63 6b 2d 66 | 69 78 6e 75 6d 20 6d 61 |-check-f|ixnum ma|
|000048e0| 74 68 2d 76 65 63 74 6f | 72 70 20 6d 61 74 68 2d |th-vecto|rp math-|
|000048f0| 66 6c 61 74 74 65 6e 2d | 76 65 63 74 6f 72 20 30 |flatten-|vector 0|
|00004900| 20 6e 63 6f 6e 63 20 6e | 74 68 63 64 72 20 73 65 | nconc n|thcdr se|
|00004910| 74 63 64 72 5d 20 31 32 | 29 29 0a 0a 28 64 65 66 |tcdr] 12|))..(def|
|00004920| 75 6e 20 6d 61 74 68 2d | 66 6c 61 74 74 65 6e 2d |un math-|flatten-|
|00004930| 76 65 63 74 6f 72 20 28 | 76 65 63 29 20 28 62 79 |vector (|vec) (by|
|00004940| 74 65 2d 63 6f 64 65 20 | 22 c1 08 21 83 11 00 c2 |te-code |"..!....|
|00004950| c3 c4 c5 08 41 5c 22 5c | 22 82 13 00 08 43 87 22 |....A\"\|"....C."|
|00004960| 20 5b 76 65 63 20 6d 61 | 74 68 2d 76 65 63 74 6f | [vec ma|th-vecto|
|00004970| 72 70 20 61 70 70 6c 79 | 20 61 70 70 65 6e 64 20 |rp apply| append |
|00004980| 6d 61 70 63 61 72 20 6d | 61 74 68 2d 66 6c 61 74 |mapcar m|ath-flat|
|00004990| 74 65 6e 2d 76 65 63 74 | 6f 72 5d 20 36 29 29 0a |ten-vect|or] 6)).|
|000049a0| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 46 75 6e 63 |.(defun |calcFunc|
|000049b0| 2d 76 63 6f 6e 63 61 74 | 20 28 61 20 62 29 20 28 |-vconcat| (a b) (|
|000049c0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c2 c3 08 09 45 |byte-cod|e "....E|
|000049d0| 21 87 22 20 5b 61 20 62 | 20 6d 61 74 68 2d 6e 6f |!." [a b| math-no|
|000049e0| 72 6d 61 6c 69 7a 65 20 | 7c 5d 20 34 29 29 0a 0a |rmalize ||] 4))..|
|000049f0| 28 64 65 66 75 6e 20 63 | 61 6c 63 46 75 6e 63 2d |(defun c|alcFunc-|
|00004a00| 76 63 6f 6e 63 61 74 72 | 65 76 20 28 61 20 62 29 |vconcatr|ev (a b)|
|00004a10| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c2 c3 08 | (byte-c|ode "...|
|00004a20| 09 45 21 87 22 20 5b 62 | 20 61 20 6d 61 74 68 2d |.E!." [b| a math-|
|00004a30| 6e 6f 72 6d 61 6c 69 7a | 65 20 7c 5d 20 34 29 29 |normaliz|e |] 4))|
|00004a40| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|00004a50| 63 2d 61 70 70 65 6e 64 | 20 28 76 31 20 76 32 29 |c-append| (v1 v2)|
|00004a60| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c2 08 21 | (byte-c|ode "..!|
|00004a70| 85 09 00 c2 09 21 83 14 | 00 c3 08 09 41 5c 22 82 |.....!..|....A\".|
|00004a80| 18 00 c4 08 09 45 87 22 | 20 5b 76 31 20 76 32 20 |.....E."| [v1 v2 |
|00004a90| 6d 61 74 68 2d 76 65 63 | 74 6f 72 70 20 61 70 70 |math-vec|torp app|
|00004aa0| 65 6e 64 20 63 61 6c 63 | 46 75 6e 63 2d 61 70 70 |end calc|Func-app|
|00004ab0| 65 6e 64 5d 20 36 29 29 | 0a 0a 28 64 65 66 75 6e |end] 6))|..(defun|
|00004ac0| 20 63 61 6c 63 46 75 6e | 63 2d 61 70 70 65 6e 64 | calcFun|c-append|
|00004ad0| 72 65 76 20 28 76 31 20 | 76 32 29 20 28 62 79 74 |rev (v1 |v2) (byt|
|00004ae0| 65 2d 63 6f 64 65 20 22 | c2 08 09 5c 22 87 22 20 |e-code "|...\"." |
|00004af0| 5b 76 32 20 76 31 20 63 | 61 6c 63 46 75 6e 63 2d |[v2 v1 c|alcFunc-|
|00004b00| 61 70 70 65 6e 64 5d 20 | 33 29 29 0a 0a 28 64 65 |append] |3))..(de|
|00004b10| 66 75 6e 20 6d 61 74 68 | 2d 63 6f 70 79 2d 6d 61 |fun math|-copy-ma|
|00004b20| 74 72 69 78 20 28 6d 29 | 20 28 62 79 74 65 2d 63 |trix (m)| (byte-c|
|00004b30| 6f 64 65 20 22 c1 c2 08 | 38 21 83 12 00 c3 c4 c5 |ode "...|8!......|
|00004b40| 08 41 5c 22 42 82 15 00 | c5 08 21 87 22 20 5b 6d |.A\"B...|..!." [m|
|00004b50| 20 6d 61 74 68 2d 76 65 | 63 74 6f 72 70 20 31 20 | math-ve|ctorp 1 |
|00004b60| 76 65 63 20 6d 61 70 63 | 61 72 20 63 6f 70 79 2d |vec mapc|ar copy-|
|00004b70| 73 65 71 75 65 6e 63 65 | 5d 20 35 29 29 0a 0a 28 |sequence|] 5))..(|
|00004b80| 64 65 66 75 6e 20 63 61 | 6c 63 46 75 6e 63 2d 64 |defun ca|lcFunc-d|
|00004b90| 69 61 67 20 28 61 20 26 | 6f 70 74 69 6f 6e 61 6c |iag (a &|optional|
|00004ba0| 20 6e 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | n) (byt|e-code "|
|00004bb0| 08 85 10 00 c2 08 21 3f | 85 10 00 c3 08 21 89 10 |......!?|.....!..|
|00004bc0| 88 c4 09 21 83 59 00 08 | 85 21 00 c5 09 47 08 54 |...!.Y..|.!...G.T|
|00004bd0| 5c 22 83 2b 00 c6 09 08 | 45 82 56 00 c7 09 21 83 |\".+....|E.V...!.|
|00004be0| 4c 00 08 85 3e 00 c5 c8 | 09 c9 5c 22 47 08 54 5c |L...>...|..\"G.T\|
|00004bf0| 22 83 48 00 c6 09 08 45 | 82 49 00 09 82 56 00 ca |".H....E|.I...V..|
|00004c00| cb 09 41 cc 09 47 53 23 | 42 82 6d 00 08 83 6a 00 |..A..GS#|B.m...j.|
|00004c10| ca cb cd 08 09 5c 22 cc | 08 23 42 82 6d 00 c6 09 |.....\".|.#B.m...|
|00004c20| 44 87 22 20 5b 6e 20 61 | 20 69 6e 74 65 67 65 72 |D." [n a| integer|
|00004c30| 70 20 6d 61 74 68 2d 63 | 68 65 63 6b 2d 66 69 78 |p math-c|heck-fix|
|00004c40| 6e 75 6d 20 6d 61 74 68 | 2d 76 65 63 74 6f 72 70 |num math|-vectorp|
|00004c50| 20 2f 3d 20 63 61 6c 63 | 46 75 6e 63 2d 64 69 61 | /= calc|Func-dia|
|00004c60| 67 20 6d 61 74 68 2d 6d | 61 74 72 69 78 70 20 65 |g math-m|atrixp e|
|00004c70| 6c 74 20 31 20 76 65 63 | 20 6d 61 74 68 2d 64 69 |lt 1 vec| math-di|
|00004c80| 61 67 2d 73 74 65 70 20 | 30 20 6d 61 6b 65 2d 6c |ag-step |0 make-l|
|00004c90| 69 73 74 5d 20 31 34 29 | 29 0a 0a 28 64 65 66 75 |ist] 14)|)..(defu|
|00004ca0| 6e 20 63 61 6c 63 46 75 | 6e 63 2d 69 64 6e 20 28 |n calcFu|nc-idn (|
|00004cb0| 61 20 26 6f 70 74 69 6f | 6e 61 6c 20 6e 29 20 28 |a &optio|nal n) (|
|00004cc0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 83 18 00 c3 |byte-cod|e ".....|
|00004cd0| 09 21 83 11 00 c4 09 c5 | 5c 22 82 15 00 c6 09 08 |.!......|\"......|
|00004ce0| 5c 22 82 28 00 c7 0a 21 | 83 25 00 c8 09 0a 5c 22 |\".(...!|.%....\"|
|00004cf0| 82 28 00 c8 09 44 87 22 | 20 5b 6e 20 61 20 63 61 |.(...D."| [n a ca|
|00004d00| 6c 63 2d 6d 61 74 72 69 | 78 2d 6d 6f 64 65 20 6d |lc-matri|x-mode m|
|00004d10| 61 74 68 2d 76 65 63 74 | 6f 72 70 20 6d 61 74 68 |ath-vect|orp math|
|00004d20| 2d 72 65 6a 65 63 74 2d | 61 72 67 20 6e 75 6d 62 |-reject-|arg numb|
|00004d30| 65 72 70 20 63 61 6c 63 | 46 75 6e 63 2d 64 69 61 |erp calc|Func-dia|
|00004d40| 67 20 69 6e 74 65 67 65 | 72 70 20 63 61 6c 63 46 |g intege|rp calcF|
|00004d50| 75 6e 63 2d 69 64 6e 5d | 20 37 29 29 0a 0a 28 64 |unc-idn]| 7))..(d|
|00004d60| 65 66 75 6e 20 6d 61 74 | 68 2d 6d 69 6d 69 63 2d |efun mat|h-mimic-|
|00004d70| 69 64 65 6e 74 20 28 61 | 20 6d 29 20 28 62 79 74 |ident (a| m) (byt|
|00004d80| 65 2d 63 6f 64 65 20 22 | c2 08 21 83 0f 00 c3 09 |e-code "|..!.....|
|00004d90| 08 47 53 5c 22 82 2d 00 | c4 08 21 83 2a 00 c5 09 |.GS\".-.|..!.*...|
|00004da0| 21 83 25 00 c6 c7 c8 08 | 41 5c 22 42 82 27 00 c9 |!.%.....|A\"B.'..|
|00004db0| 20 82 2d 00 c3 09 21 87 | 22 20 5b 6d 20 61 20 6d | .-...!.|" [m a m|
|00004dc0| 61 74 68 2d 73 71 75 61 | 72 65 2d 6d 61 74 72 69 |ath-squa|re-matri|
|00004dd0| 78 70 20 63 61 6c 63 46 | 75 6e 63 2d 69 64 6e 20 |xp calcF|unc-idn |
|00004de0| 6d 61 74 68 2d 76 65 63 | 74 6f 72 70 20 6d 61 74 |math-vec|torp mat|
|00004df0| 68 2d 7a 65 72 6f 70 20 | 76 65 63 20 6d 61 70 63 |h-zerop |vec mapc|
|00004e00| 61 72 20 28 6c 61 6d 62 | 64 61 20 28 78 29 20 28 |ar (lamb|da (x) (|
|00004e10| 62 79 74 65 2d 63 6f 64 | 65 20 22 c2 08 21 83 0d |byte-cod|e "..!..|
|00004e20| 00 c3 09 08 5c 22 82 0e | 00 09 87 22 20 5b 78 20 |....\"..|..." [x |
|00004e30| 61 20 6d 61 74 68 2d 76 | 65 63 74 6f 72 70 20 6d |a math-v|ectorp m|
|00004e40| 61 74 68 2d 6d 69 6d 69 | 63 2d 69 64 65 6e 74 5d |ath-mimi|c-ident]|
|00004e50| 20 34 29 29 20 6d 61 74 | 68 2d 64 69 6d 65 6e 73 | 4)) mat|h-dimens|
|00004e60| 69 6f 6e 2d 65 72 72 6f | 72 5d 20 38 29 29 0a 0a |ion-erro|r] 8))..|
|00004e70| 28 64 65 66 75 6e 20 6d | 61 74 68 2d 64 69 61 67 |(defun m|ath-diag|
|00004e80| 2d 73 74 65 70 20 28 61 | 20 6e 20 6d 29 20 28 62 |-step (a| n m) (b|
|00004e90| 79 74 65 2d 63 6f 64 65 | 20 22 08 09 57 83 23 00 |yte-code| "..W.#.|
|00004ea0| c4 c5 c6 08 c7 5c 22 0a | 40 c6 09 08 5a 53 c7 5c |.....\".|@...ZS.\|
|00004eb0| 22 42 5c 22 42 c8 0a 41 | 08 54 09 23 42 82 24 00 |"B\"B..A|.T.#B.$.|
|00004ec0| c3 87 22 20 5b 6e 20 6d | 20 61 20 6e 69 6c 20 76 |.." [n m| a nil v|
|00004ed0| 65 63 20 6e 63 6f 6e 63 | 20 6d 61 6b 65 2d 6c 69 |ec nconc| make-li|
|00004ee0| 73 74 20 30 20 6d 61 74 | 68 2d 64 69 61 67 2d 73 |st 0 mat|h-diag-s|
|00004ef0| 74 65 70 5d 20 38 29 29 | 0a 0a 28 64 65 66 75 6e |tep] 8))|..(defun|
|00004f00| 20 63 61 6c 63 46 75 6e | 63 2d 69 6e 64 65 78 20 | calcFun|c-index |
|00004f10| 28 6e 20 26 6f 70 74 69 | 6f 6e 61 6c 20 73 74 61 |(n &opti|onal sta|
|00004f20| 72 74 20 69 6e 63 72 29 | 20 28 62 79 74 65 2d 63 |rt incr)| (byte-c|
|00004f30| 6f 64 65 20 22 c6 08 21 | 83 12 00 c7 c8 c9 08 21 |ode "..!|.......!|
|00004f40| 09 0a 23 21 82 a2 00 ca | 08 21 3f 85 1e 00 cb 08 |..#!....|.!?.....|
|00004f50| 21 89 10 88 c4 1b 09 83 | 6d 00 08 cc 59 83 49 00 |!.......|m...Y.I.|
|00004f60| 08 53 89 10 cc 59 85 46 | 00 09 0b 42 13 cd 09 0a |.S...Y.F|...B....|
|00004f70| 86 3f 00 ce 5c 22 89 11 | 88 82 2b 00 82 64 00 08 |.?..\"..|..+..d..|
|00004f80| 54 89 10 cc 58 85 64 00 | 09 0b 42 13 cf 09 0a 86 |T...X.d.|..B.....|
|00004f90| 5d 00 d0 5c 22 89 11 88 | 82 49 00 88 d1 0b 21 89 |]..\"...|.I....!.|
|00004fa0| 13 82 9d 00 08 cc 59 83 | 88 00 08 cc 56 85 85 00 |......Y.|....V...|
|00004fb0| 08 0b 42 13 08 53 89 10 | 88 82 73 00 82 9d 00 d2 |..B..S..|..s.....|
|00004fc0| 1d 0d 08 59 85 9c 00 0d | 0b 42 13 0d 53 89 15 88 |...Y....|.B..S...|
|00004fd0| 82 8a 00 29 88 c3 0b 42 | 29 87 22 20 5b 6e 20 73 |...)...B|)." [n s|
|00004fe0| 74 61 72 74 20 69 6e 63 | 72 20 76 65 63 20 6e 69 |tart inc|r vec ni|
|00004ff0| 6c 20 69 20 6d 61 74 68 | 2d 6d 65 73 73 79 2d 69 |l i math|-messy-i|
|00005000| 6e 74 65 67 65 72 70 20 | 6d 61 74 68 2d 66 6c 6f |ntegerp |math-flo|
|00005010| 61 74 20 63 61 6c 63 46 | 75 6e 63 2d 69 6e 64 65 |at calcF|unc-inde|
|00005020| 78 20 6d 61 74 68 2d 74 | 72 75 6e 63 20 69 6e 74 |x math-t|runc int|
|00005030| 65 67 65 72 70 20 6d 61 | 74 68 2d 63 68 65 63 6b |egerp ma|th-check|
|00005040| 2d 66 69 78 6e 75 6d 20 | 30 20 6d 61 74 68 2d 61 |-fixnum |0 math-a|
|00005050| 64 64 20 31 20 6d 61 74 | 68 2d 6d 75 6c 20 32 20 |dd 1 mat|h-mul 2 |
|00005060| 6e 72 65 76 65 72 73 65 | 20 2d 31 5d 20 31 32 29 |nreverse| -1] 12)|
|00005070| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 46 75 |)..(defu|n calcFu|
|00005080| 6e 63 2d 66 69 6e 64 20 | 28 76 65 63 20 78 20 26 |nc-find |(vec x &|
|00005090| 6f 70 74 69 6f 6e 61 6c | 20 73 74 61 72 74 29 20 |optional| start) |
|000050a0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 83 0b 00 |(byte-co|de "....|
|000050b0| c5 08 c1 5c 22 82 0c 00 | c6 89 10 88 08 c6 57 85 |...\"...|......W.|
|000050c0| 19 00 c7 08 c8 5c 22 88 | c9 08 0a 5c 22 89 12 88 |.....\".|...\"...|
|000050d0| 08 1b 0a 85 2f 00 ca 0c | 0a 40 5c 22 cb 55 3f 85 |..../...|.@\".U?.|
|000050e0| 3d 00 0b 54 13 0a 41 89 | 12 88 82 23 00 88 0a 83 |=..T..A.|...#....|
|000050f0| 46 00 0b 82 47 00 cb 29 | 87 22 20 5b 73 74 61 72 |F...G..)|." [star|
|00005100| 74 20 74 20 76 65 63 20 | 6e 20 78 20 6d 61 74 68 |t t vec |n x math|
|00005110| 2d 63 68 65 63 6b 2d 66 | 69 78 6e 75 6d 20 31 20 |-check-f|ixnum 1 |
|00005120| 6d 61 74 68 2d 72 65 6a | 65 63 74 2d 61 72 67 20 |math-rej|ect-arg |
|00005130| 70 6f 73 70 20 6e 74 68 | 63 64 72 20 6d 61 74 68 |posp nth|cdr math|
|00005140| 2d 63 6f 6d 70 61 72 65 | 20 30 5d 20 37 29 29 0a |-compare| 0] 7)).|
|00005150| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 46 75 6e 63 |.(defun |calcFunc|
|00005160| 2d 73 75 62 76 65 63 20 | 28 76 65 63 20 73 74 61 |-subvec |(vec sta|
|00005170| 72 74 20 26 6f 70 74 69 | 6f 6e 61 6c 20 65 6e 64 |rt &opti|onal end|
|00005180| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c7 08 |) (byte-|code "..|
|00005190| c1 5c 22 10 c7 0a 86 0b | 00 c8 c1 5c 22 89 12 88 |.\".....|...\"...|
|000051a0| c9 0b 21 86 1a 00 ca 0b | cb 5c 22 88 0b 47 53 1c |..!.....|.\"..GS.|
|000051b0| 08 c8 58 85 2c 00 cc 0c | 08 cd 23 89 10 88 0a c8 |..X.,...|..#.....|
|000051c0| 58 85 3a 00 cc 0c 0a cd | 23 89 12 88 08 0c 56 86 |X.:.....|#.....V.|
|000051d0| 44 00 0a 08 58 83 4b 00 | ce 82 6e 00 cf 08 0b 5c |D...X.K.|..n....\|
|000051e0| 22 89 13 88 0a 0c 58 85 | 6a 00 cf d0 0a 08 cd 23 |".....X.|j......#|
|000051f0| d1 0b 21 89 13 5c 22 1d | d2 0d c6 5c 22 29 88 c3 |..!..\".|...\")..|
|00005200| 0b 42 29 87 22 20 5b 73 | 74 61 72 74 20 74 20 65 |.B)." [s|tart t e|
|00005210| 6e 64 20 76 65 63 20 6c | 65 6e 20 63 68 6f 70 20 |nd vec l|en chop |
|00005220| 6e 69 6c 20 6d 61 74 68 | 2d 63 68 65 63 6b 2d 66 |nil math|-check-f|
|00005230| 69 78 6e 75 6d 20 30 20 | 6d 61 74 68 2d 76 65 63 |ixnum 0 |math-vec|
|00005240| 74 6f 72 70 20 6d 61 74 | 68 2d 72 65 6a 65 63 74 |torp mat|h-reject|
|00005250| 2d 61 72 67 20 76 65 63 | 74 6f 72 70 20 2b 20 31 |-arg vec|torp + 1|
|00005260| 20 28 76 65 63 29 20 6e | 74 68 63 64 72 20 2d 20 | (vec) n|thcdr - |
|00005270| 63 6f 70 79 2d 73 65 71 | 75 65 6e 63 65 20 73 65 |copy-seq|uence se|
|00005280| 74 63 64 72 5d 20 31 33 | 29 29 0a 0a 28 64 65 66 |tcdr] 13|))..(def|
|00005290| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 72 73 75 62 |un calcF|unc-rsub|
|000052a0| 76 65 63 20 28 76 65 63 | 20 73 74 61 72 74 20 26 |vec (vec| start &|
|000052b0| 6f 70 74 69 6f 6e 61 6c | 20 65 6e 64 29 20 28 62 |optional| end) (b|
|000052c0| 79 74 65 2d 63 6f 64 65 | 20 22 c8 08 c1 5c 22 10 |yte-code| "...\".|
|000052d0| c8 0a 86 0b 00 c9 c1 5c | 22 89 12 88 ca 0b 21 86 |.......\|".....!.|
|000052e0| 1a 00 cb 0b cc 5c 22 88 | 0b 47 53 1c 08 c9 58 85 |.....\".|.GS...X.|
|000052f0| 2c 00 cd 0c 08 ce 23 89 | 10 88 0a c9 58 85 3a 00 |,.....#.|....X.:.|
|00005300| cd 0c 0a ce 23 89 12 88 | 08 0c 56 86 44 00 0a 08 |....#...|..V.D...|
|00005310| 58 83 4b 00 0b 82 66 00 | cf 0a 0b 5c 22 cf 08 53 |X.K...f.|...\"..S|
|00005320| d0 0b 21 89 13 5c 22 1e | 06 1d d1 0e 06 c7 5c 22 |..!..\".|......\"|
|00005330| 88 d2 0b 0d 5c 22 2a 29 | 87 22 20 5b 73 74 61 72 |....\"*)|." [star|
|00005340| 74 20 74 20 65 6e 64 20 | 76 65 63 20 6c 65 6e 20 |t t end |vec len |
|00005350| 74 61 69 6c 20 63 68 6f | 70 20 6e 69 6c 20 6d 61 |tail cho|p nil ma|
|00005360| 74 68 2d 63 68 65 63 6b | 2d 66 69 78 6e 75 6d 20 |th-check|-fixnum |
|00005370| 30 20 6d 61 74 68 2d 76 | 65 63 74 6f 72 70 20 6d |0 math-v|ectorp m|
|00005380| 61 74 68 2d 72 65 6a 65 | 63 74 2d 61 72 67 20 76 |ath-reje|ct-arg v|
|00005390| 65 63 74 6f 72 70 20 2b | 20 31 20 6e 74 68 63 64 |ectorp +| 1 nthcd|
|000053a0| 72 20 63 6f 70 79 2d 73 | 65 71 75 65 6e 63 65 20 |r copy-s|equence |
|000053b0| 73 65 74 63 64 72 20 61 | 70 70 65 6e 64 5d 20 31 |setcdr a|ppend] 1|
|000053c0| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |3))..(de|fun calc|
|000053d0| 46 75 6e 63 2d 72 65 76 | 20 28 76 65 63 29 20 28 |Func-rev| (vec) (|
|000053e0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 08 21 83 0f |byte-cod|e "..!..|
|000053f0| 00 c0 c2 08 41 21 42 82 | 13 00 c3 08 c4 5c 22 87 |....A!B.|.....\".|
|00005400| 22 20 5b 76 65 63 20 6d | 61 74 68 2d 76 65 63 74 |" [vec m|ath-vect|
|00005410| 6f 72 70 20 72 65 76 65 | 72 73 65 20 6d 61 74 68 |orp reve|rse math|
|00005420| 2d 72 65 6a 65 63 74 2d | 61 72 67 20 76 65 63 74 |-reject-|arg vect|
|00005430| 6f 72 70 5d 20 35 29 29 | 0a 0a 28 64 65 66 75 6e |orp] 5))|..(defun|
|00005440| 20 63 61 6c 63 46 75 6e | 63 2d 76 6d 61 73 6b 20 | calcFun|c-vmask |
|00005450| 28 6d 61 73 6b 20 76 65 | 63 29 20 28 62 79 74 65 |(mask ve|c) (byte|
|00005460| 2d 63 6f 64 65 20 22 c4 | 08 21 83 14 00 c5 08 21 |-code ".|.!.....!|
|00005470| 83 10 00 c6 82 11 00 09 | 82 64 00 c7 08 21 86 1e |........|.d...!..|
|00005480| 00 c8 08 c9 5c 22 88 ca | 08 21 86 29 00 c8 08 cb |....\"..|.!.)....|
|00005490| 5c 22 88 c7 09 21 86 34 | 00 c8 09 c9 5c 22 88 08 |\"...!.4|....\"..|
|000054a0| 47 09 47 55 86 3f 00 cc | 20 88 c3 1a 08 41 10 09 |G.GU.?..| ....A..|
|000054b0| 41 89 11 85 5d 00 c5 08 | 40 21 86 59 00 09 40 0a |A...]...|@!.Y..@.|
|000054c0| 42 89 12 88 82 42 00 88 | c1 cd 0a 21 42 29 87 22 |B....B..|...!B)."|
|000054d0| 20 5b 6d 61 73 6b 20 76 | 65 63 20 6e 65 77 20 6e | [mask v|ec new n|
|000054e0| 69 6c 20 6d 61 74 68 2d | 6e 75 6d 62 65 72 70 20 |il math-|numberp |
|000054f0| 6d 61 74 68 2d 7a 65 72 | 6f 70 20 28 76 65 63 29 |math-zer|op (vec)|
|00005500| 20 6d 61 74 68 2d 76 65 | 63 74 6f 72 70 20 6d 61 | math-ve|ctorp ma|
|00005510| 74 68 2d 72 65 6a 65 63 | 74 2d 61 72 67 20 76 65 |th-rejec|t-arg ve|
|00005520| 63 74 6f 72 70 20 6d 61 | 74 68 2d 63 6f 6e 73 74 |ctorp ma|th-const|
|00005530| 70 20 63 6f 6e 73 74 70 | 20 6d 61 74 68 2d 64 69 |p constp| math-di|
|00005540| 6d 65 6e 73 69 6f 6e 2d | 65 72 72 6f 72 20 6e 72 |mension-|error nr|
|00005550| 65 76 65 72 73 65 5d 20 | 31 33 29 29 0a 0a 28 64 |everse] |13))..(d|
|00005560| 65 66 75 6e 20 63 61 6c | 63 46 75 6e 63 2d 76 65 |efun cal|cFunc-ve|
|00005570| 78 70 20 28 6d 61 73 6b | 20 76 65 63 20 26 6f 70 |xp (mask| vec &op|
|00005580| 74 69 6f 6e 61 6c 20 66 | 69 6c 6c 65 72 29 20 28 |tional f|iller) (|
|00005590| 62 79 74 65 2d 63 6f 64 | 65 20 22 c6 08 21 86 0a |byte-cod|e "..!..|
|000055a0| 00 c7 08 c8 5c 22 88 c9 | 08 21 86 15 00 c7 08 ca |....\"..|.!......|
|000055b0| 5c 22 88 c6 09 21 86 20 | 00 c7 09 c8 5c 22 88 c3 |\"...!. |....\"..|
|000055c0| 0d 85 29 00 c6 0d 21 1c | 1a 08 41 89 10 85 64 00 |..)...!.|..A...d.|
|000055d0| cb 08 40 21 83 52 00 0c | 83 45 00 0d 41 89 15 40 |..@!.R..|.E..A..@|
|000055e0| 82 46 00 0d 86 4b 00 08 | 40 0a 42 89 12 82 60 00 |.F...K..|@.B...`.|
|000055f0| 09 41 11 09 40 86 5c 5c | 00 08 40 0a 42 89 12 88 |.A..@.\\|..@.B...|
|00005600| 82 2b 00 88 c1 cc 0a 21 | 42 2a 87 22 20 5b 6d 61 |.+.....!|B*." [ma|
|00005610| 73 6b 20 76 65 63 20 6e | 65 77 20 6e 69 6c 20 66 |sk vec n|ew nil f|
|00005620| 76 65 63 20 66 69 6c 6c | 65 72 20 6d 61 74 68 2d |vec fill|er math-|
|00005630| 76 65 63 74 6f 72 70 20 | 6d 61 74 68 2d 72 65 6a |vectorp |math-rej|
|00005640| 65 63 74 2d 61 72 67 20 | 76 65 63 74 6f 72 70 20 |ect-arg |vectorp |
|00005650| 6d 61 74 68 2d 63 6f 6e | 73 74 70 20 63 6f 6e 73 |math-con|stp cons|
|00005660| 74 70 20 6d 61 74 68 2d | 7a 65 72 6f 70 20 6e 72 |tp math-|zerop nr|
|00005670| 65 76 65 72 73 65 5d 20 | 31 31 29 29 0a 0a 28 64 |everse] |11))..(d|
|00005680| 65 66 75 6e 20 63 61 6c | 63 46 75 6e 63 2d 72 6e |efun cal|cFunc-rn|
|00005690| 6f 72 6d 20 28 61 29 20 | 28 62 79 74 65 2d 63 6f |orm (a) |(byte-co|
|000056a0| 64 65 20 22 08 3a 85 09 | 00 08 40 c1 3d 85 0f 00 |de ".:..|..@.=...|
|000056b0| c2 08 21 83 2c 00 c3 08 | 21 83 5c 22 00 c4 c5 c6 |..!.,...|!.\"....|
|000056c0| c7 08 5c 22 5c 22 82 29 | 00 c4 c5 c6 c8 08 5c 22 |..\"\".)|......\"|
|000056d0| 5c 22 82 34 00 c9 ca 08 | 5c 22 88 cb 08 44 87 22 |\".4....|\"...D."|
|000056e0| 20 5b 61 20 76 65 63 20 | 6d 61 74 68 2d 63 6f 6e | [a vec |math-con|
|000056f0| 73 74 70 20 6d 61 74 68 | 2d 6d 61 74 72 69 78 70 |stp math|-matrixp|
|00005700| 20 6d 61 74 68 2d 72 65 | 64 75 63 65 2d 76 65 63 | math-re|duce-vec|
|00005710| 20 6d 61 74 68 2d 6d 61 | 78 20 6d 61 74 68 2d 6d | math-ma|x math-m|
|00005720| 61 70 2d 76 65 63 20 63 | 61 6c 63 46 75 6e 63 2d |ap-vec c|alcFunc-|
|00005730| 63 6e 6f 72 6d 20 6d 61 | 74 68 2d 61 62 73 20 63 |cnorm ma|th-abs c|
|00005740| 61 6c 63 2d 72 65 63 6f | 72 64 2d 77 68 79 20 76 |alc-reco|rd-why v|
|00005750| 65 63 74 6f 72 70 20 63 | 61 6c 63 46 75 6e 63 2d |ectorp c|alcFunc-|
|00005760| 72 6e 6f 72 6d 5d 20 39 | 29 29 0a 0a 28 64 65 66 |rnorm] 9|))..(def|
|00005770| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 63 6e 6f 72 |un calcF|unc-cnor|
|00005780| 6d 20 28 61 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |m (a) (b|yte-code|
|00005790| 20 22 08 3a 85 09 00 08 | 40 c1 3d 85 0f 00 c2 08 | ".:....|@.=.....|
|000057a0| 21 83 29 00 c3 08 21 83 | 5c 22 00 c4 c5 c6 c7 08 |!.)...!.|\"......|
|000057b0| 5c 22 5c 22 82 26 00 c4 | c7 08 5c 22 82 31 00 c8 |\"\".&..|..\".1..|
|000057c0| c9 08 5c 22 88 ca 08 44 | 87 22 20 5b 61 20 76 65 |..\"...D|." [a ve|
|000057d0| 63 20 6d 61 74 68 2d 63 | 6f 6e 73 74 70 20 6d 61 |c math-c|onstp ma|
|000057e0| 74 68 2d 6d 61 74 72 69 | 78 70 20 6d 61 74 68 2d |th-matri|xp math-|
|000057f0| 72 65 64 75 63 65 2d 76 | 65 63 20 6d 61 74 68 2d |reduce-v|ec math-|
|00005800| 6d 61 78 20 6d 61 74 68 | 2d 72 65 64 75 63 65 2d |max math|-reduce-|
|00005810| 63 6f 6c 73 20 6d 61 74 | 68 2d 61 64 64 2d 61 62 |cols mat|h-add-ab|
|00005820| 73 20 63 61 6c 63 2d 72 | 65 63 6f 72 64 2d 77 68 |s calc-r|ecord-wh|
|00005830| 79 20 76 65 63 74 6f 72 | 70 20 63 61 6c 63 46 75 |y vector|p calcFu|
|00005840| 6e 63 2d 63 6e 6f 72 6d | 5d 20 38 29 29 0a 0a 28 |nc-cnorm|] 8))..(|
|00005850| 64 65 66 75 6e 20 6d 61 | 74 68 2d 61 64 64 2d 61 |defun ma|th-add-a|
|00005860| 62 73 20 28 61 20 62 29 | 20 28 62 79 74 65 2d 63 |bs (a b)| (byte-c|
|00005870| 6f 64 65 20 22 c2 c3 08 | 21 c3 09 21 5c 22 87 22 |ode "...|!..!\"."|
|00005880| 20 5b 61 20 62 20 6d 61 | 74 68 2d 61 64 64 20 6d | [a b ma|th-add m|
|00005890| 61 74 68 2d 61 62 73 5d | 20 35 29 29 0a 0a 28 64 |ath-abs]| 5))..(d|
|000058a0| 65 66 75 6e 20 63 61 6c | 63 46 75 6e 63 2d 73 6f |efun cal|cFunc-so|
|000058b0| 72 74 20 28 76 65 63 29 | 20 28 62 79 74 65 2d 63 |rt (vec)| (byte-c|
|000058c0| 6f 64 65 20 22 c1 08 21 | 83 12 00 c0 c2 c3 08 41 |ode "..!|.......A|
|000058d0| 21 c4 5c 22 42 82 16 00 | c5 08 c6 5c 22 87 22 20 |!.\"B...|...\"." |
|000058e0| 5b 76 65 63 20 6d 61 74 | 68 2d 76 65 63 74 6f 72 |[vec mat|h-vector|
|000058f0| 70 20 73 6f 72 74 20 63 | 6f 70 79 2d 73 65 71 75 |p sort c|opy-sequ|
|00005900| 65 6e 63 65 20 6d 61 74 | 68 2d 62 65 66 6f 72 65 |ence mat|h-before|
|00005910| 70 20 6d 61 74 68 2d 72 | 65 6a 65 63 74 2d 61 72 |p math-r|eject-ar|
|00005920| 67 20 76 65 63 74 6f 72 | 70 5d 20 36 29 29 0a 0a |g vector|p] 6))..|
|00005930| 28 64 65 66 75 6e 20 63 | 61 6c 63 46 75 6e 63 2d |(defun c|alcFunc-|
|00005940| 72 73 6f 72 74 20 28 76 | 65 63 29 20 28 62 79 74 |rsort (v|ec) (byt|
|00005950| 65 2d 63 6f 64 65 20 22 | c1 08 21 83 14 00 c0 c2 |e-code "|..!.....|
|00005960| c3 c4 08 41 21 c5 5c 22 | 21 42 82 18 00 c6 08 c7 |...A!.\"|!B......|
|00005970| 5c 22 87 22 20 5b 76 65 | 63 20 6d 61 74 68 2d 76 |\"." [ve|c math-v|
|00005980| 65 63 74 6f 72 70 20 6e | 72 65 76 65 72 73 65 20 |ectorp n|reverse |
|00005990| 73 6f 72 74 20 63 6f 70 | 79 2d 73 65 71 75 65 6e |sort cop|y-sequen|
|000059a0| 63 65 20 6d 61 74 68 2d | 62 65 66 6f 72 65 70 20 |ce math-|beforep |
|000059b0| 6d 61 74 68 2d 72 65 6a | 65 63 74 2d 61 72 67 20 |math-rej|ect-arg |
|000059c0| 76 65 63 74 6f 72 70 5d | 20 37 29 29 0a 0a 28 64 |vectorp]| 7))..(d|
|000059d0| 65 66 75 6e 20 63 61 6c | 63 46 75 6e 63 2d 67 72 |efun cal|cFunc-gr|
|000059e0| 61 64 65 20 28 67 72 61 | 64 65 2d 76 65 63 29 20 |ade (gra|de-vec) |
|000059f0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c2 08 21 83 |(byte-co|de "..!.|
|00005a00| 17 00 08 47 53 19 c3 c4 | c5 09 21 41 c6 5c 22 42 |...GS...|..!A.\"B|
|00005a10| 29 82 1b 00 c7 08 c8 5c | 22 87 22 20 5b 67 72 61 |)......\|"." [gra|
|00005a20| 64 65 2d 76 65 63 20 6c | 65 6e 20 6d 61 74 68 2d |de-vec l|en math-|
|00005a30| 76 65 63 74 6f 72 70 20 | 76 65 63 20 73 6f 72 74 |vectorp |vec sort|
|00005a40| 20 63 61 6c 63 46 75 6e | 63 2d 69 6e 64 65 78 20 | calcFun|c-index |
|00005a50| 6d 61 74 68 2d 67 72 61 | 64 65 2d 62 65 66 6f 72 |math-gra|de-befor|
|00005a60| 65 70 20 6d 61 74 68 2d | 72 65 6a 65 63 74 2d 61 |ep math-|reject-a|
|00005a70| 72 67 20 76 65 63 74 6f | 72 70 5d 20 36 29 29 0a |rg vecto|rp] 6)).|
|00005a80| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 46 75 6e 63 |.(defun |calcFunc|
|00005a90| 2d 72 67 72 61 64 65 20 | 28 67 72 61 64 65 2d 76 |-rgrade |(grade-v|
|00005aa0| 65 63 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ec) (byt|e-code "|
|00005ab0| c2 08 21 83 19 00 08 47 | 53 19 c3 c4 c5 c6 09 21 |..!....G|S......!|
|00005ac0| 41 c7 5c 22 21 42 29 82 | 1d 00 c8 08 c9 5c 22 87 |A.\"!B).|.....\".|
|00005ad0| 22 20 5b 67 72 61 64 65 | 2d 76 65 63 20 6c 65 6e |" [grade|-vec len|
|00005ae0| 20 6d 61 74 68 2d 76 65 | 63 74 6f 72 70 20 76 65 | math-ve|ctorp ve|
|00005af0| 63 20 6e 72 65 76 65 72 | 73 65 20 73 6f 72 74 20 |c nrever|se sort |
|00005b00| 63 61 6c 63 46 75 6e 63 | 2d 69 6e 64 65 78 20 6d |calcFunc|-index m|
|00005b10| 61 74 68 2d 67 72 61 64 | 65 2d 62 65 66 6f 72 65 |ath-grad|e-before|
|00005b20| 70 20 6d 61 74 68 2d 72 | 65 6a 65 63 74 2d 61 72 |p math-r|eject-ar|
|00005b30| 67 20 76 65 63 74 6f 72 | 70 5d 20 37 29 29 0a 0a |g vector|p] 7))..|
|00005b40| 28 64 65 66 75 6e 20 6d | 61 74 68 2d 67 72 61 64 |(defun m|ath-grad|
|00005b50| 65 2d 62 65 66 6f 72 65 | 70 20 28 69 20 6a 29 20 |e-before|p (i j) |
|00005b60| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c3 08 09 38 |(byte-co|de "...8|
|00005b70| 0a 09 38 5c 22 87 22 20 | 5b 69 20 67 72 61 64 65 |..8\"." |[i grade|
|00005b80| 2d 76 65 63 20 6a 20 6d | 61 74 68 2d 62 65 66 6f |-vec j m|ath-befo|
|00005b90| 72 65 70 5d 20 34 29 29 | 0a 0a 28 64 65 66 75 6e |rep] 4))|..(defun|
|00005ba0| 20 63 61 6c 63 46 75 6e | 63 2d 68 69 73 74 6f 67 | calcFun|c-histog|
|00005bb0| 72 61 6d 20 28 76 65 63 | 20 77 74 73 20 26 6f 70 |ram (vec| wts &op|
|00005bc0| 74 69 6f 6e 61 6c 20 6e | 29 20 28 62 79 74 65 2d |tional n|) (byte-|
|00005bd0| 63 6f 64 65 20 22 08 86 | 09 00 09 10 c9 89 11 88 |code "..|........|
|00005be0| 0a 3a 85 13 00 0a 40 c2 | 3d 86 1a 00 ca 0a cb 5c |.:....@.|=......\|
|00005bf0| 22 88 09 3a 85 24 00 09 | 40 c2 3d 85 31 00 0a 47 |"..:.$..|@.=.1..G|
|00005c00| 09 47 55 86 31 00 cc 20 | 88 cd 08 21 86 3c 00 ca |.GU.1.. |...!.<..|
|00005c10| 08 ce 5c 22 88 cf 08 d0 | 5c 22 0a 09 3a 85 4b 00 |..\"....|\"..:.K.|
|00005c20| 09 40 c2 3d 09 c8 1e 07 | 1e 06 1d 1c 1b 0c 41 89 |.@.=....|......A.|
|00005c30| 14 85 9b 00 0c 40 89 16 | 07 88 cd 0e 07 21 86 6f |.....@..|.....!.o|
|00005c40| 00 d1 0e 07 21 89 16 07 | 88 cd 0e 07 21 85 97 00 |....!...|....!...|
|00005c50| 0e 07 08 57 85 97 00 0b | 0e 07 d2 0b 0e 07 48 0d |...W....|......H.|
|00005c60| 83 94 00 0e 06 41 89 16 | 06 40 82 95 00 09 5c 22 |.....A..|.@....\"|
|00005c70| 49 88 82 54 00 88 c2 d3 | 0b c8 5c 22 42 2d 87 22 |I..T....|..\"B-."|
|00005c80| 20 5b 6e 20 77 74 73 20 | 76 65 63 20 72 65 73 20 | [n wts |vec res |
|00005c90| 76 70 20 77 76 65 63 20 | 77 70 20 62 69 6e 20 6e |vp wvec |wp bin n|
|00005ca0| 69 6c 20 31 20 6d 61 74 | 68 2d 72 65 6a 65 63 74 |il 1 mat|h-reject|
|00005cb0| 2d 61 72 67 20 76 65 63 | 74 6f 72 70 20 6d 61 74 |-arg vec|torp mat|
|00005cc0| 68 2d 64 69 6d 65 6e 73 | 69 6f 6e 2d 65 72 72 6f |h-dimens|ion-erro|
|00005cd0| 72 20 6e 61 74 6e 75 6d | 70 20 66 69 78 6e 61 74 |r natnum|p fixnat|
|00005ce0| 6e 75 6d 70 20 6d 61 6b | 65 2d 76 65 63 74 6f 72 |nump mak|e-vector|
|00005cf0| 20 30 20 6d 61 74 68 2d | 66 6c 6f 6f 72 20 6d 61 | 0 math-|floor ma|
|00005d00| 74 68 2d 61 64 64 20 61 | 70 70 65 6e 64 5d 20 31 |th-add a|ppend] 1|
|00005d10| 35 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |5))..(de|fun calc|
|00005d20| 46 75 6e 63 2d 76 75 6e | 69 6f 6e 20 28 61 20 62 |Func-vun|ion (a b|
|00005d30| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 3a |) (byte-|code ".:|
|00005d40| 3f 86 0a 00 08 40 c2 3e | 83 15 00 c3 08 44 89 10 |?....@.>|.....D..|
|00005d50| 82 1f 00 c4 08 21 86 1f | 00 c5 08 c6 5c 22 88 09 |.....!..|....\"..|
|00005d60| 3a 3f 86 2a 00 09 40 c7 | 3e 83 34 00 09 43 89 11 |:?.*..@.|>.4..C..|
|00005d70| 82 43 00 c4 09 21 86 3e | 00 c5 09 c6 5c 22 88 09 |.C...!.>|....\"..|
|00005d80| 41 89 11 88 c8 c9 08 09 | 5c 22 21 87 22 20 5b 61 |A.......|\"!." [a|
|00005d90| 20 62 20 28 62 69 67 70 | 6f 73 20 62 69 67 6e 65 | b (bigp|os bigne|
|00005da0| 67 20 66 72 61 63 20 66 | 6c 6f 61 74 20 63 70 6c |g frac f|loat cpl|
|00005db0| 78 20 70 6f 6c 61 72 20 | 68 6d 73 20 64 61 74 65 |x polar |hms date|
|00005dc0| 20 73 64 65 76 20 69 6e | 74 76 20 6d 6f 64 29 20 | sdev in|tv mod) |
|00005dd0| 76 65 63 20 6d 61 74 68 | 2d 76 65 63 74 6f 72 70 |vec math|-vectorp|
|00005de0| 20 6d 61 74 68 2d 72 65 | 6a 65 63 74 2d 61 72 67 | math-re|ject-arg|
|00005df0| 20 76 65 63 74 6f 72 70 | 20 28 62 69 67 70 6f 73 | vectorp| (bigpos|
|00005e00| 20 62 69 67 6e 65 67 20 | 66 72 61 63 20 66 6c 6f | bigneg |frac flo|
|00005e10| 61 74 20 63 70 6c 78 20 | 70 6f 6c 61 72 20 68 6d |at cplx |polar hm|
|00005e20| 73 20 64 61 74 65 20 73 | 64 65 76 20 69 6e 74 76 |s date s|dev intv|
|00005e30| 20 6d 6f 64 29 20 63 61 | 6c 63 46 75 6e 63 2d 72 | mod) ca|lcFunc-r|
|00005e40| 64 75 70 20 61 70 70 65 | 6e 64 5d 20 38 29 29 0a |dup appe|nd] 8)).|
|00005e50| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 46 75 6e 63 |.(defun |calcFunc|
|00005e60| 2d 76 69 6e 74 20 28 61 | 20 62 29 20 28 62 79 74 |-vint (a| b) (byt|
|00005e70| 65 2d 63 6f 64 65 20 22 | c3 08 21 85 09 00 c3 09 |e-code "|..!.....|
|00005e80| 21 83 5a 00 c4 08 21 41 | 89 10 88 c4 09 21 41 89 |!.Z...!A|.....!A.|
|00005e90| 11 88 c2 43 1a 08 85 5c | 22 00 09 85 52 00 c5 08 |...C...\|"...R...|
|00005ea0| 40 09 40 5c 22 83 35 00 | 08 41 89 10 82 4e 00 c6 |@.@\".5.|.A...N..|
|00005eb0| 08 40 09 40 5c 22 c7 55 | 85 49 00 08 40 0a 42 12 |.@.@\".U|.I..@.B.|
|00005ec0| 08 41 89 10 88 09 41 89 | 11 88 82 1d 00 88 c8 0a |.A....A.|........|
|00005ed0| 21 29 82 64 00 c9 ca c9 | 08 21 c9 09 21 5c 22 21 |!).d....|.!..!\"!|
|00005ee0| 87 22 20 5b 61 20 62 20 | 76 65 63 20 6d 61 74 68 |." [a b |vec math|
|00005ef0| 2d 73 69 6d 70 6c 65 2d | 73 65 74 20 63 61 6c 63 |-simple-|set calc|
|00005f00| 46 75 6e 63 2d 72 64 75 | 70 20 6d 61 74 68 2d 62 |Func-rdu|p math-b|
|00005f10| 65 66 6f 72 65 70 20 6d | 61 74 68 2d 63 6f 6d 70 |eforep m|ath-comp|
|00005f20| 61 72 65 20 30 20 6e 72 | 65 76 65 72 73 65 20 63 |are 0 nr|everse c|
|00005f30| 61 6c 63 46 75 6e 63 2d | 76 63 6f 6d 70 6c 20 63 |alcFunc-|vcompl c|
|00005f40| 61 6c 63 46 75 6e 63 2d | 76 75 6e 69 6f 6e 5d 20 |alcFunc-|vunion] |
|00005f50| 31 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c |13))..(d|efun cal|
|00005f60| 63 46 75 6e 63 2d 76 64 | 69 66 66 20 28 61 20 62 |cFunc-vd|iff (a b|
|00005f70| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c3 08 |) (byte-|code "..|
|00005f80| 21 85 09 00 c3 09 21 83 | 65 00 c4 08 21 41 89 10 |!.....!.|e...!A..|
|00005f90| 88 c4 09 21 41 89 11 88 | c2 43 1a 08 85 5d 00 09 |...!A...|.C...]..|
|00005fa0| 85 2b 00 c5 09 40 08 40 | 5c 22 85 36 00 09 41 89 |.+...@.@|\".6..A.|
|00005fb0| 11 88 82 21 00 88 09 85 | 43 00 c6 08 40 09 40 5c |...!....|C...@.@\|
|00005fc0| 22 c7 55 83 50 00 08 41 | 10 09 41 89 11 82 59 00 |".U.P..A|..A...Y.|
|00005fd0| 08 40 0a 42 12 08 41 89 | 10 88 82 1d 00 88 c8 0a |.@.B..A.|........|
|00005fe0| 21 29 82 6d 00 c9 ca c9 | 08 21 09 5c 22 21 87 22 |!).m....|.!.\"!."|
|00005ff0| 20 5b 61 20 62 20 76 65 | 63 20 6d 61 74 68 2d 73 | [a b ve|c math-s|
|00006000| 69 6d 70 6c 65 2d 73 65 | 74 20 63 61 6c 63 46 75 |imple-se|t calcFu|
|00006010| 6e 63 2d 72 64 75 70 20 | 6d 61 74 68 2d 62 65 66 |nc-rdup |math-bef|
|00006020| 6f 72 65 70 20 6d 61 74 | 68 2d 63 6f 6d 70 61 72 |orep mat|h-compar|
|00006030| 65 20 30 20 6e 72 65 76 | 65 72 73 65 20 63 61 6c |e 0 nrev|erse cal|
|00006040| 63 46 75 6e 63 2d 76 63 | 6f 6d 70 6c 20 63 61 6c |cFunc-vc|ompl cal|
|00006050| 63 46 75 6e 63 2d 76 75 | 6e 69 6f 6e 5d 20 31 32 |cFunc-vu|nion] 12|
|00006060| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 46 |))..(def|un calcF|
|00006070| 75 6e 63 2d 76 78 6f 72 | 20 28 61 20 62 29 20 28 |unc-vxor| (a b) (|
|00006080| 62 79 74 65 2d 63 6f 64 | 65 20 22 c5 08 21 85 09 |byte-cod|e "..!..|
|00006090| 00 c5 09 21 83 70 00 c6 | 08 21 41 89 10 88 c6 09 |...!.p..|.!A.....|
|000060a0| 21 41 89 11 88 c2 43 1a | 08 86 5c 22 00 09 85 68 |!A....C.|..\"...h|
|000060b0| 00 08 85 34 00 09 3f 86 | 34 00 c7 08 40 09 40 5c |...4..?.|4...@.@\|
|000060c0| 22 83 43 00 08 40 0a 42 | 12 08 41 89 10 82 64 00 |".C..@.B|..A...d.|
|000060d0| 08 85 4f 00 c8 08 40 09 | 40 5c 22 c9 55 83 59 00 |..O...@.|@\".U.Y.|
|000060e0| 08 41 89 10 82 5f 00 09 | 40 0a 42 89 12 88 09 41 |.A..._..|@.B....A|
|000060f0| 89 11 88 82 1d 00 88 ca | 0a 21 29 82 87 00 cb 08 |........|.!).....|
|00006100| 21 cb 09 21 1c 1b cc cb | cc 0b 09 5c 22 21 cb cc |!..!....|...\"!..|
|00006110| 08 0c 5c 22 21 5c 22 2a | 87 22 20 5b 61 20 62 20 |..\"!\"*|." [a b |
|00006120| 76 65 63 20 63 61 20 63 | 62 20 6d 61 74 68 2d 73 |vec ca c|b math-s|
|00006130| 69 6d 70 6c 65 2d 73 65 | 74 20 63 61 6c 63 46 75 |imple-se|t calcFu|
|00006140| 6e 63 2d 72 64 75 70 20 | 6d 61 74 68 2d 62 65 66 |nc-rdup |math-bef|
|00006150| 6f 72 65 70 20 6d 61 74 | 68 2d 63 6f 6d 70 61 72 |orep mat|h-compar|
|00006160| 65 20 30 20 6e 72 65 76 | 65 72 73 65 20 63 61 6c |e 0 nrev|erse cal|
|00006170| 63 46 75 6e 63 2d 76 63 | 6f 6d 70 6c 20 63 61 6c |cFunc-vc|ompl cal|
|00006180| 63 46 75 6e 63 2d 76 75 | 6e 69 6f 6e 5d 20 31 37 |cFunc-vu|nion] 17|
|00006190| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 46 |))..(def|un calcF|
|000061a0| 75 6e 63 2d 76 63 6f 6d | 70 6c 20 28 61 29 20 28 |unc-vcom|pl (a) (|
|000061b0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c4 08 21 89 10 |byte-cod|e "..!..|
|000061c0| 88 c1 43 c5 c6 1b 1a 19 | 08 41 89 10 85 5c 5c 00 |..C.....|.A...\\.|
|000061d0| c7 c6 08 40 38 c8 5c 22 | 85 24 00 c9 08 40 38 ca |...@8.\"|.$...@8.|
|000061e0| 3e 86 42 00 cb 0b c9 08 | 40 38 cc 3e 83 36 00 c9 |>.B.....|@8.>.6..|
|000061f0| 82 37 00 cd 5c 5c 0a c6 | 08 40 38 46 09 42 89 11 |.7..\\..|.@8F.B..|
|00006200| 88 ce 08 40 38 12 c9 08 | 40 38 cf 3e 83 55 00 c6 |...@8...|@8.>.U..|
|00006210| 82 56 00 cd 89 13 88 82 | 0d 00 88 c7 0a d0 5c 22 |.V......|......\"|
|00006220| 85 67 00 0b cd 55 86 75 | 00 cb 0b c9 5c 5c 0a d1 |.g...U.u|....\\..|
|00006230| 46 09 42 89 11 88 d2 d3 | 09 21 21 2b 87 22 20 5b |F.B.....|.!!+." [|
|00006240| 61 20 76 65 63 20 70 72 | 65 76 20 63 6c 6f 73 65 |a vec pr|ev close|
|00006250| 64 20 6d 61 74 68 2d 70 | 72 65 70 61 72 65 2d 73 |d math-p|repare-s|
|00006260| 65 74 20 28 6e 65 67 20 | 28 76 61 72 20 69 6e 66 |et (neg |(var inf|
|00006270| 20 76 61 72 2d 69 6e 66 | 29 29 20 32 20 65 71 75 | var-inf|)) 2 equ|
|00006280| 61 6c 20 28 6e 65 67 20 | 28 76 61 72 20 69 6e 66 |al (neg |(var inf|
|00006290| 20 76 61 72 2d 69 6e 66 | 29 29 20 31 20 28 32 20 | var-inf|)) 1 (2 |
|000062a0| 33 29 20 69 6e 74 76 20 | 28 30 20 31 29 20 30 20 |3) intv |(0 1) 0 |
|000062b0| 33 20 28 30 20 32 29 20 | 28 76 61 72 20 69 6e 66 |3 (0 2) |(var inf|
|000062c0| 20 76 61 72 2d 69 6e 66 | 29 20 28 76 61 72 20 69 | var-inf|) (var i|
|000062d0| 6e 66 20 76 61 72 2d 69 | 6e 66 29 20 6d 61 74 68 |nf var-i|nf) math|
|000062e0| 2d 63 6c 65 61 6e 2d 73 | 65 74 20 6e 72 65 76 65 |-clean-s|et nreve|
|000062f0| 72 73 65 5d 20 38 29 29 | 0a 0a 28 64 65 66 75 6e |rse] 8))|..(defun|
|00006300| 20 63 61 6c 63 46 75 6e | 63 2d 76 73 70 61 6e 20 | calcFun|c-vspan |
|00006310| 28 61 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |(a) (byt|e-code "|
|00006320| c2 08 21 89 10 88 08 41 | 83 2e 00 08 47 53 08 38 |..!....A|....GS.8|
|00006330| 19 c3 c4 c5 c5 08 38 38 | c6 5c 22 c4 c5 09 38 c5 |......88|.\"...8.|
|00006340| 5c 22 5c 5c c6 c5 08 38 | 38 c7 09 38 23 29 82 2f |\"\\...8|8..8#)./|
|00006350| 00 c8 87 22 20 5b 61 20 | 6c 61 73 74 20 6d 61 74 |..." [a |last mat|
|00006360| 68 2d 70 72 65 70 61 72 | 65 2d 73 65 74 20 6d 61 |h-prepar|e-set ma|
|00006370| 74 68 2d 6d 61 6b 65 2d | 69 6e 74 76 20 6c 6f 67 |th-make-|intv log|
|00006380| 61 6e 64 20 31 20 32 20 | 33 20 28 69 6e 74 76 20 |and 1 2 |3 (intv |
|00006390| 32 20 30 20 30 29 5d 20 | 38 29 29 0a 0a 28 64 65 |2 0 0)] |8))..(de|
|000063a0| 66 75 6e 20 63 61 6c 63 | 46 75 6e 63 2d 76 66 6c |fun calc|Func-vfl|
|000063b0| 6f 6f 72 20 28 61 20 26 | 6f 70 74 69 6f 6e 61 6c |oor (a &|optional|
|000063c0| 20 61 6c 77 61 79 73 2d | 76 65 63 29 20 28 62 79 | always-|vec) (by|
|000063d0| 74 65 2d 63 6f 64 65 20 | 22 c8 08 21 89 10 88 c1 |te-code |"..!....|
|000063e0| 43 08 c4 c4 c4 1e 06 1d | 1b 1a 19 0a 41 89 12 85 |C.......|....A...|
|000063f0| b8 00 c9 0a 40 38 16 06 | ca 0a 40 38 10 cb 0a 40 |....@8..|..@8...@|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
