Changeset 38867 in project
- Timestamp:
- 08/21/20 18:09:23 (5 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
wiki/eggref/5/callable-sequences
r38850 r38867 58 58 constructors make-sas-callable and make-ras-callable respectively. 59 59 60 ==== make-callable* 61 62 <procedure>(make-callable* seq)</procedure> 63 64 recursive version of make-callable 65 60 66 ==== make-sas-callable 61 67 … … 198 204 ; -> "543210" 199 205 206 ;; recursive examples 207 (define vp* (make-callable* (vector 'a '(b . c)))) 208 ((vp* 1) 0) 209 ; -> 'b 210 (((vp* 1) 1 #f)) 211 ; -> 'c 212 213 (define vs* (make-callable* (vector 'a "bc"))) 214 ((vs* 1) 0) 215 ; -> #\b 216 ((vs* 1) 1) 217 ; -> #\c 218 (((vs* 1) 2 #f)) 219 ; -> "" 220 221 (define lv** (make-callable* '(a (b #(c d) e) f))) 222 (lv** 0) 223 ; -> 'a 224 ((lv** 1) 0) 225 ; -> 'b 226 (((lv** 1) 1) 0) 227 ; -> 'c 228 (((lv** 1) 1) 1) 229 ; -> 'd 230 (lv** 2) 231 ; -> 'f 232 ((lv** 1) 2) 233 ; -> 'e 234 200 235 </enscript> 201 236 202 237 == Last update 203 238 204 Aug 17, 2020239 Aug 21, 2020 205 240 206 241 == Author … … 240 275 241 276 == Version History 242 ; 1.0.0 ; initial version 277 ; 1.1 : make-callable* added, a recursive version of (make-callable seq) 278 ; 1.0.0 : initial version
Note: See TracChangeset
for help on using the changeset viewer.