;AC-exemples.lisp
; exemples pour AnalyseContrastive.lisp
; fv 2008
;cons - copy adress register - copy decrement register
; ---------------
;| add. | dec. | = car . cdr
; ---------------
(defvar seq '(a b a c a b e c a b a e c))
(apos seq)
; ((A 0 2 4 8 10) (B 1 5 9) (C 3 7 12) (E 6 11)
(segpos seq (cdar (apos seq)))
; ((A B) (A C) (A B E C) (A B) (A E C)
(mapcar (lambda (x) (append (cdr x) (segpos seq (cdr x)))) (apos seq))
; tout est la
; > combiner plus ou moins localement (car) avec :
(edist '(a b a c) '(a b e c))
; 1
(edist '(a b a c) '(a b e a c))
; 1
(pom '(a b a c) '(a b e c) 1)
; T
(pom '(a b a c) '(a b e a c) 1)
; T
(flat
(segs '(a b a c a b e c a b a e c))
)
; (define (ac ...
; (ac '(a b a c a b e c a b a e c))
RSS 2.0