/ Geek Gadgets 1 / ADE-1.bin / ade-dist / calc-2.02d-bin.lha / lib / emacs / site-lisp / calc-map.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 6d 61 70 20 6e | 69 6c 20 28 62 79 74 65 |lc-map 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 61 70 70 6c 79 20 | 28 26 6f 70 74 69 6f 6e |c-apply |(&option|
|00000070| 61 6c 20 6f 70 65 72 29 | 20 28 69 6e 74 65 72 61 |al oper)| (intera|
|00000080| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|00000090| 65 20 22 c0 88 c1 c2 21 | 87 22 20 5b 6e 69 6c 20 |e "....!|." [nil |
|000000a0| 63 61 6c 63 2d 64 6f 20 | 28 6c 61 6d 62 64 61 20 |calc-do |(lambda |
|000000b0| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|000000c0| c1 18 c8 c9 ca 0b 0c 5c | 22 5c 22 1a cb 1d 0e 06 |.......\|"\".....|
|000000d0| 86 25 00 cc cd ce cf d0 | 21 21 83 23 00 cf d0 21 |.%......|!!.#...!|
|000000e0| 47 53 82 24 00 d1 5c 22 | 1e 06 d2 0d 54 21 1e 07 |GS.$..\"|....T!..|
|000000f0| d3 d4 21 88 d5 d6 21 88 | d7 0d 54 d8 cb d9 da 0e |..!...!.|..T.....|
|00000100| 06 38 47 5a 4f da 0e 06 | 38 50 db dc d0 0e 06 38 |.8GZO...|8P.....8|
|00000110| 21 0e 07 45 23 2d 87 22 | 20 5b 73 65 6c 2d 6d 6f |!..E#-."| [sel-mo|
|00000120| 64 65 20 6e 69 6c 20 63 | 61 6c 63 2d 64 6f 6c 6c |de nil c|alc-doll|
|00000130| 61 72 2d 76 61 6c 75 65 | 73 20 63 61 6c 63 2d 73 |ar-value|s calc-s|
|00000140| 74 61 63 6b 2d 74 6f 70 | 20 63 61 6c 63 2d 73 74 |tack-top| calc-st|
|00000150| 61 63 6b 20 63 61 6c 63 | 2d 64 6f 6c 6c 61 72 2d |ack calc|-dollar-|
|00000160| 75 73 65 64 20 6f 70 65 | 72 20 65 78 70 72 20 6d |used ope|r expr m|
|00000170| 61 70 63 61 72 20 63 61 | 6c 63 2d 67 65 74 2d 73 |apcar ca|lc-get-s|
|00000180| 74 61 63 6b 2d 65 6c 65 | 6d 65 6e 74 20 6e 74 68 |tack-ele|ment nth|
|00000190| 63 64 72 20 30 20 63 61 | 6c 63 2d 67 65 74 2d 6f |cdr 0 ca|lc-get-o|
|000001a0| 70 65 72 61 74 6f 72 20 | 22 41 70 70 6c 79 22 20 |perator |"Apply" |
|000001b0| 6d 61 74 68 2d 76 65 63 | 74 6f 72 70 20 63 61 6c |math-vec|torp cal|
|000001c0| 63 2d 74 6f 70 20 31 20 | 2d 31 20 63 61 6c 63 2d |c-top 1 |-1 calc-|
|000001d0| 74 6f 70 2d 6e 20 6d 65 | 73 73 61 67 65 20 22 57 |top-n me|ssage "W|
|000001e0| 6f 72 6b 69 6e 67 2e 2e | 2e 22 20 63 61 6c 63 2d |orking..|." calc-|
|000001f0| 73 65 74 2d 63 6f 6d 6d | 61 6e 64 2d 66 6c 61 67 |set-comm|and-flag|
|00000200| 20 63 6c 65 61 72 2d 6d | 65 73 73 61 67 65 20 63 | clear-m|essage c|
|00000210| 61 6c 63 2d 65 6e 74 65 | 72 2d 72 65 73 75 6c 74 |alc-ente|r-result|
|00000220| 20 22 61 70 6c 22 20 34 | 20 32 20 63 61 6c 63 46 | "apl" 4| 2 calcF|
|00000230| 75 6e 63 2d 61 70 70 6c | 79 20 6d 61 74 68 2d 63 |unc-appl|y math-c|
|00000240| 61 6c 63 46 75 6e 63 2d | 74 6f 2d 76 61 72 5d 20 |alcFunc-|to-var] |
|00000250| 31 36 29 29 5d 20 32 29 | 29 0a 0a 28 64 65 66 75 |16))] 2)|)..(defu|
|00000260| 6e 20 63 61 6c 63 2d 72 | 65 64 75 63 65 20 28 26 |n calc-r|educe (&|
|00000270| 6f 70 74 69 6f 6e 61 6c | 20 6f 70 65 72 20 61 63 |optional| oper ac|
|00000280| 63 75 6d 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |cum) (in|teractiv|
|00000290| 65 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |e) (byte|-code ".|
|000002a0| 88 c1 c2 21 87 22 20 5b | 6e 69 6c 20 63 61 6c 63 |...!." [|nil calc|
|000002b0| 2d 64 6f 20 28 6c 61 6d | 62 64 61 20 6e 69 6c 20 |-do (lam|bda nil |
|000002c0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 18 cc 20 |(byte-co|de "... |
|000002d0| 1a cd 20 1b 0a 85 0e 00 | 0b 3f 83 15 00 ce 82 16 |.. .....|.?......|
|000002e0| 00 cf 1c d0 d1 d2 0e 06 | 0e 07 5c 22 5c 22 1d d3 |........|..\"\"..|
|000002f0| 1e 08 0e 0a 3f 85 30 00 | 0a 3f 85 30 00 d4 1e 09 |....?.0.|.?.0....|
|00000300| 0e 0b 86 71 00 d5 0a 83 | 53 00 0e 0a 83 45 00 d6 |...q....|S....E..|
|00000310| 82 46 00 d4 0b 83 4e 00 | d7 82 4f 00 d8 50 82 67 |.F....N.|..O..P.g|
|00000320| 00 0b 83 5b 00 d9 82 5c | 5c 00 d4 0e 0a 83 65 00 |...[...\|\.....e.|
|00000330| da 82 66 00 db 50 0a 83 | 6f 00 cf 82 70 00 ce 5c |..f..P..|o...p..\|
|00000340| 22 1e 0b dc dd 21 88 de | df 21 88 e0 0e 08 0c 5c |"....!..|.!.....\|
|00000350| 5c 0a 83 90 00 0b 83 8c | 00 e1 82 8d 00 e2 82 9a |\.......|........|
|00000360| 00 0e 0a 83 99 00 e3 82 | 9a 00 e4 d3 e5 ce 0e 0b |........|........|
|00000370| 38 47 5a 4f ce 0e 0b 38 | 50 0a 83 d8 00 0b 83 bd |8GZO...8|P.......|
|00000380| 00 0e 0a 83 b9 00 e6 82 | ba 00 e7 82 c7 00 0e 0a |........|........|
|00000390| 83 c6 00 e8 82 c7 00 e9 | ea cf 0e 0b 38 21 eb 0c |........|....8!..|
|000003a0| 0e 08 54 5c 22 42 42 82 | 05 01 0e 0a 83 e9 00 0b |..T\"BB.|........|
|000003b0| 83 e5 00 ec 82 e6 00 ed | 82 f9 00 ee ef 0b 83 f3 |........|........|
|000003c0| 00 f0 82 f4 00 d4 f1 0e | 09 52 21 ea cf 0e 0b 38 |........|.R!....8|
|000003d0| 21 f2 0e 08 54 21 45 23 | 2e 08 87 22 20 5b 73 65 |!...T!E#|..." [se|
|000003e0| 6c 2d 6d 6f 64 65 20 6e | 69 6c 20 6e 65 73 74 20 |l-mode n|il nest |
|000003f0| 72 65 76 20 6e 61 72 67 | 73 20 63 61 6c 63 2d 64 |rev narg|s calc-d|
|00000400| 6f 6c 6c 61 72 2d 76 61 | 6c 75 65 73 20 63 61 6c |ollar-va|lues cal|
|00000410| 63 2d 73 74 61 63 6b 2d | 74 6f 70 20 63 61 6c 63 |c-stack-|top calc|
|00000420| 2d 73 74 61 63 6b 20 63 | 61 6c 63 2d 64 6f 6c 6c |-stack c|alc-doll|
|00000430| 61 72 2d 75 73 65 64 20 | 63 61 6c 63 2d 6d 61 70 |ar-used |calc-map|
|00000440| 70 69 6e 67 2d 64 69 72 | 20 61 63 63 75 6d 20 6f |ping-dir| accum o|
|00000450| 70 65 72 20 63 61 6c 63 | 2d 69 73 2d 68 79 70 65 |per calc|-is-hype|
|00000460| 72 62 6f 6c 69 63 20 63 | 61 6c 63 2d 69 73 2d 69 |rbolic c|alc-is-i|
|00000470| 6e 76 65 72 73 65 20 32 | 20 31 20 6d 61 70 63 61 |nverse 2| 1 mapca|
|00000480| 72 20 63 61 6c 63 2d 67 | 65 74 2d 73 74 61 63 6b |r calc-g|et-stack|
|00000490| 2d 65 6c 65 6d 65 6e 74 | 20 6e 74 68 63 64 72 20 |-element| nthcdr |
|000004a0| 30 20 22 22 20 63 61 6c | 63 2d 67 65 74 2d 6f 70 |0 "" cal|c-get-op|
|000004b0| 65 72 61 74 6f 72 20 22 | 41 63 63 75 6d 75 6c 61 |erator "|Accumula|
|000004c0| 74 65 20 22 20 22 46 69 | 78 65 64 20 50 6f 69 6e |te " "Fi|xed Poin|
|000004d0| 74 22 20 22 4e 65 73 74 | 22 20 22 49 6e 76 20 22 |t" "Nest|" "Inv "|
|000004e0| 20 22 41 63 63 75 6d 75 | 6c 61 74 65 22 20 22 52 | "Accumu|late" "R|
|000004f0| 65 64 75 63 65 22 20 6d | 65 73 73 61 67 65 20 22 |educe" m|essage "|
|00000500| 57 6f 72 6b 69 6e 67 2e | 2e 2e 22 20 63 61 6c 63 |Working.|.." calc|
|00000510| 2d 73 65 74 2d 63 6f 6d | 6d 61 6e 64 2d 66 6c 61 |-set-com|mand-fla|
|00000520| 67 20 63 6c 65 61 72 2d | 6d 65 73 73 61 67 65 20 |g clear-|message |
|00000530| 63 61 6c 63 2d 65 6e 74 | 65 72 2d 72 65 73 75 6c |calc-ent|er-resul|
|00000540| 74 20 22 66 78 70 22 20 | 22 6e 73 74 22 20 22 61 |t "fxp" |"nst" "a|
|00000550| 63 63 22 20 22 72 65 64 | 22 20 34 20 63 61 6c 63 |cc" "red|" 4 calc|
|00000560| 46 75 6e 63 2d 61 66 69 | 78 70 20 63 61 6c 63 46 |Func-afi|xp calcF|
|00000570| 75 6e 63 2d 66 69 78 70 | 20 63 61 6c 63 46 75 6e |unc-fixp| calcFun|
|00000580| 63 2d 61 6e 65 73 74 20 | 63 61 6c 63 46 75 6e 63 |c-anest |calcFunc|
|00000590| 2d 6e 65 73 74 20 6d 61 | 74 68 2d 63 61 6c 63 46 |-nest ma|th-calcF|
|000005a0| 75 6e 63 2d 74 6f 2d 76 | 61 72 20 63 61 6c 63 2d |unc-to-v|ar calc-|
|000005b0| 74 6f 70 2d 6c 69 73 74 | 2d 6e 20 63 61 6c 63 46 |top-list|-n calcF|
|000005c0| 75 6e 63 2d 72 61 63 63 | 75 6d 20 63 61 6c 63 46 |unc-racc|um calcF|
|000005d0| 75 6e 63 2d 61 63 63 75 | 6d 20 69 6e 74 65 72 6e |unc-accu|m intern|
|000005e0| 20 22 63 61 6c 63 46 75 | 6e 63 2d 22 20 22 72 22 | "calcFu|nc-" "r"|
|000005f0| 20 22 72 65 64 75 63 65 | 22 20 63 61 6c 63 2d 74 | "reduce|" calc-t|
|00000600| 6f 70 2d 6e 5d 20 31 38 | 29 29 5d 20 32 29 29 0a |op-n] 18|))] 2)).|
|00000610| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 61 63 63 |.(defun |calc-acc|
|00000620| 75 6d 75 6c 61 74 65 20 | 28 26 6f 70 74 69 6f 6e |umulate |(&option|
|00000630| 61 6c 20 6f 70 65 72 29 | 20 28 69 6e 74 65 72 61 |al oper)| (intera|
|00000640| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|00000650| 65 20 22 c2 88 c3 08 c1 | 5c 22 87 22 20 5b 6f 70 |e ".....|\"." [op|
|00000660| 65 72 20 74 20 6e 69 6c | 20 63 61 6c 63 2d 72 65 |er t nil| calc-re|
|00000670| 64 75 63 65 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |duce] 3)|)..(defu|
|00000680| 6e 20 63 61 6c 63 2d 6d | 61 70 20 28 26 6f 70 74 |n calc-m|ap (&opt|
|00000690| 69 6f 6e 61 6c 20 6f 70 | 65 72 29 20 28 69 6e 74 |ional op|er) (int|
|000006a0| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|000006b0| 63 6f 64 65 20 22 c0 88 | c1 c2 21 87 22 20 5b 6e |code "..|..!." [n|
|000006c0| 69 6c 20 63 61 6c 63 2d | 64 6f 20 28 6c 61 6d 62 |il calc-|do (lamb|
|000006d0| 64 61 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |da nil (|byte-cod|
|000006e0| 65 20 22 c1 18 c9 ca cb | 0b 0c 5c 22 5c 22 1a cc |e ".....|..\"\"..|
|000006f0| 1d cd 1e 06 0e 07 86 17 | 00 ce cf 21 1e 07 0e 07 |........|...!....|
|00000700| 40 1e 08 d0 d1 21 88 d2 | d3 21 88 d4 0e 08 0d 5c |@....!..|.!.....\|
|00000710| 5c d5 cc d6 d7 0e 07 38 | 47 5a 4f d7 0e 07 38 50 |\......8|GZO...8P|
|00000720| d8 d9 0e 06 50 21 da db | 0e 07 38 21 dc 0e 08 0d |....P!..|..8!....|
|00000730| 54 5c 22 42 42 23 2e 06 | 87 22 20 5b 73 65 6c 2d |T\"BB#..|." [sel-|
|00000740| 6d 6f 64 65 20 6e 69 6c | 20 63 61 6c 63 2d 64 6f |mode nil| calc-do|
|00000750| 6c 6c 61 72 2d 76 61 6c | 75 65 73 20 63 61 6c 63 |llar-val|ues calc|
|00000760| 2d 73 74 61 63 6b 2d 74 | 6f 70 20 63 61 6c 63 2d |-stack-t|op calc-|
|00000770| 73 74 61 63 6b 20 63 61 | 6c 63 2d 64 6f 6c 6c 61 |stack ca|lc-dolla|
|00000780| 72 2d 75 73 65 64 20 63 | 61 6c 63 2d 6d 61 70 70 |r-used c|alc-mapp|
|00000790| 69 6e 67 2d 64 69 72 20 | 6f 70 65 72 20 6e 61 72 |ing-dir |oper nar|
|000007a0| 67 73 20 6d 61 70 63 61 | 72 20 63 61 6c 63 2d 67 |gs mapca|r calc-g|
|000007b0| 65 74 2d 73 74 61 63 6b | 2d 65 6c 65 6d 65 6e 74 |et-stack|-element|
|000007c0| 20 6e 74 68 63 64 72 20 | 30 20 22 22 20 63 61 6c | nthcdr |0 "" cal|
|000007d0| 63 2d 67 65 74 2d 6f 70 | 65 72 61 74 6f 72 20 22 |c-get-op|erator "|
|000007e0| 4d 61 70 22 20 6d 65 73 | 73 61 67 65 20 22 57 6f |Map" mes|sage "Wo|
|000007f0| 72 6b 69 6e 67 2e 2e 2e | 22 20 63 61 6c 63 2d 73 |rking...|" calc-s|
|00000800| 65 74 2d 63 6f 6d 6d 61 | 6e 64 2d 66 6c 61 67 20 |et-comma|nd-flag |
|00000810| 63 6c 65 61 72 2d 6d 65 | 73 73 61 67 65 20 63 61 |clear-me|ssage ca|
|00000820| 6c 63 2d 65 6e 74 65 72 | 2d 72 65 73 75 6c 74 20 |lc-enter|-result |
|00000830| 22 6d 61 70 22 20 34 20 | 32 20 69 6e 74 65 72 6e |"map" 4 |2 intern|
|00000840| 20 22 63 61 6c 63 46 75 | 6e 63 2d 6d 61 70 22 20 | "calcFu|nc-map" |
|00000850| 6d 61 74 68 2d 63 61 6c | 63 46 75 6e 63 2d 74 6f |math-cal|cFunc-to|
|00000860| 2d 76 61 72 20 31 20 63 | 61 6c 63 2d 74 6f 70 2d |-var 1 c|alc-top-|
|00000870| 6c 69 73 74 2d 6e 5d 20 | 31 35 29 29 5d 20 32 29 |list-n] |15))] 2)|
|00000880| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 6d |)..(defu|n calc-m|
|00000890| 61 70 2d 65 71 75 61 74 | 69 6f 6e 20 28 26 6f 70 |ap-equat|ion (&op|
|000008a0| 74 69 6f 6e 61 6c 20 6f | 70 65 72 29 20 28 69 6e |tional o|per) (in|
|000008b0| 74 65 72 61 63 74 69 76 | 65 29 20 28 62 79 74 65 |teractiv|e) (byte|
|000008c0| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 21 87 22 20 5b |-code ".|...!." [|
|000008d0| 6e 69 6c 20 63 61 6c 63 | 2d 64 6f 20 28 6c 61 6d |nil calc|-do (lam|
|000008e0| 62 64 61 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |bda nil |(byte-co|
|000008f0| 64 65 20 22 c1 18 c8 c9 | ca 0b 0c 5c 22 5c 22 1a |de "....|...\"\".|
|00000900| cb 1d 0e 06 86 14 00 cc | cd 21 1e 06 0e 06 40 1e |........|.!....@.|
|00000910| 07 ce cf 21 88 d0 d1 21 | 88 d2 0e 07 0d 5c 5c d3 |...!...!|.....\\.|
|00000920| cb d4 d5 0e 06 38 47 5a | 4f d5 0e 06 38 50 d6 20 |.....8GZ|O...8P. |
|00000930| 83 40 00 d7 82 4a 00 d8 | 20 83 49 00 d9 82 4a 00 |.@...J..| .I...J.|
|00000940| da db dc 0e 06 38 21 dd | 0e 07 0d 54 5c 22 42 42 |.....8!.|...T\"BB|
|00000950| 23 2d 87 22 20 5b 73 65 | 6c 2d 6d 6f 64 65 20 6e |#-." [se|l-mode n|
|00000960| 69 6c 20 63 61 6c 63 2d | 64 6f 6c 6c 61 72 2d 76 |il calc-|dollar-v|
|00000970| 61 6c 75 65 73 20 63 61 | 6c 63 2d 73 74 61 63 6b |alues ca|lc-stack|
|00000980| 2d 74 6f 70 20 63 61 6c | 63 2d 73 74 61 63 6b 20 |-top cal|c-stack |
|00000990| 63 61 6c 63 2d 64 6f 6c | 6c 61 72 2d 75 73 65 64 |calc-dol|lar-used|
|000009a0| 20 6f 70 65 72 20 6e 61 | 72 67 73 20 6d 61 70 63 | oper na|rgs mapc|
|000009b0| 61 72 20 63 61 6c 63 2d | 67 65 74 2d 73 74 61 63 |ar calc-|get-stac|
|000009c0| 6b 2d 65 6c 65 6d 65 6e | 74 20 6e 74 68 63 64 72 |k-elemen|t nthcdr|
|000009d0| 20 30 20 63 61 6c 63 2d | 67 65 74 2d 6f 70 65 72 | 0 calc-|get-oper|
|000009e0| 61 74 6f 72 20 22 4d 61 | 70 2d 65 71 75 61 74 69 |ator "Ma|p-equati|
|000009f0| 6f 6e 22 20 6d 65 73 73 | 61 67 65 20 22 57 6f 72 |on" mess|age "Wor|
|00000a00| 6b 69 6e 67 2e 2e 2e 22 | 20 63 61 6c 63 2d 73 65 |king..."| calc-se|
|00000a10| 74 2d 63 6f 6d 6d 61 6e | 64 2d 66 6c 61 67 20 63 |t-comman|d-flag c|
|00000a20| 6c 65 61 72 2d 6d 65 73 | 73 61 67 65 20 63 61 6c |lear-mes|sage cal|
|00000a30| 63 2d 65 6e 74 65 72 2d | 72 65 73 75 6c 74 20 22 |c-enter-|result "|
|00000a40| 6d 61 70 22 20 34 20 32 | 20 63 61 6c 63 2d 69 73 |map" 4 2| calc-is|
|00000a50| 2d 69 6e 76 65 72 73 65 | 20 63 61 6c 63 46 75 6e |-inverse| calcFun|
|00000a60| 63 2d 6d 61 70 65 71 72 | 20 63 61 6c 63 2d 69 73 |c-mapeqr| calc-is|
|00000a70| 2d 68 79 70 65 72 62 6f | 6c 69 63 20 63 61 6c 63 |-hyperbo|lic calc|
|00000a80| 46 75 6e 63 2d 6d 61 70 | 65 71 70 20 63 61 6c 63 |Func-map|eqp calc|
|00000a90| 46 75 6e 63 2d 6d 61 70 | 65 71 20 6d 61 74 68 2d |Func-map|eq math-|
|00000aa0| 63 61 6c 63 46 75 6e 63 | 2d 74 6f 2d 76 61 72 20 |calcFunc|-to-var |
|00000ab0| 31 20 63 61 6c 63 2d 74 | 6f 70 2d 6c 69 73 74 2d |1 calc-t|op-list-|
|00000ac0| 6e 5d 20 31 36 29 29 5d | 20 32 29 29 0a 0a 28 64 |n] 16))]| 2))..(d|
|00000ad0| 65 66 75 6e 20 63 61 6c | 63 2d 6d 61 70 2d 73 74 |efun cal|c-map-st|
|00000ae0| 61 63 6b 20 6e 69 6c 20 | 22 5c 0a 54 68 69 73 20 |ack nil |"\.This |
|00000af0| 69 73 20 6d 65 61 6e 74 | 20 74 6f 20 62 65 20 63 |is meant| to be c|
|00000b00| 61 6c 6c 65 64 20 62 79 | 20 63 61 6c 63 2d 6b 65 |alled by| calc-ke|
|00000b10| 79 70 61 64 20 6d 6f 64 | 65 2e 22 20 28 69 6e 74 |ypad mod|e." (int|
|00000b20| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|00000b30| 63 6f 64 65 20 22 c1 88 | c1 18 c2 c3 21 88 c4 20 |code "..|....!.. |
|00000b40| 29 87 22 20 5b 63 61 6c | 63 2d 76 65 72 69 66 79 |)." [cal|c-verify|
|00000b50| 2d 61 72 67 6c 69 73 74 | 20 6e 69 6c 20 63 61 6c |-arglist| nil cal|
|00000b60| 63 2d 75 6e 72 65 61 64 | 2d 63 6f 6d 6d 61 6e 64 |c-unread|-command|
|00000b70| 20 33 36 20 63 61 6c 63 | 2d 6d 61 70 5d 20 33 29 | 36 calc|-map] 3)|
|00000b80| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 6f |)..(defu|n calc-o|
|00000b90| 75 74 65 72 2d 70 72 6f | 64 75 63 74 20 28 26 6f |uter-pro|duct (&o|
|00000ba0| 70 74 69 6f 6e 61 6c 20 | 6f 70 65 72 29 20 28 69 |ptional |oper) (i|
|00000bb0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00000bc0| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 21 87 22 20 |e-code "|....!." |
|00000bd0| 5b 6e 69 6c 20 63 61 6c | 63 2d 64 6f 20 28 6c 61 |[nil cal|c-do (la|
|00000be0| 6d 62 64 61 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |mbda nil| (byte-c|
|00000bf0| 6f 64 65 20 22 c1 18 c7 | c8 c9 0b 0c 5c 22 5c 22 |ode "...|....\"\"|
|00000c00| 1a ca 1d 0e 06 86 15 00 | cb cc cd 5c 22 1e 06 ce |........|...\"...|
|00000c10| cf 21 88 d0 d1 21 88 d2 | cd 0d 5c 5c d3 ca d4 cd |.!...!..|..\\....|
|00000c20| 0e 06 38 47 5a 4f cd 0e | 06 38 50 d5 d6 d7 0e 06 |..8GZO..|.8P.....|
|00000c30| 38 21 d8 cd 0d 54 5c 22 | 42 42 23 2c 87 22 20 5b |8!...T\"|BB#,." [|
|00000c40| 73 65 6c 2d 6d 6f 64 65 | 20 6e 69 6c 20 63 61 6c |sel-mode| nil cal|
|00000c50| 63 2d 64 6f 6c 6c 61 72 | 2d 76 61 6c 75 65 73 20 |c-dollar|-values |
|00000c60| 63 61 6c 63 2d 73 74 61 | 63 6b 2d 74 6f 70 20 63 |calc-sta|ck-top c|
|00000c70| 61 6c 63 2d 73 74 61 63 | 6b 20 63 61 6c 63 2d 64 |alc-stac|k calc-d|
|00000c80| 6f 6c 6c 61 72 2d 75 73 | 65 64 20 6f 70 65 72 20 |ollar-us|ed oper |
|00000c90| 6d 61 70 63 61 72 20 63 | 61 6c 63 2d 67 65 74 2d |mapcar c|alc-get-|
|00000ca0| 73 74 61 63 6b 2d 65 6c | 65 6d 65 6e 74 20 6e 74 |stack-el|ement nt|
|00000cb0| 68 63 64 72 20 30 20 63 | 61 6c 63 2d 67 65 74 2d |hcdr 0 c|alc-get-|
|00000cc0| 6f 70 65 72 61 74 6f 72 | 20 22 4f 75 74 65 72 22 |operator| "Outer"|
|00000cd0| 20 32 20 6d 65 73 73 61 | 67 65 20 22 57 6f 72 6b | 2 messa|ge "Work|
|00000ce0| 69 6e 67 2e 2e 2e 22 20 | 63 61 6c 63 2d 73 65 74 |ing..." |calc-set|
|00000cf0| 2d 63 6f 6d 6d 61 6e 64 | 2d 66 6c 61 67 20 63 6c |-command|-flag cl|
|00000d00| 65 61 72 2d 6d 65 73 73 | 61 67 65 20 63 61 6c 63 |ear-mess|age calc|
|00000d10| 2d 65 6e 74 65 72 2d 72 | 65 73 75 6c 74 20 22 6f |-enter-r|esult "o|
|00000d20| 75 74 22 20 34 20 63 61 | 6c 63 46 75 6e 63 2d 6f |ut" 4 ca|lcFunc-o|
|00000d30| 75 74 65 72 20 6d 61 74 | 68 2d 63 61 6c 63 46 75 |uter mat|h-calcFu|
|00000d40| 6e 63 2d 74 6f 2d 76 61 | 72 20 31 20 63 61 6c 63 |nc-to-va|r 1 calc|
|00000d50| 2d 74 6f 70 2d 6c 69 73 | 74 2d 6e 5d 20 31 34 29 |-top-lis|t-n] 14)|
|00000d60| 29 5d 20 32 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |)] 2))..|(defun c|
|00000d70| 61 6c 63 2d 69 6e 6e 65 | 72 2d 70 72 6f 64 75 63 |alc-inne|r-produc|
|00000d80| 74 20 28 26 6f 70 74 69 | 6f 6e 61 6c 20 6d 75 6c |t (&opti|onal mul|
|00000d90| 2d 6f 70 65 72 20 61 64 | 64 2d 6f 70 65 72 29 20 |-oper ad|d-oper) |
|00000da0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 29 20 28 62 |(interac|tive) (b|
|00000db0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c1 c2 21 87 |yte-code| "....!.|
|00000dc0| 22 20 5b 6e 69 6c 20 63 | 61 6c 63 2d 64 6f 20 28 |" [nil c|alc-do (|
|00000dd0| 6c 61 6d 62 64 61 20 6e | 69 6c 20 28 62 79 74 65 |lambda n|il (byte|
|00000de0| 2d 63 6f 64 65 20 22 c1 | 18 c9 ca cb 0b 0c 5c 22 |-code ".|......\"|
|00000df0| 5c 22 1a cc 1d 0e 06 86 | 15 00 cd ce cf 5c 22 1e |\"......|.....\".|
|00000e00| 06 0d 1e 07 0e 07 cc 56 | 83 26 00 0a 41 82 27 00 |.......V|.&..A.'.|
|00000e10| 0a 1a cc 1d 0e 08 86 33 | 00 cd d0 cf 5c 22 1e 08 |.......3|....\"..|
|00000e20| d1 d2 21 88 d3 d4 21 88 | d5 d6 cf 0e 07 0d 23 d7 |..!...!.|......#.|
|00000e30| cf 0e 06 38 cc d8 4f cf | 0e 08 38 cc d8 4f 51 d9 |...8..O.|..8..OQ.|
|00000e40| da db d8 0e 06 38 21 db | d8 0e 08 38 21 45 dc cf |.....8!.|...8!E..|
|00000e50| d6 d8 0e 07 0d 23 5c 22 | 5c 22 23 2e 08 87 22 20 |.....#\"|\"#..." |
|00000e60| 5b 73 65 6c 2d 6d 6f 64 | 65 20 6e 69 6c 20 63 61 |[sel-mod|e nil ca|
|00000e70| 6c 63 2d 64 6f 6c 6c 61 | 72 2d 76 61 6c 75 65 73 |lc-dolla|r-values|
|00000e80| 20 63 61 6c 63 2d 73 74 | 61 63 6b 2d 74 6f 70 20 | calc-st|ack-top |
|00000e90| 63 61 6c 63 2d 73 74 61 | 63 6b 20 63 61 6c 63 2d |calc-sta|ck calc-|
|00000ea0| 64 6f 6c 6c 61 72 2d 75 | 73 65 64 20 6d 75 6c 2d |dollar-u|sed mul-|
|00000eb0| 6f 70 65 72 20 6d 75 6c | 2d 75 73 65 64 20 61 64 |oper mul|-used ad|
|00000ec0| 64 2d 6f 70 65 72 20 6d | 61 70 63 61 72 20 63 61 |d-oper m|apcar ca|
|00000ed0| 6c 63 2d 67 65 74 2d 73 | 74 61 63 6b 2d 65 6c 65 |lc-get-s|tack-ele|
|00000ee0| 6d 65 6e 74 20 6e 74 68 | 63 64 72 20 30 20 63 61 |ment nth|cdr 0 ca|
|00000ef0| 6c 63 2d 67 65 74 2d 6f | 70 65 72 61 74 6f 72 20 |lc-get-o|perator |
|00000f00| 22 49 6e 6e 65 72 20 28 | 4d 75 6c 74 29 22 20 32 |"Inner (|Mult)" 2|
|00000f10| 20 22 49 6e 6e 65 72 20 | 28 41 64 64 29 22 20 6d | "Inner |(Add)" m|
|00000f20| 65 73 73 61 67 65 20 22 | 57 6f 72 6b 69 6e 67 2e |essage "|Working.|
|00000f30| 2e 2e 22 20 63 61 6c 63 | 2d 73 65 74 2d 63 6f 6d |.." calc|-set-com|
|00000f40| 6d 61 6e 64 2d 66 6c 61 | 67 20 63 6c 65 61 72 2d |mand-fla|g clear-|
|00000f50| 6d 65 73 73 61 67 65 20 | 63 61 6c 63 2d 65 6e 74 |message |calc-ent|
|00000f60| 65 72 2d 72 65 73 75 6c | 74 20 2b 20 22 69 6e 22 |er-resul|t + "in"|
|00000f70| 20 31 20 6e 63 6f 6e 63 | 20 63 61 6c 63 46 75 6e | 1 nconc| calcFun|
|00000f80| 63 2d 69 6e 6e 65 72 20 | 6d 61 74 68 2d 63 61 6c |c-inner |math-cal|
|00000f90| 63 46 75 6e 63 2d 74 6f | 2d 76 61 72 20 63 61 6c |cFunc-to|-var cal|
|00000fa0| 63 2d 74 6f 70 2d 6c 69 | 73 74 2d 6e 5d 20 32 30 |c-top-li|st-n] 20|
|00000fb0| 29 29 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |))] 2)).|.(defun |
|00000fc0| 63 61 6c 63 2d 67 65 74 | 2d 6f 70 65 72 61 74 6f |calc-get|-operato|
|00000fd0| 72 20 28 6d 73 67 20 26 | 6f 70 74 69 6f 6e 61 6c |r (msg &|optional|
|00000fe0| 20 6e 61 72 67 73 29 20 | 28 62 79 74 65 2d 63 6f | nargs) |(byte-co|
|00000ff0| 64 65 20 22 c1 89 10 88 | c1 c1 c1 c1 c1 c1 c1 e4 |de "....|........|
|00001000| e5 1e 0a 1e 09 1e 08 1e | 07 1e 06 1d 1c 1b 1a 0e |........|........|
|00001010| 06 3f 85 56 06 e6 e7 0e | 0b e8 0e 0c e9 5c 22 83 |.?.V....|.....\".|
|00001020| 31 00 ea 82 56 00 e8 0e | 0c eb 5c 22 83 3d 00 ec |1...V...|..\".=..|
|00001030| 82 56 00 e8 0e 0c ed 5c | 22 83 49 00 ee 82 56 00 |.V.....\|".I...V.|
|00001040| e8 0e 0c ef 5c 22 83 55 | 00 f0 82 56 00 f1 0d 83 |....\".U|...V....|
|00001050| 6c 00 f2 f3 0d 0d f4 55 | 83 67 00 f1 82 68 00 f5 |l......U|.g...h..|
|00001060| 23 82 71 00 0e 09 0e 0a | 38 0a 83 79 00 f6 82 7a |#.q.....|8..y...z|
|00001070| 00 f1 0b 83 82 00 f7 82 | 83 00 f1 0c 83 8f 00 f8 |........|........|
|00001080| 0c 21 f9 50 82 90 00 f1 | 26 07 88 72 89 16 07 88 |.!.P....|&..r....|
|00001090| 0e 07 fa 59 85 a6 00 0e | 07 fa 5a 89 16 07 88 0e |...Y....|..Z.....|
|000010a0| 07 fb 3e 83 b3 00 fc 20 | 82 52 06 0e 07 fd 3e 86 |..>.... |.R....>.|
|000010b0| 52 06 0e 07 fe 55 83 cf | 00 ff 0e 09 54 0e 0a 47 |R....U..|....T..G|
|000010c0| 5c 22 89 16 09 82 52 06 | 0e 07 81 40 00 55 85 da |\"....R.|...@.U..|
|000010d0| 00 0c 3f 83 e4 00 0a 3f | 89 12 82 52 06 0e 07 81 |..?....?|...R....|
|000010e0| 41 00 55 85 ef 00 0c 3f | 83 f9 00 0b 3f 89 13 82 |A.U....?|....?...|
|000010f0| 52 06 0e 07 0c 3d 85 07 | 01 0e 07 81 42 00 3d 3f |R....=..|....B.=?|
|00001100| 83 10 01 c1 89 14 82 52 | 06 0e 07 81 43 00 3e 85 |.......R|....C.>.|
|00001110| 1b 01 0c 3f 83 29 01 81 | 44 00 0e 07 21 89 14 82 |...?.)..|D...!...|
|00001120| 52 06 0e 07 81 45 00 3d | 85 34 01 0c 3f 83 56 01 |R....E.=|.4..?.V.|
|00001130| 0e 0c 83 4f 01 e8 0e 0c | e9 5c 22 83 48 01 f1 82 |...O....|.\".H...|
|00001140| 49 01 e9 89 16 0c 82 53 | 01 81 46 00 20 82 52 06 |I......S|..F. .R.|
|00001150| 0e 07 81 47 00 3d 85 61 | 01 0c 3f 83 a2 01 0e 0c |...G.=.a|..?.....|
|00001160| 83 9b 01 81 48 00 81 49 | 00 0e 0b 5c 22 83 88 01 |....H..I|...\"...|
|00001170| e8 0e 0c e9 5c 22 83 81 | 01 f1 82 82 01 e9 89 16 |....\"..|........|
|00001180| 0c 82 98 01 e8 0e 0c ed | 5c 22 83 94 01 f1 82 95 |........|\"......|
|00001190| 01 ed 89 16 0c 82 9f 01 | 81 46 00 20 82 52 06 0e |........|.F. .R..|
|000011a0| 07 81 4a 00 3d 85 ad 01 | 0c 3f 83 ee 01 0e 0c 83 |..J.=...|.?......|
|000011b0| e7 01 81 48 00 81 49 00 | 0e 0b 5c 22 83 d4 01 e8 |...H..I.|..\"....|
|000011c0| 0e 0c eb 5c 22 83 cd 01 | f1 82 ce 01 eb 89 16 0c |...\"...|........|
|000011d0| 82 e4 01 e8 0e 0c ef 5c | 22 83 e0 01 f1 82 e1 01 |.......\|".......|
|000011e0| ef 89 16 0c 82 eb 01 81 | 46 00 20 82 52 06 0e 07 |........|F. .R...|
|000011f0| 81 4b 00 59 85 02 02 0e | 07 81 4c 00 58 85 02 02 |.K.Y....|..L.X...|
|00001200| 0c 3f 83 43 02 0d 0e 07 | 81 4b 00 5a 3d 83 14 02 |.?.C....|.K.Z=...|
|00001210| c1 82 1a 02 0e 07 81 4b | 00 5a 89 15 88 0e 0e 85 |.......K|.Z......|
|00001220| 40 02 0d 85 40 02 81 4d | 00 0e 0e 0d 5c 22 85 40 |@...@..M|....\".@|
|00001230| 02 0e 0e e4 59 85 40 02 | 81 4e 00 81 4f 00 0e 0e |....Y.@.|.N..O...|
|00001240| 5c 22 82 52 06 0e 07 81 | 50 00 3e 83 83 03 c1 1e |\".R....|P.>.....|
|00001250| 0f c1 1e 10 c1 1e 11 0e | 07 81 51 00 3d 83 78 02 |........|..Q.=.x.|
|00001260| f4 89 16 13 88 0e 14 83 | 6e 02 0e 14 40 82 75 02 |........|n...@.u.|
|00001270| 81 4e 00 81 52 00 21 82 | e1 02 0e 15 1e 14 e4 1e |.N..R.!.|........|
|00001280| 13 e4 1e 16 81 53 00 f1 | 81 54 00 5c 22 1e 17 cd |.....S..|.T.\"...|
|00001290| 89 16 11 88 0e 17 47 f4 | 55 86 a0 02 81 4e 00 81 |......G.|U....N..|
|000012a0| 55 00 21 88 0e 13 e4 56 | 83 c8 02 0e 13 16 10 81 |U.!....V|........|
|000012b0| 56 00 0e 10 21 89 16 0f | 88 81 57 00 0e 17 40 81 |V...!...|..W...@.|
|000012c0| 58 00 0e 0f 21 0e 0f 23 | 82 e0 02 0e 16 e4 56 85 |X...!..#|......V.|
|000012d0| dc 02 0e 16 16 10 81 56 | 00 0e 10 21 89 16 0f 88 |.......V|...!....|
|000012e0| 0e 17 40 2c 1e 12 81 59 | 00 0e 12 21 81 5a 00 3d |..@,...Y|...!.Z.=|
|000012f0| 83 06 03 81 5b 00 0e 12 | 47 81 5c 5c 00 5a 0e 12 |....[...|G.\\.Z..|
|00001300| 45 16 08 cd 89 16 06 82 | 6c 03 0e 10 86 52 03 81 |E.......|l....R..|
|00001310| 5d 00 0e 12 21 88 cd 16 | 11 81 5e 00 0e 0f 81 5f |]...!...|..^...._|
|00001320| 00 5c 22 89 16 0f 88 0e | 18 85 45 03 81 60 00 81 |.\".....|..E..`..|
|00001330| 61 00 0e 0f 83 3b 03 81 | 62 00 0e 0f 21 82 3e 03 |a....;..|b...!.>.|
|00001340| 81 63 00 0e 19 cd 24 89 | 16 0f 88 81 64 00 81 65 |.c....$.|....d..e|
|00001350| 00 0e 0f 5c 22 89 16 0f | 88 81 5b 00 0e 0f 47 81 |...\"...|..[...G.|
|00001360| 66 00 81 67 00 0e 0f 0e | 12 43 23 45 16 08 cd 89 |f..g....|.C#E....|
|00001370| 16 06 88 0e 11 85 7f 03 | 81 68 00 81 5c 5c 00 0e |........|.h..\\..|
|00001380| 08 38 81 69 00 5c 22 2c | 82 52 06 81 6a 00 0e 07 |.8.i.\",|.R..j...|
|00001390| 0a 83 9a 03 0b 83 96 03 | 81 6b 00 82 97 03 f4 82 |........|.k......|
|000013a0| a5 03 0b 83 a4 03 81 5c | 5c 00 82 a5 03 e4 0c 83 |.......\|\.......|
|000013b0| b7 03 81 6c 00 f2 81 6d | 00 0c 5c 22 21 4a 82 b9 |...l...m|..\"!J..|
|000013c0| 03 0e 1a 38 5c 22 89 16 | 08 83 4e 06 f4 0e 08 38 |...8\"..|..N....8|
|000013d0| 81 6e 00 3d 83 a2 04 81 | 6c 00 81 6f 00 81 70 00 |.n.=....|l..o..p.|
|000013e0| 0e 1b 81 71 00 c1 81 72 | 00 25 21 1e 17 0d 86 e8 |...q...r|.%!.....|
|000013f0| 03 0e 0e 83 00 04 81 73 | 00 0d 86 f4 03 0e 0e 0e |.......s|........|
|00001400| 17 45 16 08 cd 89 16 06 | 82 9e 04 81 71 00 0e 17 |.E......|....q...|
|00001410| 21 83 69 04 0e 17 4b 1e | 1c 0e 1c 39 85 1a 04 0e |!.i...K.|...9....|
|00001420| 1c 4b 89 16 1c 88 81 59 | 00 0e 1c 21 81 74 00 3d |.K.....Y|...!.t.=|
|00001430| 83 5e 04 f4 0e 1c 38 e4 | 1e 0e 1e 1d 0e 1d 40 81 |.^....8.|......@.|
|00001440| 75 00 3e 3f 85 4b 04 0e | 0e 54 16 0e 0e 1d 41 89 |u.>?.K..|.T....A.|
|00001450| 16 1d 88 82 31 04 88 81 | 73 00 0e 0e 0e 17 45 16 |....1...|s.....E.|
|00001460| 08 cd 89 16 06 2a 82 65 | 04 81 4e 00 81 76 00 21 |.....*.e|..N..v.!|
|00001470| 29 82 9e 04 e6 81 77 00 | 21 88 72 1e 0e 0e 0e 81 |).....w.|!.r.....|
|00001480| 4b 00 59 85 81 04 0e 0e | 81 4c 00 58 83 99 04 81 |K.Y.....|.L.X....|
|00001490| 73 00 0e 0e 81 4b 00 5a | 0e 17 45 16 08 cd 89 16 |s....K.Z|..E.....|
|000014a0| 06 82 9d 04 81 46 00 20 | 29 29 82 4b 06 0c 81 42 |.....F. |)).K...B|
|000014b0| 00 3d 85 b0 04 0e 07 81 | 78 00 3e 86 c1 04 0c 81 |.=......|x.>.....|
|000014c0| 79 00 3d 85 c1 04 0e 07 | 81 7a 00 3d 83 47 06 e8 |y.=.....|.z.=.G..|
|000014d0| 0e 0c f1 5c 22 85 d5 04 | 81 48 00 81 49 00 0e 0b |...\"...|.H..I...|
|000014e0| 5c 22 83 e1 04 e9 89 16 | 0c 88 ea 82 12 05 e8 0e |\"......|........|
|000014f0| 0c e9 5c 22 83 ed 04 ea | 82 12 05 e8 0e 0c eb 5c |..\"....|.......\|
|00001500| 22 83 f9 04 ec 82 12 05 | e8 0e 0c ed 5c 22 83 05 |".......|....\"..|
|00001510| 05 ee 82 12 05 e8 0e 0c | ef 5c 22 83 11 05 f0 82 |........|.\".....|
|00001520| 12 05 f1 1e 1e 81 5c 5c | 00 0e 08 38 81 7b 00 3e |......\\|...8.{.>|
|00001530| 85 5c 22 05 f1 1e 0c 81 | 7c 00 f2 81 7d 00 0e 0b |.\".....||...}...|
|00001540| 0e 1e 81 7e 00 81 5c 5c | 00 0e 08 38 21 81 7f 00 |...~..\\|...8!...|
|00001550| c1 4f 0e 07 81 40 00 3d | 83 4d 05 81 80 00 82 4e |.O...@.=|.M.....N|
|00001560| 05 f1 25 81 6a 00 81 5c | 5c 00 0e 08 38 81 81 00 |..%.j..\|\...8...|
|00001570| 5c 22 41 5c 22 1e 1f 81 | 5c 5c 00 0e 08 38 81 82 |\"A\"...|\\...8..|
|00001580| 00 3d 83 8c 05 81 7c 00 | f2 81 83 00 0e 0b 0e 1e |.=....|.|........|
|00001590| 81 7e 00 81 5c 5c 00 0e | 08 38 21 81 7f 00 c1 4f |.~..\\..|.8!....O|
|000015a0| 24 21 82 8f 05 81 84 00 | 1e 20 c1 1e 1d f4 0e 08 |$!......|. ......|
|000015b0| 38 e4 56 83 a4 05 f4 0e | 08 38 82 a7 05 0e 1f 40 |8.V.....|.8.....@|
|000015c0| 1e 0e 0e 0e 1e 21 0e 15 | 1e 5c 22 0e 5c 22 85 ba |.....!..|.\".\"..|
|000015d0| 05 0e 21 e4 56 85 f6 05 | 81 85 00 f4 0e 1f 38 0e |..!.V...|......8.|
|000015e0| 5c 22 40 5c 22 86 eb 05 | 81 85 00 f4 0e 20 38 0e |\"@\"...|..... 8.|
|000015f0| 5c 22 40 5c 22 86 eb 05 | 81 86 00 0e 1d 0e 5c 22 |\"@\"...|......\"|
|00001600| 40 43 5c 22 16 1d 0e 21 | 53 89 16 21 88 0e 5c 22 |@C\"...!|S..!..\"|
|00001610| 41 89 16 5c 22 88 82 b1 | 05 88 f1 0e 0e 81 66 00 |A..\"...|......f.|
|00001620| 81 87 00 0e 1d 81 88 00 | 81 6c 00 81 7e 00 81 5c |........|.l..~..\|
|00001630| 5c 00 0e 08 38 21 0e 0c | 50 21 81 89 00 f4 0e 1f |\...8!..|P!......|
|00001640| 38 21 0e 07 81 40 00 3d | 83 35 06 81 89 00 f4 0e |8!...@.=|.5......|
|00001650| 20 38 21 0e 1d 42 82 37 | 06 0e 1d 42 5c 22 43 23 | 8!..B.7|...B\"C#|
|00001660| 45 16 08 cd 89 16 06 2e | 08 82 4b 06 cd 89 16 06 |E.......|..K.....|
|00001670| 82 52 06 81 46 00 20 88 | 82 1b 00 88 0e 0e 85 79 |.R..F. .|.......y|
|00001680| 06 0e 0e e4 59 85 79 06 | 81 4d 00 0e 0e f4 0e 08 |....Y.y.|.M......|
|00001690| 38 5c 22 85 79 06 81 4e | 00 81 4f 00 0e 0e 5c 22 |8\".y..N|..O...\"|
|000016a0| 88 81 66 00 0d 83 8a 06 | 0d 0e 08 41 41 42 82 8d |..f.....|...AAB..|
|000016b0| 06 0e 08 41 0a 83 97 06 | 81 8a 00 82 98 06 f1 0b |...A....|........|
|000016c0| 83 a2 06 81 8b 00 82 a3 | 06 f1 0c 83 ad 06 f8 0c |........|........|
|000016d0| 21 82 ae 06 f1 f8 0e 07 | 21 52 1e 23 0e 23 47 81 |!.......|!R.#.#G.|
|000016e0| 6b 00 56 83 c9 06 0e 23 | e4 81 6b 00 4f 82 cb 06 |k.V....#|..k.O...|
|000016f0| 0e 23 29 43 5c 22 2e 09 | 87 22 20 5b 63 61 6c 63 |.#)C\"..|." [calc|
|00001700| 2d 61 62 6f 72 74 65 64 | 2d 70 72 65 66 69 78 20 |-aborted|-prefix |
|00001710| 6e 69 6c 20 69 6e 76 20 | 68 79 70 20 70 72 65 66 |nil inv |hyp pref|
|00001720| 69 78 20 66 6f 72 63 65 | 6e 61 72 67 73 20 64 6f |ix force|nargs do|
|00001730| 6e 65 20 6b 65 79 20 6f | 70 65 72 20 77 68 69 63 |ne key o|per whic|
|00001740| 68 20 6d 73 67 73 20 6d | 73 67 20 63 61 6c 63 2d |h msgs m|sg calc-|
|00001750| 6d 61 70 70 69 6e 67 2d | 64 69 72 20 74 20 6e 61 |mapping-|dir t na|
|00001760| 72 67 73 20 61 72 67 6c | 69 73 74 20 68 61 73 2d |rgs argl|ist has-|
|00001770| 61 72 67 73 20 72 65 63 | 6f 72 64 2d 65 6e 74 72 |args rec|ord-entr|
|00001780| 79 20 65 78 70 72 20 63 | 61 6c 63 2d 64 6f 6c 6c |y expr c|alc-doll|
|00001790| 61 72 2d 75 73 65 64 20 | 63 61 6c 63 2d 64 6f 6c |ar-used |calc-dol|
|000017a0| 6c 61 72 2d 76 61 6c 75 | 65 73 20 63 61 6c 63 2d |lar-valu|es calc-|
|000017b0| 61 72 67 2d 76 61 6c 75 | 65 73 20 63 61 6c 63 2d |arg-valu|es calc-|
|000017c0| 68 61 73 68 65 73 2d 75 | 73 65 64 20 66 75 6e 63 |hashes-u|sed func|
|000017d0| 20 63 61 6c 63 2d 76 65 | 72 69 66 79 2d 61 72 67 | calc-ve|rify-arg|
|000017e0| 6c 69 73 74 20 6d 69 6e | 69 62 75 66 66 65 72 2d |list min|ibuffer-|
|000017f0| 6c 6f 63 61 6c 2d 6d 61 | 70 20 63 61 6c 63 2d 6f |local-ma|p calc-o|
|00001800| 70 65 72 2d 6b 65 79 73 | 20 6f 62 61 72 72 61 79 |per-keys| obarray|
|00001810| 20 64 65 66 6e 20 61 72 | 67 73 20 64 69 72 20 6f | defn ar|gs dir o|
|00001820| 70 65 72 32 20 6f 70 65 | 72 33 20 6e 20 70 20 6e |per2 ope|r3 n p n|
|00001830| 61 6d 65 20 30 20 28 22 | 28 50 72 65 73 73 20 3f |ame 0 ("|(Press ?|
|00001840| 20 66 6f 72 20 68 65 6c | 70 29 22 20 22 2b 2c 20 | for hel|p)" "+, |
|00001850| 2d 2c 20 2a 2c 20 2f 2c | 20 5e 2c 20 25 2c 20 5c |-, *, /,| ^, %, \|
|00001860| 5c 2c 20 3a 2c 20 26 2c | 20 21 2c 20 7c 2c 20 4e |\, :, &,| !, |, N|
|00001870| 65 67 22 20 22 53 48 49 | 46 54 20 2b 20 41 62 73 |eg" "SHI|FT + Abs|
|00001880| 2c 20 63 6f 6e 4a 2c 20 | 61 72 47 3b 20 6d 61 58 |, conJ, |arG; maX|
|00001890| 2c 20 6d 69 4e 3b 20 46 | 6c 6f 6f 72 2c 20 52 6f |, miN; F|loor, Ro|
|000018a0| 75 6e 64 3b 20 73 51 72 | 74 22 20 22 53 48 49 46 |und; sQr|t" "SHIF|
|000018b0| 54 20 2b 20 49 6e 76 2c | 20 48 79 70 3b 20 53 69 |T + Inv,| Hyp; Si|
|000018c0| 6e 2c 20 43 6f 73 2c 20 | 54 61 6e 3b 20 45 78 70 |n, Cos, |Tan; Exp|
|000018d0| 2c 20 4c 6e 2c 20 6c 6f | 67 42 22 20 22 41 6c 67 |, Ln, lo|gB" "Alg|
|000018e0| 65 62 72 61 20 2b 20 53 | 69 6d 70 2c 20 45 73 69 |ebra + S|imp, Esi|
|000018f0| 6d 70 2c 20 44 65 72 69 | 76 2c 20 49 6e 74 65 67 |mp, Deri|v, Integ|
|00001900| 2c 20 21 2c 20 3d 2c 20 | 65 74 63 2e 22 20 22 42 |, !, =, |etc." "B|
|00001910| 69 6e 61 72 79 20 2b 20 | 41 6e 64 2c 20 4f 72 2c |inary + |And, Or,|
|00001920| 20 58 6f 72 2c 20 44 69 | 66 66 3b 20 6c 2f 72 2f | Xor, Di|ff; l/r/|
|00001930| 74 2f 4c 2f 52 20 73 68 | 69 66 74 73 3b 20 4e 6f |t/L/R sh|ifts; No|
|00001940| 74 2c 20 43 6c 69 70 22 | 20 22 43 6f 6e 76 65 72 |t, Clip"| "Conver|
|00001950| 73 69 6f 6e 73 20 2b 20 | 44 65 67 2c 20 52 61 64 |sions + |Deg, Rad|
|00001960| 2c 20 48 4d 53 3b 20 46 | 6c 6f 61 74 3b 20 53 48 |, HMS; F|loat; SH|
|00001970| 49 46 54 20 2b 20 46 72 | 61 63 74 69 6f 6e 22 20 |IFT + Fr|action" |
|00001980| 22 46 75 6e 63 74 69 6f | 6e 73 20 2b 20 52 65 2c |"Functio|ns + Re,|
|00001990| 20 49 6d 3b 20 48 79 70 | 6f 74 3b 20 4d 61 6e 74 | Im; Hyp|ot; Mant|
|000019a0| 2c 20 45 78 70 6f 6e 2c | 20 53 63 61 6c 65 3b 20 |, Expon,| Scale; |
|000019b0| 65 74 63 2e 22 20 22 4b | 6f 6d 62 69 6e 61 74 6f |etc." "K|ombinato|
|000019c0| 72 69 63 73 20 2b 20 44 | 66 61 63 74 2c 20 4c 63 |rics + D|fact, Lc|
|000019d0| 6d 2c 20 47 63 64 2c 20 | 43 68 6f 6f 73 65 3b 20 |m, Gcd, |Choose; |
|000019e0| 52 61 6e 64 6f 6d 3b 20 | 65 74 63 2e 22 20 22 54 |Random; |etc." "T|
|000019f0| 69 6d 65 2f 64 61 74 65 | 20 2b 20 6e 65 77 59 65 |ime/date| + newYe|
|00001a00| 61 72 2c 20 49 6e 63 6d | 6f 6e 74 68 2c 20 65 74 |ar, Incm|onth, et|
|00001a10| 63 2e 22 20 22 56 65 63 | 74 6f 72 73 20 2b 20 4c |c." "Vec|tors + L|
|00001a20| 65 6e 67 74 68 2c 20 52 | 6f 77 2c 20 43 6f 6c 2c |ength, R|ow, Col,|
|00001a30| 20 44 69 61 67 2c 20 4d | 61 73 6b 2c 20 65 74 63 | Diag, M|ask, etc|
|00001a40| 2e 22 20 22 5f 20 3d 20 | 6d 61 70 72 2f 72 65 64 |." "_ = |mapr/red|
|00001a50| 75 63 65 61 2c 20 3a 20 | 3d 20 6d 61 70 63 2f 72 |ucea, : |= mapc/r|
|00001a60| 65 64 75 63 65 64 2c 20 | 3d 20 3d 20 72 65 64 75 |educed, |= = redu|
|00001a70| 63 65 72 22 20 22 58 20 | 6f 72 20 5a 20 3d 20 61 |cer" "X |or Z = a|
|00001a80| 6e 79 20 66 75 6e 63 74 | 69 6f 6e 20 62 79 20 6e |ny funct|ion by n|
|00001a90| 61 6d 65 3b 20 27 20 3d | 20 61 6c 67 20 65 6e 74 |ame; ' =| alg ent|
|00001aa0| 72 79 3b 20 24 20 3d 20 | 73 74 61 63 6b 22 29 20 |ry; $ = |stack") |
|00001ab0| 6d 65 73 73 61 67 65 20 | 22 25 73 25 73 3a 20 25 |message |"%s%s: %|
|00001ac0| 73 3a 20 25 73 25 73 25 | 73 22 20 65 71 75 61 6c |s: %s%s%|s" equal|
|00001ad0| 20 22 72 22 20 22 20 72 | 6f 77 73 22 20 22 63 22 | "r" " r|ows" "c"|
|00001ae0| 20 22 20 63 6f 6c 75 6d | 6e 73 22 20 22 61 22 20 | " colum|ns" "a" |
|00001af0| 22 20 61 63 72 6f 73 73 | 22 20 22 64 22 20 22 20 |" across|" "d" " |
|00001b00| 64 6f 77 6e 22 20 22 22 | 20 66 6f 72 6d 61 74 20 |down" ""| format |
|00001b10| 22 28 25 64 20 61 72 67 | 25 73 29 22 20 31 20 22 |"(%d arg|%s)" 1 "|
|00001b20| 73 22 20 22 49 6e 76 20 | 22 20 22 48 79 70 20 22 |s" "Inv |" "Hyp "|
|00001b30| 20 63 68 61 72 2d 74 6f | 2d 73 74 72 69 6e 67 20 | char-to|-string |
|00001b40| 22 2d 22 20 31 32 38 20 | 28 37 20 31 31 33 29 20 |"-" 128 |(7 113) |
|00001b50| 6b 65 79 62 6f 61 72 64 | 2d 71 75 69 74 20 28 32 |keyboard|-quit (2|
|00001b60| 31 20 32 37 29 20 36 33 | 20 25 20 37 33 20 37 32 |1 27) 63| % 73 72|
|00001b70| 20 31 31 38 20 28 39 37 | 20 39 38 20 39 39 20 31 | 118 (97| 98 99 1|
|00001b80| 30 32 20 31 30 37 20 31 | 31 35 20 31 31 36 20 31 |02 107 1|15 116 1|
|00001b90| 31 37 20 31 31 38 20 38 | 36 29 20 64 6f 77 6e 63 |17 118 8|6) downc|
|00001ba0| 61 73 65 20 36 31 20 62 | 65 65 70 20 39 35 20 73 |ase 61 b|eep 95 s|
|00001bb0| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 6d 61 70 |tring-ma|tch "map|
|00001bc0| 24 22 20 35 38 20 34 38 | 20 35 37 20 2f 3d 20 65 |$" 58 48| 57 /= e|
|00001bd0| 72 72 6f 72 20 22 4d 75 | 73 74 20 62 65 20 61 20 |rror "Mu|st be a |
|00001be0| 25 64 2d 61 72 67 75 6d | 65 6e 74 20 6f 70 65 72 |%d-argum|ent oper|
|00001bf0| 61 74 6f 72 22 20 28 33 | 36 20 33 39 29 20 33 36 |ator" (3|6 39) 36|
|00001c00| 20 22 53 74 61 63 6b 20 | 75 6e 64 65 72 66 6c 6f | "Stack |underflo|
|00001c10| 77 22 20 63 61 6c 63 2d | 64 6f 2d 61 6c 67 2d 65 |w" calc-|do-alg-e|
|00001c20| 6e 74 72 79 20 22 46 75 | 6e 63 74 69 6f 6e 3a 20 |ntry "Fu|nction: |
|00001c30| 22 20 22 42 61 64 20 66 | 6f 72 6d 61 74 22 20 63 |" "Bad f|ormat" c|
|00001c40| 61 6c 63 2d 69 6e 76 65 | 6e 74 2d 61 72 67 73 20 |alc-inve|nt-args |
|00001c50| 6d 61 74 68 2d 6d 75 6c | 74 69 2d 73 75 62 73 74 |math-mul|ti-subst|
|00001c60| 20 72 65 76 65 72 73 65 | 20 63 61 72 2d 73 61 66 | reverse| car-saf|
|00001c70| 65 20 63 61 6c 63 46 75 | 6e 63 2d 6c 61 6d 62 64 |e calcFu|nc-lambd|
|00001c80| 61 20 22 24 22 20 32 20 | 63 61 6c 63 2d 64 65 66 |a "$" 2 |calc-def|
|00001c90| 61 75 6c 74 2d 66 6f 72 | 6d 75 6c 61 2d 61 72 67 |ault-for|mula-arg|
|00001ca0| 6c 69 73 74 20 73 6f 72 | 74 20 73 74 72 69 6e 67 |list sor|t string|
|00001cb0| 2d 6c 65 73 73 70 20 72 | 65 61 64 2d 66 72 6f 6d |-lessp r|ead-from|
|00001cc0| 2d 6d 69 6e 69 62 75 66 | 66 65 72 20 22 46 75 6e |-minibuf|fer "Fun|
|00001cd0| 63 74 69 6f 6e 20 61 72 | 67 75 6d 65 6e 74 20 6c |ction ar|gument l|
|00001ce0| 69 73 74 3a 20 22 20 70 | 72 69 6e 31 2d 74 6f 2d |ist: " p|rin1-to-|
|00001cf0| 73 74 72 69 6e 67 20 22 | 28 29 22 20 6d 61 70 63 |string "|()" mapc|
|00001d00| 61 72 20 28 6c 61 6d 62 | 64 61 20 28 78 29 20 28 |ar (lamb|da (x) (|
|00001d10| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 08 c2 c3 c4 |byte-cod|e ".....|
|00001d20| 08 21 50 21 45 87 22 20 | 5b 78 20 76 61 72 20 69 |.!P!E." |[x var i|
|00001d30| 6e 74 65 72 6e 20 22 76 | 61 72 2d 22 20 73 79 6d |ntern "v|ar-" sym|
|00001d40| 62 6f 6c 2d 6e 61 6d 65 | 5d 20 36 29 29 20 61 70 |bol-name|] 6)) ap|
|00001d50| 70 65 6e 64 20 28 63 61 | 6c 63 46 75 6e 63 2d 6c |pend (ca|lcFunc-l|
|00001d60| 61 6d 62 64 61 29 20 63 | 61 6c 63 2d 72 65 63 6f |ambda) c|alc-reco|
|00001d70| 72 64 20 22 6f 70 65 72 | 22 20 61 73 73 71 20 33 |rd "oper|" assq 3|
|00001d80| 20 69 6e 74 65 72 6e 20 | 22 63 61 6c 63 2d 25 63 | intern |"calc-%c|
|00001d90| 2d 6f 70 65 72 2d 6b 65 | 79 73 22 20 75 73 65 72 |-oper-ke|ys" user|
|00001da0| 20 63 6f 6d 70 6c 65 74 | 69 6e 67 2d 72 65 61 64 | complet|ing-read|
|00001db0| 20 22 46 75 6e 63 74 69 | 6f 6e 20 6e 61 6d 65 3a | "Functi|on name:|
|00001dc0| 20 22 20 66 62 6f 75 6e | 64 70 20 22 63 61 6c 63 | " fboun|dp "calc|
|00001dd0| 46 75 6e 63 2d 22 20 22 | 7a 22 20 6c 61 6d 62 64 |Func-" "|z" lambd|
|00001de0| 61 20 28 26 6f 70 74 69 | 6f 6e 61 6c 20 26 72 65 |a (&opti|onal &re|
|00001df0| 73 74 20 6e 69 6c 29 20 | 22 46 75 6e 63 74 69 6f |st nil) |"Functio|
|00001e00| 6e 20 69 73 20 6e 6f 74 | 20 73 75 69 74 61 62 6c |n is not| suitabl|
|00001e10| 65 20 66 6f 72 20 74 68 | 69 73 20 6f 70 65 72 61 |e for th|is opera|
|00001e20| 74 69 6f 6e 22 20 22 4e | 75 6d 62 65 72 20 6f 66 |tion" "N|umber of|
|00001e30| 20 61 72 67 75 6d 65 6e | 74 73 3a 20 22 20 28 36 | argumen|ts: " (6|
|00001e40| 35 20 37 33 20 37 37 20 | 37 39 20 38 32 20 38 35 |5 73 77 |79 82 85|
|00001e50| 29 20 39 37 20 37 37 20 | 28 63 61 6c 63 46 75 6e |) 97 77 |(calcFun|
|00001e60| 63 2d 6d 61 70 20 63 61 | 6c 63 46 75 6e 63 2d 72 |c-map ca|lcFunc-r|
|00001e70| 65 64 75 63 65 20 63 61 | 6c 63 46 75 6e 63 2d 72 |educe ca|lcFunc-r|
|00001e80| 72 65 64 75 63 65 29 20 | 63 61 6c 63 2d 67 65 74 |reduce) |calc-get|
|00001e90| 2d 6f 70 65 72 61 74 6f | 72 20 22 25 73 25 73 2c |-operato|r "%s%s,|
|00001ea0| 20 25 73 25 73 22 20 73 | 79 6d 62 6f 6c 2d 6e 61 | %s%s" s|ymbol-na|
|00001eb0| 6d 65 20 39 20 22 20 28 | 6d 75 6c 74 29 22 20 28 |me 9 " (|mult)" (|
|00001ec0| 28 63 61 6c 63 46 75 6e | 63 2d 72 65 64 75 63 65 |(calcFun|c-reduce|
|00001ed0| 20 2e 20 32 29 20 28 63 | 61 6c 63 46 75 6e 63 2d | . 2) (c|alcFunc-|
|00001ee0| 72 72 65 64 75 63 65 20 | 2e 20 32 29 20 28 63 61 |rreduce |. 2) (ca|
|00001ef0| 6c 63 46 75 6e 63 2d 61 | 63 63 75 6d 20 2e 20 32 |lcFunc-a|ccum . 2|
|00001f00| 29 20 28 63 61 6c 63 46 | 75 6e 63 2d 72 61 63 63 |) (calcF|unc-racc|
|00001f10| 75 6d 20 2e 20 32 29 20 | 28 63 61 6c 63 46 75 6e |um . 2) |(calcFun|
|00001f20| 63 2d 6e 65 73 74 20 2e | 20 32 29 20 28 63 61 6c |c-nest .| 2) (cal|
|00001f30| 63 46 75 6e 63 2d 61 6e | 65 73 74 20 2e 20 32 29 |cFunc-an|est . 2)|
|00001f40| 20 28 63 61 6c 63 46 75 | 6e 63 2d 66 69 78 70 20 | (calcFu|nc-fixp |
|00001f50| 2e 20 32 29 20 28 63 61 | 6c 63 46 75 6e 63 2d 61 |. 2) (ca|lcFunc-a|
|00001f60| 66 69 78 70 20 2e 20 32 | 29 29 20 63 61 6c 63 46 |fixp . 2|)) calcF|
|00001f70| 75 6e 63 2d 69 6e 6e 65 | 72 20 22 25 73 25 73 2c |unc-inne|r "%s%s,|
|00001f80| 20 69 6e 6e 65 72 20 28 | 61 64 64 29 22 20 28 30 | inner (|add)" (0|
|00001f90| 20 30 20 30 29 20 6d 61 | 74 68 2d 65 78 70 72 2d | 0 0) ma|th-expr-|
|00001fa0| 63 6f 6e 74 61 69 6e 73 | 20 6e 63 6f 6e 63 20 28 |contains| nconc (|
|00001fb0| 63 61 6c 63 46 75 6e 63 | 2d 6c 61 6d 62 64 61 29 |calcFunc|-lambda)|
|00001fc0| 20 6d 61 74 68 2d 62 75 | 69 6c 64 2d 63 61 6c 6c | math-bu|ild-call|
|00001fd0| 20 6d 61 74 68 2d 63 61 | 6c 63 46 75 6e 63 2d 74 | math-ca|lcFunc-t|
|00001fe0| 6f 2d 76 61 72 20 22 49 | 22 20 22 48 22 5d 20 38 |o-var "I|" "H"] 8|
|00001ff0| 30 29 29 0a 0a 28 73 65 | 74 71 20 63 61 6c 63 2d |0))..(se|tq calc-|
|00002000| 76 65 72 69 66 79 2d 61 | 72 67 6c 69 73 74 20 74 |verify-a|rglist t|
|00002010| 29 0a 0a 28 73 65 74 71 | 20 63 61 6c 63 2d 6d 61 |)..(setq| calc-ma|
|00002020| 70 70 69 6e 67 2d 64 69 | 72 20 6e 69 6c 29 0a 0a |pping-di|r nil)..|
|00002030| 28 64 65 66 63 6f 6e 73 | 74 20 63 61 6c 63 2d 6f |(defcons|t calc-o|
|00002040| 70 65 72 2d 6b 65 79 73 | 20 28 71 75 6f 74 65 20 |per-keys| (quote |
|00002050| 28 28 28 34 33 20 32 20 | 63 61 6c 63 46 75 6e 63 |(((43 2 |calcFunc|
|00002060| 2d 61 64 64 29 20 28 34 | 35 20 32 20 63 61 6c 63 |-add) (4|5 2 calc|
|00002070| 46 75 6e 63 2d 73 75 62 | 29 20 28 34 32 20 32 20 |Func-sub|) (42 2 |
|00002080| 63 61 6c 63 46 75 6e 63 | 2d 6d 75 6c 29 20 28 34 |calcFunc|-mul) (4|
|00002090| 37 20 32 20 63 61 6c 63 | 46 75 6e 63 2d 64 69 76 |7 2 calc|Func-div|
|000020a0| 29 20 28 39 34 20 32 20 | 63 61 6c 63 46 75 6e 63 |) (94 2 |calcFunc|
|000020b0| 2d 70 6f 77 29 20 28 31 | 32 34 20 32 20 63 61 6c |-pow) (1|24 2 cal|
|000020c0| 63 46 75 6e 63 2d 76 63 | 6f 6e 63 61 74 29 20 28 |cFunc-vc|oncat) (|
|000020d0| 33 37 20 32 20 63 61 6c | 63 46 75 6e 63 2d 6d 6f |37 2 cal|cFunc-mo|
|000020e0| 64 29 20 28 39 32 20 32 | 20 63 61 6c 63 46 75 6e |d) (92 2| calcFun|
|000020f0| 63 2d 69 64 69 76 29 20 | 28 33 33 20 31 20 63 61 |c-idiv) |(33 1 ca|
|00002100| 6c 63 46 75 6e 63 2d 66 | 61 63 74 29 20 28 33 38 |lcFunc-f|act) (38|
|00002110| 20 31 20 63 61 6c 63 46 | 75 6e 63 2d 69 6e 76 29 | 1 calcF|unc-inv)|
|00002120| 20 28 31 31 30 20 31 20 | 63 61 6c 63 46 75 6e 63 | (110 1 |calcFunc|
|00002130| 2d 6e 65 67 29 20 28 31 | 32 30 20 75 73 65 72 29 |-neg) (1|20 user)|
|00002140| 20 28 31 32 32 20 75 73 | 65 72 29 20 28 36 35 20 | (122 us|er) (65 |
|00002150| 31 20 63 61 6c 63 46 75 | 6e 63 2d 61 62 73 29 20 |1 calcFu|nc-abs) |
|00002160| 28 37 34 20 31 20 63 61 | 6c 63 46 75 6e 63 2d 63 |(74 1 ca|lcFunc-c|
|00002170| 6f 6e 6a 29 20 28 37 31 | 20 31 20 63 61 6c 63 46 |onj) (71| 1 calcF|
|00002180| 75 6e 63 2d 61 72 67 29 | 20 28 38 31 20 31 20 63 |unc-arg)| (81 1 c|
|00002190| 61 6c 63 46 75 6e 63 2d | 73 71 72 74 29 20 28 37 |alcFunc-|sqrt) (7|
|000021a0| 38 20 32 20 63 61 6c 63 | 46 75 6e 63 2d 6d 69 6e |8 2 calc|Func-min|
|000021b0| 29 20 28 38 38 20 32 20 | 63 61 6c 63 46 75 6e 63 |) (88 2 |calcFunc|
|000021c0| 2d 6d 61 78 29 20 28 37 | 30 20 31 20 63 61 6c 63 |-max) (7|0 1 calc|
|000021d0| 46 75 6e 63 2d 66 6c 6f | 6f 72 29 20 28 38 32 20 |Func-flo|or) (82 |
|000021e0| 31 20 63 61 6c 63 46 75 | 6e 63 2d 72 6f 75 6e 64 |1 calcFu|nc-round|
|000021f0| 29 20 28 38 33 20 31 20 | 63 61 6c 63 46 75 6e 63 |) (83 1 |calcFunc|
|00002200| 2d 73 69 6e 29 20 28 36 | 37 20 31 20 63 61 6c 63 |-sin) (6|7 1 calc|
|00002210| 46 75 6e 63 2d 63 6f 73 | 29 20 28 38 34 20 31 20 |Func-cos|) (84 1 |
|00002220| 63 61 6c 63 46 75 6e 63 | 2d 74 61 6e 29 20 28 37 |calcFunc|-tan) (7|
|00002230| 36 20 31 20 63 61 6c 63 | 46 75 6e 63 2d 6c 6e 29 |6 1 calc|Func-ln)|
|00002240| 20 28 36 39 20 31 20 63 | 61 6c 63 46 75 6e 63 2d | (69 1 c|alcFunc-|
|00002250| 65 78 70 29 20 28 36 36 | 20 32 20 63 61 6c 63 46 |exp) (66| 2 calcF|
|00002260| 75 6e 63 2d 6c 6f 67 29 | 29 20 28 28 37 30 20 31 |unc-log)|) ((70 1|
|00002270| 20 63 61 6c 63 46 75 6e | 63 2d 63 65 69 6c 29 20 | calcFun|c-ceil) |
|00002280| 28 38 32 20 31 20 63 61 | 6c 63 46 75 6e 63 2d 74 |(82 1 ca|lcFunc-t|
|00002290| 72 75 6e 63 29 20 28 38 | 31 20 31 20 63 61 6c 63 |runc) (8|1 1 calc|
|000022a0| 46 75 6e 63 2d 73 71 72 | 29 20 28 38 33 20 31 20 |Func-sqr|) (83 1 |
|000022b0| 63 61 6c 63 46 75 6e 63 | 2d 61 72 63 73 69 6e 29 |calcFunc|-arcsin)|
|000022c0| 20 28 36 37 20 31 20 63 | 61 6c 63 46 75 6e 63 2d | (67 1 c|alcFunc-|
|000022d0| 61 72 63 63 6f 73 29 20 | 28 38 34 20 31 20 63 61 |arccos) |(84 1 ca|
|000022e0| 6c 63 46 75 6e 63 2d 61 | 72 63 74 61 6e 29 20 28 |lcFunc-a|rctan) (|
|000022f0| 37 36 20 31 20 63 61 6c | 63 46 75 6e 63 2d 65 78 |76 1 cal|cFunc-ex|
|00002300| 70 29 20 28 36 39 20 31 | 20 63 61 6c 63 46 75 6e |p) (69 1| calcFun|
|00002310| 63 2d 6c 6e 29 20 28 36 | 36 20 32 20 63 61 6c 63 |c-ln) (6|6 2 calc|
|00002320| 46 75 6e 63 2d 61 6c 6f | 67 29 20 28 39 34 20 32 |Func-alo|g) (94 2|
|00002330| 20 63 61 6c 63 46 75 6e | 63 2d 6e 72 6f 6f 74 29 | calcFun|c-nroot)|
|00002340| 20 28 31 32 34 20 32 20 | 63 61 6c 63 46 75 6e 63 | (124 2 |calcFunc|
|00002350| 2d 76 63 6f 6e 63 61 74 | 72 65 76 29 29 20 28 28 |-vconcat|rev)) ((|
|00002360| 37 30 20 31 20 63 61 6c | 63 46 75 6e 63 2d 66 66 |70 1 cal|cFunc-ff|
|00002370| 6c 6f 6f 72 29 20 28 38 | 32 20 31 20 63 61 6c 63 |loor) (8|2 1 calc|
|00002380| 46 75 6e 63 2d 66 72 6f | 75 6e 64 29 20 28 38 33 |Func-fro|und) (83|
|00002390| 20 31 20 63 61 6c 63 46 | 75 6e 63 2d 73 69 6e 68 | 1 calcF|unc-sinh|
|000023a0| 29 20 28 36 37 20 31 20 | 63 61 6c 63 46 75 6e 63 |) (67 1 |calcFunc|
|000023b0| 2d 63 6f 73 68 29 20 28 | 38 34 20 31 20 63 61 6c |-cosh) (|84 1 cal|
|000023c0| 63 46 75 6e 63 2d 74 61 | 6e 68 29 20 28 37 36 20 |cFunc-ta|nh) (76 |
|000023d0| 31 20 63 61 6c 63 46 75 | 6e 63 2d 6c 6f 67 31 30 |1 calcFu|nc-log10|
|000023e0| 29 20 28 36 39 20 31 20 | 63 61 6c 63 46 75 6e 63 |) (69 1 |calcFunc|
|000023f0| 2d 65 78 70 31 30 29 20 | 28 31 32 34 20 32 20 63 |-exp10) |(124 2 c|
|00002400| 61 6c 63 46 75 6e 63 2d | 61 70 70 65 6e 64 29 29 |alcFunc-|append))|
|00002410| 20 28 28 37 30 20 31 20 | 63 61 6c 63 46 75 6e 63 | ((70 1 |calcFunc|
|00002420| 2d 66 63 65 69 6c 29 20 | 28 38 32 20 31 20 63 61 |-fceil) |(82 1 ca|
|00002430| 6c 63 46 75 6e 63 2d 66 | 74 72 75 6e 63 29 20 28 |lcFunc-f|trunc) (|
|00002440| 38 33 20 31 20 63 61 6c | 63 46 75 6e 63 2d 61 72 |83 1 cal|cFunc-ar|
|00002450| 63 73 69 6e 68 29 20 28 | 36 37 20 31 20 63 61 6c |csinh) (|67 1 cal|
|00002460| 63 46 75 6e 63 2d 61 72 | 63 63 6f 73 68 29 20 28 |cFunc-ar|ccosh) (|
|00002470| 38 34 20 31 20 63 61 6c | 63 46 75 6e 63 2d 61 72 |84 1 cal|cFunc-ar|
|00002480| 63 74 61 6e 68 29 20 28 | 37 36 20 31 20 63 61 6c |ctanh) (|76 1 cal|
|00002490| 63 46 75 6e 63 2d 65 78 | 70 31 30 29 20 28 36 39 |cFunc-ex|p10) (69|
|000024a0| 20 31 20 63 61 6c 63 46 | 75 6e 63 2d 6c 6f 67 31 | 1 calcF|unc-log1|
|000024b0| 30 29 20 28 31 32 34 20 | 32 20 63 61 6c 63 46 75 |0) (124 |2 calcFu|
|000024c0| 6e 63 2d 61 70 70 65 6e | 64 72 65 76 29 29 29 29 |nc-appen|drev))))|
|000024d0| 29 0a 0a 28 64 65 66 63 | 6f 6e 73 74 20 63 61 6c |)..(defc|onst cal|
|000024e0| 63 2d 61 2d 6f 70 65 72 | 2d 6b 65 79 73 20 28 71 |c-a-oper|-keys (q|
|000024f0| 75 6f 74 65 20 28 28 28 | 39 37 20 33 20 63 61 6c |uote (((|97 3 cal|
|00002500| 63 46 75 6e 63 2d 61 70 | 61 72 74 29 20 28 39 38 |cFunc-ap|art) (98|
|00002510| 20 33 20 63 61 6c 63 46 | 75 6e 63 2d 73 75 62 73 | 3 calcF|unc-subs|
|00002520| 74 29 20 28 39 39 20 32 | 20 63 61 6c 63 46 75 6e |t) (99 2| calcFun|
|00002530| 63 2d 63 6f 6c 6c 65 63 | 74 29 20 28 31 30 30 20 |c-collec|t) (100 |
|00002540| 32 20 63 61 6c 63 46 75 | 6e 63 2d 64 65 72 69 76 |2 calcFu|nc-deriv|
|00002550| 29 20 28 31 30 31 20 31 | 20 63 61 6c 63 46 75 6e |) (101 1| calcFun|
|00002560| 63 2d 65 73 69 6d 70 6c | 69 66 79 29 20 28 31 30 |c-esimpl|ify) (10|
|00002570| 32 20 32 20 63 61 6c 63 | 46 75 6e 63 2d 66 61 63 |2 2 calc|Func-fac|
|00002580| 74 6f 72 29 20 28 31 30 | 33 20 32 20 63 61 6c 63 |tor) (10|3 2 calc|
|00002590| 46 75 6e 63 2d 70 67 63 | 64 29 20 28 31 30 35 20 |Func-pgc|d) (105 |
|000025a0| 32 20 63 61 6c 63 46 75 | 6e 63 2d 69 6e 74 65 67 |2 calcFu|nc-integ|
|000025b0| 29 20 28 31 30 39 20 32 | 20 63 61 6c 63 46 75 6e |) (109 2| calcFun|
|000025c0| 63 2d 6d 61 74 63 68 29 | 20 28 31 31 30 20 31 20 |c-match)| (110 1 |
|000025d0| 63 61 6c 63 46 75 6e 63 | 2d 6e 72 61 74 29 20 28 |calcFunc|-nrat) (|
|000025e0| 31 31 34 20 32 20 63 61 | 6c 63 46 75 6e 63 2d 72 |114 2 ca|lcFunc-r|
|000025f0| 65 77 72 69 74 65 29 20 | 28 31 31 35 20 31 20 63 |ewrite) |(115 1 c|
|00002600| 61 6c 63 46 75 6e 63 2d | 73 69 6d 70 6c 69 66 79 |alcFunc-|simplify|
|00002610| 29 20 28 31 31 36 20 33 | 20 63 61 6c 63 46 75 6e |) (116 3| calcFun|
|00002620| 63 2d 74 61 79 6c 6f 72 | 29 20 28 31 32 30 20 31 |c-taylor|) (120 1|
|00002630| 20 63 61 6c 63 46 75 6e | 63 2d 65 78 70 61 6e 64 | calcFun|c-expand|
|00002640| 29 20 28 37 37 20 32 20 | 63 61 6c 63 46 75 6e 63 |) (77 2 |calcFunc|
|00002650| 2d 6d 61 70 65 71 29 20 | 28 37 38 20 33 20 63 61 |-mapeq) |(78 3 ca|
|00002660| 6c 63 46 75 6e 63 2d 6d | 69 6e 69 6d 69 7a 65 29 |lcFunc-m|inimize)|
|00002670| 20 28 38 30 20 32 20 63 | 61 6c 63 46 75 6e 63 2d | (80 2 c|alcFunc-|
|00002680| 72 6f 6f 74 73 29 20 28 | 38 32 20 33 20 63 61 6c |roots) (|82 3 cal|
|00002690| 63 46 75 6e 63 2d 72 6f | 6f 74 29 20 28 38 33 20 |cFunc-ro|ot) (83 |
|000026a0| 32 20 63 61 6c 63 46 75 | 6e 63 2d 73 6f 6c 76 65 |2 calcFu|nc-solve|
|000026b0| 29 20 28 38 34 20 34 20 | 63 61 6c 63 46 75 6e 63 |) (84 4 |calcFunc|
|000026c0| 2d 74 61 62 6c 65 29 20 | 28 38 38 20 33 20 63 61 |-table) |(88 3 ca|
|000026d0| 6c 63 46 75 6e 63 2d 6d | 61 78 69 6d 69 7a 65 29 |lcFunc-m|aximize)|
|000026e0| 20 28 36 31 20 32 20 63 | 61 6c 63 46 75 6e 63 2d | (61 2 c|alcFunc-|
|000026f0| 65 71 29 20 28 33 35 20 | 32 20 63 61 6c 63 46 75 |eq) (35 |2 calcFu|
|00002700| 6e 63 2d 6e 65 71 29 20 | 28 36 30 20 32 20 63 61 |nc-neq) |(60 2 ca|
|00002710| 6c 63 46 75 6e 63 2d 6c | 74 29 20 28 36 32 20 32 |lcFunc-l|t) (62 2|
|00002720| 20 63 61 6c 63 46 75 6e | 63 2d 67 74 29 20 28 39 | calcFun|c-gt) (9|
|00002730| 31 20 32 20 63 61 6c 63 | 46 75 6e 63 2d 6c 65 71 |1 2 calc|Func-leq|
|00002740| 29 20 28 39 33 20 32 20 | 63 61 6c 63 46 75 6e 63 |) (93 2 |calcFunc|
|00002750| 2d 67 65 71 29 20 28 31 | 32 33 20 32 20 63 61 6c |-geq) (1|23 2 cal|
|00002760| 63 46 75 6e 63 2d 69 6e | 29 20 28 33 33 20 31 20 |cFunc-in|) (33 1 |
|00002770| 63 61 6c 63 46 75 6e 63 | 2d 6c 6e 6f 74 29 20 28 |calcFunc|-lnot) (|
|00002780| 33 38 20 32 20 63 61 6c | 63 46 75 6e 63 2d 6c 61 |38 2 cal|cFunc-la|
|00002790| 6e 64 29 20 28 31 32 34 | 20 32 20 63 61 6c 63 46 |nd) (124| 2 calcF|
|000027a0| 75 6e 63 2d 6c 6f 72 29 | 20 28 35 38 20 33 20 63 |unc-lor)| (58 3 c|
|000027b0| 61 6c 63 46 75 6e 63 2d | 69 66 29 20 28 34 36 20 |alcFunc-|if) (46 |
|000027c0| 32 20 63 61 6c 63 46 75 | 6e 63 2d 72 6d 65 71 29 |2 calcFu|nc-rmeq)|
|000027d0| 20 28 34 33 20 34 20 63 | 61 6c 63 46 75 6e 63 2d | (43 4 c|alcFunc-|
|000027e0| 73 75 6d 29 20 28 34 35 | 20 34 20 63 61 6c 63 46 |sum) (45| 4 calcF|
|000027f0| 75 6e 63 2d 61 73 75 6d | 29 20 28 34 32 20 34 20 |unc-asum|) (42 4 |
|00002800| 63 61 6c 63 46 75 6e 63 | 2d 70 72 6f 64 29 20 28 |calcFunc|-prod) (|
|00002810| 39 35 20 32 20 63 61 6c | 63 46 75 6e 63 2d 73 75 |95 2 cal|cFunc-su|
|00002820| 62 73 63 72 29 20 28 39 | 32 20 32 20 63 61 6c 63 |bscr) (9|2 2 calc|
|00002830| 46 75 6e 63 2d 70 64 69 | 76 29 20 28 33 37 20 32 |Func-pdi|v) (37 2|
|00002840| 20 63 61 6c 63 46 75 6e | 63 2d 70 72 65 6d 29 20 | calcFun|c-prem) |
|00002850| 28 34 37 20 32 20 63 61 | 6c 63 46 75 6e 63 2d 70 |(47 2 ca|lcFunc-p|
|00002860| 64 69 76 72 65 6d 29 29 | 20 28 28 31 30 39 20 32 |divrem))| ((109 2|
|00002870| 20 63 61 6c 63 46 75 6e | 63 2d 6d 61 74 63 68 6e | calcFun|c-matchn|
|00002880| 6f 74 29 20 28 37 37 20 | 32 20 63 61 6c 63 46 75 |ot) (77 |2 calcFu|
|00002890| 6e 63 2d 6d 61 70 65 71 | 72 29 20 28 38 33 20 32 |nc-mapeq|r) (83 2|
|000028a0| 20 63 61 6c 63 46 75 6e | 63 2d 66 69 6e 76 29 29 | calcFun|c-finv))|
|000028b0| 20 28 28 31 30 30 20 32 | 20 63 61 6c 63 46 75 6e | ((100 2| calcFun|
|000028c0| 63 2d 74 64 65 72 69 76 | 29 20 28 31 30 32 20 32 |c-tderiv|) (102 2|
|000028d0| 20 63 61 6c 63 46 75 6e | 63 2d 66 61 63 74 6f 72 | calcFun|c-factor|
|000028e0| 73 29 20 28 37 37 20 32 | 20 63 61 6c 63 46 75 6e |s) (77 2| calcFun|
|000028f0| 63 2d 6d 61 70 65 71 70 | 29 20 28 37 38 20 33 20 |c-mapeqp|) (78 3 |
|00002900| 63 61 6c 63 46 75 6e 63 | 2d 77 6d 69 6e 69 6d 69 |calcFunc|-wminimi|
|00002910| 7a 65 29 20 28 38 32 20 | 33 20 63 61 6c 63 46 75 |ze) (82 |3 calcFu|
|00002920| 6e 63 2d 77 72 6f 6f 74 | 29 20 28 38 33 20 32 20 |nc-wroot|) (83 2 |
|00002930| 63 61 6c 63 46 75 6e 63 | 2d 66 73 6f 6c 76 65 29 |calcFunc|-fsolve)|
|00002940| 20 28 38 38 20 33 20 63 | 61 6c 63 46 75 6e 63 2d | (88 3 c|alcFunc-|
|00002950| 77 6d 61 78 69 6d 69 7a | 65 29 20 28 34 37 20 32 |wmaximiz|e) (47 2|
|00002960| 20 63 61 6c 63 46 75 6e | 63 2d 70 64 69 76 69 64 | calcFun|c-pdivid|
|00002970| 65 29 29 20 28 28 38 33 | 20 32 20 63 61 6c 63 46 |e)) ((83| 2 calcF|
|00002980| 75 6e 63 2d 66 66 69 6e | 76 29 29 29 29 29 0a 0a |unc-ffin|v)))))..|
|00002990| 28 64 65 66 63 6f 6e 73 | 74 20 63 61 6c 63 2d 62 |(defcons|t calc-b|
|000029a0| 2d 6f 70 65 72 2d 6b 65 | 79 73 20 28 71 75 6f 74 |-oper-ke|ys (quot|
|000029b0| 65 20 28 28 28 39 37 20 | 32 20 63 61 6c 63 46 75 |e (((97 |2 calcFu|
|000029c0| 6e 63 2d 61 6e 64 29 20 | 28 31 31 31 20 32 20 63 |nc-and) |(111 2 c|
|000029d0| 61 6c 63 46 75 6e 63 2d | 6f 72 29 20 28 31 32 30 |alcFunc-|or) (120|
|000029e0| 20 32 20 63 61 6c 63 46 | 75 6e 63 2d 78 6f 72 29 | 2 calcF|unc-xor)|
|000029f0| 20 28 31 30 30 20 32 20 | 63 61 6c 63 46 75 6e 63 | (100 2 |calcFunc|
|00002a00| 2d 64 69 66 66 29 20 28 | 31 31 30 20 31 20 63 61 |-diff) (|110 1 ca|
|00002a10| 6c 63 46 75 6e 63 2d 6e | 6f 74 29 20 28 39 39 20 |lcFunc-n|ot) (99 |
|00002a20| 31 20 63 61 6c 63 46 75 | 6e 63 2d 63 6c 69 70 29 |1 calcFu|nc-clip)|
|00002a30| 20 28 31 30 38 20 32 20 | 63 61 6c 63 46 75 6e 63 | (108 2 |calcFunc|
|00002a40| 2d 6c 73 68 29 20 28 31 | 31 34 20 32 20 63 61 6c |-lsh) (1|14 2 cal|
|00002a50| 63 46 75 6e 63 2d 72 73 | 68 29 20 28 37 36 20 32 |cFunc-rs|h) (76 2|
|00002a60| 20 63 61 6c 63 46 75 6e | 63 2d 61 73 68 29 20 28 | calcFun|c-ash) (|
|00002a70| 38 32 20 32 20 63 61 6c | 63 46 75 6e 63 2d 72 61 |82 2 cal|cFunc-ra|
|00002a80| 73 68 29 20 28 31 31 36 | 20 32 20 63 61 6c 63 46 |sh) (116| 2 calcF|
|00002a90| 75 6e 63 2d 72 6f 74 29 | 20 28 31 31 32 20 31 20 |unc-rot)| (112 1 |
|00002aa0| 63 61 6c 63 46 75 6e 63 | 2d 76 70 61 63 6b 29 20 |calcFunc|-vpack) |
|00002ab0| 28 31 31 37 20 31 20 63 | 61 6c 63 46 75 6e 63 2d |(117 1 c|alcFunc-|
|00002ac0| 76 75 6e 70 61 63 6b 29 | 20 28 36 38 20 34 20 63 |vunpack)| (68 4 c|
|00002ad0| 61 6c 63 46 75 6e 63 2d | 64 64 62 29 20 28 37 30 |alcFunc-|ddb) (70|
|00002ae0| 20 33 20 63 61 6c 63 46 | 75 6e 63 2d 66 76 29 20 | 3 calcF|unc-fv) |
|00002af0| 28 37 33 20 31 20 63 61 | 6c 63 46 75 6e 63 2d 69 |(73 1 ca|lcFunc-i|
|00002b00| 72 72 29 20 28 37 37 20 | 33 20 63 61 6c 63 46 75 |rr) (77 |3 calcFu|
|00002b10| 6e 63 2d 70 6d 74 29 20 | 28 37 38 20 32 20 63 61 |nc-pmt) |(78 2 ca|
|00002b20| 6c 63 46 75 6e 63 2d 6e | 70 76 29 20 28 38 30 20 |lcFunc-n|pv) (80 |
|00002b30| 33 20 63 61 6c 63 46 75 | 6e 63 2d 70 76 29 20 28 |3 calcFu|nc-pv) (|
|00002b40| 38 33 20 33 20 63 61 6c | 63 46 75 6e 63 2d 73 6c |83 3 cal|cFunc-sl|
|00002b50| 6e 29 20 28 38 34 20 33 | 20 63 61 6c 63 46 75 6e |n) (84 3| calcFun|
|00002b60| 63 2d 72 61 74 65 29 20 | 28 38 39 20 34 20 63 61 |c-rate) |(89 4 ca|
|00002b70| 6c 63 46 75 6e 63 2d 73 | 79 64 29 20 28 33 35 20 |lcFunc-s|yd) (35 |
|00002b80| 33 20 63 61 6c 63 46 75 | 6e 63 2d 6e 70 65 72 29 |3 calcFu|nc-nper)|
|00002b90| 20 28 33 37 20 32 20 63 | 61 6c 63 46 75 6e 63 2d | (37 2 c|alcFunc-|
|00002ba0| 72 65 6c 63 68 29 29 20 | 28 28 37 30 20 33 20 63 |relch)) |((70 3 c|
|00002bb0| 61 6c 63 46 75 6e 63 2d | 66 76 62 29 20 28 37 33 |alcFunc-|fvb) (73|
|00002bc0| 20 31 20 63 61 6c 63 46 | 75 6e 63 2d 69 72 72 62 | 1 calcF|unc-irrb|
|00002bd0| 29 20 28 37 37 20 33 20 | 63 61 6c 63 46 75 6e 63 |) (77 3 |calcFunc|
|00002be0| 2d 70 6d 74 62 29 20 28 | 37 38 20 32 20 63 61 6c |-pmtb) (|78 2 cal|
|00002bf0| 63 46 75 6e 63 2d 6e 70 | 76 62 29 20 28 38 30 20 |cFunc-np|vb) (80 |
|00002c00| 33 20 63 61 6c 63 46 75 | 6e 63 2d 70 76 62 29 20 |3 calcFu|nc-pvb) |
|00002c10| 28 38 34 20 33 20 63 61 | 6c 63 46 75 6e 63 2d 72 |(84 3 ca|lcFunc-r|
|00002c20| 61 74 65 62 29 20 28 33 | 35 20 33 20 63 61 6c 63 |ateb) (3|5 3 calc|
|00002c30| 46 75 6e 63 2d 6e 70 65 | 72 62 29 29 20 28 28 37 |Func-npe|rb)) ((7|
|00002c40| 30 20 33 20 63 61 6c 63 | 46 75 6e 63 2d 66 76 6c |0 3 calc|Func-fvl|
|00002c50| 29 20 28 37 37 20 33 20 | 63 61 6c 63 46 75 6e 63 |) (77 3 |calcFunc|
|00002c60| 2d 70 6d 74 6c 29 20 28 | 38 30 20 33 20 63 61 6c |-pmtl) (|80 3 cal|
|00002c70| 63 46 75 6e 63 2d 70 76 | 6c 29 20 28 38 34 20 33 |cFunc-pv|l) (84 3|
|00002c80| 20 63 61 6c 63 46 75 6e | 63 2d 72 61 74 65 6c 29 | calcFun|c-ratel)|
|00002c90| 20 28 33 35 20 33 20 63 | 61 6c 63 46 75 6e 63 2d | (35 3 c|alcFunc-|
|00002ca0| 6e 70 65 72 6c 29 29 29 | 29 29 0a 0a 28 64 65 66 |nperl)))|))..(def|
|00002cb0| 63 6f 6e 73 74 20 63 61 | 6c 63 2d 63 2d 6f 70 65 |const ca|lc-c-ope|
|00002cc0| 72 2d 6b 65 79 73 20 28 | 71 75 6f 74 65 20 28 28 |r-keys (|quote ((|
|00002cd0| 28 31 30 30 20 31 20 63 | 61 6c 63 46 75 6e 63 2d |(100 1 c|alcFunc-|
|00002ce0| 64 65 67 29 20 28 31 31 | 34 20 31 20 63 61 6c 63 |deg) (11|4 1 calc|
|00002cf0| 46 75 6e 63 2d 72 61 64 | 29 20 28 31 30 34 20 31 |Func-rad|) (104 1|
|00002d00| 20 63 61 6c 63 46 75 6e | 63 2d 68 6d 73 29 20 28 | calcFun|c-hms) (|
|00002d10| 31 30 32 20 31 20 63 61 | 6c 63 46 75 6e 63 2d 66 |102 1 ca|lcFunc-f|
|00002d20| 6c 6f 61 74 29 20 28 37 | 30 20 31 20 63 61 6c 63 |loat) (7|0 1 calc|
|00002d30| 46 75 6e 63 2d 66 72 61 | 63 29 29 29 29 29 0a 0a |Func-fra|c)))))..|
|00002d40| 28 64 65 66 63 6f 6e 73 | 74 20 63 61 6c 63 2d 66 |(defcons|t calc-f|
|00002d50| 2d 6f 70 65 72 2d 6b 65 | 79 73 20 28 71 75 6f 74 |-oper-ke|ys (quot|
|00002d60| 65 20 28 28 28 39 38 20 | 32 20 63 61 6c 63 46 75 |e (((98 |2 calcFu|
|00002d70| 6e 63 2d 62 65 74 61 29 | 20 28 31 30 31 20 31 20 |nc-beta)| (101 1 |
|00002d80| 63 61 6c 63 46 75 6e 63 | 2d 65 72 66 29 20 28 31 |calcFunc|-erf) (1|
|00002d90| 30 33 20 31 20 63 61 6c | 63 46 75 6e 63 2d 67 61 |03 1 cal|cFunc-ga|
|00002da0| 6d 6d 61 29 20 28 31 30 | 34 20 32 20 63 61 6c 63 |mma) (10|4 2 calc|
|00002db0| 46 75 6e 63 2d 68 79 70 | 6f 74 29 20 28 31 30 35 |Func-hyp|ot) (105|
|00002dc0| 20 31 20 63 61 6c 63 46 | 75 6e 63 2d 69 6d 29 20 | 1 calcF|unc-im) |
|00002dd0| 28 31 30 36 20 32 20 63 | 61 6c 63 46 75 6e 63 2d |(106 2 c|alcFunc-|
|00002de0| 62 65 73 4a 29 20 28 31 | 31 30 20 32 20 63 61 6c |besJ) (1|10 2 cal|
|00002df0| 63 46 75 6e 63 2d 6d 69 | 6e 29 20 28 31 31 34 20 |cFunc-mi|n) (114 |
|00002e00| 31 20 63 61 6c 63 46 75 | 6e 63 2d 72 65 29 20 28 |1 calcFu|nc-re) (|
|00002e10| 31 31 35 20 31 20 63 61 | 6c 63 46 75 6e 63 2d 73 |115 1 ca|lcFunc-s|
|00002e20| 69 67 6e 29 20 28 31 32 | 30 20 32 20 63 61 6c 63 |ign) (12|0 2 calc|
|00002e30| 46 75 6e 63 2d 6d 61 78 | 29 20 28 31 32 31 20 32 |Func-max|) (121 2|
|00002e40| 20 63 61 6c 63 46 75 6e | 63 2d 62 65 73 59 29 20 | calcFun|c-besY) |
|00002e50| 28 36 35 20 31 20 63 61 | 6c 63 46 75 6e 63 2d 61 |(65 1 ca|lcFunc-a|
|00002e60| 62 73 73 71 72 29 20 28 | 36 36 20 33 20 63 61 6c |bssqr) (|66 3 cal|
|00002e70| 63 46 75 6e 63 2d 62 65 | 74 61 49 29 20 28 36 39 |cFunc-be|taI) (69|
|00002e80| 20 31 20 63 61 6c 63 46 | 75 6e 63 2d 65 78 70 6d | 1 calcF|unc-expm|
|00002e90| 31 29 20 28 37 31 20 32 | 20 63 61 6c 63 46 75 6e |1) (71 2| calcFun|
|00002ea0| 63 2d 67 61 6d 6d 61 50 | 29 20 28 37 33 20 32 20 |c-gammaP|) (73 2 |
|00002eb0| 63 61 6c 63 46 75 6e 63 | 2d 69 6c 6f 67 29 20 28 |calcFunc|-ilog) (|
|00002ec0| 37 36 20 31 20 63 61 6c | 63 46 75 6e 63 2d 6c 6e |76 1 cal|cFunc-ln|
|00002ed0| 70 31 29 20 28 37 37 20 | 31 20 63 61 6c 63 46 75 |p1) (77 |1 calcFu|
|00002ee0| 6e 63 2d 6d 61 6e 74 29 | 20 28 38 31 20 31 20 63 |nc-mant)| (81 1 c|
|00002ef0| 61 6c 63 46 75 6e 63 2d | 69 73 71 72 74 29 20 28 |alcFunc-|isqrt) (|
|00002f00| 38 33 20 31 20 63 61 6c | 63 46 75 6e 63 2d 73 63 |83 1 cal|cFunc-sc|
|00002f10| 66 29 20 28 38 34 20 32 | 20 63 61 6c 63 46 75 6e |f) (84 2| calcFun|
|00002f20| 63 2d 61 72 63 74 61 6e | 32 29 20 28 38 38 20 31 |c-arctan|2) (88 1|
|00002f30| 20 63 61 6c 63 46 75 6e | 63 2d 78 70 6f 6e 29 20 | calcFun|c-xpon) |
|00002f40| 28 39 31 20 32 20 63 61 | 6c 63 46 75 6e 63 2d 64 |(91 2 ca|lcFunc-d|
|00002f50| 65 63 72 29 20 28 39 33 | 20 32 20 63 61 6c 63 46 |ecr) (93| 2 calcF|
|00002f60| 75 6e 63 2d 69 6e 63 72 | 29 29 20 28 28 31 30 31 |unc-incr|)) ((101|
|00002f70| 20 31 20 63 61 6c 63 46 | 75 6e 63 2d 65 72 66 63 | 1 calcF|unc-erfc|
|00002f80| 29 20 28 36 39 20 31 20 | 63 61 6c 63 46 75 6e 63 |) (69 1 |calcFunc|
|00002f90| 2d 6c 6e 70 31 29 20 28 | 37 31 20 32 20 63 61 6c |-lnp1) (|71 2 cal|
|00002fa0| 63 46 75 6e 63 2d 67 61 | 6d 6d 61 51 29 20 28 37 |cFunc-ga|mmaQ) (7|
|00002fb0| 36 20 31 20 63 61 6c 63 | 46 75 6e 63 2d 65 78 70 |6 1 calc|Func-exp|
|00002fc0| 6d 31 29 29 20 28 28 36 | 36 20 33 20 63 61 6c 63 |m1)) ((6|6 3 calc|
|00002fd0| 46 75 6e 63 2d 62 65 74 | 61 42 29 20 28 37 31 20 |Func-bet|aB) (71 |
|00002fe0| 32 20 63 61 6c 63 46 75 | 6e 63 2d 67 61 6d 6d 61 |2 calcFu|nc-gamma|
|00002ff0| 67 29 29 20 28 28 37 31 | 20 32 20 63 61 6c 63 46 |g)) ((71| 2 calcF|
|00003000| 75 6e 63 2d 67 61 6d 6d | 61 47 29 29 29 29 29 0a |unc-gamm|aG))))).|
|00003010| 0a 28 64 65 66 63 6f 6e | 73 74 20 63 61 6c 63 2d |.(defcon|st calc-|
|00003020| 6b 2d 6f 70 65 72 2d 6b | 65 79 73 20 28 71 75 6f |k-oper-k|eys (quo|
|00003030| 74 65 20 28 28 28 39 38 | 20 31 20 63 61 6c 63 46 |te (((98| 1 calcF|
|00003040| 75 6e 63 2d 62 65 72 6e | 29 20 28 39 39 20 32 20 |unc-bern|) (99 2 |
|00003050| 63 61 6c 63 46 75 6e 63 | 2d 63 68 6f 6f 73 65 29 |calcFunc|-choose)|
|00003060| 20 28 31 30 30 20 31 20 | 63 61 6c 63 46 75 6e 63 | (100 1 |calcFunc|
|00003070| 2d 64 66 61 63 74 29 20 | 28 31 30 31 20 31 20 63 |-dfact) |(101 1 c|
|00003080| 61 6c 63 46 75 6e 63 2d | 65 75 6c 65 72 29 20 28 |alcFunc-|euler) (|
|00003090| 31 30 32 20 31 20 63 61 | 6c 63 46 75 6e 63 2d 70 |102 1 ca|lcFunc-p|
|000030a0| 72 66 61 63 29 20 28 31 | 30 33 20 32 20 63 61 6c |rfac) (1|03 2 cal|
|000030b0| 63 46 75 6e 63 2d 67 63 | 64 29 20 28 31 30 34 20 |cFunc-gc|d) (104 |
|000030c0| 32 20 63 61 6c 63 46 75 | 6e 63 2d 73 68 75 66 66 |2 calcFu|nc-shuff|
|000030d0| 6c 65 29 20 28 31 30 38 | 20 32 20 63 61 6c 63 46 |le) (108| 2 calcF|
|000030e0| 75 6e 63 2d 6c 63 6d 29 | 20 28 31 30 39 20 31 20 |unc-lcm)| (109 1 |
|000030f0| 63 61 6c 63 46 75 6e 63 | 2d 6d 6f 65 62 69 75 73 |calcFunc|-moebius|
|00003100| 29 20 28 31 31 30 20 31 | 20 63 61 6c 63 46 75 6e |) (110 1| calcFun|
|00003110| 63 2d 6e 65 78 74 70 72 | 69 6d 65 29 20 28 31 31 |c-nextpr|ime) (11|
|00003120| 34 20 31 20 63 61 6c 63 | 46 75 6e 63 2d 72 61 6e |4 1 calc|Func-ran|
|00003130| 64 6f 6d 29 20 28 31 31 | 35 20 32 20 63 61 6c 63 |dom) (11|5 2 calc|
|00003140| 46 75 6e 63 2d 73 74 69 | 72 31 29 20 28 31 31 36 |Func-sti|r1) (116|
|00003150| 20 31 20 63 61 6c 63 46 | 75 6e 63 2d 74 6f 74 69 | 1 calcF|unc-toti|
|00003160| 65 6e 74 29 20 28 36 36 | 20 33 20 63 61 6c 63 46 |ent) (66| 3 calcF|
|00003170| 75 6e 63 2d 75 74 70 62 | 29 20 28 36 37 20 32 20 |unc-utpb|) (67 2 |
|00003180| 63 61 6c 63 46 75 6e 63 | 2d 75 74 70 63 29 20 28 |calcFunc|-utpc) (|
|00003190| 37 30 20 33 20 63 61 6c | 63 46 75 6e 63 2d 75 74 |70 3 cal|cFunc-ut|
|000031a0| 70 66 29 20 28 37 38 20 | 33 20 63 61 6c 63 46 75 |pf) (78 |3 calcFu|
|000031b0| 6e 63 2d 75 74 70 6e 29 | 20 28 38 30 20 32 20 63 |nc-utpn)| (80 2 c|
|000031c0| 61 6c 63 46 75 6e 63 2d | 75 74 70 70 29 20 28 38 |alcFunc-|utpp) (8|
|000031d0| 34 20 32 20 63 61 6c 63 | 46 75 6e 63 2d 75 74 70 |4 2 calc|Func-utp|
|000031e0| 74 29 29 20 28 28 31 31 | 30 20 31 20 63 61 6c 63 |t)) ((11|0 1 calc|
|000031f0| 46 75 6e 63 2d 70 72 65 | 76 70 72 69 6d 65 29 20 |Func-pre|vprime) |
|00003200| 28 36 36 20 33 20 63 61 | 6c 63 46 75 6e 63 2d 6c |(66 3 ca|lcFunc-l|
|00003210| 74 70 62 29 20 28 36 37 | 20 32 20 63 61 6c 63 46 |tpb) (67| 2 calcF|
|00003220| 75 6e 63 2d 6c 74 70 63 | 29 20 28 37 30 20 33 20 |unc-ltpc|) (70 3 |
|00003230| 63 61 6c 63 46 75 6e 63 | 2d 6c 74 70 66 29 20 28 |calcFunc|-ltpf) (|
|00003240| 37 38 20 33 20 63 61 6c | 63 46 75 6e 63 2d 6c 74 |78 3 cal|cFunc-lt|
|00003250| 70 6e 29 20 28 38 30 20 | 32 20 63 61 6c 63 46 75 |pn) (80 |2 calcFu|
|00003260| 6e 63 2d 6c 74 70 70 29 | 20 28 38 34 20 32 20 63 |nc-ltpp)| (84 2 c|
|00003270| 61 6c 63 46 75 6e 63 2d | 6c 74 70 74 29 29 20 28 |alcFunc-|ltpt)) (|
|00003280| 28 39 38 20 32 20 63 61 | 6c 63 46 75 6e 63 2d 62 |(98 2 ca|lcFunc-b|
|00003290| 65 72 6e 29 20 28 39 39 | 20 32 20 63 61 6c 63 46 |ern) (99| 2 calcF|
|000032a0| 75 6e 63 2d 70 65 72 6d | 29 20 28 31 30 31 20 32 |unc-perm|) (101 2|
|000032b0| 20 63 61 6c 63 46 75 6e | 63 2d 65 75 6c 65 72 29 | calcFun|c-euler)|
|000032c0| 20 28 31 31 35 20 32 20 | 63 61 6c 63 46 75 6e 63 | (115 2 |calcFunc|
|000032d0| 2d 73 74 69 72 32 29 29 | 29 29 29 0a 0a 28 64 65 |-stir2))|)))..(de|
|000032e0| 66 63 6f 6e 73 74 20 63 | 61 6c 63 2d 73 2d 6f 70 |fconst c|alc-s-op|
|000032f0| 65 72 2d 6b 65 79 73 20 | 28 71 75 6f 74 65 20 28 |er-keys |(quote (|
|00003300| 28 28 35 38 20 32 20 63 | 61 6c 63 46 75 6e 63 2d |((58 2 c|alcFunc-|
|00003310| 61 73 73 69 67 6e 29 20 | 28 36 31 20 31 20 63 61 |assign) |(61 1 ca|
|00003320| 6c 63 46 75 6e 63 2d 65 | 76 61 6c 74 6f 29 29 29 |lcFunc-e|valto)))|
|00003330| 29 29 0a 0a 28 64 65 66 | 63 6f 6e 73 74 20 63 61 |))..(def|const ca|
|00003340| 6c 63 2d 74 2d 6f 70 65 | 72 2d 6b 65 79 73 20 28 |lc-t-ope|r-keys (|
|00003350| 71 75 6f 74 65 20 28 28 | 28 36 37 20 33 20 63 61 |quote ((|(67 3 ca|
|00003360| 6c 63 46 75 6e 63 2d 74 | 7a 63 6f 6e 76 29 20 28 |lcFunc-t|zconv) (|
|00003370| 36 38 20 31 20 63 61 6c | 63 46 75 6e 63 2d 64 61 |68 1 cal|cFunc-da|
|00003380| 74 65 29 20 28 37 33 20 | 32 20 63 61 6c 63 46 75 |te) (73 |2 calcFu|
|00003390| 6e 63 2d 69 6e 63 6d 6f | 6e 74 68 29 20 28 37 34 |nc-incmo|nth) (74|
|000033a0| 20 31 20 63 61 6c 63 46 | 75 6e 63 2d 6a 75 6c 69 | 1 calcF|unc-juli|
|000033b0| 61 6e 29 20 28 37 37 20 | 31 20 63 61 6c 63 46 75 |an) (77 |1 calcFu|
|000033c0| 6e 63 2d 6e 65 77 6d 6f | 6e 74 68 29 20 28 38 37 |nc-newmo|nth) (87|
|000033d0| 20 31 20 63 61 6c 63 46 | 75 6e 63 2d 6e 65 77 77 | 1 calcF|unc-neww|
|000033e0| 65 65 6b 29 20 28 38 35 | 20 31 20 63 61 6c 63 46 |eek) (85| 1 calcF|
|000033f0| 75 6e 63 2d 75 6e 69 78 | 74 69 6d 65 29 20 28 38 |unc-unix|time) (8|
|00003400| 39 20 31 20 63 61 6c 63 | 46 75 6e 63 2d 6e 65 77 |9 1 calc|Func-new|
|00003410| 79 65 61 72 29 29 29 29 | 29 0a 0a 28 64 65 66 63 |year))))|)..(defc|
|00003420| 6f 6e 73 74 20 63 61 6c | 63 2d 75 2d 6f 70 65 72 |onst cal|c-u-oper|
|00003430| 2d 6b 65 79 73 20 28 71 | 75 6f 74 65 20 28 28 28 |-keys (q|uote (((|
|00003440| 36 37 20 32 20 63 61 6c | 63 46 75 6e 63 2d 76 63 |67 2 cal|cFunc-vc|
|00003450| 6f 76 29 20 28 37 31 20 | 31 20 63 61 6c 63 46 75 |ov) (71 |1 calcFu|
|00003460| 6e 63 2d 76 67 6d 65 61 | 6e 29 20 28 37 37 20 31 |nc-vgmea|n) (77 1|
|00003470| 20 63 61 6c 63 46 75 6e | 63 2d 76 6d 65 61 6e 29 | calcFun|c-vmean)|
|00003480| 20 28 37 38 20 31 20 63 | 61 6c 63 46 75 6e 63 2d | (78 1 c|alcFunc-|
|00003490| 76 6d 69 6e 29 20 28 38 | 33 20 31 20 63 61 6c 63 |vmin) (8|3 1 calc|
|000034a0| 46 75 6e 63 2d 76 73 64 | 65 76 29 20 28 38 38 20 |Func-vsd|ev) (88 |
|000034b0| 31 20 63 61 6c 63 46 75 | 6e 63 2d 76 6d 61 78 29 |1 calcFu|nc-vmax)|
|000034c0| 29 20 28 28 36 37 20 32 | 20 63 61 6c 63 46 75 6e |) ((67 2| calcFun|
|000034d0| 63 2d 76 70 63 6f 76 29 | 20 28 37 37 20 31 20 63 |c-vpcov)| (77 1 c|
|000034e0| 61 6c 63 46 75 6e 63 2d | 76 6d 65 61 6e 65 29 20 |alcFunc-|vmeane) |
|000034f0| 28 38 33 20 31 20 63 61 | 6c 63 46 75 6e 63 2d 76 |(83 1 ca|lcFunc-v|
|00003500| 70 73 64 65 76 29 29 20 | 28 28 36 37 20 32 20 63 |psdev)) |((67 2 c|
|00003510| 61 6c 63 46 75 6e 63 2d | 76 63 6f 72 72 29 20 28 |alcFunc-|vcorr) (|
|00003520| 37 31 20 31 20 63 61 6c | 63 46 75 6e 63 2d 61 67 |71 1 cal|cFunc-ag|
|00003530| 6d 65 61 6e 29 20 28 37 | 37 20 31 20 63 61 6c 63 |mean) (7|7 1 calc|
|00003540| 46 75 6e 63 2d 76 6d 65 | 64 69 61 6e 29 20 28 38 |Func-vme|dian) (8|
|00003550| 33 20 31 20 63 61 6c 63 | 46 75 6e 63 2d 76 76 61 |3 1 calc|Func-vva|
|00003560| 72 29 29 20 28 28 37 37 | 20 31 20 63 61 6c 63 46 |r)) ((77| 1 calcF|
|00003570| 75 6e 63 2d 76 68 6d 65 | 61 6e 29 20 28 38 33 20 |unc-vhme|an) (83 |
|00003580| 31 20 63 61 6c 63 46 75 | 6e 63 2d 76 70 76 61 72 |1 calcFu|nc-vpvar|
|00003590| 29 29 29 29 29 0a 0a 28 | 64 65 66 63 6f 6e 73 74 |)))))..(|defconst|
|000035a0| 20 63 61 6c 63 2d 76 2d | 6f 70 65 72 2d 6b 65 79 | calc-v-|oper-key|
|000035b0| 73 20 28 71 75 6f 74 65 | 20 28 28 28 39 37 20 32 |s (quote| (((97 2|
|000035c0| 20 63 61 6c 63 46 75 6e | 63 2d 61 72 72 61 6e 67 | calcFun|c-arrang|
|000035d0| 65 29 20 28 39 38 20 32 | 20 63 61 6c 63 46 75 6e |e) (98 2| calcFun|
|000035e0| 63 2d 63 76 65 63 29 20 | 28 39 39 20 32 20 63 61 |c-cvec) |(99 2 ca|
|000035f0| 6c 63 46 75 6e 63 2d 6d | 63 6f 6c 29 20 28 31 30 |lcFunc-m|col) (10|
|00003600| 30 20 32 20 63 61 6c 63 | 46 75 6e 63 2d 64 69 61 |0 2 calc|Func-dia|
|00003610| 67 29 20 28 31 30 31 20 | 32 20 63 61 6c 63 46 75 |g) (101 |2 calcFu|
|00003620| 6e 63 2d 76 65 78 70 29 | 20 28 31 30 32 20 32 20 |nc-vexp)| (102 2 |
|00003630| 63 61 6c 63 46 75 6e 63 | 2d 66 69 6e 64 29 20 28 |calcFunc|-find) (|
|00003640| 31 30 34 20 31 20 63 61 | 6c 63 46 75 6e 63 2d 68 |104 1 ca|lcFunc-h|
|00003650| 65 61 64 29 20 28 31 30 | 37 20 32 20 63 61 6c 63 |ead) (10|7 2 calc|
|00003660| 46 75 6e 63 2d 63 6f 6e | 73 29 20 28 31 30 38 20 |Func-con|s) (108 |
|00003670| 31 20 63 61 6c 63 46 75 | 6e 63 2d 76 6c 65 6e 29 |1 calcFu|nc-vlen)|
|00003680| 20 28 31 30 39 20 32 20 | 63 61 6c 63 46 75 6e 63 | (109 2 |calcFunc|
|00003690| 2d 76 6d 61 73 6b 29 20 | 28 31 31 30 20 31 20 63 |-vmask) |(110 1 c|
|000036a0| 61 6c 63 46 75 6e 63 2d | 72 6e 6f 72 6d 29 20 28 |alcFunc-|rnorm) (|
|000036b0| 31 31 32 20 32 20 63 61 | 6c 63 46 75 6e 63 2d 70 |112 2 ca|lcFunc-p|
|000036c0| 61 63 6b 29 20 28 31 31 | 34 20 32 20 63 61 6c 63 |ack) (11|4 2 calc|
|000036d0| 46 75 6e 63 2d 6d 72 6f | 77 29 20 28 31 31 35 20 |Func-mro|w) (115 |
|000036e0| 33 20 63 61 6c 63 46 75 | 6e 63 2d 73 75 62 76 65 |3 calcFu|nc-subve|
|000036f0| 63 29 20 28 31 31 36 20 | 31 20 63 61 6c 63 46 75 |c) (116 |1 calcFu|
|00003700| 6e 63 2d 74 72 6e 29 20 | 28 31 31 37 20 31 20 63 |nc-trn) |(117 1 c|
|00003710| 61 6c 63 46 75 6e 63 2d | 75 6e 70 61 63 6b 29 20 |alcFunc-|unpack) |
|00003720| 28 31 31 38 20 31 20 63 | 61 6c 63 46 75 6e 63 2d |(118 1 c|alcFunc-|
|00003730| 72 65 76 29 20 28 31 32 | 30 20 31 20 63 61 6c 63 |rev) (12|0 1 calc|
|00003740| 46 75 6e 63 2d 69 6e 64 | 65 78 29 20 28 36 35 20 |Func-ind|ex) (65 |
|00003750| 31 20 63 61 6c 63 46 75 | 6e 63 2d 61 70 70 6c 79 |1 calcFu|nc-apply|
|00003760| 29 20 28 36 37 20 31 20 | 63 61 6c 63 46 75 6e 63 |) (67 1 |calcFunc|
|00003770| 2d 63 72 6f 73 73 29 20 | 28 36 38 20 31 20 63 61 |-cross) |(68 1 ca|
|00003780| 6c 63 46 75 6e 63 2d 64 | 65 74 29 20 28 36 39 20 |lcFunc-d|et) (69 |
|00003790| 31 20 63 61 6c 63 46 75 | 6e 63 2d 76 65 6e 75 6d |1 calcFu|nc-venum|
|000037a0| 29 20 28 37 30 20 31 20 | 63 61 6c 63 46 75 6e 63 |) (70 1 |calcFunc|
|000037b0| 2d 76 66 6c 6f 6f 72 29 | 20 28 37 31 20 31 20 63 |-vfloor)| (71 1 c|
|000037c0| 61 6c 63 46 75 6e 63 2d | 67 72 61 64 65 29 20 28 |alcFunc-|grade) (|
|000037d0| 37 32 20 32 20 63 61 6c | 63 46 75 6e 63 2d 68 69 |72 2 cal|cFunc-hi|
|000037e0| 73 74 6f 67 72 61 6d 29 | 20 28 37 33 20 32 20 63 |stogram)| (73 2 c|
|000037f0| 61 6c 63 46 75 6e 63 2d | 69 6e 6e 65 72 29 20 28 |alcFunc-|inner) (|
|00003800| 37 36 20 31 20 63 61 6c | 63 46 75 6e 63 2d 6c 75 |76 1 cal|cFunc-lu|
|00003810| 64 29 20 28 37 37 20 30 | 20 63 61 6c 63 46 75 6e |d) (77 0| calcFun|
|00003820| 63 2d 6d 61 70 29 20 28 | 37 38 20 31 20 63 61 6c |c-map) (|78 1 cal|
|00003830| 63 46 75 6e 63 2d 63 6e | 6f 72 6d 29 20 28 37 39 |cFunc-cn|orm) (79|
|00003840| 20 32 20 63 61 6c 63 46 | 75 6e 63 2d 6f 75 74 65 | 2 calcF|unc-oute|
|00003850| 72 29 20 28 38 32 20 31 | 20 63 61 6c 63 46 75 6e |r) (82 1| calcFun|
|00003860| 63 2d 72 65 64 75 63 65 | 29 20 28 38 33 20 31 20 |c-reduce|) (83 1 |
|00003870| 63 61 6c 63 46 75 6e 63 | 2d 73 6f 72 74 29 20 28 |calcFunc|-sort) (|
|00003880| 38 34 20 31 20 63 61 6c | 63 46 75 6e 63 2d 74 72 |84 1 cal|cFunc-tr|
|00003890| 29 20 28 38 35 20 31 20 | 63 61 6c 63 46 75 6e 63 |) (85 1 |calcFunc|
|000038a0| 2d 61 63 63 75 6d 29 20 | 28 38 36 20 32 20 63 61 |-accum) |(86 2 ca|
|000038b0| 6c 63 46 75 6e 63 2d 76 | 75 6e 69 6f 6e 29 20 28 |lcFunc-v|union) (|
|000038c0| 38 38 20 32 20 63 61 6c | 63 46 75 6e 63 2d 76 78 |88 2 cal|cFunc-vx|
|000038d0| 6f 72 29 20 28 34 35 20 | 32 20 63 61 6c 63 46 75 |or) (45 |2 calcFu|
|000038e0| 6e 63 2d 76 64 69 66 66 | 29 20 28 39 34 20 32 20 |nc-vdiff|) (94 2 |
|000038f0| 63 61 6c 63 46 75 6e 63 | 2d 76 69 6e 74 29 20 28 |calcFunc|-vint) (|
|00003900| 31 32 36 20 31 20 63 61 | 6c 63 46 75 6e 63 2d 76 |126 1 ca|lcFunc-v|
|00003910| 63 6f 6d 70 6c 29 20 28 | 33 35 20 31 20 63 61 6c |compl) (|35 1 cal|
|00003920| 63 46 75 6e 63 2d 76 63 | 61 72 64 29 20 28 35 38 |cFunc-vc|ard) (58|
|00003930| 20 31 20 63 61 6c 63 46 | 75 6e 63 2d 76 73 70 61 | 1 calcF|unc-vspa|
|00003940| 6e 29 20 28 34 33 20 31 | 20 63 61 6c 63 46 75 6e |n) (43 1| calcFun|
|00003950| 63 2d 72 64 75 70 29 29 | 20 28 28 31 30 34 20 31 |c-rdup))| ((104 1|
|00003960| 20 63 61 6c 63 46 75 6e | 63 2d 74 61 69 6c 29 20 | calcFun|c-tail) |
|00003970| 28 31 31 35 20 33 20 63 | 61 6c 63 46 75 6e 63 2d |(115 3 c|alcFunc-|
|00003980| 72 73 75 62 76 65 63 29 | 20 28 37 31 20 31 20 63 |rsubvec)| (71 1 c|
|00003990| 61 6c 63 46 75 6e 63 2d | 72 67 72 61 64 65 29 20 |alcFunc-|rgrade) |
|000039a0| 28 38 32 20 31 20 63 61 | 6c 63 46 75 6e 63 2d 72 |(82 1 ca|lcFunc-r|
|000039b0| 72 65 64 75 63 65 29 20 | 28 38 33 20 31 20 63 61 |reduce) |(83 1 ca|
|000039c0| 6c 63 46 75 6e 63 2d 72 | 73 6f 72 74 29 20 28 38 |lcFunc-r|sort) (8|
|000039d0| 35 20 31 20 63 61 6c 63 | 46 75 6e 63 2d 72 61 63 |5 1 calc|Func-rac|
|000039e0| 63 75 6d 29 29 20 28 28 | 31 30 31 20 33 20 63 61 |cum)) ((|101 3 ca|
|000039f0| 6c 63 46 75 6e 63 2d 76 | 65 78 70 29 20 28 31 30 |lcFunc-v|exp) (10|
|00003a00| 34 20 31 20 63 61 6c 63 | 46 75 6e 63 2d 72 68 65 |4 1 calc|Func-rhe|
|00003a10| 61 64 29 20 28 31 30 37 | 20 32 20 63 61 6c 63 46 |ad) (107| 2 calcF|
|00003a20| 75 6e 63 2d 72 63 6f 6e | 73 29 20 28 37 32 20 33 |unc-rcon|s) (72 3|
|00003a30| 20 63 61 6c 63 46 75 6e | 63 2d 68 69 73 74 6f 67 | calcFun|c-histog|
|00003a40| 72 61 6d 29 20 28 38 32 | 20 32 20 63 61 6c 63 46 |ram) (82| 2 calcF|
|00003a50| 75 6e 63 2d 6e 65 73 74 | 29 20 28 38 35 20 32 20 |unc-nest|) (85 2 |
|00003a60| 63 61 6c 63 46 75 6e 63 | 2d 61 6e 65 73 74 29 29 |calcFunc|-anest))|
|00003a70| 20 28 28 31 30 34 20 31 | 20 63 61 6c 63 46 75 6e | ((104 1| calcFun|
|00003a80| 63 2d 72 74 61 69 6c 29 | 20 28 38 32 20 31 20 63 |c-rtail)| (82 1 c|
|00003a90| 61 6c 63 46 75 6e 63 2d | 66 69 78 70 29 20 28 38 |alcFunc-|fixp) (8|
|00003aa0| 35 20 31 20 63 61 6c 63 | 46 75 6e 63 2d 61 66 69 |5 1 calc|Func-afi|
|00003ab0| 78 70 29 29 29 29 29 0a | 0a 28 64 65 66 75 6e 20 |xp))))).|.(defun |
|00003ac0| 6d 61 74 68 2d 76 61 72 | 2d 74 6f 2d 63 61 6c 63 |math-var|-to-calc|
|00003ad0| 46 75 6e 63 20 28 66 29 | 20 28 62 79 74 65 2d 63 |Func (f)| (byte-c|
|00003ae0| 6f 64 65 20 22 c1 08 21 | c2 3d 83 5c 22 00 c3 c4 |ode "..!|.=.\"...|
|00003af0| 08 38 21 83 16 00 c4 08 | 38 82 1f 00 c5 c6 c7 c8 |.8!.....|8.......|
|00003b00| 08 38 21 50 21 82 32 00 | c1 08 21 c9 3e 83 2e 00 |.8!P!.2.|..!.>...|
|00003b10| 08 82 32 00 ca 08 cb 5c | 22 87 22 20 5b 66 20 63 |..2....\|"." [f c|
|00003b20| 61 72 2d 73 61 66 65 20 | 76 61 72 20 66 62 6f 75 |ar-safe |var fbou|
|00003b30| 6e 64 70 20 32 20 69 6e | 74 65 72 6e 20 22 63 61 |ndp 2 in|tern "ca|
|00003b40| 6c 63 46 75 6e 63 2d 22 | 20 73 79 6d 62 6f 6c 2d |lcFunc-"| symbol-|
|00003b50| 6e 61 6d 65 20 31 20 28 | 6c 61 6d 62 64 61 20 63 |name 1 (|lambda c|
|00003b60| 61 6c 63 46 75 6e 63 2d | 6c 61 6d 62 64 61 29 20 |alcFunc-|lambda) |
|00003b70| 6d 61 74 68 2d 72 65 6a | 65 63 74 2d 61 72 67 20 |math-rej|ect-arg |
|00003b80| 22 2a 45 78 70 65 63 74 | 65 64 20 61 20 66 75 6e |"*Expect|ed a fun|
|00003b90| 63 74 69 6f 6e 20 6e 61 | 6d 65 22 5d 20 38 29 29 |ction na|me"] 8))|
|00003ba0| 0a 0a 28 64 65 66 75 6e | 20 6d 61 74 68 2d 63 61 |..(defun| math-ca|
|00003bb0| 6c 63 46 75 6e 63 2d 74 | 6f 2d 76 61 72 20 28 66 |lcFunc-t|o-var (f|
|00003bc0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 39 |) (byte-|code ".9|
|00003bd0| 83 33 00 c3 08 c4 5c 22 | 41 86 0e 00 08 19 c5 c6 |.3....\"|A.......|
|00003be0| c7 09 21 5c 22 83 21 00 | c8 c7 09 21 c9 5c 22 82 |..!\".!.|...!.\".|
|00003bf0| 24 00 c7 09 21 1a ca cb | 0a 21 cb cc 0a 50 21 45 |$...!...|.!...P!E|
|00003c00| 2a 82 34 00 08 87 22 20 | 5b 66 20 66 75 6e 63 20 |*.4..." |[f func |
|00003c10| 62 61 73 65 20 61 73 73 | 71 20 28 28 2b 20 2e 20 |base ass|q ((+ . |
|00003c20| 63 61 6c 63 46 75 6e 63 | 2d 61 64 64 29 20 28 2d |calcFunc|-add) (-|
|00003c30| 20 2e 20 63 61 6c 63 46 | 75 6e 63 2d 73 75 62 29 | . calcF|unc-sub)|
|00003c40| 20 28 2a 20 2e 20 63 61 | 6c 63 46 75 6e 63 2d 6d | (* . ca|lcFunc-m|
|00003c50| 75 6c 29 20 28 2f 20 2e | 20 63 61 6c 63 46 75 6e |ul) (/ .| calcFun|
|00003c60| 63 2d 64 69 76 29 20 28 | 5e 20 2e 20 63 61 6c 63 |c-div) (|^ . calc|
|00003c70| 46 75 6e 63 2d 70 6f 77 | 29 20 28 25 20 2e 20 63 |Func-pow|) (% . c|
|00003c80| 61 6c 63 46 75 6e 63 2d | 6d 6f 64 29 20 28 6e 65 |alcFunc-|mod) (ne|
|00003c90| 67 20 2e 20 63 61 6c 63 | 46 75 6e 63 2d 6e 65 67 |g . calc|Func-neg|
|00003ca0| 29 20 28 7c 20 2e 20 63 | 61 6c 63 46 75 6e 63 2d |) (| . c|alcFunc-|
|00003cb0| 76 63 6f 6e 63 61 74 29 | 29 20 73 74 72 69 6e 67 |vconcat)|) string|
|00003cc0| 2d 6d 61 74 63 68 20 22 | 5c 5c 60 63 61 6c 63 46 |-match "|\\`calcF|
|00003cd0| 75 6e 63 2d 5c 5c 28 2e | 2b 5c 5c 29 5c 5c 27 22 |unc-\\(.|+\\)\\'"|
|00003ce0| 20 73 79 6d 62 6f 6c 2d | 6e 61 6d 65 20 6d 61 74 | symbol-|name mat|
|00003cf0| 68 2d 6d 61 74 63 68 2d | 73 75 62 73 74 72 69 6e |h-match-|substrin|
|00003d00| 67 20 31 20 76 61 72 20 | 69 6e 74 65 72 6e 20 22 |g 1 var |intern "|
|00003d10| 76 61 72 2d 22 5d 20 31 | 32 29 29 0a 0a 28 64 65 |var-"] 1|2))..(de|
|00003d20| 66 75 6e 20 6d 61 74 68 | 2d 62 75 69 6c 64 2d 63 |fun math|-build-c|
|00003d30| 61 6c 6c 20 28 66 20 61 | 72 67 73 29 20 28 62 79 |all (f a|rgs) (by|
|00003d40| 74 65 2d 63 6f 64 65 20 | 22 c3 08 21 c4 3d 83 2e |te-code |"..!.=..|
|00003d50| 00 09 47 08 47 c5 5a 55 | 83 1f 00 c6 08 47 53 08 |..G.G.ZU|.....GS.|
|00003d60| 38 08 41 09 23 82 2b 00 | c7 c8 08 5c 22 88 c9 ca |8.A.#.+.|...\"...|
|00003d70| 08 21 09 42 42 82 5d 00 | 08 cb 3d 85 38 00 09 47 |.!.BB.].|..=.8..G|
|00003d80| cc 55 83 42 00 cd 09 40 | 44 82 5d 00 ce 08 cf 5c |.U.B...@|D.]....\|
|00003d90| 22 1a 0a 85 4f 00 09 47 | c5 55 83 59 00 0a 41 09 |"...O..G|.U.Y..A.|
|00003da0| 42 82 5c 5c 00 08 09 42 | 29 87 22 20 5b 66 20 61 |B.\\...B|)." [f a|
|00003db0| 72 67 73 20 66 75 6e 63 | 20 63 61 72 2d 73 61 66 |rgs func| car-saf|
|00003dc0| 65 20 63 61 6c 63 46 75 | 6e 63 2d 6c 61 6d 62 64 |e calcFu|nc-lambd|
|00003dd0| 61 20 32 20 6d 61 74 68 | 2d 6d 75 6c 74 69 2d 73 |a 2 math|-multi-s|
|00003de0| 75 62 73 74 20 63 61 6c | 63 2d 72 65 63 6f 72 64 |ubst cal|c-record|
|00003df0| 2d 77 68 79 20 22 2a 57 | 72 6f 6e 67 20 6e 75 6d |-why "*W|rong num|
|00003e00| 62 65 72 20 6f 66 20 61 | 72 67 75 6d 65 6e 74 73 |ber of a|rguments|
|00003e10| 22 20 63 61 6c 63 46 75 | 6e 63 2d 63 61 6c 6c 20 |" calcFu|nc-call |
|00003e20| 6d 61 74 68 2d 63 61 6c | 63 46 75 6e 63 2d 74 6f |math-cal|cFunc-to|
|00003e30| 2d 76 61 72 20 63 61 6c | 63 46 75 6e 63 2d 6e 65 |-var cal|cFunc-ne|
|00003e40| 67 20 31 20 6e 65 67 20 | 61 73 73 71 20 28 28 63 |g 1 neg |assq ((c|
|00003e50| 61 6c 63 46 75 6e 63 2d | 61 64 64 20 2e 20 2b 29 |alcFunc-|add . +)|
|00003e60| 20 28 63 61 6c 63 46 75 | 6e 63 2d 73 75 62 20 2e | (calcFu|nc-sub .|
|00003e70| 20 2d 29 20 28 63 61 6c | 63 46 75 6e 63 2d 6d 75 | -) (cal|cFunc-mu|
|00003e80| 6c 20 2e 20 2a 29 20 28 | 63 61 6c 63 46 75 6e 63 |l . *) (|calcFunc|
|00003e90| 2d 64 69 76 20 2e 20 2f | 29 20 28 63 61 6c 63 46 |-div . /|) (calcF|
|00003ea0| 75 6e 63 2d 70 6f 77 20 | 2e 20 5e 29 20 28 63 61 |unc-pow |. ^) (ca|
|00003eb0| 6c 63 46 75 6e 63 2d 6d | 6f 64 20 2e 20 25 29 20 |lcFunc-m|od . %) |
|00003ec0| 28 63 61 6c 63 46 75 6e | 63 2d 76 63 6f 6e 63 61 |(calcFun|c-vconca|
|00003ed0| 74 20 2e 20 7c 29 29 5d | 20 37 29 29 0a 0a 28 64 |t . |))]| 7))..(d|
|00003ee0| 65 66 75 6e 20 6d 61 74 | 68 2d 6d 75 6c 74 69 2d |efun mat|h-multi-|
|00003ef0| 73 75 62 73 74 20 28 65 | 78 70 72 20 6f 6c 64 73 |subst (e|xpr olds|
|00003f00| 20 6e 65 77 73 29 20 28 | 62 79 74 65 2d 63 6f 64 | news) (|byte-cod|
|00003f10| 65 20 22 c1 c1 1a 18 0b | 85 09 00 0c 85 1f 00 0b |e ".....|........|
|00003f20| 40 0c 40 42 08 42 10 0b | 41 13 0c 41 89 14 88 82 |@.@B.B..|A..A....|
|00003f30| 04 00 88 c6 0d 21 2a 87 | 22 20 5b 61 72 67 73 20 |.....!*.|" [args |
|00003f40| 6e 69 6c 20 74 65 6d 70 | 20 6f 6c 64 73 20 6e 65 |nil temp| olds ne|
|00003f50| 77 73 20 65 78 70 72 20 | 6d 61 74 68 2d 6d 75 6c |ws expr |math-mul|
|00003f60| 74 69 2d 73 75 62 73 74 | 2d 72 65 63 5d 20 33 29 |ti-subst|-rec] 3)|
|00003f70| 29 0a 0a 28 64 65 66 75 | 6e 20 6d 61 74 68 2d 6d |)..(defu|n math-m|
|00003f80| 75 6c 74 69 2d 73 75 62 | 73 74 2d 72 65 63 20 28 |ulti-sub|st-rec (|
|00003f90| 65 78 70 72 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |expr) (b|yte-code|
|00003fa0| 20 22 c5 09 0a 5c 22 89 | 10 83 0e 00 08 41 82 6c | "...\".|.....A.l|
|00003fb0| 00 09 3a 3f 86 18 00 09 | 40 c6 3e 83 1f 00 09 82 |..:?....|@.>.....|
|00003fc0| 6c 00 09 40 c7 3d 85 2a | 00 09 47 c8 56 83 64 00 |l..@.=.*|..G.V.d.|
|00003fd0| 09 40 43 0a 1a 1b 09 41 | 89 11 41 85 57 00 09 40 |.@C....A|..A.W..@|
|00003fe0| 0b 42 89 13 88 c5 09 40 | 0a 5c 22 85 53 00 09 40 |.B.....@|.\".S..@|
|00003ff0| 09 40 42 0a 42 89 12 88 | 82 33 00 88 c9 ca 09 40 |.@B.B...|.3.....@|
|00004000| 21 0b 42 21 2a 82 6c 00 | 09 40 cb ca 09 41 5c 22 |!.B!*.l.|.@...A\"|
|00004010| 42 87 22 20 5b 74 65 6d | 70 20 65 78 70 72 20 61 |B." [tem|p expr a|
|00004020| 72 67 73 20 6e 65 77 20 | 74 20 61 73 73 6f 63 20 |rgs new |t assoc |
|00004030| 28 62 69 67 70 6f 73 20 | 62 69 67 6e 65 67 20 66 |(bigpos |bigneg f|
|00004040| 72 61 63 20 66 6c 6f 61 | 74 20 63 70 6c 78 20 70 |rac floa|t cplx p|
|00004050| 6f 6c 61 72 20 68 6d 73 | 20 64 61 74 65 20 6d 6f |olar hms| date mo|
|00004060| 64 20 76 61 72 29 20 63 | 61 6c 63 46 75 6e 63 2d |d var) c|alcFunc-|
|00004070| 6c 61 6d 62 64 61 20 32 | 20 6e 72 65 76 65 72 73 |lambda 2| nrevers|
|00004080| 65 20 6d 61 74 68 2d 6d | 75 6c 74 69 2d 73 75 62 |e math-m|ulti-sub|
|00004090| 73 74 2d 72 65 63 20 6d | 61 70 63 61 72 5d 20 38 |st-rec m|apcar] 8|
|000040a0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 46 |))..(def|un calcF|
|000040b0| 75 6e 63 2d 63 61 6c 6c | 20 28 66 20 26 72 65 73 |unc-call| (f &res|
|000040c0| 74 20 61 72 67 73 29 20 | 28 62 79 74 65 2d 63 6f |t args) |(byte-co|
|000040d0| 64 65 20 22 c2 c3 09 21 | 08 5c 22 89 10 88 c4 08 |de "...!|.\".....|
|000040e0| 21 c5 3d 83 15 00 08 82 | 18 00 c6 08 21 87 22 20 |!.=.....|....!." |
|000040f0| 5b 61 72 67 73 20 66 20 | 6d 61 74 68 2d 62 75 69 |[args f |math-bui|
|00004100| 6c 64 2d 63 61 6c 6c 20 | 6d 61 74 68 2d 76 61 72 |ld-call |math-var|
|00004110| 2d 74 6f 2d 63 61 6c 63 | 46 75 6e 63 20 63 61 72 |-to-calc|Func car|
|00004120| 2d 73 61 66 65 20 63 61 | 6c 63 46 75 6e 63 2d 63 |-safe ca|lcFunc-c|
|00004130| 61 6c 6c 20 6d 61 74 68 | 2d 6e 6f 72 6d 61 6c 69 |all math|-normali|
|00004140| 7a 65 5d 20 35 29 29 0a | 0a 28 64 65 66 75 6e 20 |ze] 5)).|.(defun |
|00004150| 63 61 6c 63 46 75 6e 63 | 2d 61 70 70 6c 79 20 28 |calcFunc|-apply (|
|00004160| 66 20 61 72 67 73 29 20 | 28 62 79 74 65 2d 63 6f |f args) |(byte-co|
|00004170| 64 65 20 22 08 3a 85 09 | 00 08 40 c2 3d 86 10 00 |de ".:..|..@.=...|
|00004180| c3 08 c4 5c 22 88 c5 c6 | 09 08 41 42 5c 22 87 22 |...\"...|..AB\"."|
|00004190| 20 5b 61 72 67 73 20 66 | 20 76 65 63 20 6d 61 74 | [args f| vec mat|
|000041a0| 68 2d 72 65 6a 65 63 74 | 2d 61 72 67 20 76 65 63 |h-reject|-arg vec|
|000041b0| 74 6f 72 70 20 61 70 70 | 6c 79 20 63 61 6c 63 46 |torp app|ly calcF|
|000041c0| 75 6e 63 2d 63 61 6c 6c | 5d 20 35 29 29 0a 0a 28 |unc-call|] 5))..(|
|000041d0| 64 65 66 75 6e 20 6d 61 | 74 68 2d 73 79 6d 62 2d |defun ma|th-symb-|
|000041e0| 6d 61 70 20 28 66 20 6d | 6f 64 65 20 61 72 67 73 |map (f m|ode args|
|000041f0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 d3 09 |) (byte-|code "..|
|00004200| 21 18 0b 47 1a d4 0b 21 | 1c d5 0a c6 5c 22 1d d6 |!..G...!|....\"..|
|00004210| 1e 07 c6 1e 08 c6 1e 09 | d7 1e 0a d8 1e 0b c6 1e |........|........|
|00004220| 0c c6 1e 0d c6 1e 0e c6 | 1e 0f c6 1e 10 0e 11 d9 |........|........|
|00004230| 3d 83 3f 00 da 16 11 db | 89 16 07 82 b2 00 0e 0a |=.?.....|........|
|00004240| 54 89 16 0a 0a 57 85 51 | 00 dc 0c 0e 0a 48 21 3f |T....W.Q|.....H!?|
|00004250| 85 59 00 c6 88 82 3f 00 | 88 0e 0a 0a 57 83 a9 00 |.Y....?.|....W...|
|00004260| 0e 11 da 3d 83 7a 00 dd | de df e0 09 44 e1 e2 46 |...=.z..|....D..F|
|00004270| 45 10 e3 89 16 11 82 a6 | 00 0e 11 ce 3d 85 a6 00 |E.......|....=...|
|00004280| 0e 0a 0a 57 85 a6 00 dc | 0c 0e 0a 48 21 85 9b 00 |...W....|...H!...|
|00004290| 0c 0e 0a e4 0c 0e 0a 48 | 21 49 88 0e 0a 54 89 16 |.......H|!I...T..|
|000042a0| 0a 88 82 81 00 82 ad 00 | da 89 16 11 88 d7 89 16 |........|........|
|000042b0| 0a 88 0e 0a 54 89 16 0a | 0a 57 85 30 01 0c 0e 0a |....T...|.W.0....|
|000042c0| 48 89 16 0f 88 e5 0e 0f | 21 0e 07 3e 85 db 00 0e |H.......|!..>....|
|000042d0| 11 da 3d 86 db 00 dc 0e | 0f 21 85 2c 01 0d 0e 0a |..=.....|.!.,....|
|000042e0| d2 49 88 0e 08 83 0c 01 | 0e 07 41 85 09 01 e6 e7 |.I......|..A.....|
|000042f0| 0e 08 0e 07 3e 47 5a 48 | e7 0e 0f 40 0e 07 3e 47 |....>GZH|...@..>G|
|00004300| 5a 48 0e 07 38 89 16 08 | 82 12 01 0e 0f 40 89 16 |ZH..8...|.....@..|
|00004310| 08 88 0e 0d 83 26 01 0e | 0f 47 0e 0d 55 86 23 01 |.....&..|.G..U.#.|
|00004320| e8 20 82 2c 01 0e 0f 47 | 89 16 0d 88 82 b3 00 88 |. .,...G|........|
|00004330| 0e 0d 86 49 01 0a e9 55 | 83 45 01 ea 0c d8 48 eb |...I...U|.E....H.|
|00004340| 5c 22 82 49 01 ea c6 ec | 5c 22 88 0e 0d 53 89 16 |\".I....|\"...S..|
|00004350| 0c 88 0e 0d 53 89 16 0d | d8 56 85 b7 01 c6 16 10 |....S...|.V......|
|00004360| d7 89 16 0a 88 0e 0a 54 | 89 16 0a 0a 57 85 a0 01 |.......T|....W...|
|00004370| 0d 0e 0a 48 83 90 01 0c | 0e 0a 0c 0e 0a 48 41 49 |...H....|.....HAI|
|00004380| 88 ed 0e 10 0c 0e 0a 48 | 40 43 5c 22 89 16 10 82 |.......H|@C\"....|
|00004390| 9c 01 ed 0e 10 0c 0e 0a | 48 43 5c 22 89 16 10 88 |........|HC\"....|
|000043a0| 82 64 01 88 0e 0b 54 16 | 0b ee ef 08 0e 10 5c 22 |.d....T.|......\"|
|000043b0| 21 0e 09 42 89 16 09 88 | 82 51 01 88 0e 08 f0 0e |!..B....|.Q......|
|000043c0| 09 21 42 89 16 09 88 0e | 11 ce 3d 85 ce 01 dc 0e |.!B.....|..=.....|
|000043d0| 09 21 83 d8 01 e4 0e 09 | 21 82 da 01 0e 09 2e 0e |.!......|!.......|
|000043e0| 87 22 20 5b 66 75 6e 63 | 20 66 20 6e 61 72 67 73 |." [func| f nargs|
|000043f0| 20 61 72 67 73 20 70 74 | 72 73 20 76 66 6c 61 67 | args pt|rs vflag|
|00004400| 73 20 6e 69 6c 20 68 65 | 61 64 73 20 68 65 61 64 |s nil he|ads head|
|00004410| 20 76 65 63 20 69 20 6d | 61 74 68 2d 77 6f 72 6b | vec i m|ath-work|
|00004420| 69 6e 67 2d 73 74 65 70 | 20 6d 61 74 68 2d 77 6f |ing-step| math-wo|
|00004430| 72 6b 69 6e 67 2d 73 74 | 65 70 2d 32 20 6c 65 6e |rking-st|ep-2 len|
|00004440| 20 63 6f 6c 73 20 6f 62 | 6a 20 65 78 70 72 20 6d | cols ob|j expr m|
|00004450| 6f 64 65 20 74 20 6d 61 | 74 68 2d 76 61 72 2d 74 |ode t ma|th-var-t|
|00004460| 6f 2d 63 61 6c 63 46 75 | 6e 63 20 76 63 6f 6e 63 |o-calcFu|nc vconc|
|00004470| 61 74 20 6d 61 6b 65 2d | 76 65 63 74 6f 72 20 28 |at make-|vector (|
|00004480| 76 65 63 29 20 2d 31 20 | 30 20 65 71 6e 20 65 6c |vec) -1 |0 eqn el|
|00004490| 65 6d 73 20 28 63 61 6c | 63 46 75 6e 63 2d 65 71 |ems (cal|cFunc-eq|
|000044a0| 20 63 61 6c 63 46 75 6e | 63 2d 6e 65 71 20 63 61 | calcFun|c-neq ca|
|000044b0| 6c 63 46 75 6e 63 2d 6c | 74 20 63 61 6c 63 46 75 |lcFunc-l|t calcFu|
|000044c0| 6e 63 2d 67 74 20 63 61 | 6c 63 46 75 6e 63 2d 6c |nc-gt ca|lcFunc-l|
|000044d0| 65 71 20 63 61 6c 63 46 | 75 6e 63 2d 67 65 71 29 |eq calcF|unc-geq)|
|000044e0| 20 6d 61 74 68 2d 6d 61 | 74 72 69 78 70 20 6c 61 | math-ma|trixp la|
|000044f0| 6d 62 64 61 20 28 26 72 | 65 73 74 20 78 29 20 6d |mbda (&r|est x) m|
|00004500| 61 74 68 2d 73 79 6d 62 | 2d 6d 61 70 20 71 75 6f |ath-symb|-map quo|
|00004510| 74 65 20 28 71 75 6f 74 | 65 20 65 6c 65 6d 73 29 |te (quot|e elems)|
|00004520| 20 78 20 72 6f 77 73 20 | 6d 61 74 68 2d 74 72 61 | x rows |math-tra|
|00004530| 6e 73 70 6f 73 65 20 63 | 61 72 2d 73 61 66 65 20 |nspose c|ar-safe |
|00004540| 5b 5b 30 20 31 20 32 20 | 33 20 34 20 35 5d 20 5b |[[0 1 2 |3 4 5] [|
|00004550| 31 20 31 20 32 20 33 20 | 32 20 33 5d 20 5b 32 20 |1 1 2 3 |2 3] [2 |
|00004560| 32 20 32 20 31 20 32 20 | 31 5d 20 5b 33 20 33 20 |2 2 1 2 |1] [3 3 |
|00004570| 31 20 33 20 31 20 33 5d | 20 5b 34 20 32 20 32 20 |1 3 1 3]| [4 2 2 |
|00004580| 31 20 34 20 31 5d 20 5b | 35 20 33 20 31 20 33 20 |1 4 1] [|5 3 1 3 |
|00004590| 31 20 35 5d 5d 20 36 20 | 6d 61 74 68 2d 64 69 6d |1 5]] 6 |math-dim|
|000045a0| 65 6e 73 69 6f 6e 2d 65 | 72 72 6f 72 20 31 20 6d |ension-e|rror 1 m|
|000045b0| 61 74 68 2d 72 65 6a 65 | 63 74 2d 61 72 67 20 76 |ath-reje|ct-arg v|
|000045c0| 65 63 74 6f 72 70 20 22 | 41 74 20 6c 65 61 73 74 |ectorp "|At least|
|000045d0| 20 6f 6e 65 20 61 72 67 | 75 6d 65 6e 74 20 6d 75 | one arg|ument mu|
|000045e0| 73 74 20 62 65 20 61 20 | 76 65 63 74 6f 72 22 20 |st be a |vector" |
|000045f0| 6e 63 6f 6e 63 20 6d 61 | 74 68 2d 6e 6f 72 6d 61 |nconc ma|th-norma|
|00004600| 6c 69 7a 65 20 6d 61 74 | 68 2d 62 75 69 6c 64 2d |lize mat|h-build-|
|00004610| 63 61 6c 6c 20 6e 72 65 | 76 65 72 73 65 5d 20 31 |call nre|verse] 1|
|00004620| 39 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |9))..(de|fun calc|
|00004630| 46 75 6e 63 2d 6d 61 70 | 20 28 66 75 6e 63 20 26 |Func-map| (func &|
|00004640| 72 65 73 74 20 61 72 67 | 73 29 20 28 62 79 74 65 |rest arg|s) (byte|
|00004650| 2d 63 6f 64 65 20 22 c2 | 08 c3 09 23 87 22 20 5b |-code ".|...#." [|
|00004660| 66 75 6e 63 20 61 72 67 | 73 20 6d 61 74 68 2d 73 |func arg|s math-s|
|00004670| 79 6d 62 2d 6d 61 70 20 | 65 6c 65 6d 73 5d 20 34 |ymb-map |elems] 4|
|00004680| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 46 |))..(def|un calcF|
|00004690| 75 6e 63 2d 6d 61 70 72 | 20 28 66 75 6e 63 20 26 |unc-mapr| (func &|
|000046a0| 72 65 73 74 20 61 72 67 | 73 29 20 28 62 79 74 65 |rest arg|s) (byte|
|000046b0| 2d 63 6f 64 65 20 22 c2 | 08 c3 09 23 87 22 20 5b |-code ".|...#." [|
|000046c0| 66 75 6e 63 20 61 72 67 | 73 20 6d 61 74 68 2d 73 |func arg|s math-s|
|000046d0| 79 6d 62 2d 6d 61 70 20 | 72 6f 77 73 5d 20 34 29 |ymb-map |rows] 4)|
|000046e0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 46 75 |)..(defu|n calcFu|
|000046f0| 6e 63 2d 6d 61 70 63 20 | 28 66 75 6e 63 20 26 72 |nc-mapc |(func &r|
|00004700| 65 73 74 20 61 72 67 73 | 29 20 28 62 79 74 65 2d |est args|) (byte-|
|00004710| 63 6f 64 65 20 22 c2 08 | c3 09 23 87 22 20 5b 66 |code "..|..#." [f|
|00004720| 75 6e 63 20 61 72 67 73 | 20 6d 61 74 68 2d 73 79 |unc args| math-sy|
|00004730| 6d 62 2d 6d 61 70 20 63 | 6f 6c 73 5d 20 34 29 29 |mb-map c|ols] 4))|
|00004740| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|00004750| 63 2d 6d 61 70 61 20 28 | 66 75 6e 63 20 61 72 67 |c-mapa (|func arg|
|00004760| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c2 08 |) (byte-|code "..|
|00004770| 21 83 11 00 c3 09 c4 c5 | 08 21 41 23 82 16 00 c3 |!.......|.!A#....|
|00004780| 09 c4 08 23 87 22 20 5b | 61 72 67 20 66 75 6e 63 |...#." [|arg func|
|00004790| 20 6d 61 74 68 2d 6d 61 | 74 72 69 78 70 20 6d 61 | math-ma|trixp ma|
|000047a0| 74 68 2d 73 79 6d 62 2d | 6d 61 70 20 65 6c 65 6d |th-symb-|map elem|
|000047b0| 73 20 6d 61 74 68 2d 74 | 72 61 6e 73 70 6f 73 65 |s math-t|ranspose|
|000047c0| 5d 20 37 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 7))..(|defun ca|
|000047d0| 6c 63 46 75 6e 63 2d 6d | 61 70 64 20 28 66 75 6e |lcFunc-m|apd (fun|
|000047e0| 63 20 61 72 67 29 20 28 | 62 79 74 65 2d 63 6f 64 |c arg) (|byte-cod|
|000047f0| 65 20 22 c2 08 21 83 0f | 00 c3 09 c4 08 41 23 82 |e "..!..|.....A#.|
|00004800| 14 00 c3 09 c4 08 23 87 | 22 20 5b 61 72 67 20 66 |......#.|" [arg f|
|00004810| 75 6e 63 20 6d 61 74 68 | 2d 6d 61 74 72 69 78 70 |unc math|-matrixp|
|00004820| 20 6d 61 74 68 2d 73 79 | 6d 62 2d 6d 61 70 20 65 | math-sy|mb-map e|
|00004830| 6c 65 6d 73 5d 20 36 29 | 29 0a 0a 28 64 65 66 75 |lems] 6)|)..(defu|
|00004840| 6e 20 63 61 6c 63 46 75 | 6e 63 2d 6d 61 70 65 71 |n calcFu|nc-mapeq|
|00004850| 20 28 66 75 6e 63 20 26 | 72 65 73 74 20 61 72 67 | (func &|rest arg|
|00004860| 73 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c3 |s) (byte|-code ".|
|00004870| 08 c4 5c 22 86 0b 00 c3 | 08 c5 5c 22 85 12 00 09 |..\"....|..\"....|
|00004880| 47 c6 55 85 5c 5c 00 c7 | 09 40 21 83 3a 00 c8 c9 |G.U.\\..|.@!.:...|
|00004890| ca c8 09 38 21 0a 5c 22 | 38 18 08 85 36 00 09 40 |...8!.\"|8...6..@|
|000048a0| 08 c8 09 38 41 42 44 89 | 11 29 82 5c 5c 00 c7 c8 |...8ABD.|.).\\...|
|000048b0| 09 38 21 85 5c 5c 00 c8 | c9 ca 09 40 21 0a 5c 22 |.8!.\\..|...@!.\"|
|000048c0| 38 18 08 85 5b 00 08 09 | 40 41 42 c8 09 38 44 89 |8...[...|@AB..8D.|
|000048d0| 11 29 88 c3 08 cb 5c 22 | 85 6c 00 c9 ca c8 09 38 |.)....\"|.l.....8|
|000048e0| 21 0a 5c 22 86 7a 00 c3 | 08 cc 5c 22 86 7a 00 c3 |!.\".z..|..\".z..|
|000048f0| 08 cd 5c 22 83 85 00 ce | cf 08 09 23 82 8a 00 ce |..\"....|...#....|
|00004900| d0 08 09 23 87 22 20 5b | 66 75 6e 63 20 61 72 67 |...#." [|func arg|
|00004910| 73 20 63 61 6c 63 2d 74 | 77 65 61 6b 2d 65 71 6e |s calc-t|weak-eqn|
|00004920| 2d 74 61 62 6c 65 20 65 | 71 75 61 6c 20 28 76 61 |-table e|qual (va|
|00004930| 72 20 6d 75 6c 20 76 61 | 72 2d 6d 75 6c 29 20 28 |r mul va|r-mul) (|
|00004940| 76 61 72 20 64 69 76 20 | 76 61 72 2d 64 69 76 29 |var div |var-div)|
|00004950| 20 32 20 6d 61 74 68 2d | 6e 65 67 70 20 31 20 61 | 2 math-|negp 1 a|
|00004960| 73 73 71 20 63 61 72 2d | 73 61 66 65 20 28 76 61 |ssq car-|safe (va|
|00004970| 72 20 64 69 76 20 76 61 | 72 2d 64 69 76 29 20 28 |r div va|r-div) (|
|00004980| 76 61 72 20 6e 65 67 20 | 76 61 72 2d 6e 65 67 29 |var neg |var-neg)|
|00004990| 20 28 76 61 72 20 69 6e | 76 20 76 61 72 2d 69 6e | (var in|v var-in|
|000049a0| 76 29 20 61 70 70 6c 79 | 20 63 61 6c 63 46 75 6e |v) apply| calcFun|
|000049b0| 63 2d 6d 61 70 65 71 72 | 20 63 61 6c 63 46 75 6e |c-mapeqr| calcFun|
|000049c0| 63 2d 6d 61 70 65 71 70 | 5d 20 31 38 29 29 0a 0a |c-mapeqp|] 18))..|
|000049d0| 28 64 65 66 75 6e 20 63 | 61 6c 63 46 75 6e 63 2d |(defun c|alcFunc-|
|000049e0| 6d 61 70 65 71 72 20 28 | 66 75 6e 63 20 26 72 65 |mapeqr (|func &re|
|000049f0| 73 74 20 61 72 67 73 29 | 20 28 62 79 74 65 2d 63 |st args)| (byte-c|
|00004a00| 6f 64 65 20 22 c2 c3 08 | 5c 22 89 10 88 c4 c5 09 |ode "...|\"......|
|00004a10| 08 23 87 22 20 5b 61 72 | 67 73 20 66 75 6e 63 20 |.#." [ar|gs func |
|00004a20| 6d 61 70 63 61 72 20 28 | 6c 61 6d 62 64 61 20 28 |mapcar (|lambda (|
|00004a30| 78 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c3 |x) (byte|-code ".|
|00004a40| c4 09 21 0a 5c 22 18 08 | 83 14 00 c5 08 38 09 41 |..!.\"..|.....8.A|
|00004a50| 42 82 15 00 09 29 87 22 | 20 5b 66 75 6e 63 20 78 |B....)."| [func x|
|00004a60| 20 63 61 6c 63 2d 74 77 | 65 61 6b 2d 65 71 6e 2d | calc-tw|eak-eqn-|
|00004a70| 74 61 62 6c 65 20 61 73 | 73 71 20 63 61 72 2d 73 |table as|sq car-s|
|00004a80| 61 66 65 20 31 5d 20 34 | 29 29 20 61 70 70 6c 79 |afe 1] 4|)) apply|
|00004a90| 20 63 61 6c 63 46 75 6e | 63 2d 6d 61 70 65 71 70 | calcFun|c-mapeqp|
|00004aa0| 5d 20 35 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 5))..(|defun ca|
|00004ab0| 6c 63 46 75 6e 63 2d 6d | 61 70 65 71 70 20 28 66 |lcFunc-m|apeqp (f|
|00004ac0| 75 6e 63 20 26 72 65 73 | 74 20 61 72 67 73 29 20 |unc &res|t args) |
|00004ad0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c3 08 40 21 |(byte-co|de "..@!|
|00004ae0| c4 3e 85 10 00 c3 c5 08 | 38 21 c6 3e 86 23 00 c3 |.>......|8!.>.#..|
|00004af0| 08 40 21 c7 3e 85 23 00 | c3 c5 08 38 21 c8 3e 85 |.@!.>.#.|...8!.>.|
|00004b00| 43 00 08 40 c5 c9 c5 08 | 38 40 09 5c 22 38 ca c5 |C..@....|8@.\"8..|
|00004b10| 08 38 38 c5 c5 08 38 38 | 45 08 41 41 42 42 89 10 |.88...88|E.AABB..|
|00004b20| 88 cb 0a cc 08 23 87 22 | 20 5b 61 72 67 73 20 63 |.....#."| [args c|
|00004b30| 61 6c 63 2d 74 77 65 61 | 6b 2d 65 71 6e 2d 74 61 |alc-twea|k-eqn-ta|
|00004b40| 62 6c 65 20 66 75 6e 63 | 20 63 61 72 2d 73 61 66 |ble func| car-saf|
|00004b50| 65 20 28 63 61 6c 63 46 | 75 6e 63 2d 6c 74 20 63 |e (calcF|unc-lt c|
|00004b60| 61 6c 63 46 75 6e 63 2d | 6c 65 71 29 20 31 20 28 |alcFunc-|leq) 1 (|
|00004b70| 63 61 6c 63 46 75 6e 63 | 2d 67 74 20 63 61 6c 63 |calcFunc|-gt calc|
|00004b80| 46 75 6e 63 2d 67 65 71 | 29 20 28 63 61 6c 63 46 |Func-geq|) (calcF|
|00004b90| 75 6e 63 2d 67 74 20 63 | 61 6c 63 46 75 6e 63 2d |unc-gt c|alcFunc-|
|00004ba0| 67 65 71 29 20 28 63 61 | 6c 63 46 75 6e 63 2d 6c |geq) (ca|lcFunc-l|
|00004bb0| 74 20 63 61 6c 63 46 75 | 6e 63 2d 6c 65 71 29 20 |t calcFu|nc-leq) |
|00004bc0| 61 73 73 71 20 32 20 6d | 61 74 68 2d 73 79 6d 62 |assq 2 m|ath-symb|
|00004bd0| 2d 6d 61 70 20 65 71 6e | 5d 20 31 31 29 29 0a 0a |-map eqn|] 11))..|
|00004be0| 28 64 65 66 75 6e 20 63 | 61 6c 63 46 75 6e 63 2d |(defun c|alcFunc-|
|00004bf0| 72 65 64 75 63 65 20 28 | 66 75 6e 63 20 76 65 63 |reduce (|func vec|
|00004c00| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c4 08 |) (byte-|code "..|
|00004c10| 21 83 5e 00 c5 c5 1a 19 | c6 0b 21 89 13 88 08 41 |!.^.....|..!....A|
|00004c20| 89 10 85 56 00 08 40 89 | 12 88 0a 41 89 12 85 52 |...V..@.|...A...R|
|00004c30| 00 09 83 4a 00 09 3a 3f | 86 31 00 09 40 c7 3e 83 |...J..:?|.1..@.>.|
|00004c40| 40 00 c8 c9 0b 09 0a 40 | 44 5c 22 21 82 47 00 c9 |@......@|D\"!.G..|
|00004c50| 0b 09 0a 40 44 5c 22 82 | 4c 00 0a 40 89 11 88 82 |...@D\".|L..@....|
|00004c60| 1c 00 88 82 10 00 88 c8 | 09 21 2a 82 62 00 ca 0b |........|.!*.b...|
|00004c70| 08 5c 22 87 22 20 5b 76 | 65 63 20 65 78 70 72 20 |.\"." [v|ec expr |
|00004c80| 72 6f 77 20 66 75 6e 63 | 20 6d 61 74 68 2d 6d 61 |row func| math-ma|
|00004c90| 74 72 69 78 70 20 6e 69 | 6c 20 6d 61 74 68 2d 76 |trixp ni|l math-v|
|00004ca0| 61 72 2d 74 6f 2d 63 61 | 6c 63 46 75 6e 63 20 28 |ar-to-ca|lcFunc (|
|00004cb0| 62 69 67 70 6f 73 20 62 | 69 67 6e 65 67 20 66 72 |bigpos b|igneg fr|
|00004cc0| 61 63 20 66 6c 6f 61 74 | 20 63 70 6c 78 20 70 6f |ac float| cplx po|
|00004cd0| 6c 61 72 29 20 6d 61 74 | 68 2d 6e 6f 72 6d 61 6c |lar) mat|h-normal|
|00004ce0| 69 7a 65 20 6d 61 74 68 | 2d 62 75 69 6c 64 2d 63 |ize math|-build-c|
|00004cf0| 61 6c 6c 20 63 61 6c 63 | 46 75 6e 63 2d 72 65 64 |all calc|Func-red|
|00004d00| 75 63 65 72 5d 20 31 30 | 29 29 0a 0a 28 64 65 66 |ucer] 10|))..(def|
|00004d10| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 72 72 65 64 |un calcF|unc-rred|
|00004d20| 75 63 65 20 28 66 75 6e | 63 20 76 65 63 29 20 28 |uce (fun|c vec) (|
|00004d30| 62 79 74 65 2d 63 6f 64 | 65 20 22 c4 08 21 83 4f |byte-cod|e "..!.O|
|00004d40| 00 c5 c5 1a 19 c6 0b 21 | 13 c7 08 41 21 89 10 88 |.......!|...A!...|
|00004d50| 08 85 47 00 c7 08 40 41 | 21 89 12 88 0a 85 3e 00 |..G...@A|!.....>.|
|00004d60| 09 83 33 00 c8 0b 0a 40 | 09 44 5c 22 82 35 00 0a |..3....@|.D\".5..|
|00004d70| 40 11 0a 41 89 12 88 82 | 21 00 88 08 41 89 10 88 |@..A....|!...A...|
|00004d80| 82 15 00 88 c9 09 21 2a | 82 53 00 ca 0b 08 5c 22 |......!*|.S....\"|
|00004d90| 87 22 20 5b 76 65 63 20 | 65 78 70 72 20 72 6f 77 |." [vec |expr row|
|00004da0| 20 66 75 6e 63 20 6d 61 | 74 68 2d 6d 61 74 72 69 | func ma|th-matri|
|00004db0| 78 70 20 6e 69 6c 20 6d | 61 74 68 2d 76 61 72 2d |xp nil m|ath-var-|
|00004dc0| 74 6f 2d 63 61 6c 63 46 | 75 6e 63 20 72 65 76 65 |to-calcF|unc reve|
|00004dd0| 72 73 65 20 6d 61 74 68 | 2d 62 75 69 6c 64 2d 63 |rse math|-build-c|
|00004de0| 61 6c 6c 20 6d 61 74 68 | 2d 6e 6f 72 6d 61 6c 69 |all math|-normali|
|00004df0| 7a 65 20 63 61 6c 63 46 | 75 6e 63 2d 72 72 65 64 |ze calcF|unc-rred|
|00004e00| 75 63 65 72 5d 20 31 30 | 29 29 0a 0a 28 64 65 66 |ucer] 10|))..(def|
|00004e10| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 72 65 64 75 |un calcF|unc-redu|
|00004e20| 63 65 72 20 28 66 75 6e | 63 20 76 65 63 29 20 28 |cer (fun|c vec) (|
|00004e30| 62 79 74 65 2d 63 6f 64 | 65 20 22 c3 08 21 89 10 |byte-cod|e "..!..|
|00004e40| 88 c4 09 21 86 10 00 c5 | 09 c6 5c 22 88 09 41 89 |...!....|..\"..A.|
|00004e50| 11 40 1a 0a 83 3b 00 c7 | c8 c9 8f 88 09 41 89 11 |.@...;..|.....A..|
|00004e60| 85 34 00 ca 08 0a 09 40 | 44 5c 22 89 12 88 82 20 |.4.....@|D\".... |
|00004e70| 00 88 cb 0a 21 82 45 00 | cc 08 21 86 45 00 c5 09 |....!.E.|..!.E...|
|00004e80| cd 5c 22 29 87 22 20 5b | 66 75 6e 63 20 76 65 63 |.\")." [|func vec|
|00004e90| 20 65 78 70 72 20 6d 61 | 74 68 2d 76 61 72 2d 74 | expr ma|th-var-t|
|00004ea0| 6f 2d 63 61 6c 63 46 75 | 6e 63 20 6d 61 74 68 2d |o-calcFu|nc math-|
|00004eb0| 76 65 63 74 6f 72 70 20 | 6d 61 74 68 2d 72 65 6a |vectorp |math-rej|
|00004ec0| 65 63 74 2d 61 72 67 20 | 76 65 63 74 6f 72 70 20 |ect-arg |vectorp |
|00004ed0| 65 72 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |err (byt|e-code "|
|00004ee0| 08 39 85 25 00 c4 08 c5 | 5c 22 41 86 0e 00 09 19 |.9.%....|\"A.....|
|00004ef0| 0a 41 85 24 00 c6 09 0b | c7 0a 38 23 13 0a 41 89 |.A.$....|..8#..A.|
|00004f00| 12 88 82 0f 00 29 87 22 | 20 5b 66 75 6e 63 20 6c |.....)."| [func l|
|00004f10| 66 75 6e 63 20 76 65 63 | 20 65 78 70 72 20 61 73 |func vec| expr as|
|00004f20| 73 71 20 28 28 63 61 6c | 63 46 75 6e 63 2d 61 64 |sq ((cal|cFunc-ad|
|00004f30| 64 20 2e 20 6d 61 74 68 | 2d 61 64 64 29 20 28 63 |d . math|-add) (c|
|00004f40| 61 6c 63 46 75 6e 63 2d | 73 75 62 20 2e 20 6d 61 |alcFunc-|sub . ma|
|00004f50| 74 68 2d 73 75 62 29 20 | 28 63 61 6c 63 46 75 6e |th-sub) |(calcFun|
|00004f60| 63 2d 6d 75 6c 20 2e 20 | 6d 61 74 68 2d 6d 75 6c |c-mul . |math-mul|
|00004f70| 29 20 28 63 61 6c 63 46 | 75 6e 63 2d 64 69 76 20 |) (calcF|unc-div |
|00004f80| 2e 20 6d 61 74 68 2d 64 | 69 76 29 20 28 63 61 6c |. math-d|iv) (cal|
|00004f90| 63 46 75 6e 63 2d 70 6f | 77 20 2e 20 6d 61 74 68 |cFunc-po|w . math|
|00004fa0| 2d 70 6f 77 29 20 28 63 | 61 6c 63 46 75 6e 63 2d |-pow) (c|alcFunc-|
|00004fb0| 6d 6f 64 20 2e 20 6d 61 | 74 68 2d 6d 6f 64 29 20 |mod . ma|th-mod) |
|00004fc0| 28 63 61 6c 63 46 75 6e | 63 2d 76 63 6f 6e 63 61 |(calcFun|c-vconca|
|00004fd0| 74 20 2e 20 6d 61 74 68 | 2d 63 6f 6e 63 61 74 29 |t . math|-concat)|
|00004fe0| 29 20 66 75 6e 63 61 6c | 6c 20 31 5d 20 37 29 20 |) funcal|l 1] 7) |
|00004ff0| 28 28 65 72 72 6f 72 20 | 28 62 79 74 65 2d 63 6f |((error |(byte-co|
|00005000| 64 65 20 22 c0 87 22 20 | 5b 6e 69 6c 5d 20 31 29 |de ".." |[nil] 1)|
|00005010| 29 29 20 6d 61 74 68 2d | 62 75 69 6c 64 2d 63 61 |)) math-|build-ca|
|00005020| 6c 6c 20 6d 61 74 68 2d | 6e 6f 72 6d 61 6c 69 7a |ll math-|normaliz|
|00005030| 65 20 6d 61 74 68 2d 69 | 64 65 6e 74 69 74 79 2d |e math-i|dentity-|
|00005040| 76 61 6c 75 65 20 22 2a | 56 65 63 74 6f 72 20 69 |value "*|Vector i|
|00005050| 73 20 65 6d 70 74 79 22 | 5d 20 39 29 29 0a 0a 28 |s empty"|] 9))..(|
|00005060| 64 65 66 75 6e 20 6d 61 | 74 68 2d 69 64 65 6e 74 |defun ma|th-ident|
|00005070| 69 74 79 2d 76 61 6c 75 | 65 20 28 66 75 6e 63 29 |ity-valu|e (func)|
|00005080| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 08 c2 | (byte-c|ode "...|
|00005090| 5c 22 41 87 22 20 5b 66 | 75 6e 63 20 61 73 73 71 |\"A." [f|unc assq|
|000050a0| 20 28 28 63 61 6c 63 46 | 75 6e 63 2d 61 64 64 20 | ((calcF|unc-add |
|000050b0| 2e 20 30 29 20 28 63 61 | 6c 63 46 75 6e 63 2d 73 |. 0) (ca|lcFunc-s|
|000050c0| 75 62 20 2e 20 30 29 20 | 28 63 61 6c 63 46 75 6e |ub . 0) |(calcFun|
|000050d0| 63 2d 6d 75 6c 20 2e 20 | 31 29 20 28 63 61 6c 63 |c-mul . |1) (calc|
|000050e0| 46 75 6e 63 2d 64 69 76 | 20 2e 20 31 29 20 28 63 |Func-div| . 1) (c|
|000050f0| 61 6c 63 46 75 6e 63 2d | 69 64 69 76 20 2e 20 31 |alcFunc-|idiv . 1|
|00005100| 29 20 28 63 61 6c 63 46 | 75 6e 63 2d 66 64 69 76 |) (calcF|unc-fdiv|
|00005110| 20 2e 20 31 29 20 28 63 | 61 6c 63 46 75 6e 63 2d | . 1) (c|alcFunc-|
|00005120| 6d 69 6e 20 76 61 72 20 | 69 6e 66 20 76 61 72 2d |min var |inf var-|
|00005130| 69 6e 66 29 20 28 63 61 | 6c 63 46 75 6e 63 2d 6d |inf) (ca|lcFunc-m|
|00005140| 61 78 20 6e 65 67 20 28 | 76 61 72 20 69 6e 66 20 |ax neg (|var inf |
|00005150| 76 61 72 2d 69 6e 66 29 | 29 20 28 63 61 6c 63 46 |var-inf)|) (calcF|
|00005160| 75 6e 63 2d 76 63 6f 6e | 63 61 74 20 76 65 63 29 |unc-vcon|cat vec)|
|00005170| 20 28 63 61 6c 63 46 75 | 6e 63 2d 61 70 70 65 6e | (calcFu|nc-appen|
|00005180| 64 20 76 65 63 29 29 5d | 20 33 29 29 0a 0a 28 64 |d vec))]| 3))..(d|
|00005190| 65 66 75 6e 20 63 61 6c | 63 46 75 6e 63 2d 72 72 |efun cal|cFunc-rr|
|000051a0| 65 64 75 63 65 72 20 28 | 66 75 6e 63 20 76 65 63 |educer (|func vec|
|000051b0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c3 08 |) (byte-|code "..|
|000051c0| 21 89 10 88 c4 09 21 86 | 10 00 c5 09 c6 5c 22 88 |!.....!.|.....\".|
|000051d0| 08 c7 3d 83 4d 00 09 41 | 89 11 40 1a 0a 83 48 00 |..=.M..A|..@...H.|
|000051e0| 09 41 89 11 85 41 00 c8 | 08 0a 09 40 44 5c 22 12 |.A...A..|...@D\".|
|000051f0| 08 c7 3d 83 3a 00 c9 82 | 3b 00 c7 89 10 88 82 21 |..=.:...|;......!|
|00005200| 00 88 ca 0a 21 82 49 00 | cb 29 82 7f 00 cc 09 41 |....!.I.|.).....A|
|00005210| 21 89 11 40 1a 0a 83 74 | 00 09 41 89 11 85 6d 00 |!..@...t|..A...m.|
|00005220| c8 08 09 40 0a 44 5c 22 | 89 12 88 82 59 00 88 ca |...@.D\"|....Y...|
|00005230| 0a 21 82 7e 00 cd 08 21 | 86 7e 00 c5 09 ce 5c 22 |.!.~...!|.~....\"|
|00005240| 29 87 22 20 5b 66 75 6e | 63 20 76 65 63 20 65 78 |)." [fun|c vec ex|
|00005250| 70 72 20 6d 61 74 68 2d | 76 61 72 2d 74 6f 2d 63 |pr math-|var-to-c|
|00005260| 61 6c 63 46 75 6e 63 20 | 6d 61 74 68 2d 76 65 63 |alcFunc |math-vec|
|00005270| 74 6f 72 70 20 6d 61 74 | 68 2d 72 65 6a 65 63 74 |torp mat|h-reject|
|00005280| 2d 61 72 67 20 76 65 63 | 74 6f 72 70 20 63 61 6c |-arg vec|torp cal|
|00005290| 63 46 75 6e 63 2d 73 75 | 62 20 6d 61 74 68 2d 62 |cFunc-su|b math-b|
|000052a0| 75 69 6c 64 2d 63 61 6c | 6c 20 63 61 6c 63 46 75 |uild-cal|l calcFu|
|000052b0| 6e 63 2d 61 64 64 20 6d | 61 74 68 2d 6e 6f 72 6d |nc-add m|ath-norm|
|000052c0| 61 6c 69 7a 65 20 30 20 | 72 65 76 65 72 73 65 20 |alize 0 |reverse |
|000052d0| 6d 61 74 68 2d 69 64 65 | 6e 74 69 74 79 2d 76 61 |math-ide|ntity-va|
|000052e0| 6c 75 65 20 22 2a 56 65 | 63 74 6f 72 20 69 73 20 |lue "*Ve|ctor is |
|000052f0| 65 6d 70 74 79 22 5d 20 | 31 32 29 29 0a 0a 28 64 |empty"] |12))..(d|
|00005300| 65 66 75 6e 20 63 61 6c | 63 46 75 6e 63 2d 72 65 |efun cal|cFunc-re|
|00005310| 64 75 63 65 63 20 28 66 | 75 6e 63 20 76 65 63 29 |ducec (f|unc vec)|
|00005320| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c2 08 21 | (byte-c|ode "..!|
|00005330| 83 0f 00 c3 09 c4 08 21 | 5c 22 82 13 00 c3 09 08 |.......!|\"......|
|00005340| 5c 22 87 22 20 5b 76 65 | 63 20 66 75 6e 63 20 6d |\"." [ve|c func m|
|00005350| 61 74 68 2d 6d 61 74 72 | 69 78 70 20 63 61 6c 63 |ath-matr|ixp calc|
|00005360| 46 75 6e 63 2d 72 65 64 | 75 63 65 72 20 6d 61 74 |Func-red|ucer mat|
|00005370| 68 2d 74 72 61 6e 73 70 | 6f 73 65 5d 20 36 29 29 |h-transp|ose] 6))|
|00005380| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|00005390| 63 2d 72 72 65 64 75 63 | 65 63 20 28 66 75 6e 63 |c-rreduc|ec (func|
|000053a0| 20 76 65 63 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | vec) (b|yte-code|
|000053b0| 20 22 c2 08 21 83 0f 00 | c3 09 c4 08 21 5c 22 82 | "..!...|....!\".|
|000053c0| 13 00 c3 09 08 5c 22 87 | 22 20 5b 76 65 63 20 66 |.....\".|" [vec f|
|000053d0| 75 6e 63 20 6d 61 74 68 | 2d 6d 61 74 72 69 78 70 |unc math|-matrixp|
|000053e0| 20 63 61 6c 63 46 75 6e | 63 2d 72 72 65 64 75 63 | calcFun|c-rreduc|
|000053f0| 65 72 20 6d 61 74 68 2d | 74 72 61 6e 73 70 6f 73 |er math-|transpos|
|00005400| 65 5d 20 36 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |e] 6))..|(defun c|
|00005410| 61 6c 63 46 75 6e 63 2d | 72 65 64 75 63 65 61 20 |alcFunc-|reducea |
|00005420| 28 66 75 6e 63 20 76 65 | 63 29 20 28 62 79 74 65 |(func ve|c) (byte|
|00005430| 2d 63 6f 64 65 20 22 c2 | 08 21 83 10 00 c0 c3 c4 |-code ".|.!......|
|00005440| 08 41 5c 22 42 82 14 00 | c5 09 08 5c 22 87 22 20 |.A\"B...|...\"." |
|00005450| 5b 76 65 63 20 66 75 6e | 63 20 6d 61 74 68 2d 6d |[vec fun|c math-m|
|00005460| 61 74 72 69 78 70 20 6d | 61 70 63 61 72 20 28 6c |atrixp m|apcar (l|
|00005470| 61 6d 62 64 61 20 28 78 | 29 20 28 62 79 74 65 2d |ambda (x|) (byte-|
|00005480| 63 6f 64 65 20 22 c2 08 | 09 5c 22 87 22 20 5b 66 |code "..|.\"." [f|
|00005490| 75 6e 63 20 78 20 63 61 | 6c 63 46 75 6e 63 2d 72 |unc x ca|lcFunc-r|
|000054a0| 65 64 75 63 65 72 5d 20 | 33 29 29 20 63 61 6c 63 |educer] |3)) calc|
|000054b0| 46 75 6e 63 2d 72 65 64 | 75 63 65 72 5d 20 35 29 |Func-red|ucer] 5)|
|000054c0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 46 75 |)..(defu|n calcFu|
|000054d0| 6e 63 2d 72 72 65 64 75 | 63 65 61 20 28 66 75 6e |nc-rredu|cea (fun|
|000054e0| 63 20 76 65 63 29 20 28 | 62 79 74 65 2d 63 6f 64 |c vec) (|byte-cod|
|000054f0| 65 20 22 c2 08 21 83 10 | 00 c0 c3 c4 08 41 5c 22 |e "..!..|.....A\"|
|00005500| 42 82 14 00 c5 09 08 5c | 22 87 22 20 5b 76 65 63 |B......\|"." [vec|
|00005510| 20 66 75 6e 63 20 6d 61 | 74 68 2d 6d 61 74 72 69 | func ma|th-matri|
|00005520| 78 70 20 6d 61 70 63 61 | 72 20 28 6c 61 6d 62 64 |xp mapca|r (lambd|
|00005530| 61 20 28 78 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |a (x) (b|yte-code|
|00005540| 20 22 c2 08 09 5c 22 87 | 22 20 5b 66 75 6e 63 20 | "...\".|" [func |
|00005550| 78 20 63 61 6c 63 46 75 | 6e 63 2d 72 72 65 64 75 |x calcFu|nc-rredu|
|00005560| 63 65 72 5d 20 33 29 29 | 20 63 61 6c 63 46 75 6e |cer] 3))| calcFun|
|00005570| 63 2d 72 72 65 64 75 63 | 65 72 5d 20 35 29 29 0a |c-rreduc|er] 5)).|
|00005580| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 46 75 6e 63 |.(defun |calcFunc|
|00005590| 2d 72 65 64 75 63 65 64 | 20 28 66 75 6e 63 20 76 |-reduced| (func v|
|000055a0| 65 63 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ec) (byt|e-code "|
|000055b0| c2 08 21 83 12 00 c0 c3 | c4 c5 08 21 41 5c 22 42 |..!.....|...!A\"B|
|000055c0| 82 16 00 c6 09 08 5c 22 | 87 22 20 5b 76 65 63 20 |......\"|." [vec |
|000055d0| 66 75 6e 63 20 6d 61 74 | 68 2d 6d 61 74 72 69 78 |func mat|h-matrix|
|000055e0| 70 20 6d 61 70 63 61 72 | 20 28 6c 61 6d 62 64 61 |p mapcar| (lambda|
|000055f0| 20 28 78 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | (x) (by|te-code |
|00005600| 22 c2 08 09 5c 22 87 22 | 20 5b 66 75 6e 63 20 78 |"...\"."| [func x|
|00005610| 20 63 61 6c 63 46 75 6e | 63 2d 72 65 64 75 63 65 | calcFun|c-reduce|
|00005620| 72 5d 20 33 29 29 20 6d | 61 74 68 2d 74 72 61 6e |r] 3)) m|ath-tran|
|00005630| 73 70 6f 73 65 20 63 61 | 6c 63 46 75 6e 63 2d 72 |spose ca|lcFunc-r|
|00005640| 65 64 75 63 65 72 5d 20 | 36 29 29 0a 0a 28 64 65 |educer] |6))..(de|
|00005650| 66 75 6e 20 63 61 6c 63 | 46 75 6e 63 2d 72 72 65 |fun calc|Func-rre|
|00005660| 64 75 63 65 64 20 28 66 | 75 6e 63 20 76 65 63 29 |duced (f|unc vec)|
|00005670| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c2 08 21 | (byte-c|ode "..!|
|00005680| 83 12 00 c0 c3 c4 c5 08 | 21 41 5c 22 42 82 16 00 |........|!A\"B...|
|00005690| c6 09 08 5c 22 87 22 20 | 5b 76 65 63 20 66 75 6e |...\"." |[vec fun|
|000056a0| 63 20 6d 61 74 68 2d 6d | 61 74 72 69 78 70 20 6d |c math-m|atrixp m|
|000056b0| 61 70 63 61 72 20 28 6c | 61 6d 62 64 61 20 28 78 |apcar (l|ambda (x|
|000056c0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c2 08 |) (byte-|code "..|
|000056d0| 09 5c 22 87 22 20 5b 66 | 75 6e 63 20 78 20 63 61 |.\"." [f|unc x ca|
|000056e0| 6c 63 46 75 6e 63 2d 72 | 72 65 64 75 63 65 72 5d |lcFunc-r|reducer]|
|000056f0| 20 33 29 29 20 6d 61 74 | 68 2d 74 72 61 6e 73 70 | 3)) mat|h-transp|
|00005700| 6f 73 65 20 63 61 6c 63 | 46 75 6e 63 2d 72 72 65 |ose calc|Func-rre|
|00005710| 64 75 63 65 72 5d 20 36 | 29 29 0a 0a 28 64 65 66 |ducer] 6|))..(def|
|00005720| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 61 63 63 75 |un calcF|unc-accu|
|00005730| 6d 20 28 66 75 6e 63 20 | 76 65 63 29 20 28 62 79 |m (func |vec) (by|
|00005740| 74 65 2d 63 6f 64 65 20 | 22 c4 08 21 89 10 88 c5 |te-code |"..!....|
|00005750| 09 21 86 10 00 c6 09 c7 | 5c 22 88 09 41 89 11 40 |.!......|\"..A..@|
|00005760| 1a c1 0a 44 1b 0a 86 23 | 00 c6 09 c8 5c 22 88 09 |...D...#|....\"..|
|00005770| 41 89 11 85 3e 00 c9 08 | 0a 09 40 44 5c 22 12 ca |A...>...|..@D\"..|
|00005780| 0b 0a 43 5c 22 89 13 88 | 82 24 00 88 cb 0b 21 2a |..C\"...|.$....!*|
|00005790| 87 22 20 5b 66 75 6e 63 | 20 76 65 63 20 65 78 70 |." [func| vec exp|
|000057a0| 72 20 72 65 73 20 6d 61 | 74 68 2d 76 61 72 2d 74 |r res ma|th-var-t|
|000057b0| 6f 2d 63 61 6c 63 46 75 | 6e 63 20 6d 61 74 68 2d |o-calcFu|nc math-|
|000057c0| 76 65 63 74 6f 72 70 20 | 6d 61 74 68 2d 72 65 6a |vectorp |math-rej|
|000057d0| 65 63 74 2d 61 72 67 20 | 76 65 63 74 6f 72 70 20 |ect-arg |vectorp |
|000057e0| 22 2a 56 65 63 74 6f 72 | 20 69 73 20 65 6d 70 74 |"*Vector| is empt|
|000057f0| 79 22 20 6d 61 74 68 2d | 62 75 69 6c 64 2d 63 61 |y" math-|build-ca|
|00005800| 6c 6c 20 6e 63 6f 6e 63 | 20 6d 61 74 68 2d 6e 6f |ll nconc| math-no|
|00005810| 72 6d 61 6c 69 7a 65 5d | 20 39 29 29 0a 0a 28 64 |rmalize]| 9))..(d|
|00005820| 65 66 75 6e 20 63 61 6c | 63 46 75 6e 63 2d 72 61 |efun cal|cFunc-ra|
|00005830| 63 63 75 6d 20 28 66 75 | 6e 63 20 76 65 63 29 20 |ccum (fu|nc vec) |
|00005840| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c4 08 21 89 |(byte-co|de "..!.|
|00005850| 10 88 c5 09 21 86 10 00 | c6 09 c7 5c 22 88 c8 09 |....!...|...\"...|
|00005860| 41 21 89 11 40 1a 0a 43 | 1b 0a 86 24 00 c6 09 c9 |A!..@..C|...$....|
|00005870| 5c 22 88 09 41 89 11 85 | 3e 00 ca 08 09 40 0a 44 |\"..A...|>....@.D|
|00005880| 5c 22 12 0a 43 0b 42 89 | 13 88 82 25 00 88 cb c1 |\"..C.B.|...%....|
|00005890| 0b 42 21 2a 87 22 20 5b | 66 75 6e 63 20 76 65 63 |.B!*." [|func vec|
|000058a0| 20 65 78 70 72 20 72 65 | 73 20 6d 61 74 68 2d 76 | expr re|s math-v|
|000058b0| 61 72 2d 74 6f 2d 63 61 | 6c 63 46 75 6e 63 20 6d |ar-to-ca|lcFunc m|
|000058c0| 61 74 68 2d 76 65 63 74 | 6f 72 70 20 6d 61 74 68 |ath-vect|orp math|
|000058d0| 2d 72 65 6a 65 63 74 2d | 61 72 67 20 76 65 63 74 |-reject-|arg vect|
|000058e0| 6f 72 70 20 72 65 76 65 | 72 73 65 20 22 2a 56 65 |orp reve|rse "*Ve|
|000058f0| 63 74 6f 72 20 69 73 20 | 65 6d 70 74 79 22 20 6d |ctor is |empty" m|
|00005900| 61 74 68 2d 62 75 69 6c | 64 2d 63 61 6c 6c 20 6d |ath-buil|d-call m|
|00005910| 61 74 68 2d 6e 6f 72 6d | 61 6c 69 7a 65 5d 20 31 |ath-norm|alize] 1|
|00005920| 30 29 29 0a 0a 28 64 65 | 66 75 6e 20 6d 61 74 68 |0))..(de|fun math|
|00005930| 2d 6e 65 73 74 2d 63 61 | 6c 6c 73 20 28 66 75 6e |-nest-ca|lls (fun|
|00005940| 63 20 62 61 73 65 20 69 | 74 65 72 73 20 61 63 63 |c base i|ters acc|
|00005950| 75 6d 20 74 6f 6c 29 20 | 28 62 79 74 65 2d 63 6f |um tol) |(byte-co|
|00005960| 64 65 20 22 08 39 86 1c | 00 d0 08 21 83 18 00 d1 |de ".9..|...!....|
|00005970| 09 21 86 15 00 d2 09 d3 | 5c 22 82 1c 00 d2 08 d4 |.!......|\"......|
|00005980| 5c 22 88 d5 0a 21 89 12 | 88 0b 3f 86 a6 00 d6 0b |\"...!..|..?.....|
|00005990| d7 5c 22 83 35 00 c4 89 | 13 82 a6 00 d8 0b 21 85 |.\".5...|......!.|
|000059a0| 40 00 d9 0b 21 89 13 88 | da 0b 21 86 4b 00 d2 0b |@...!...|..!.K...|
|000059b0| db 5c 22 88 08 3f 86 5b | 00 dc 0b 21 86 5b 00 d2 |.\"..?.[|...!.[..|
|000059c0| 0b dd 5c 22 88 0b de 57 | 85 a6 00 df 1d e0 1e 06 |..\"...W|........|
|000059d0| e1 e2 0a 0e 06 43 5c 22 | 0d 0e 06 c4 24 1e 07 0e |.....C\"|....$...|
|000059e0| 07 86 7e 00 d2 c4 e3 5c | 22 88 0e 07 47 e4 55 85 |..~....\|"...G.U.|
|000059f0| 8e 00 d6 e5 0e 07 38 0d | 5c 22 83 99 00 0e 07 40 |......8.|\".....@|
|00005a00| 89 12 82 a0 00 e6 0d 0e | 07 45 89 12 88 0b 5b 89 |........|.E....[.|
|00005a10| 13 2b 88 e7 0e 08 e5 5c | 5c 1e 08 09 c4 09 43 de |.+.....\|\.....C.|
|00005a20| 0b 1e 0d 1e 0c 1e 0b 1e | 0a 1e 09 0b 3f 86 c9 00 |........|....?...|
|00005a30| 0b 53 89 13 de 59 85 2c | 01 08 3f 86 2c 01 0e 0a |.S...Y.,|..?.,...|
|00005a40| 3f 86 2c 01 08 ce 3d 83 | 10 01 0e 09 3a 3f 86 e9 |?.,...=.|....:?..|
|00005a50| 00 0e 09 40 e8 3e 85 f8 | 00 0e 0a 3a 3f 86 f8 00 |...@.>..|...:?...|
|00005a60| 0e 0a 40 e9 3e 83 04 01 | ea 0e 09 0e 0a 5c 22 82 |..@.>...|.....\".|
|00005a70| 0c 01 eb 0e 09 0e 0a 5c | 22 de 55 3f 82 2c 01 d1 |.......\|".U?.,..|
|00005a80| 0e 09 21 83 27 01 eb 08 | ec ed 0e 09 0e 0a 5c 22 |..!.'...|......\"|
|00005a90| 21 5c 22 ee 55 82 2c 01 | d2 0e 09 d3 5c 22 85 55 |!\".U.,.|....\".U|
|00005aa0| 01 0e 09 16 0a 0e 0c 54 | 16 0c e7 e2 0a 0e 09 43 |.......T|.......C|
|00005ab0| 5c 22 21 89 16 09 88 0e | 0f 85 51 01 0e 09 0e 0b |\"!.....|..Q.....|
|00005ac0| 42 89 16 0b 88 82 be 00 | 88 0e 0f 83 64 01 ef f0 |B.......|....d...|
|00005ad0| 0e 0b 21 42 82 66 01 0e | 09 2d 29 21 87 22 20 5b |..!B.f..|.-)!." [|
|00005ae0| 74 6f 6c 20 62 61 73 65 | 20 66 75 6e 63 20 69 74 |tol base| func it|
|00005af0| 65 72 73 20 6e 69 6c 20 | 64 75 6d 6d 79 20 64 75 |ers nil |dummy du|
|00005b00| 6d 6d 79 32 20 66 69 6e | 76 20 63 61 6c 63 2d 69 |mmy2 fin|v calc-i|
|00005b10| 6e 74 65 72 6e 61 6c 2d | 70 72 65 63 20 76 61 6c |nternal-|prec val|
|00005b20| 75 65 20 6f 76 61 6c 75 | 65 20 61 76 61 6c 75 65 |ue ovalu|e avalue|
|00005b30| 73 20 6d 61 74 68 2d 77 | 6f 72 6b 69 6e 67 2d 73 |s math-w|orking-s|
|00005b40| 74 65 70 20 6d 61 74 68 | 2d 77 6f 72 6b 69 6e 67 |tep math|-working|
|00005b50| 2d 73 74 65 70 2d 32 20 | 74 20 61 63 63 75 6d 20 |-step-2 |t accum |
|00005b60| 6d 61 74 68 2d 72 65 61 | 6c 70 20 6d 61 74 68 2d |math-rea|lp math-|
|00005b70| 6e 75 6d 62 65 72 70 20 | 6d 61 74 68 2d 72 65 6a |numberp |math-rej|
|00005b80| 65 63 74 2d 61 72 67 20 | 6e 75 6d 62 65 72 70 20 |ect-arg |numberp |
|00005b90| 72 65 61 6c 70 20 6d 61 | 74 68 2d 76 61 72 2d 74 |realp ma|th-var-t|
|00005ba0| 6f 2d 63 61 6c 63 46 75 | 6e 63 20 65 71 75 61 6c |o-calcFu|nc equal|
|00005bb0| 20 28 76 61 72 20 69 6e | 66 20 76 61 72 2d 69 6e | (var in|f var-in|
|00005bc0| 66 29 20 6d 61 74 68 2d | 6d 65 73 73 79 2d 69 6e |f) math-|messy-in|
|00005bd0| 74 65 67 65 72 70 20 6d | 61 74 68 2d 74 72 75 6e |tegerp m|ath-trun|
|00005be0| 63 20 69 6e 74 65 67 65 | 72 70 20 66 69 78 6e 75 |c intege|rp fixnu|
|00005bf0| 6d 70 20 6e 61 74 6e 75 | 6d 70 20 66 69 78 6e 61 |mp natnu|mp fixna|
|00005c00| 74 6e 75 6d 70 20 30 20 | 28 76 61 72 20 44 75 6d |tnump 0 |(var Dum|
|00005c10| 6d 79 41 72 67 20 76 61 | 72 2d 44 75 6d 6d 79 41 |myArg va|r-DummyA|
|00005c20| 72 67 29 20 28 76 61 72 | 20 44 75 6d 6d 79 41 72 |rg) (var| DummyAr|
|00005c30| 67 32 20 76 61 72 2d 44 | 75 6d 6d 79 41 72 67 32 |g2 var-D|ummyArg2|
|00005c40| 29 20 6d 61 74 68 2d 73 | 6f 6c 76 65 2d 66 6f 72 |) math-s|olve-for|
|00005c50| 20 6d 61 74 68 2d 62 75 | 69 6c 64 2d 63 61 6c 6c | math-bu|ild-call|
|00005c60| 20 22 2a 55 6e 61 62 6c | 65 20 74 6f 20 66 69 6e | "*Unabl|e to fin|
|00005c70| 64 20 61 6e 20 69 6e 76 | 65 72 73 65 22 20 32 20 |d an inv|erse" 2 |
|00005c80| 31 20 63 61 6c 63 46 75 | 6e 63 2d 6c 61 6d 62 64 |1 calcFu|nc-lambd|
|00005c90| 61 20 6d 61 74 68 2d 6e | 6f 72 6d 61 6c 69 7a 65 |a math-n|ormalize|
|00005ca0| 20 28 62 69 67 70 6f 73 | 20 62 69 67 6e 65 67 20 | (bigpos| bigneg |
|00005cb0| 66 72 61 63 20 66 6c 6f | 61 74 20 63 70 6c 78 20 |frac flo|at cplx |
|00005cc0| 70 6f 6c 61 72 29 20 28 | 62 69 67 70 6f 73 20 62 |polar) (|bigpos b|
|00005cd0| 69 67 6e 65 67 20 66 72 | 61 63 20 66 6c 6f 61 74 |igneg fr|ac float|
|00005ce0| 20 63 70 6c 78 20 70 6f | 6c 61 72 29 20 6d 61 74 | cplx po|lar) mat|
|00005cf0| 68 2d 6e 65 61 72 6c 79 | 2d 65 71 75 61 6c 20 6d |h-nearly|-equal m|
|00005d00| 61 74 68 2d 63 6f 6d 70 | 61 72 65 20 6d 61 74 68 |ath-comp|are math|
|00005d10| 2d 61 62 73 20 6d 61 74 | 68 2d 73 75 62 20 2d 31 |-abs mat|h-sub -1|
|00005d20| 20 76 65 63 20 6e 72 65 | 76 65 72 73 65 5d 20 32 | vec nre|verse] 2|
|00005d30| 39 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |9))..(de|fun calc|
|00005d40| 46 75 6e 63 2d 6e 65 73 | 74 20 28 66 75 6e 63 20 |Func-nes|t (func |
|00005d50| 62 61 73 65 20 69 74 65 | 72 73 29 20 28 62 79 74 |base ite|rs) (byt|
|00005d60| 65 2d 63 6f 64 65 20 22 | c4 08 09 0a c3 c3 25 87 |e-code "|......%.|
|00005d70| 22 20 5b 66 75 6e 63 20 | 62 61 73 65 20 69 74 65 |" [func |base ite|
|00005d80| 72 73 20 6e 69 6c 20 6d | 61 74 68 2d 6e 65 73 74 |rs nil m|ath-nest|
|00005d90| 2d 63 61 6c 6c 73 5d 20 | 36 29 29 0a 0a 28 64 65 |-calls] |6))..(de|
|00005da0| 66 75 6e 20 63 61 6c 63 | 46 75 6e 63 2d 61 6e 65 |fun calc|Func-ane|
|00005db0| 73 74 20 28 66 75 6e 63 | 20 62 61 73 65 20 69 74 |st (func| base it|
|00005dc0| 65 72 73 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ers) (by|te-code |
|00005dd0| 22 c5 08 09 0a c3 c4 25 | 87 22 20 5b 66 75 6e 63 |"......%|." [func|
|00005de0| 20 62 61 73 65 20 69 74 | 65 72 73 20 74 20 6e 69 | base it|ers t ni|
|00005df0| 6c 20 6d 61 74 68 2d 6e | 65 73 74 2d 63 61 6c 6c |l math-n|est-call|
|00005e00| 73 5d 20 36 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |s] 6))..|(defun c|
|00005e10| 61 6c 63 46 75 6e 63 2d | 66 69 78 70 20 28 66 75 |alcFunc-|fixp (fu|
|00005e20| 6e 63 20 62 61 73 65 20 | 26 6f 70 74 69 6f 6e 61 |nc base |&optiona|
|00005e30| 6c 20 69 74 65 72 73 20 | 74 6f 6c 29 20 28 62 79 |l iters |tol) (by|
|00005e40| 74 65 2d 63 6f 64 65 20 | 22 c6 08 09 0a c3 0c 86 |te-code |".......|
|00005e50| 0a 00 c5 25 87 22 20 5b | 66 75 6e 63 20 62 61 73 |...%." [|func bas|
|00005e60| 65 20 69 74 65 72 73 20 | 6e 69 6c 20 74 6f 6c 20 |e iters |nil tol |
|00005e70| 74 20 6d 61 74 68 2d 6e | 65 73 74 2d 63 61 6c 6c |t math-n|est-call|
|00005e80| 73 5d 20 36 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |s] 6))..|(defun c|
|00005e90| 61 6c 63 46 75 6e 63 2d | 61 66 69 78 70 20 28 66 |alcFunc-|afixp (f|
|00005ea0| 75 6e 63 20 62 61 73 65 | 20 26 6f 70 74 69 6f 6e |unc base| &option|
|00005eb0| 61 6c 20 69 74 65 72 73 | 20 74 6f 6c 29 20 28 62 |al iters| tol) (b|
|00005ec0| 79 74 65 2d 63 6f 64 65 | 20 22 c5 08 09 0a c3 0c |yte-code| "......|
|00005ed0| 86 0a 00 c3 25 87 22 20 | 5b 66 75 6e 63 20 62 61 |....%." |[func ba|
|00005ee0| 73 65 20 69 74 65 72 73 | 20 74 20 74 6f 6c 20 6d |se iters| t tol m|
|00005ef0| 61 74 68 2d 6e 65 73 74 | 2d 63 61 6c 6c 73 5d 20 |ath-nest|-calls] |
|00005f00| 36 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |6))..(de|fun calc|
|00005f10| 46 75 6e 63 2d 6f 75 74 | 65 72 20 28 66 75 6e 63 |Func-out|er (func|
|00005f20| 20 61 20 62 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | a b) (b|yte-code|
|00005f30| 20 22 c5 08 21 86 0a 00 | c6 08 c7 5c 22 88 c5 09 | "..!...|...\"...|
|00005f40| 21 86 15 00 c6 09 c7 5c | 22 88 c8 0a 21 89 12 88 |!......\|"...!...|
|00005f50| c4 1b 08 41 89 10 85 34 | 00 c9 ca cb 09 41 5c 22 |...A...4|.....A\"|
|00005f60| 42 0b 42 89 13 88 82 1e | 00 88 cc c9 cd 0b 21 42 |B.B.....|......!B|
|00005f70| 21 29 87 22 20 5b 61 20 | 62 20 66 75 6e 63 20 6d |!)." [a |b func m|
|00005f80| 61 74 20 6e 69 6c 20 6d | 61 74 68 2d 76 65 63 74 |at nil m|ath-vect|
|00005f90| 6f 72 70 20 6d 61 74 68 | 2d 72 65 6a 65 63 74 2d |orp math|-reject-|
|00005fa0| 61 72 67 20 76 65 63 74 | 6f 72 70 20 6d 61 74 68 |arg vect|orp math|
|00005fb0| 2d 76 61 72 2d 74 6f 2d | 63 61 6c 63 46 75 6e 63 |-var-to-|calcFunc|
|00005fc0| 20 76 65 63 20 6d 61 70 | 63 61 72 20 28 6c 61 6d | vec map|car (lam|
|00005fd0| 62 64 61 20 28 78 29 20 | 28 62 79 74 65 2d 63 6f |bda (x) |(byte-co|
|00005fe0| 64 65 20 22 c3 08 09 40 | 0a 44 5c 22 87 22 20 5b |de "...@|.D\"." [|
|00005ff0| 66 75 6e 63 20 61 20 78 | 20 6d 61 74 68 2d 62 75 |func a x| math-bu|
|00006000| 69 6c 64 2d 63 61 6c 6c | 5d 20 34 29 29 20 6d 61 |ild-call|] 4)) ma|
|00006010| 74 68 2d 6e 6f 72 6d 61 | 6c 69 7a 65 20 6e 72 65 |th-norma|lize nre|
|00006020| 76 65 72 73 65 5d 20 31 | 30 29 29 0a 0a 28 64 65 |verse] 1|0))..(de|
|00006030| 66 75 6e 20 63 61 6c 63 | 46 75 6e 63 2d 69 6e 6e |fun calc|Func-inn|
|00006040| 65 72 20 28 6d 75 6c 2d | 66 75 6e 63 20 61 64 64 |er (mul-|func add|
|00006050| 2d 66 75 6e 63 20 61 20 | 62 29 20 28 62 79 74 65 |-func a |b) (byte|
|00006060| 2d 63 6f 64 65 20 22 c4 | 08 21 86 0a 00 c5 08 c6 |-code ".|.!......|
|00006070| 5c 22 88 c4 09 21 86 15 | 00 c5 09 c6 5c 22 88 c7 |\"...!..|....\"..|
|00006080| 08 21 83 72 00 c7 09 21 | 83 38 00 c8 08 38 47 09 |.!.r...!|.8...8G.|
|00006090| 47 55 83 33 00 c9 08 09 | 5c 22 82 35 00 ca 20 82 |GU.3....|\".5.. .|
|000060a0| 6f 00 c8 08 38 47 cb 55 | 83 57 00 08 47 09 47 55 |o...8G.U|.W..G.GU|
|000060b0| 83 52 00 c9 08 cc 09 44 | 5c 22 82 54 00 ca 20 82 |.R.....D|\".T.. .|
|000060c0| 6f 00 c8 08 38 47 09 47 | 55 83 6d 00 cd c9 08 ce |o...8G.G|U.m.....|
|000060d0| 09 21 5c 22 c8 5c 22 82 | 6f 00 ca 20 82 8b 00 c7 |.!\".\".|o.. ....|
|000060e0| 09 21 83 83 00 c8 c9 cc | 08 44 09 5c 22 38 82 8b |.!......|.D.\"8..|
|000060f0| 00 cf 0a d0 0b 08 09 23 | 5c 22 87 22 20 5b 61 20 |.......#|\"." [a |
|00006100| 62 20 61 64 64 2d 66 75 | 6e 63 20 6d 75 6c 2d 66 |b add-fu|nc mul-f|
|00006110| 75 6e 63 20 6d 61 74 68 | 2d 76 65 63 74 6f 72 70 |unc math|-vectorp|
|00006120| 20 6d 61 74 68 2d 72 65 | 6a 65 63 74 2d 61 72 67 | math-re|ject-arg|
|00006130| 20 76 65 63 74 6f 72 70 | 20 6d 61 74 68 2d 6d 61 | vectorp| math-ma|
|00006140| 74 72 69 78 70 20 31 20 | 6d 61 74 68 2d 69 6e 6e |trixp 1 |math-inn|
|00006150| 65 72 2d 6d 61 74 73 20 | 6d 61 74 68 2d 64 69 6d |er-mats |math-dim|
|00006160| 65 6e 73 69 6f 6e 2d 65 | 72 72 6f 72 20 32 20 76 |ension-e|rror 2 v|
|00006170| 65 63 20 6d 61 74 68 2d | 6d 61 74 2d 63 6f 6c 20 |ec math-|mat-col |
|00006180| 6d 61 74 68 2d 63 6f 6c | 2d 6d 61 74 72 69 78 20 |math-col|-matrix |
|00006190| 63 61 6c 63 46 75 6e 63 | 2d 72 65 64 75 63 65 20 |calcFunc|-reduce |
|000061a0| 63 61 6c 63 46 75 6e 63 | 2d 6d 61 70 5d 20 32 32 |calcFunc|-map] 22|
|000061b0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|000061c0| 69 6e 6e 65 72 2d 6d 61 | 74 73 20 28 61 20 62 29 |inner-ma|ts (a b)|
|000061d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 cc 0b | (byte-c|ode "...|
|000061e0| 38 47 c1 c1 c1 c1 c1 1e | 08 1e 07 1e 06 1d 1c 1a |8G......|........|
|000061f0| 18 0e 09 41 89 16 09 85 | 4f 00 0a 15 c1 89 14 88 |...A....|O.......|
|00006200| 0d 53 89 15 cd 56 85 43 | 00 ce 0e 0a cf 0e 0b 0e |.S...V.C|........|
|00006210| 09 40 d0 0b 0d 5c 22 23 | 5c 22 0c 42 89 14 88 82 |.@...\"#|\".B....|
|00006220| 23 00 88 d1 0c 42 08 42 | 89 10 88 82 14 00 88 d1 |#....B.B|........|
|00006230| d2 08 21 42 2e 07 87 22 | 20 5b 6d 61 74 20 6e 69 |..!B..."| [mat ni|
|00006240| 6c 20 63 6f 6c 73 20 62 | 20 72 6f 77 20 63 6f 6c |l cols b| row col|
|00006250| 20 61 70 20 62 70 20 61 | 63 63 75 6d 20 61 20 61 | ap bp a|ccum a a|
|00006260| 64 64 2d 66 75 6e 63 20 | 6d 75 6c 2d 66 75 6e 63 |dd-func |mul-func|
|00006270| 20 31 20 30 20 63 61 6c | 63 46 75 6e 63 2d 72 65 | 1 0 cal|cFunc-re|
|00006280| 64 75 63 65 20 63 61 6c | 63 46 75 6e 63 2d 6d 61 |duce cal|cFunc-ma|
|00006290| 70 20 6d 61 74 68 2d 6d | 61 74 2d 63 6f 6c 20 76 |p math-m|at-col v|
|000062a0| 65 63 20 6e 72 65 76 65 | 72 73 65 5d 20 31 30 29 |ec nreve|rse] 10)|
|000062b0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+