Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 16:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2018-12-17 18:23:13 -05:00
parent 4a165bd5fb
commit dda952122b
1 changed files with 70 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

80
seq-test.scm
View file

@ -21,14 +21,74 @@
return result; return result;
") ")
(write (insert 'a '(c d b a a a a))) (newline)
(write (insert 'a '(c d b a a a a))) (newline)
(write (insert 'a '())) (newline)
(write (insert 'a '(b c))) (newline)
(write (insert 'a '(a b c))) (newline)
(define (insert sym S) (define (insert sym S)
(if (not (pair? S)) (if (not (pair? S))
(list sym) (list sym)
(cond (cond
((eq? sym (car S)) S) ((eq? sym (car S)) S)
((symbol<? sym (car S)) (cons sym S)) ((symbol<? sym (car S)) (cons sym S))
(else (insert sym (cdr S)))))) ;(else (insert sym (cdr S))))))
;(else (cons (car S) (insert sym (cdr S))))))) (else (cons (car S) (insert sym (cdr S)))))))
(define-c fast-insert
"(void *data, int argc, closure _,object k_7318, object sym_731_7312, object S_732_7313)"
"
pair_type *acc = NULL, *acc_tail = NULL;
object result;
while(1) {
if( (boolean_f != Cyc_is_pair(S_732_7313)) ){
if( (boolean_f != Cyc_eq(sym_731_7312, Cyc_car(data, S_732_7313))) ){
//return_closcall1(data, k_7318, S_732_7313);
result = S_732_7313;
break;
} else {
complex_num_type local_7350;
if( (boolean_f != ((inline_function_type)
((closure)__glo_symbol_121_127_191_191inline_191_191)->fn)(data,&local_7350, sym_731_7312, Cyc_car(data, S_732_7313))) ){
//pair_type local_7356;
//return_closcall1(data, k_7318, set_pair_as_expr(&local_7356, sym_731_7312, S_732_7313));
pair_type* local_7356 = alloca(sizeof(pair_type));
set_pair(local_7356, sym_731_7312, S_732_7313);
result = local_7356;
break;
} else {
pair_type *p = alloca(sizeof(pair_type));
set_pair(p, Cyc_car(data, S_732_7313), NULL);
if (acc == NULL) {
acc = p;
acc_tail = acc;
} else {
cdr(acc_tail) = p;
acc_tail = p;
}
S_732_7313 = Cyc_cdr(data, S_732_7313);
continue;
}
}
} else {
//pair_type local_7363;
//return_closcall1(data, k_7318, set_cell_as_expr(&local_7363, sym_731_7312));
pair_type *local_7363 = alloca(sizeof(pair_type));
set_pair(local_7363, sym_731_7312, NULL);
result = local_7363;
break;
}
}
if (acc) {
cdr(acc_tail) = result;
return_closcall1(data, k_7318, (object)acc);
} else {
return_closcall1(data, k_7318, result);
}
")
; ;
;(define (union set1 set2) ;(define (union set1 set2)
; (inner-union set1 (dedupe set2))) ; (inner-union set1 (dedupe set2)))
@ -51,11 +111,11 @@
; ;
;(write (union '(a a a a b b c c c) '())) ;(write (union '(a a a a b b c c c) '()))
;(write (union '(a b c) '(a a a a b b c c c) )) ;(write (union '(a b c) '(a a a a b b c c c) ))
;
(define (union set1 set2) ;(define (union set1 set2)
; NOTE: This should be implemented as merge for efficiency. ; ; NOTE: This should be implemented as merge for efficiency.
(if (not (pair? set1)) ; (if (not (pair? set1))
set2 ; set2
(insert 'todo #;(car set1) (union (cdr set1) set2)))) ; (insert 'todo #;(car set1) (union (cdr set1) set2))))
;
(write (union '(a b) '(c d))) ;(write (union '(a b) '(c d)))