1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
compile.scm: ((append) (L 'pylist-append!))
compile.scm: ((count) (L 'pylist-count))
compile.scm: ((extend) (L 'pylist-extend!))
compile.scm: ((index) (L 'pylist-index))
compile.scm: ((pop) (L 'pylist-pop!))
compile.scm: ((insert) (L 'pylist-insert!))
compile.scm: ((remove) (L 'pylist-remove!))
compile.scm: ((reverse) (L 'pylist-reverse!))
compile.scm: ((sort) (L 'pylist-sort!))
compile.scm: ((__delitem__) (L 'pylist-delete!))
compile.scm: ((__delslice__) (L 'pylist-delslice))
compile.scm: ((__setitem__) (L 'pylist-set!))
compile.scm: `(,(L 'pylist-ref) ,e ,(exp vs n)))
compile.scm: `(,(L 'pylist-slice) ,e
compile.scm: ,(gen-sel vs e `(,(L 'pylist-append!) ,l ,(exp vs x)))
compile.scm: ,(gen-sel vs e `(,(L 'pylist-set!) ,dict ,(exp vs k) ,(exp vs v)))
compile.scm: `(,(L 'pylist-set!) ,dict ,(exp vs k) ,(exp vs v)))
compile.scm: (ref-x (pylist-ref v x) . l))
compile.scm: (ref-x (pylist-slice v . x) . l))))
compile.scm: (pylist-delete! v x))
compile.scm: (pylist-subset! v x ... pylist-null))))
compile.scm: (pylist-set! v n val))
compile.scm: (pylist-subset! v x ... val))))
dict.scm:(define-method (pylist-ref (o <hashtable>) x)
dict.scm:(define-method (pylist-ref (o <py-hashtable>) x)
dict.scm:(define-method (pylist-delete! (o <hashtable>) k)
dict.scm:(define-method (pylist-delete! (o <py-hashtable>) k)
dict.scm:(define-method (pylist-pop! (o <hashtable>) k . l)
dict.scm:(define-method (pylist-pop! (o <py-hashtable>) k . l)
dict.scm:(define-method (pylist-set! (o <hashtable>) key val)
dict.scm:(define-method (pylist-set! (o <py-hashtable>) key val)
dict.scm: (pylist-set! h k newval)
dict.scm: (pylist-set! o k (apply py-get o k l)))
dict.scm: (pylist-set! o k (apply py-get o k l))))
dict.scm: (pylist-set! o k v)))
dict.scm: (pylist-set! o k v))))
dir.scm: (pylist-append! l k))
dir.scm: (f (lambda (k v) (pylist-append! h k #t))))
dir.scm: (hash-for-each (lambda (k v) (pylist-append! l k)) h)
dir.scm: (pylist-sort! l)
dir.scm: (f (lambda (k v) (pylist-append! h k #t))))
dir.scm: (hash-for-each (lambda (k v) (pylist-append! l k)) h)
dir.scm: (pylist-sort! l)
dir.scm: (pylist-append! l k))
dir.scm: (f (lambda (k.v) (pylist-append! h (car k.v) #t))))
dir.scm: (vhash-for-each (lambda (k v) (pylist-append! l k)) h)
dir.scm: (pylist-sort! l)
dir.scm: (f (lambda (k.v) (pylist-append! h (car k.v) #t))))
dir.scm: (vhash-for-each (lambda (k v) (pylist-append! l k)) h)
dir.scm: (pylist-sort! l)
dir.scm:(define-method (dir (o <pylist> )) pylist-listing)
expr.scm: (list-in x y))
expr.scm: (to-py (list-in x y)))
list.scm: pylist-ref pylist-set! pylist-append!
list.scm: pylist-slice pylist-subset! pylist-reverse!
list.scm: pylist-pop! pylist-count pylist-extend! len in
list.scm: pylist-insert! pylist-remove! pylist-sort!
list.scm: pylist-index pylist-null pylist-delete!
list.scm: pylist pylist-listing))
list.scm:(define-method (pylist-delete! (o <py-list>) k)
list.scm: (pylist-subset! o k (+ k 1) None pylist-null)))
list.scm:(define-method (pylist-delete! (o <p>) k)
list.scm:(define pylist-null
list.scm:(define-method (pylist-ref (o <py-list>) nin)
list.scm:(define-method (pylist-ref (o <pair>) n)
list.scm: (list-ref o n))
list.scm:(define-method (pylist-ref (o <vector>) n)
list.scm:(define-method (pylist-ref (o <p>) n)
list.scm:(define-method (pylist-set! (o <py-list>) nin val)
list.scm:(define-method (pylist-set! (o <pair>) n val)
list.scm: (list-set! o n val))
list.scm:(define-method (pylist-set! (o <vector>) n val)
list.scm:(define-method (pylist-set! (o <p>) n val)
list.scm:(define-method (pylist-slice (o <p>) n1 n2 n3)
list.scm:(define-method (pylist-slice (o <py-list>) n1 n2 n3)
list.scm:(define-method (pylist-slice (o <string>) n1 n2 n3)
list.scm: (list->string
list.scm: (pylist-slice (to-pylist o) n1 n2 n3))))
list.scm:(define-method (pylist-slice (o <pair>) n1 n2 n3)
list.scm: (pylist-slice (to-pylist o) n1 n2 n3)))
list.scm:(define-method (pylist-slice (o <vector>) n1 n2 n3)
list.scm: (list->vector
list.scm: (pylist-slice (to-pylist o) n1 n2 n3))))
list.scm:(define-method (pylist-subset! (o <p>) n1 n2 n3 val)
list.scm:(define-method (pylist-subset! (o <py-list>) n1 n2 n3 val)
list.scm:(define-method (pylist-append! (o <py-list>) val)
list.scm:(define-method (pylist-append! o n)
list.scm:(define-method (pylist-append! (o <p>) n . l)
list.scm:(define-method (pylist-reverse! (o <py-list>))
list.scm:(define-method (pylist-reverse! (o <p>) . l)
list.scm:(define-method (pylist-pop! (o <py-list>))
list.scm:(define-method (pylist-pop! (o <p>) . l)
list.scm:(define-method (pylist-count (o <py-list>) q)
list.scm:(define-method (pylist-count (s <string>) q)
list.scm:(define-method (pylist-count (l <pair>) q)
list.scm:(define-method (pylist-count (o <p>) . l)
list.scm:(define-method (pylist-extend! (o <py-list>) iter)
list.scm: (pylist-append! o x)))
list.scm:(define-method (pylist-extend! (o <p>) . l)
list.scm:(define-class <py-list-iter> (<py-list>) i)
list.scm: (let ((out (make <py-list-iter>)))
list.scm:(define-method (wrap-in (o <py-list-iter>)) o)
list.scm: (list->string (list ret)))
list.scm:(define-method (next (o <py-list-iter>))
list.scm:(define-method (pylist-insert! (o <py-list>) i val)
list.scm: (pylist-append! o v)))
list.scm:(define-method (pylist-insert! (o <p>) . l) (apply (ref o 'insert) l))
list.scm:(define-method (pylist-remove! (o <py-list>) val)
list.scm: (pylist-subset! o i (+ i 1) 1 '())
list.scm:(define-method (pylist-remove! (o <p>) . l) (apply (ref o 'remove) l))
list.scm:(define-method (pylist-sort! (o <py-list>) )
list.scm: (pylist-set! o i (car l))
list.scm:(define-method (pylist-sort! (o <p>) . l) (apply (ref o 'sort) l))
list.scm:(define-method (pylist-index (o <py-list>) val . l)
list.scm:(define-method (pylist-index (o <string>) val . l)
list.scm:(define-method (pylist-index (o <pair>) val . l)
list.scm:(define-method (pylist-index (o <p>) . l) (apply (ref o 'index) l))
list.scm: (for-each (lambda (x) (pylist-append! self x)) x))))
list.scm:(define pylist-listing
list.scm:;(pylist-sort! pylist-listing)
set.scm: (pylist-set! d y #t)))
set.scm: (call-with-values (lambda () (pylist-pop! (slot-ref self 'dict)))
set.scm: (pylist-set! (slot-ref self 'dict) k #t)))
set.scm: (pylist-delete! r x)))
set.scm: (pylist-delete! r x)))
set.scm: (pylist-delete! r (car l))
set.scm: (pylist-delete! r (car dels))
set.scm: (pylist-delete! r (car dels))
set.scm: (pylist-delete! r x)))))
set.scm: (pylist-set! r k #t))
set.scm: (pylist-set! r k #t))
string.scm: (list->string (reverse r))))))
string.scm: (lp l (cons "~a" r) (cons (list-ref args (string->number x)) u) i))
string.scm: (lp l (cons "~a" r) (cons (list-ref args i) u) (+ i 1)))
string.scm: (pylist-slice s 0 width)
string.scm: (pylist-slice s (- width) (len s))
string.scm: (list (pylist-slice s 0 i) sep (pylist-slice s (+ i m) n))
string.scm: (pylist-slice s (+ i m) n))
string.scm: (pylist-slice s 0 i)))
string.scm: (lp (list-ref l 2) (cons (car l) r))))))
string.scm: (- n (apply pylist-index (string-reverse s) l) 1)))
string.scm: (pylist-slice s old (+ i 1) 1)
string.scm: (pylist-slice s old i 1)
string.scm: (list->string
string.scm: (if (string-contains d (list->string (list ch)))
string.scm: (pylist-slice w 0 k 1))))))
string.scm: (w (pk (pylist-slice s 0 n 1))))
|
