Artifact 3639d2015bc3ab6b9b6a00da99641be02d347b7b:
- File data-structures.sls — part of check-in [edbaf21f17] at 2016-12-09 20:15:57 on branch trunk — added data-structures (user: aldo size: 553)
0000: 0a 3b 3b 20 43 48 49 43 4b 45 4e 20 64 61 74 61 .;; CHICKEN data 0010: 2d 73 74 72 75 63 74 75 72 65 73 20 6d 6f 64 75 -structures modu 0020: 6c 65 0a 0a 23 21 72 36 72 73 0a 28 6c 69 62 72 le..#!r6rs.(libr 0030: 61 72 79 20 28 64 61 74 61 2d 73 74 72 75 63 74 ary (data-struct 0040: 75 72 65 73 29 0a 09 20 0a 09 20 28 65 78 70 6f ures).. .. (expo 0050: 72 74 0a 09 20 20 69 64 65 6e 74 69 74 79 20 63 rt.. identity c 0060: 6f 6e 6a 6f 69 6e 20 64 69 73 6a 6f 69 6e 20 63 onjoin disjoin c 0070: 6f 6e 73 74 61 6e 74 6c 79 20 66 6c 69 70 20 63 onstantly flip c 0080: 6f 6d 70 6c 65 6d 65 6e 74 0a 09 20 20 63 6f 6d omplement.. com 0090: 70 6f 73 65 20 6f 20 6c 69 73 74 2d 6f 66 3f 20 pose o list-of? 00a0: 65 61 63 68 20 61 6e 79 3f 20 74 61 69 6c 3f 20 each any? tail? 00b0: 69 6e 74 65 72 73 70 65 72 73 65 20 62 75 74 6c intersperse butl 00c0: 61 73 74 0a 09 20 20 66 6c 61 74 74 65 6e 20 63 ast.. flatten c 00d0: 68 6f 70 20 6a 6f 69 6e 20 63 6f 6d 70 72 65 73 hop join compres 00e0: 73 20 61 6c 69 73 74 2d 75 70 64 61 74 65 21 20 s alist-update! 00f0: 61 6c 69 73 74 2d 75 70 64 61 74 65 0a 09 20 20 alist-update.. 0100: 61 6c 69 73 74 2d 72 65 66 20 72 61 73 73 6f 63 alist-ref rassoc 0110: 20 72 65 76 65 72 73 65 2d 73 74 72 69 6e 67 2d reverse-string- 0120: 61 70 70 65 6e 64 20 2d 3e 73 74 72 69 6e 67 20 append ->string 0130: 63 6f 6e 63 0a 09 20 20 64 65 66 69 6e 65 2d 61 conc.. define-a 0140: 6c 69 61 73 0a 09 20 20 73 74 72 69 6e 67 2d 69 lias.. string-i 0150: 6e 74 65 72 73 70 65 72 73 65 20 73 74 72 69 6e ntersperse strin 0160: 67 2d 74 72 61 6e 73 6c 61 74 65 2a 20 73 74 72 g-translate* str 0170: 69 6e 67 2d 63 68 6f 70 0a 09 20 20 73 6f 72 74 ing-chop.. sort 0180: 65 64 3f 0a 09 20 20 3b 6d 65 72 67 65 20 6d 65 ed?.. ;merge me 0190: 72 67 65 21 20 73 6f 72 74 21 20 73 6f 72 74 20 rge! sort! sort 01a0: 74 6f 70 6f 6c 6f 67 69 63 61 6c 2d 73 6f 72 74 topological-sort 01b0: 0a 09 20 20 62 69 6e 61 72 79 2d 73 65 61 72 63 .. binary-searc 01c0: 68 0a 09 20 20 29 0a 09 20 28 69 6d 70 6f 72 74 h.. ).. (import 01d0: 20 28 73 63 68 65 6d 65 29 0a 09 09 20 28 73 72 (scheme)... (sr 01e0: 66 69 20 70 72 69 76 61 74 65 20 69 6e 63 6c 75 fi private inclu 01f0: 64 65 29 29 09 0a 0a 09 20 28 69 6e 63 6c 75 64 de)).... (includ 0200: 65 2f 72 65 73 6f 6c 76 65 20 28 29 20 22 64 61 e/resolve () "da 0210: 74 61 2d 73 74 72 75 63 74 75 72 65 73 2e 73 63 ta-structures.sc 0220: 6d 22 29 29 0a 09 20 20 0a m")).. .