; Here your code ! ; Here your code ! (use srfi-1) (define (readn n) (if (= n 0) '() (cons (read) (readn (- n 1)) ) )) (define (makeomega n m) (map (lambda (x) (+ x m)) (iota n)) ) (define n (read)) (define l1 (readn n)) (define l2 (readn n)) (define zipped (zip l1 l2 (makeomega n 1))) (define ans (remove (lambda(x)(eq? (car x) (cadr x))) zipped)) (print (caddar ans)) (print (caar ans)) (print (cadar ans))